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 ;)
* RPG* AS400ProgrammingProgramming Languages-OtherMainframe Languages

Avatar of undefined
Last Comment
aelessedil

8/22/2022 - Mon
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
David Johnson, CD

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
Member_2_276102

Log in or sign up to see answer
Become an EE member today7-DAY FREE TRIAL
Members can start a 7-Day Free trial then enjoy unlimited access to the platform
Sign up - Free for 7 days
or
Learn why we charge membership fees
We get it - no one likes a content blocker. Take one extra minute and find out why we block content.
Not exactly the question you had in mind?
Sign up for an EE membership and get your own personalized solution. With an EE membership, you can ask unlimited troubleshooting, research, or opinion questions.
ask a question
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 ;)
Experts Exchange is like having an extremely knowledgeable team sitting and waiting for your call. Couldn't do my job half as well as I do without it!
James Murphy