810 invoice pre-processing CL

EXTOL - 810 invoice pre-processing CL

/*==================================================================*/
/* Description : Create/ send a Outbound Invoices                   */
/*==================================================================*/

PGM
             DCL        VAR(&LIBL) TYPE(*CHAR) LEN(257)
             DCL        VAR(&MSG) TYPE(*CHAR) LEN(7)

             DCL        VAR(&VALIDRECS) TYPE(*DEC) LEN(10 0)

             ADDLIBLE   LIB(EXTINTMSGQ)
             MONMSG     MSGID(CPF0000)
             ADDLIBLE   LIB(EXTSYSF)
             MONMSG     MSGID(CPF0000)
             ADDLIBLE   LIB(EXTSYS)
             MONMSG     MSGID(CPF0000)
ADDLIBLE LIB(EXTPROGRAM) MONMSG MSGID(CPF0000) CALL PGM(CHK810REC) PARM(&VALIDRECS) /* SYEDSP=' ' */ IF COND(&VALIDRECS *GT 0) THEN(GOTO + CMDLBL(THEEND)) CRTAPPDTAB FSET(O810) ERROPT(*NO) CRTENV(*YES) + NETWRP(*ALL) NETSND(*ALL) + RSLTMETHOD(*RUNTIME) PARCHLDREL(*YES) MONMSG MSGID(UEX0199 UEX0605) THEEND: DSPJOBLOG OUTPUT(*PRINT) RETURN ERROR: SNDPGMMSG MSGID(&MSG) MSGF(PSMSGS) ENDPGM