/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
/* * "If it's squinky, then you know it's BrilligWare!"            * */
/* *                                                               * */
/* * Source available at www.brilligware.com                       * */
/* * Brillig Enterprises (aka Chris Pando) (C)2006                 * */
/* *                                                               * */
/* * This work is licensed under a Creative Commons                * */
/* * Attribution-NonCommercial-ShareAlike License:                 * */
/* * http://creativecommons.org/licenses/by-nc-sa/2.0/legalcode    * */
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
/* *                                                               * */
/* * *       CL Source Member Interpreter                        * * */
/* *                                                               * */
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
 PGM        PARM(&LIB &FILE &MBR)

    DCL        VAR(&LIB       ) TYPE(*CHAR) LEN(  10)
    DCL        VAR(&FILE      ) TYPE(*CHAR) LEN(  10)
    DCL        VAR(&MBR       ) TYPE(*CHAR) LEN(  10)
    DCL        VAR(&EOF       ) TYPE(*LGL ) LEN(   1) VALUE('0')
    DCL        VAR(&TYPE      ) TYPE(*CHAR) LEN(   1)

    DCLF       FILE(QCLSRC)
 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
       MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(ERROR))
 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
       RTVJOBA    TYPE(&TYPE)

       OVRDBF     FILE(QCLSRC) TOFILE(&LIB/&FILE) MBR(&MBR)
 TAG:  RCVF
       MONMSG     MSGID(CPF0000) EXEC(CHGVAR VAR(&EOF) VALUE('1'))
       IF         COND(¬ &EOF) THEN(DO)
          SNDPGMMSG  MSG(&SRCDTA) TOPGMQ(*EXT) MSGTYPE(*RQS)
          GOTO       CMDLBL(TAG)
       ENDDO

       IF         COND(&TYPE = '1') THEN(+
          SNDPGMMSG  MSG('ENDRQS') TOPGMQ(*EXT) MSGTYPE(*RQS))

       CALL       PGM(QCMD)
       GOTO       CMDLBL(EOJ)
 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
ERROR:
 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
EOJ: ENDPGM