Re: Library Lists

["Scott Johnson" <sjohnson@xxxxxxxxxxxxx>]

Dave,

Below is a CL wrapper as I call it.  It is just some CL code that is used
to set some things up before calling a program.  You would call it instead
of calling the RPG program directly.

-- Scott Johnson



             PGM        PARM(&EMAIL)
             DCL        VAR(&EMAIL) TYPE(*CHAR) LEN(129)
             DCL        VAR(&SYSNAM) TYPE(*CHAR) LEN(8)
             MONMSG     MSGID(CPF2103)
             MONMSG     MSGID(CPF2104)
/* Retrieve System Name                                              */
             RTVNETA    SYSNAME(&SYSNAM)
/* Based on System, add proper Library to Library List               */
             IF         COND(&SYSNAM *EQ 'FULFILL ') THEN(ADDLIBLE +
                          LIB(HSPRODLIB))
             ELSE       CMD(ADDLIBLE LIB(HSSTAGELIB))
/* Call Web Server Cat-To Acct Maint program                         */
             CALL       PGM(WEBOCATACT) PARM(&EMAIL)
/* Based on System, remove added Library from Library List           */
             IF         COND(&SYSNAM *EQ 'FULFILL ') THEN(RMVLIBLE +
                          LIB(HSPRODLIB))
             ELSE       CMD(RMVLIBLE LIB(HSSTAGELIB))
             ENDPGM






Scott,

What are CL wrapper?

Dave Bednarcik
Email: DaveBednarcik@WesternUnion.com
Work #: (201)263-5186
Fax # : (201)263-5455