16) GEN, CA GEN, CoolGEN batch job related another best practice

The batch jobs of COOL:Gen even though they execute successfully, they return with a return code of 100. For unsuccessful executions, it displays the return code as given by the TP monitor.

Best Practice:

Instead of invoking the batch program as given below:

...

//SYSTSIN        DD       *

            DSN SYSTEM(DB2T)

            RUN PROGRAM(PROGA) PLAN(PROGA)

            END

/*

Execute it as follows:

..

//SYSPROC      DD       DSN=SYS2.COOLGEN.CLIST,DISP=SHR

...

//SYSTSIN        DD       *

            EXECDSN PROGA DB2T

/*

The contents of EXECDSN will look like:

/* Rexx */

Parse Upper Arg programname db2system .

"NEWSTACK"

Queue "RUN PROGRAM("programname") PLAN("programname")"

Queue "END"

"DSN SYSTEM("db2system")"

Coolgenrc = Rc

"DELSTACK"

If Coolgenrc = 100 Then

            Exit 0

Exit Coolgenrc