Deepakgoyal2005
New User
Joined: 22 Mar 2007 Posts: 57 Location: India
|
|
|
|
I am trying to modify ISPF tables through PANELS:
My Panel Code:
Code: |
)ATTR DEFAULT(%+_)
_ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) COLOR(GREEN) PAD(_)
% TYPE(TEXT) INTENS(HIGH)
+ TYPE(TEXT) INTENS(LOW) SKIP(ON)
~ TYPE(TEXT) INTENS(HIGH) CAPS(OFF) COLOR(BLUE)
} TYPE(TEXT) INTENS(HIGH) SKIP(ON) COLOR(YELLOW)
$ TYPE(TEXT) INTENS(LOW) SKIP(ON) COLOR(TURQ) CAPS(ON)
@ TYPE(OUTPUT) INTENS(HIGH) SKIP(ON) COLOR(GREEN)
! TYPE(OUTPUT) INTENS(LOW) SKIP(ON) COLOR(RED)
# TYPE(OUTPUT) INTENS(LOW) SKIP(ON) COLOR(YELLOW)
)BODY EXPAND(\\)
%$PANEL: 02 *** CRS IMT *** $USER:&ZUSER %
%$MOD : EDIT *** MAIN SCREEN *** $DATE:&ZDATESTD %
% COMMAND ==>_ZCMD %SCROLL =
)MODEL ROWS(SCAN)
+ $TICKET :_Z $ $OCCURENCE:_Z$ $SYSTEM :_Z $
+ $RECIEVE DT :_Z $ $STATUS :_Z$ $REVIEWER :_Z
+ $ETC :_Z $ $PRIORITY :_Z$ $ASSOCIATE :_Z
+ $DESCRIPTION:_Z
+ }(YYYY/MM/DD)
+ $DATE LAST UPDATED:_Z $ $LAST UPDATED BY:_Z $
+ $ITT COMPONENTS: $PROD COMPONENTS:
+ $=============== $================
+ $COMPONENTS DELIVERED :_Z $ $COMPONENTS DELIVERED :_Z $
+ $DEFECTIVE COMPONENTS :_Z $ $DEFECTIVE COMPONENTS :_Z $
+ $REPORTS DELIVERED :_Z $ $REPORTS DELIVERED :_Z $
+ $DOCUMENTS DELIVERED :_Z $ $DOCUMENTS DELIVERED :_Z $
+ $DEFECT LEAKAGE :_Z $ $DEFECT LEAKAGE :_Z $
+
% PF3=EXIT PF4=ADD PF5=REFRESH PF7=SCRL UP PF8=SCRL DOWN
)INIT
.ZVARS = '(TTKT TOCC TSYS TRDT TSTS TREV TETC TPRT TASS TDES +
TDLU TLUB +
TICD TPCD TIDC TPDC TIRP TPRP TIDO TPDO TIDL TPDL)'
&SCR = CSR
)PROC
&TPFKEY = .PFKEY
VER (&PSYS,LIST,CS,RS,*,MSG=MSG001)
VER (&POCC,LIST,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,*,
MSG=MSG003)
VER (&PSTS,LIST,P,I,H,D,*,MSG=MSG005)
VER (&PPRT,LIST,C,H,M,L,*,MSG=MSG009)
)END
|
REXX Code:
Code: |
ADDRESS ISPEXEC
"TBDISPL TABLEIMT PANEL(PANEL03)"
/* Pass the selected ticket details to PANEL02 */
PSYS = TSYS
PTKT = TTKT
POCC = TOCC
PRDT = TRDT
PSTS = TSTS
PREV = TREV
PASS = TASS
PETC = TETC
PPRT = TPRT
PDES = TDES
PICD = TICD
PIDC = TIDC
PIRP = TIRP
PIDO = TIDO
PIDL = TIDL
PPCD = TPCD
PPDC = TPDC
PPRP = TPRP
PPDO = TPDO
PPDL = TPDL
PDLU = TDLU
PLUB = TLUB
ADDRESS ISPEXEC
"TBMOD TABLEIMT"
"TBSORT TABLEIMT FIELDS(TSYS,C,A,TTKT,C,A,TOCC,C,A,TETC,C,A)"
"DISPLAY PANEL(PANEL03)"
"TBDISPL TABLEIMT PANEL(PANEL03)"
RETURN
|
Where, fileds starting with "P" are that of PANEL and starting with "T" carries data from TABLE.
Error Shown:
Code: |
ISPT058
Panel "PANEL03" error
Table display panel must have ")MODEL" and 1-8 model lines
Current dialog statement:
TBDISPL TABLEIMT PANEL(PANEL03)
|
As it says to have maximum 8 lines in MODEL section of the PANEL. How can i display the rest of the data in the TABLE on the PANEL. |
|