Good morning, I just got my printing issues figured out, now I am generating 2 spool files. In debug I see my pgm go to my $EOJ routine, then out to the CL, it goes to the next line where my DLTOVR(*ALL) is , then it goes back to the $INIT routine in the RPG program.
Any input would be appreciated. Thank you.
// ---------------------------
// End Of Job
// ---------------------------
BegSR $Eoj;
*Inlr = *On;
Return;
EndSR;
/End-free
-----------------------------------------------------------------------------------
PGM PARM(&OUTQ)
DCL &OUTQ TYPE(*CHAR) LEN(10)
OVRPRTF FILE(INR0050F) OUTQ(PGMRSNAPSH) HOLD(*YES) +
SAVE(*YES) OVRSCOPE(*CALLLVL)
CALL PGM(INR0050)
DLTOVR FILE(*ALL)
END:
/* RETURN */ I had this uncommented first, then tried it without it, still does 2 spool files.
ENDPGM
Any input would be appreciated. Thank you.
// ---------------------------
// End Of Job
// ---------------------------
BegSR $Eoj;
*Inlr = *On;
Return;
EndSR;
/End-free
-----------------------------------------------------------------------------------
PGM PARM(&OUTQ)
DCL &OUTQ TYPE(*CHAR) LEN(10)
OVRPRTF FILE(INR0050F) OUTQ(PGMRSNAPSH) HOLD(*YES) +
SAVE(*YES) OVRSCOPE(*CALLLVL)
CALL PGM(INR0050)
DLTOVR FILE(*ALL)
END:
/* RETURN */ I had this uncommented first, then tried it without it, still does 2 spool files.
ENDPGM
Comment