*INU3 and *INU4 SWS

230 pts.
Tags:
AS/400
CL Program
I am working on an some old programs that make use of *INU3 and * INU4 indicators. From the CL program it appears they are getting set on by ''00100000' and '00010000'. Would I be correct?


Software/Hardware used:
VR7m1
1

Answer Wiki

Thanks. We'll let you know when a new response is added.

The *Un indicators started backing in the punch card days when you could not pass parameters to a program. They are called UPSI (User Program Status Indicator) switches. Still handy today because you can control code in your programs RPG, COBOL) and not have to recompile programs.

Discuss This Question: 5  Replies

 
There was an error processing your information. Please try again later.
Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.
  • TheRealRaven
    Yes, correct. CHGJOB SWS('00100000') would be seen in a RPG program as U3 being set to *ON and the other seven user indicators set to *OFF. And SWS('00010000') would set U4 to *ON. And SWS('00110000') would set both U3 and U4 to *ON.

    The help text for the CHGJOB SWS() parameter describes this, as does similar help for one or two other commands.
    35,650 pointsBadges:
    report
  • ToddN2000
    Boy that brings back memories. I have not seen or used those since my old RPG II and RPG III days.
    133,750 pointsBadges:
    report
  • BigKat
    I use switch 1 to cause a CL that if it isn't running batch resubmits itself to NOT do the resubmit for easier testing and debugging 
    9,460 pointsBadges:
    report
  • ToddN2000
    Nice tip BigKat...
    I'll add that to my list of helpful ideas.
    133,750 pointsBadges:
    report
  • BigKat
    Thanks! I love finding tips like that too!
    9,460 pointsBadges:
    report

Forgot Password

No problem! Submit your e-mail address below. We'll send you an e-mail containing your password.

Your password has been sent to:

To follow this tag...

There was an error processing your information. Please try again later.

Thanks! We'll email you when relevant content is added and updated.

Following

Share this item with your network: