Link to home
Start Free TrialLog in
Avatar of aelessedil
aelessedil

asked on

What is this really doing???

I've inherited some 10+ year old code without benefit of the original programmer... can anyone explain the usefulness of this code segment, or at least reduce to something more sensible?

                                                       Display Module Source                                                        
                                                                                                                                   
C  N31USERN         CABNE     *ALL' '                            3131--                                  

Thanks in advance ;)
Avatar of slightwv (䄆 Netminder)
slightwv (䄆 Netminder)

I don't know RPG but from a quick google, looks like compare and branch:
https://www.ibm.com/support/knowledgecenter/SSPSQF_9.0.0/com.ibm.etools.iseries.langref.doc/evferlsh266.htm
The code is probably 20-40 years old. RPG is very column sensitive.. The last time I worked in RPG II was in 1980.
C (we will be doing a compare
N31USERN      Operand 1 variable
CABNE  - compare and branch if not equal
*ALL' '      compared to this is a literal not a variable
3131--        Tag or variable                            


http://www.go4as400.com/rpgle-opcodes/as400.aspx?cid=205
ASKER CERTIFIED SOLUTION
Avatar of Member_2_276102
Member_2_276102

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Avatar of aelessedil

ASKER

Thanks everyone! It seems I purged all this knowledge during Y2K, and frankly never used left-side indicators in conjunction with a factor variable.

I've a long uphill battle to update these programs to /Free... without the /Free of course ;)