AS400 PUSHBUTTON

最新推荐文章于 2021-12-19 14:43:06 发布

weixin_30312563

最新推荐文章于 2021-12-19 14:43:06 发布

阅读量119

点赞数

原文链接：http://www.cnblogs.com/lane_yang/archive/2011/03/15/1984514.html

版权

运行界面

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
ENDDO
/* WRKACTJOB */
IF COND(&F2 *EQ 2 ) THEN(DO)
WRKACTJOB
ENDDO
/* DISPLAY QSYSOPR MESSAGES */
IF COND(&F2 *EQ 3 ) THEN(DO)
DSPMSG QSYSOPR
ENDDO
/* WRKSBMJOB */
IF COND(&F2 *EQ 4 ) THEN(DO)
WRKSBMJOB
ENDDO

GOTO CMDLBL(START)

END: RETURN
ENDPGM

DSP文件

     A*%%TS  SD  20041017  193000  JAMIE       REL-V4R4M0  5769-PW1
     A*%%EC
     A                                      DSPSIZ(24 80 *DS3)
     A                                      ERRSFL
     A                                      CF03(03 'Exit')
     A          R FMT01
     A*%%TS  SD  20041017  193000  JAMIE       REL-V4R4M0  5769-PW1
     A                                      WINDOW(4 34 10 28)
     A                                      CA06(06 'MESSAGE')
     A                                      BLINK
     A                                      OVERLAY
     A                                      WDWTITLE((*TEXT 'COMMAND MENU'))
     A            F2             2Y 0B  4  1PSHBTNFLD((*NUMCOL 1))
     A                                      PSHBTNCHC(1 'WRKOUTQ *ALL')
     A                                      PSHBTNCHC(2 '>WRKACTJOB')
     A                                      PSHBTNCHC(3 '>DSPMSG QSYSOPR')
     A                                      PSHBTNCHC(4 '>WRKSBMJOB')
     A            F1             2Y 0B  9  2PSHBTNFLD
     A                                      PSHBTNCHC(1 '>EXIT' CF03)
     A                                      PSHBTNCHC(2 '>SEND MSG' CF06)
     A                                  1  5'Push-Button Example'
     A                                      DSPATR(HI)
     A          R DUMMY
     A                                      TEXT('PREVENTS ')
     A                                      ASSUME
     A                                  5  9' '

转载于:https://www.cnblogs.com/lane_yang/archive/2011/03/15/1984514.html