View previous topic :: View next topic
|
Author |
Message |
nickyboy
New User
Joined: 26 Aug 2005 Posts: 16
|
|
|
|
Hi all..
I want make a panel for my CLIST where the number of input fields are dynamic..
If I pass (say 10) it should display a panel with 10 input fiels namely field 1,field 2....field 10.
Nick. |
|
Back to top |
|
|
MGIndaco
Active User
Joined: 10 Mar 2005 Posts: 432 Location: Milan, Italy
|
|
|
|
I'm not sure of what you really want but I suppose that you must determine before which kind of dynamical style you want to adopte.
I mean, you can "build"(I'm not sure of correct use of this term) your panel writing the source to your need what you need more? |
|
Back to top |
|
|
Kevin
Active User
Joined: 25 Aug 2005 Posts: 234
|
|
|
|
Maybe this will work for you?
Panel Definition:
Code: |
)ATTR DEFAULT(%+_)
$ TYPE(INPUT) INTENS(LOW) PAD(_)
! TYPE(INPUT) INTENS(LOW) PAD(' ')
@ TYPE(OUTPUT) INTENS(LOW)
01 TYPE(TEXT) INTENS(&T1)
02 TYPE(&TY1) INTENS(&I1) PAD(&P1)
...
1D TYPE(TEXT) INTENS(&T15)
1E TYPE(&TY15) INTENS(&I15) PAD(&P15)
)BODY
%-------------------- TITLE FOR ENTRY PANEL --------------------------
%COMMAND ===>_ZCMD
%
+ THIS DIRECTION LINE TELLS THE USER HOW TO USE THE PANEL:
+
ENTER LINE 1 Z1 +
ENTER LINE 2 Z2 +
...
ENTER LINE 15 Z15 +
)INIT
)PROC
)END
|
The CLIST:
Code: |
PROC 1 CNT
DO N = 1 TO 15
SET &T&N = &STR(HIGH)
SET &TY&N = &STR(INPUT)
SET &I&N = &STR(LOW)
SET &P&N = &STR(_)
END
IF CNT = 14 THEN
DO
SET &T15 = &STR(NON)
SET &TY15 = &STR(OUTPUT)
SET &I15 = &STR(NON)
SET &P15 = &STR()
END
ISPEXEC LIBDEF ISPPLIB DATASET ID(ISPPLIB)
ISPEXEC DISPLAY PANEL(THEPANEL)
ISPEXEC LIBDEF ISPPLIB
|
I'm REALLY rusty on my CLIST, but hopefully you get the idea. |
|
Back to top |
|
|
nickyboy
New User
Joined: 26 Aug 2005 Posts: 16
|
|
|
|
Thanks Kevin..I got what you meant.. |
|
Back to top |
|
|
Kevin
Active User
Joined: 25 Aug 2005 Posts: 234
|
|
|
|
That's good to know. My CLIST coding is really rusty! |
|
Back to top |
|
|
|