PGM
DCL VAR(&VIDEO) TYPE(*CHAR) LEN(1)
CHGVAR VAR(&VIDEO) VALUE(X'21')
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA(&VIDEO *CAT 'STATUS 21') TOPGMQ(*EXT) MSGTYPE(*INFO)
CHGVAR VAR(&VIDEO) VALUE(X'22')
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA(&VIDEO *CAT 'STATUS 22') TOPGMQ(*EXT) MSGTYPE(*INFO)
CHGVAR VAR(&VIDEO) VALUE(X'23')
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA(&VIDEO *CAT 'STATUS 23') TOPGMQ(*EXT) MSGTYPE(*INFO)
CHGVAR VAR(&VIDEO) VALUE(X'24')
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA(&VIDEO *CAT 'STATUS 24') TOPGMQ(*EXT) MSGTYPE(*INFO)
CHGVAR VAR(&VIDEO) VALUE(X'25')
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA(&VIDEO *CAT 'STATUS 25') TOPGMQ(*EXT) MSGTYPE(*INFO)
CHGVAR VAR(&VIDEO) VALUE(X'26')
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA(&VIDEO *CAT 'STATUS 26') TOPGMQ(*EXT) MSGTYPE(*INFO)
CHGVAR VAR(&VIDEO) VALUE(X'27')
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA(&VIDEO *CAT 'STATUS 27') TOPGMQ(*EXT) MSGTYPE(*INFO)
CHGVAR VAR(&VIDEO) VALUE(X'28')
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA(&VIDEO *CAT 'STATUS 28') TOPGMQ(*EXT) MSGTYPE(*INFO)
CHGVAR VAR(&VIDEO) VALUE(X'29')
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA(&VIDEO *CAT 'STATUS 29') TOPGMQ(*EXT) MSGTYPE(*INFO)
CHGVAR VAR(&VIDEO) VALUE(X'2A')
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA(&VIDEO *CAT 'STATUS 2A') TOPGMQ(*EXT) MSGTYPE(*INFO)
CHGVAR VAR(&VIDEO) VALUE(X'2B')
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA(&VIDEO *CAT 'STATUS 2B') TOPGMQ(*EXT) MSGTYPE(*INFO)
CHGVAR VAR(&VIDEO) VALUE(X'2C')
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA(&VIDEO *CAT 'STATUS 2C') TOPGMQ(*EXT) MSGTYPE(*INFO)
CHGVAR VAR(&VIDEO) VALUE(X'2D')
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA(&VIDEO *CAT 'STATUS 2D') TOPGMQ(*EXT) MSGTYPE(*INFO)
CHGVAR VAR(&VIDEO) VALUE(X'2E')
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA(&VIDEO *CAT 'STATUS 2E') TOPGMQ(*EXT) MSGTYPE(*INFO)
CHGVAR VAR(&VIDEO) VALUE(X'2F')
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA(&VIDEO *CAT 'STATUS 2F') TOPGMQ(*EXT) MSGTYPE(*INFO)
ENDPGM