AS400 PUSHBUTTON

运行界面

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' '