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 ;)
Display Module Source
C N31USERN CABNE *ALL' ' 3131--
Thanks in advance ;)
* RPG* AS400ProgrammingProgramming Languages-OtherMainframe Languages
Last Comment
aelessedil
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
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
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
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 questionASKER
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 ;)
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
https://www.ibm.com/support/knowledgecenter/SSPSQF_9.0.0/com.ibm.etools.iseries.langref.doc/evferlsh266.htm