OpenMake Meister

Section II: Constructing the JCL

 

call PrePendJobCard $JobCard;    /* Add the Job Card */              

queue '//*-------------------------------------------------------'

queue '//* Using '$ScriptName                                       

queue '//* for '$RelTarget                                           

queue '//*-------------------------------------------------------'

 

$CobolListing = DelListDSN("Cobol",$Target,$Step,"Compile")

 

queue "//*-------------------------------------------------------"

queue "//* Run the Cobol Compiler"

queue "//*-------------------------------------------------------"

queue "//COB"$CurrentStep  "EXEC PGM=IGYCRCTL,"

call FormatParmFlags $CompFlags

queue "//*"

 

call GetDSNConcat "STEPLIB",$ENV.IGY_SIGYCOMP;                 

call GetDSNConcat "SYSLIB",$ENV.CICS_SDFHCOB $SysLibList;                 

 

call GetDSNPath "SYSIN",$Source,"DISP=SHR";                   

call GetDSNPath "SYSLIN",$Target,"DISP=SHR";                   

queue "//SYSUT1    DD UNIT=SYSDA,SPACE=(460,(350,100))"

queue "//SYSUT2    DD UNIT=SYSDA,SPACE=(460,(350,100))"

queue "//SYSUT3    DD UNIT=SYSDA,SPACE=(460,(350,100))"

queue "//SYSUT4    DD UNIT=SYSDA,SPACE=(460,(350,100))"

queue "//SYSUT5    DD UNIT=SYSDA,SPACE=(460,(350,100))"

queue "//SYSUT6    DD UNIT=SYSDA,SPACE=(460,(350,100))"

queue "//SYSUT7    DD UNIT=SYSDA,SPACE=(460,(350,100))"

queue "//SYSUT8    DD UNIT=SYSDA,SPACE=(460,(350,100))"

 

$CobolListing = GetListDSN("Cobol",$Target,$Step,"Compile")

 

queue "//*--------------------------------------------------------"

queue "//* Log the Output"

queue "//*--------------------------------------------------------"

 

call LogMessage "Detail","LCOB"$CurrentStep,"*.COB"$CurrentStep ||, 

     ".SYSPRINT","RC > 4",$CobolListing,"Compile"                                              

    

queue "//   IF (COB"$CurrentStep".RC < 8) THEN"

call UpdateStats $Target, "Detail","LSTS"$CurrentStep,"*.STS"$CurrentStep

queue "//   ENDIF"

 

call AddSubmitNextJCL "COB"$CurrentStep".RC < 8"                                                                        

call WriteJCL                           

exit 0;