Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
To display ISPF TABLE values on PANEL

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
Deepakgoyal2005

New User


Joined: 22 Mar 2007
Posts: 57
Location: India

PostPosted: Fri Jan 09, 2009 12:43 pm    Post subject: To display ISPF TABLE values on PANEL
Reply with quote

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.
Back to top
View user's profile Send private message

Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2083
Location: Silicon Valley

PostPosted: Fri Jan 09, 2009 10:15 pm    Post subject: Reply to: To display ISPF TABLE values on PANEL
Reply with quote

You have about 12 model lines. Use less text and put more fields on each line.
Back to top
View user's profile Send private message
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2083
Location: Silicon Valley

PostPosted: Fri Jan 09, 2009 10:22 pm    Post subject: Reply to: To display ISPF TABLE values on PANEL
Reply with quote

Quote:
Where, fileds starting with "P" are that of PANEL and starting with "T" carries data from TABLE.


You should use the exact same variable names in both the panel and the rexx program. You should change whichever is easier to match the other.
Back to top
View user's profile Send private message
Deepakgoyal2005

New User


Joined: 22 Mar 2007
Posts: 57
Location: India

PostPosted: Thu Jan 22, 2009 10:30 am    Post subject: Reply to: To display ISPF TABLE values on PANEL
Reply with quote

Using same field names for both table and panel is not helping out in updating the table. kindly suggest any way out to update the ISPF table.

Also, I am not able to trap all the function keys i want.
Among following required keys:
PF3=EXIT
PF4=ADD
PF6=EDIT
PF5=REFRESH
PF7=SCRL UP
PF8=SCRL DOWN

My PF6 is not working and when pressed it opens "PF Key Definitions page" since the default setting in mainframe for PF6 is "KEYS".
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Conditional highlighting of rows in I... packerm CLIST & REXX 2 Thu Sep 21, 2017 6:50 pm
No new posts Binary to display characters Roy Ware SYNCSORT 3 Tue Sep 19, 2017 8:46 pm
No new posts Insert a Row_number into table useit DB2 2 Tue Sep 19, 2017 1:07 pm
No new posts how to see when the last read access ... Mike 1304 DB2 1 Tue Sep 12, 2017 7:52 pm
No new posts Working with hex values in Filemanage... Emile Straker IBM Tools 0 Tue Sep 12, 2017 1:42 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us