AS/400开发经验点滴（六）--如何制作下拉菜单(源码)

blogliou

按：前几天，有两位朋友谈及下拉菜单。我也来凑凑热闹，毕竟是自己的亲自经验。


AS/400开发经验点滴（六）
---- 如何制作下拉菜单


九．在AS/400上实现弹出下拉菜单

1.步骤

AS/400上使用下拉菜单的软件很少见，但下拉菜单的优点又显而易见，AS/400的SDA工具提供了制造下拉菜单的功能。

用SDA创建显示文件，可以用多种RECORD类型可以选择：RECORD, USRDFN，SFL, SFLMSG，WINDOW, WDWSFL，PULDWN, PDNSFL，MNUBAR。其中的MNUBAR和PULDWN两种类型就是制造下拉菜单的两种必须类型。
                 
使用SDA工具只需遵循以下六个步骤就可以创建下拉菜单：

1．        用STRSDA启动SDA，选择DESIGN SCREEN
2．        创建一个或多个类型为pull-down(PULDWN)的RECORD
3．        创建一个类型menu-bar(MNUBAR)的RECORD
4．        定义PULDWN RECORD的fields
5．        定义MNUBAR RECORD的fileds
6．        测试下拉菜单

2. 显示文件

这几步详细步骤信息可以参见SDA参考书。下面就是我创建的一个下拉菜单的示范显示文件：

1. 
   
2.      A*%%TS  SD  20040210  110218  BLOG        REL-V5R1M0  5722-WDS
   
3.      A*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
   
4.      A*                                                               *
   
5.      A* FILE NAME        : PULLMENU                                   *
   
6.      A* DESCRIPTION      : PULL DOWN MENU SAMPLE                      *
   
7.      A* VERSION          : 2.00                                       *
   
8.      A* PROGRAMMER       : BLOG LIOU                                  *
   
9.      A* CREATION DATE    : 1998.02.22 - V1.00                         *
   
10.      A* MODIFIED DATE    : 1998.05.08 - V2.00                         *
    
11.      A* MODIFIED DATE    : 2004.02.10 - V2.10                         *
    
12.      A*                                                               *
    
13.      A*################################################################
    
14.      A*%%EC
    
15.      A                                      DSPSIZ(24 80 *DS3)
    
16.      A                                      INVITE
    
17.      A                                      INDARA
    
18.      A                                      MNUBARSW(CA10)
    
19.      A                                      MNUCNL(CA12)
    
20.      A                                      HELP(01)
    
21.      A                                      CF02
    
22.      A                                      CF03
    
23.      A                                      CSRINPONLY
    
24.      A*                                     OVERLAY
    
25.      A*                                     MNUBARDSP(MENUBAR &MNUCHI &PULCHI)
    
26.      A          R APPSCR
    
27.      A*%%TS  SD  20040210  110218  BLOG        REL-V5R1M0  5722-WDS
    
28.      A                                      CSRLOC(LINNBR     POSNBR)
    
29.      A                                      RTNCSRLOC(*WINDOW &LINNBR &POSNBR)
    
30.      A                                      KEEP
    
31.      A            LINNBR         3S 0H
    
32.      A            POSNBR         3S 0H
    
33.      A                                 23  1'F1=HELPF2=SWITCH LINE MENU  F3=E-
    
34.      A                                      XIT F12=CANCEL                     -
    
35.      A                                                '
    
36.      A                                      DSPATR(RI)
    
37.      A                                      COLOR(BLU)
    
38.      A                                 11 26'==  PULL DOWN MENU SAMPLE =='
    
39.      A                                      COLOR(BLU)
    
40.      A                                 20 14'BLOGIMS VERSION 1.00, (C)COPYRIGHT-
    
41.      A                                       XXXXXXX CORP. 1998.'
    
42.      A                                      DSPATR(UL)
    
43.      A                                      COLOR(WHT)
    
44.      A*                                 3 63DATE
    
45.      A*                                     EDTCDE(Y)
    
46.      A*                                     DSPATR(HI)
    
47.      A*                                 3 72TIME
    
48.      A*                                     DSPATR(HI)
    
49.      A*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    
50.      A          R MENUBAR
    
51.      A*%%TS  SD  19980518  164123  BLOG        REL-V3R7M0  5716-PW1
    
52.      A                                      RTNCSRLOC(*WINDOW &LINNBR &POSNBR)
    
53.      A                                      CSRLOC(LINNBR     POSNBR)
    
54.      A                                      OVERLAY
    
55.      A                                      KEEP
    
56.      A                                      MNUBAR
    
57.      A                                      MNUBARDSP(&PULCHI)
    
58.      A            LINNBR         3S 0H
    
59.      A            POSNBR         3S 0H
    
60.      A            PULCHI         2S 0H
    
61.      A            MNUCHI         2Y 0B  1  2CHCSLT((*COLOR PNK))
    
62.      A                                      MNUBARCHC(1 APULDWN '中心日终')
    
63.      A                                      MNUBARCHC(2 BPULDWN '查询处理')
    
64.      A                                      MNUBARCHC(3 CPULDWN '网络监视')
    
65.      A                                      MNUBARCHC(4 DPULDWN '报标管理')
    
66.      A                                      MNUBARCHC(5 EPULDWN '系统管理')
    
67.      A                                      MNUBARCHC(6 FPULDWN '数据维护')
    
68.      A*----------------------------------------------------------------
    
69.      A          R APULDWN
    
70.      A*%%TS  SD  19980510  083341  BLOG        REL-V3R7M0  5716-PW1
    
71.      A                                      PULLDOWN(*NOSLTIND)
    
72.      A            FLD001         2Y 0B  1  1SNGCHCFLD
    
73.      A                                      CHOICE(1 '>;1*********')
    
74.      A                                      CHOICE(2 '>;2*********')
    
75.      A                                      CHOICE(3 '>;3*********')
    
76.      A                                      CHOICE(4 '>;4*********')
    
77.      A                                      CHOICE(5 '>;5*********')
    
78.      A                                      CHOICE(6 '>;6*********')
    
79.      A                                      CHOICE(7 '>;7*********')
    
80.      A                                      CHOICE(8 '>;8*********')
    
81.      A                                      CHOICE(9 '>;9*********')
    
82.      A                                      CHOICE(10 '>;A*********')
    
83.      A                                      CHOICE(11 '>;B*********')
    
84.      A                                      CHOICE(12 '>;C*********')
    
85.      A                                      CHOICE(13 '>;D*********')
    
86.      A                                      CHOICE(14 '>;E*********')
    
87.      A          R BPULDWN
    
88.      A*%%TS  SD  19980508  220549  BLOG        REL-V3R7M0  5716-PW1
    
89.      A                                      PULLDOWN
    
90.      A            FLD001         2Y 0B  1  1CHOICE(1 '*********')
    
91.      A                                      CHOICE(2 '*********')
    
92.      A                                      CHOICE(3 '*********')
    
93.      A                                      CHOICE(4 '*********')
    
94.      A                                      CHOICE(5 '*********')
    
95.      A                                      CHOICE(6 '*********')
    
96.      A                                      SNGCHCFLD
    
97.      A          R CPULDWN
    
98.      A*%%TS  SD  19980508  220549  BLOG        REL-V3R7M0  5716-PW1
    
99.      A                                      PULLDOWN
    
100.      A            FLD001         2Y 0B  1  1SNGCHCFLD
     
101.      A                                      CHOICE(1 '*********')
     
102.      A                                      CHOICE(2 '*********')
     
103.      A                                      CHOICE(3 '*********')
     
104.      A          R DPULDWN
     
105.      A*%%TS  SD  19980508  220549  BLOG        REL-V3R7M0  5716-PW1
     
106.      A                                      PULLDOWN
     
107.      A            FLD001         2Y 0B  1  1SNGCHCFLD(*RSTCSR)
     
108.      A                                      CHOICE(1 '*********')
     
109.      A                                      CHCUNAVAIL((*COLOR BLU))
     
110.      A          R EPULDWN
     
111.      A*%%TS  SD  19980508  220549  BLOG        REL-V3R7M0  5716-PW1
     
112.      A                                      PULLDOWN
     
113.      A            FLD001         2Y 0B  1  1SNGCHCFLD
     
114.      A                                      CHOICE(1 '*********')
     
115.      A                                      CHOICE(2 '*********')
     
116.      A                                      CHOICE(3 '*********')
     
117.      A                                      CHOICE(4 '*********')
     
118.      A**                                    CHOICE(5 '*********')
     
119.      A                                      CHOICE(5 '*********')
     
120.      A          R FPULDWN
     
121.      A*%%TS  SD  19980508  160451  BLOG        REL-V3R7M0  5716-PW1
     
122.      A                                      PULLDOWN(*NOSLTIND)
     
123.      A            FLD001         2Y 0B  1  1SNGCHCFLD
     
124.      A                                      COLOR(BLU)
     
125.      A                                      CHOICE(1 '>;1*********')
     
126.      A                                      CHOICE(2 '>;2*********')
     
127.      A                                      CHOICE(3 '>;3*********')
     
128.      A                                      CHOICE(4 '>;4*********')
     
129.      A                                      CHOICE(5 '>;5*********')
     
130.      A                                      CHOICE(6 '>;6*********')
     
131.      A                                      CHOICE(7 '>;7*********')
     
132.      A                                      CHOICE(8 '>;8*********')
     
133.      A                                      CHOICE(9 '>;9*********')
     
134.      A                                      CHOICE(10 '>;A*********')
     
135.      A                                      CHOICE(11 '>;B*********')
     
136.      A                                      CHOICE(12 '>;C*********')
     
137.      A                                      CHOICE(13 '>;D*********')
     

复制代码

3. RPG程序

但是光有显示文件还不行，必须与高级程序（RPG或CL）结合起来，才能完成下显拉菜单的程序调用功能。要使RPG程序知道正确的调用，RPG程序就必须知道示文件当前的选择。这个选择是有两项组成，一个是MNUBAR的当前选择，一个PULDWN的选择。这两个选择项都是在显示文件的MNUBAR RECORD定义的，分别是MNUCHI和PULCHI，要在显示文件里正确获得这两项值，还必须在MNUBAR RECORD里定义当前光标位置，这是由定义LINNBR和POSNBR两个变量来体现的。初学者常犯的一个错误就是：已成功创建下拉菜单显示文件，但在RPG程序中却无法成功调用应用程序，问题就出在这里。

有了MNUCHI和PULCHI，那么在RPG程序中就可以准确知道当前的选择，从而分别调用相应的程序。调用程序方式可以多种多样，可以直接调用，也可以把程序名写在一个PF文件里，动态调用。下面示范RPG程序中MNUCHI为CENTER的调用就是用参数文件来实现的，其他全部直接调用。

比如定义MENUPGM的PF文件来存放调用程序名：

1. 
   
2.      A*
   
3.      A                                      UNIQUE
   
4.      A          R MNUPGM
   
5.      A            MNUCHI         2S 0
   
6.      A            PULCHI         2S 0
   
7.      A            PDNPGM        10A
   
8.      A          K MNUCHI
   
9.      A          K PULCHI
   
10. 
    

复制代码

下面是RPG程序：

1. 
   
2.      H*################################################################
   
3.      H*                                                               *
   
4.      H* PROGRAM NAME   : PULLMENUR                                    *
   
5.      H* VERSION        : 2.00                                         *
   
6.      H* FUNCTION       :                                              *
   
7.      H* PROGRAMMER     : BLOG LIOU                                    *
   
8.      H* MODIFIED BY    :                                              *
   
9.      H* CREATION DATE  : 1998.02.19 - V1.00                           *
   
10.      H* MODIFIED DATE  : 1998.05.08 - V2.00                           *
    
11.      H* MODIFIED DATE  : 2004.02.10 - SAMPLE                          *
    
12.      H*                                                               *
    
13.      H*&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
    
14.      FMENUPGM IF  E           K        DISK
    
15.      FPULLMENUCF  E                    WORKSTN
    
16.      I*--------------------------------------------------------------
    
17.      I           SDS
    
18.      I                                     *STATUS  STATUS
    
19.      C*--------------------------------------------------------------
    
20.      C                     MOVE *BLANK    PGMNAM  8
    
21.      C           CHIKEY    KLIST
    
22.      C                     KFLD           MNUCHI           
    
23.      C                     KFLD           PULCHI           
    
24.      C*
    
25.      C*################################################################
    
26.      C*
    
27.      C           MNMENU    TAG
    
28.      C                     Z-ADD2         POSNBR
    
29.      C           MENULP    TAG
    
30.      C                     Z-ADD1         LINNBR
    
31.      C                     WRITEAPPSCR
    
32.      C                     EXFMTMENUBAR
    
33.      C           *INKC     IFEQ *ON
    
34.      C                     GOTO ENDPGM
    
35.      C                     ENDIF
    
36.      C           MNUCHI    CASEQ1         CENTER           
    
37.      C           MNUCHI    CASEQ2         DATQRY           
    
38.      C           MNUCHI    CASEQ3         NETMON           
    
39.      C           MNUCHI    CASEQ4         RPTPRT           
    
40.      C           MNUCHI    CASEQ5         SYSADM           
    
41.      C           MNUCHI    CASEQ6         DATMNT           
    
42.      C                     ENDCS
    
43.      C           *INKB     IFEQ '1'
    
44.      C                     CALL 'ALTMENU'
    
45.      C                     ENDIF
    
46.      C                     GOTO MENULP
    
47.      C           ENDPGM    TAG
    
48.      C                     SETON                     LR
    
49.      C                     RETRN
    
50.      C*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    
51.      C*
    
52.      C*--------------------------------------------------
    
53.      C           CENTER    BEGSR
    
54.      C                     Z-ADDPULCHI    XZXM    20
    
55.      C           CHIKEY    CHAINMNUPGM               60
    
56.      C  N60                MOVE PDNPGM    PGMNAM
    
57.      C                     CALL PGMNAM
    
58.      C                     PARM '0000'    RMSG    4
    
59.      C           EXTRZ     ENDSR
    
60.      C*----------------------------------------------------------------
    
61.      C           DATQRY    BEGSR                           
    
62.      C                     SELEC
    
63.      C           PULCHI    WHEQ 1
    
64.      C                     CALL 'DSPWDZT'                  
    
65.      C           PULCHI    WHEQ 2
    
66.      C                     CALL 'AMDSPDB'
    
67.      C           PULCHI    WHEQ 3
    
68.      C                     CALL 'QRYLSZH'
    
69.      C           PULCHI    WHEQ 4                          
    
70.      C                     CALL 'DSPRZF'
    
71.      C           PULCHI    WHEQ 5                          
    
72.      C   60                MOVEL'CXKMGZ'  PGMNAM
    
73.      C                     CALL PGMNAM                 56
    
74.      C  N56                FREE PGMNAM
    
75.      C           PULCHI    WHEQ 6                          
    
76.      C   60                MOVEL'CXZZXX'  PGMNAM
    
77.      C                     CALL PGMNAM                 56
    
78.      C  N56                FREE PGMNAM
    
79.      C                     ENDSL
    
80.      C                     ENDSR
    
81.      C*----------------------------------------------------------------
    
82.      C           NETMON    BEGSR                           
    
83.      C                     SELEC
    
84.      C           PULCHI    WHEQ 1
    
85.      C                     CALL 'WATCHNH'
    
86.      C           PULCHI    WHEQ 2
    
87.      C                     CALL 'WATCHRH'
    
88.      C           PULCHI    WHEQ 3
    
89.      C                     CALL 'WATCHHH'
    
90.      C                     ENDSL
    
91.      C                     ENDSR
    
92.      C*----------------------------------------------------------------
    
93.      C           RPTPRT    BEGSR                           
    
94.      C                     CALL 'BBMENU'
    
95.      C                     ENDSR
    
96.      C*----------------------------------------------------------------
    
97.      C           SYSADM    BEGSR                           
    
98.      C                     SELEC
    
99.      C           PULCHI    WHEQ 1
    
100.      C                     CALL 'MNTJGDY'
     
101.      C           PULCHI    WHEQ 2
     
102.      C                     CALL 'MNTGYDY'
     
103.      C           PULCHI    WHEQ 3
     
104.      C                     CALL 'BAKACDAT'
     
105.      C           PULCHI    WHEQ 4
     
106.      C                     CALL 'RSTACDAT'
     
107.      C           PULCHI    WHEQ 5
     
108.      C                     CALL 'MNTQLSJ'
     
109.      C                     ENDSL
     
110.      C                     ENDSR
     
111.      C*----------------------------------------------------------------
     
112.      C           DATMNT    BEGSR                           
     
113.      C                     SELEC
     
114.      C           PULCHI    WHEQ 1
     
115.      C   60                MOVEL'MNTKMDM' PGMNAM
     
116.      C                     CALL PGMNAM
     
117.      C           PULCHI    WHEQ 2
     
118.      C                     CALL 'MNTJYDM'
     
119.      C           PULCHI    WHEQ 3
     
120.      C                     CALL 'MNTLLDM'
     
121.      C           PULCHI    WHEQ 4
     
122.      C                     CALL 'MNTHLDM'
     
123.      C           PULCHI    WHEQ 5
     
124.      C                     CALL 'MNTYWLB'
     
125.      C           PULCHI    WHEQ 6
     
126.      C                     CALL 'MNTPZDM'
     
127.      C           PULCHI    WHEQ 7
     
128.      C                     CALL 'MNTZDDM'
     
129.      C           PULCHI    WHEQ 8
     
130.      C                     CALL 'MNTRQDM'
     
131.      C           PULCHI    WHEQ 9
     
132.      C                     CALL 'MNTXJDM'
     
133.      C           PULCHI    WHEQ 10
     
134.      C                     CALL 'MNTCSDM'
     
135.      C           PULCHI    WHEQ 11
     
136.      C                     CALL 'MNTCDDY'
     
137.      C           PULCHI    WHEQ 12
     
138.      C                     CALL 'MNTSQLB'
     
139.      C           PULCHI    WHEQ 13
     
140.      C                     CALL 'MNTXYMM'
     
141.      C                     ENDSL
     
142.      C                     ENDSR
     
143.      C*&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
     
144.      C           *PSSR     BEGSR
     
145.      C                     GOTO MNMENU
     
146.      C                     ENDSR
     
147.      C*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     

复制代码

上面的示范程序实际编译通过，可以作为创建下拉菜单参考。也可以直接修改本示范程序而不是通过SDA定义来创建下拉菜单。


BLOG LIOU
2004.2.11

jj8610

You could search GOOGLE, there is a shareware DBGwhich will tech you haw to generate 下拉菜单.
.

xuguopeng

终于等到了 研究中。。。。

qingzhou

说真的，看了楼主发表了一系列文章，感触很深......打从心眼里都很感激你了。
你的编程经验很丰富—即水平很高！
顶！！！
同时期待你有更多、更新鲜的文章出炉......
等我收集完《AS/400开发经验点滴》后，将制作成一本书，在左上角标识"RICOH"内部使用的同时，封面上肯定标明—BLOGLIOU原著。

jzcg001

学习中......顶

Lanyd

这是第六帖呀，谁能提供前5个的地址呀

qingzhou

[quote]原帖由 "Lanyd"]这是第六帖呀，谁能提供前5个的地址呀[/quote 发表：


点击楼主“原创精华”的数字，就可以“顺藤摸瓜”了......
:wink:  :wink:  :wink:

giraffe

已经下载，正在学习，非常感激提供

blogliou

原帖由 "qingzhou" 发表：
说真的，看了楼主发表了一系列文章，感触很深......打从心眼里都很感激你了。
你的编程经验很丰富—即水平很高！
顶！！！
同时期待你有更多、更新鲜的文章出炉......
等我收集完《AS/400开发经验点滴》后，将制..........

qingzhou兄过奖了，400博大精深，我实际也只懂只鳞半爪，一些《经验点滴》愿与大家共享，如若兄台把经验点滴制书出版，莫忘分我一半奖金啊。