PRG程序多选/单选

最新推荐文章于 2021-06-27 15:34:03 发布

原创最新推荐文章于 2021-06-27 15:34:03 发布 · 845 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

AS400/RPGLE/CL 专栏收录该内容

69 篇文章

订阅专栏

****多选

A            AASTS1         1Y 0H
A            AASTS2         1Y 0H
A            AASTS3         1Y 0H
A            DSP001        10A P
A            DSP002        10A P
A            DSP003        10A P

A*--- Status
A            DSP106        20O O 9 2MSGID(HR00156 DSPMSGF)
A                                      COLOR(WHT)
A            AASTS          2Y 0B 9 24MLTCHCFLD((*NUMCOL 3))
A                                      CHCAVAIL((*COLOR PNK))
A                                      CHOICE(1 &DSP001)
A                                      CHCCTL(1 &AASTS1)
A                                      CHOICE(2 &DSP002)
A                                      CHCCTL(2 &AASTS2)
A                                      CHOICE(3 &DSP003)
A                                      CHCCTL(3 &AASTS3)

C                   EVAL      DSP001= xxMSGDES
C                   EVAL      xxMSGID = 'HR00161'
C                   EXSR      /GETMSGDES
C                   EVAL      DSP002= xxMSGDES
C                   EVAL      xxMSGID = 'HR00162'
C                   EXSR      /GETMSGDES
C                   EVAL      DSP003= xxMSGDES

C*================================

C* /GETMSGDES = Get message description.
C*================================

CSR   /GETMSGDES    BEGSR
C*
C                   CLEAR                   xxMSGDES
C*
C                   IF        xxMSGID = *BLANKS
C                   LEAVESR
C                   ENDIF
C*
C                   CALL      'RTVMSGC'
C                   PARM                    xxMSGID
C                   PARM                    xxMSGF
C                   PARM                    xxMSGDES
C*
CSR                 ENDSR

****单选

A            DSP011        10A P
A            DSP012        10A P
A            DSP013        10A P
A            DSP014        10A P
A            DSP015        10A P

A*--- Adjust Type
A            DSP354        20O O 12 2MSGID(HR02511 DSPMSGF)
A                                      COLOR(WHT)
A            X3ADTN         2Y 0B 12 24SNGCHCFLD((*NUMCOL 5))
A                                      CHCAVAIL((*COLOR PNK))
A                                      CHOICE(1 &DSP011)
A                                      CHOICE(2 &DSP012)
A                                      CHOICE(3 &DSP013)
A                                      CHOICE(4 &DSP014)
A                                      CHOICE(5 &DSP015)
A 40                                  DSPATR(RI) DSPATR(PC)