列 . . . : 1 71 浏览 LIU/QCLSRC SEU==> ZRTVJOBA
FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
******************** 数据开始 ***************************************** 0001.00 PGM 0002.00 DCL VAR(&MSGQ) TYPE(*CHAR) LEN(10) 0003.00 DCL VAR(&MSGQLIB) TYPE(*CHAR) LEN(10) 0004.00 DCL VAR(&MSGKEY) TYPE(*CHAR) LEN(4) 0005.00 DCL VAR(&REPLY) TYPE(*CHAR) LEN(1) 0006.00 CHGVAR VAR(&REPLY) VALUE(*BLANKS) 0007.00
0008.00 RTVJOBA SBMMSGQ(&MSGQ) SBMMSGQLIB(&MSGQLIB) 0009.00 IF COND(&MSGQ *EQ '*NONE') THEN(DO) 0010.00 CHGVAR VAR(&MSGQ) VALUE('QSYSOPR')
0011.00 CHGVAR VAR(&MSGQLIB) VALUE('QSYS') 0012.00 ENDDO
0013.00 SNDMSG: SNDPGMMSG MSG('WOULD YOU PLEASE TO INSERT A TAPE IN + 0014.00 THE DRIVER (Y/N)?') + 0014.01 TOMSGQ(&MSGQLIB/&MSGQ) MSGTYPE(*INQ) + 0014.02 KEYVAR(&MSGKEY) 0017.00 0018.00 RCVMSG MSGQ(*PGMQ) MSGTYPE(*RPY) MSGKEY(&MSGKEY) + 0019.00 WAIT(12) MSG(&REPLY)
0020.00 IF COND(&REPLY *EQ 'Y') THEN(GOTO CMDLBL(BACKUP)) 0021.00 ELSE CMD(IF COND(&REPLY *EQ 'N') THEN(GOTO + 0021.01 CMDLBL(END))) 0022.00
0023.00 BACKUP: SNDPGMMSG MSG('BACKUP FINISHED') TOMSGQ(&MSGQLIB/&MSGQ) 0026.00
0028.00 END: ENDPGM
******************** 数据结束 *****************************************
F3= 退出 F5= 刷新 F9= 检索 F10= 光标 F11= 切换 F12= 取消
F16= 重复查找 F24= 其余键
