Joined: 10 Mar 2005 Posts: 478 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?
)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.
