![]() |
OpenMake Meister |
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;