摘要： 运行界面CLP程序 PGM DCLF FILE(PUSHBD) MONMSG MSGID(CPF0000) START: SNDRCVF DEV(*FILE) RCDFMT(FMT01) WAIT(*YES) RMVMSG CLEAR(*ALL) IF COND(&IN03) THEN(DO) GOTO END ENDDO /* F6-DISPLAY MESSAGES */ IF COND(&IN06) THEN(DO) CALL QEZSNDMG ENDDO /* WRKOUTQ *ALL */ IF COND(&F2 *EQ 1) THEN(DO) WRKOUTQ 阅读全文