Re: Library Lists

[DaveBednarcik@xxxxxxxxxxxxxxxx]

Well in my case, I am just calling a CL program but I understand what you
are doing.

THANKS,

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



                      "Scott Johnson"
                      <sjohnson@highsmi        To:       domino400@midrange.com
                      th.com>                  cc:
                      Sent by:                 Subject:  Re: Library Lists
                      domino400-admin@m
                      idrange.com


                      07/10/2002 01:57
                      PM
                      Please respond to
                      domino400







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




_______________________________________________
This is the Lotus Domino on the iSeries / AS400 (DOMINO400) mailing list
To post a message email: DOMINO400@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/domino400
or email: DOMINO400-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/domino400.