Our app people use nested procs extensively.  They have adopted a style of 
having a proc symbolic for every procstep of the form

//STEP0123      EXEC    PGM=whatever,COND=&COND0123

Besides the number and naming of symbolics, the down side of this was 
revealed when some software of mine was implemented to condition the 
execution of some steps.

The default had been COND0123='(0,NE)'.  My software gave three condition 
codes: 0=run the step(s), 1=don't run the steps, 2=setup fubar so run the 
steps.

Every default symbolic had to be changed.  I leave it as an exercise to 
the reader to determine the new default symbolic so downstream steps run 
if one of the test steps gives cc=2.

Of course someone had the bright idea to mix the COND technique with the 
IF/THEN/ELSE technique.  SO we have

//STEP0122      EXEC    PROC=myproc,COND=&COND0122
//      IF      (STEP0122.procstep.RC NE 1) THEN 
//STEP0123      EXEC    PGM=whatever,COND=&COND0123
//      ENDIF

Aaaaaarrrrgggggggghhhhhhhhhhhhh!  At least I am not the primary support or 
owner of this dog's breakfast.

IBM Mainframe Discussion List <IBM-MAIN@BAMA.UA.EDU> wrote on 08/09/2007 
07:36:57 AM:

> And now the really difficult question:  How can one override the
> COND= parameter on a single step in a PROC nested two or more
> levels deep?



-----------------------------------------
The information contained in this communication (including any
attachments hereto) is confidential and is intended solely for the
personal and confidential use of the individual or entity to whom
it is addressed. The information may also constitute a legally
privileged confidential communication. If the reader of this
message is not the intended recipient or an agent responsible for
delivering it to the intended recipient, you are hereby notified
that you have received this communication in error and that any
review, dissemination, copying, or unauthorized use of this
information, or the taking of any action in reliance on the
contents of this information is strictly prohibited. If you have
received this communication in error, please notify us immediately
by e-mail, and delete the original message. Thank you 

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Reply via email to