SeanHoppe.com > Cleo Code Samples > 810 invoice pre-processing CL

CLEO Integrator - 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