Start Free Trial
Come for the solution, stay for everything else.
Start Free Trial
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 ;)
8/22/2022 - Mon
slightwv (䄆 Netminder)
I don't know RPG but from a quick google, looks like compare and branch:
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
ASKER CERTIFIED SOLUTION
Log in or sign up to see answer
Become an EE member today
7-DAY FREE TRIAL
Members can start a 7-Day Free trial then enjoy unlimited access to the platform
Sign up - Free for 7 days
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.
See how we're fighting big data
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
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!
Plans and Pricing
Certified Expert Program
© 1996-2023 Experts Exchange, LLC. All rights reserved. Covered by US Patent