I try to display a table in a rexx panel in which we can select several DDNAMEs. This panel looks like that.
PDS NAME ===> ________________________
Select DDNAME
_ JESMSGLG
_ JESJCL
_ JESYSMSG
_ TOOLMSG
_ DFSMSG
_ OUT01
Select DDNAME
_ JESMSGLG
_ JESJCL
_ JESYSMSG
_ TOOLMSG
_ DFSMSG
_ OUT01
I manage to display this panel, my problem is to return the several inputs put in Select column.
I use a table to display the DDNAME and the inputs have "the same name".
My code is the following.
)BODY WINDOW(62,20) EXPAND(çç)
+
+PDS NAME ===>µZ
%
¤Select ¤DDNAME
)MODEL
µZ+ {Z
)INIT
.ZVARS = '(DSN S DDNAME)'
&VARLIST = 'O,N'
.ATTR(S) = 'JUST(LEFT)'
.ATTR(DDNAME) = 'JUST(LEFT)'
.CURSOR = 'DSN'
&ZTDMARK = 'PF3 : RETOUR'
)PROC
&KEY = .PFKEY
VER (&CHOIX,LISTV &VARLIST)
)END
+
+PDS NAME ===>µZ
%
¤Select ¤DDNAME
)MODEL
µZ+ {Z
)INIT
.ZVARS = '(DSN S DDNAME)'
&VARLIST = 'O,N'
.ATTR(S) = 'JUST(LEFT)'
.ATTR(DDNAME) = 'JUST(LEFT)'
.CURSOR = 'DSN'
&ZTDMARK = 'PF3 : RETOUR'
)PROC
&KEY = .PFKEY
VER (&CHOIX,LISTV &VARLIST)
)END
