We use self-submitting CL programs to run reports in batch. But when we need to debug the programs, we'd like to...
By submitting your personal information, you agree that TechTarget and its partners may contact you regarding relevant content, products and special offers.
stop the CL from self-submitting.
Instead of changing the code temporarily, use a data area in QTEMP whose mere existence makes the CL run interactively. If data area NOBATCH (any type/size) isn't found, the CL self-submits normally.
DCL VAR(&JTYP) TYPE(*CHAR) LEN(1) VALUE('0') /* If running interactively, submit to batch : */ CHKOBJ OBJ(NOBATCH) OBJTYPE(*DTAARA) MONMSG MSGID(CPF0000 MCH0000) EXEC(RTVJOBA TYPE(&JTYP)) DO_SUBMIT: IF COND(&JTYP *EQ '1') THEN(DO) SBMJOB CMD(CALL PGM(THISPGM) PARM(&DATA)) JOB(JOB_NAME) RETURN OD_SUBMIT: ENDDO
MORE INFORMATION ON THIS TOPIC
The Best Web Links: tips, tutorials and more.
Ask your programming questions--or help out your peers by answering them--in our live discussion forums.
Ask the Experts yourself: Our application development gurus are waiting to answer your programming questions.