Re: control level field & Z-add

[boothm@xxxxxxx]

In <19990126041125.19148.rocketmail@send103.yahoomail.com>, on 01/25/99 
   at 08:11 PM, mohammad khan <mohammadakhan@yahoo.com> said:

>What does the control level field in
>the cspec prompt do for a subroutine in
>rpg/400? i've done several rpg/400
>pgms w/subroutines & never once remember
>adding an SR in that field. what gives?

  Old History.  The SR used to be required in a subroutine.  Its been dopped 
but a lot of old code still has it in there.



>also what would this line do at the
>end of a clrsfl subroutine:

> Z-ADD 0  RRN  4 0

>i'm gathering it clears a 4 digit rrn
>with 4 zeros when the clrsfl runs.

exactly. You may want to see what the field RRN is used for though.  That'll 
explain what the programmer wanted to do.





>regards,

>Mohammad
>_________________________________________________________
>DO YOU YAHOO!?
>Get your free @yahoo.com address at http://mail.yahoo.com

>* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
>* This is the RPG/400 Discussion Mailing List!  To submit a new         *
>* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
>* from this list send email to MAJORDOMO@midrange.com and specify       *
>* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
>* be directed to the list owner / operator: david@midrange.com          *
>* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


-- 
-----------------------------------------------------------
boothm@ibm.net
Booth Martin
-----------------------------------------------------------

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *