PGM PARM(&LIB1 &LIB2)

DCL VAR(&LIB1      ) TYPE(*CHAR) LEN( 10  )
DCL VAR(&LIB2      ) TYPE(*CHAR) LEN( 10  )

DCL VAR(&SH_MSG    ) TYPE(*CHAR) LEN(  80 )
DCL VAR(&SH_MSGID  ) TYPE(*CHAR) LEN(   7 )
DCL VAR(&SH_MSGDTA ) TYPE(*CHAR) LEN( 256 )

/* 例外処理用の監視メッセージ ID */
MONMSG MSGID(CPF0000) EXEC(GOTO #EXCEP_1)

/* プログラム処理 */
CHKOBJ OBJ(&LIB1) OBJTYPE(*LIB)

CHKOBJ OBJ(&LIB2) OBJTYPE(*LIB)
    MONMSG MSGID(CPF9801) EXEC(DO)
        CHGVAR VAR(&SH_MSG   ) VALUE(' ライブラリー  ' *BCAT +
                                     &LIB2             *BCAT +
                                     ' が見つかりません。 '  )
        SNDPGMMSG MSGID(CPF9897) MSGF(QCPFMSG)    +
                                 MSGDTA(&SH_MSG ) +
                                 MSGTYPE(*ESCAPE)
    ENDDO 

/* 例外処理を記述します */
#EXCEP_1:
RCVMSG MSGQ(*PGMQ) RMV(*NO ) MSGDTA(&SH_MSGDTA) MSGID(&SH_MSGID)
SNDPGMMSG MSGID(&SH_MSGID) MSGF(QCPFMSG)      +
                           MSGDTA(&SH_MSGDTA) +
                           MSGTYPE(*ESCAPE)
ENDPGM