SeanHoppe.com > Cleo Code Samples > Create Custom EDI Menu Program

EXTOL CL - Create Custom EDI Menu Program

/*****************************************************************************/
/*  NOTE --  EXTSYS must be in the library list in order to compile          */
/*****************************************************************************/

             PGM
             DCL        VAR(&CHGLIBL) TYPE(*CHAR) LEN(285)
             DCL        VAR(&HLDUSRLIBL) TYPE(*CHAR) LEN(275)
             DCLF       FILE(EDIMENU)

             RTVJOBA    USRLIBL(&HLDUSRLIBL)

START:       SNDRCVF RCDFMT(DTL01)

             IF (&IN03 = '1') GOTO END

             IF (&OPTION = ' ') GOTO START

/**/
/*  PRODUCTION   */
/**/
             IF (&OPTION = '1') DO
             CHGLIBL    LIBL(QTEMP EXTSYSF EXTSYS +
                             EXTINTMSGQ QGPL)
             YGO
             GOTO       START
             ENDDO

/**/
/*  TEST  */
/**/
             IF (&OPTION = '2') DO
             CHGLIBL    LIBL(QTEMP EXTSYSFT EXTSYS +
                             EXTINTMSGT QGPL)
             YGO
             GOTO       START
             ENDDO
             GOTO       START

END:         CHGVAR     VAR(&CHGLIBL) VALUE('CHGLIBL (' *CAT +
                          &HLDUSRLIBL *TCAT ')')
             CALL       PGM(QCMDEXC) PARM(&CHGLIBL 285)

             ENDPGM