zoukankan      html  css  js  c++  java
  • 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' '
    
    
  • 相关阅读:
    List<Map>遍历相加
    jqgrid属性
    idea Could not autowire. No beans of 'xxxx' type found
    【笔记】抓取百度贴吧
    python url中文转码
    python lxml 库
    Python 基础 (笔记)
    HTML 背景
    HTML Iframe
    HTML 响应式 Web 设计
  • 原文地址:https://www.cnblogs.com/lane_yang/p/1984514.html
Copyright © 2011-2022 走看看