IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

How do I define Panel with columns that exceed the Window


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
praveenbl22
Currently Banned

New User


Joined: 26 Sep 2007
Posts: 24
Location: Bangalore

PostPosted: Mon Dec 31, 2007 6:04 pm
Reply with quote

Hi,


I was not able define panel with in the window limit. How can add coulmns and displayed when scrolled to right?
Code:

 )BODY CMD(ZCMD)                                                                 
%---------------------CLAIMS PROCESSED FOR UNET SYSTEM--------------------------
 %COMMAND===> _ZCMD                                           %SCROLL ===>_AMT +
   +JOBNAME+        +CLAIM+  +CLAIM+     +INPUT+ +OUTPUT+ +ERROR+ +REPORT+     
                    +PROC+   +REJECT+    +FILE+  +FILE+   +FILE+  +FILE+       
%-------------------------------------------------------------------------------
)MODEL                                                                         
#Z +@JOBN   +        +@CNTP  + +@CNTR  ++@NINP   @NOUT    @NERR   @NREP         +

Coulmns list
JOBN
CNTP
CNTR
NINP
NOUT
NERR
NREP
NREQ
PREJ
NEXJ
TCLM
VEND
POLI
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Mon Dec 31, 2007 6:48 pm
Reply with quote

ISPF will not do IT on its own

You need to define the appropriate numbers of panels, with the proper column names,
and in Your REXX script take care Yourself of horizontal scrolling

or , depending on your ISPF knowledge do it with dynamic areas;

In any case horizontal scrolling is a do it Yourself task
Back to top
View user's profile Send private message
praveenbl22
Currently Banned

New User


Joined: 26 Sep 2007
Posts: 24
Location: Bangalore

PostPosted: Wed Jan 02, 2008 10:28 am
Reply with quote

Hi,

How do i use the dynamic areas?. Can you give some sample code using Dynamic area to scroll Horizontally as i did not find any examples using the dynamic area for scrolling Horizontal.But there are many exampels to scroll Vertically with DEPTH option.
Back to top
View user's profile Send private message
praveenbl22
Currently Banned

New User


Joined: 26 Sep 2007
Posts: 24
Location: Bangalore

PostPosted: Wed Jan 02, 2008 12:47 pm
Reply with quote

Hi enrico-sorichetti,

In the panel I was not able to write to the ZDATA and ZMLCOLD. How do write to the Variable from the file using the So/s rexx?
Previously i thought of using the table and models to write the contents of the file.But Know using area how do you Write the header to ZMLCOLD and the Data to the ZDATA
Code:


)ATTR  FORMAT(MIX)             
 @ TYPE(OUTPUT) INTENS(LOW)   
 # TYPE(INPUT) PAD( _ )       
 | AREA(DYNAMIC)               
 )BODY CMD(ZCMD) EXPAND(//)                                             
 +---------------------CLAIMS PROCESSED FOR UNET SYSTEM------------------------------+
 %REG OR ENGINE:@Z  %-----------JOB LIST---------------------%ROW  @Z   %OF @Z   +
 %COMMAND ===> #Z                                              %SCROLL ===>#Z   +
 |ZMLCOLD                                                               
 |ZDATA           
                                                     
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Wed Jan 02, 2008 1:00 pm
Reply with quote

as I said for horizontal scrolling You are on Your own...

depending on the application and what You do with the data displayed

dynamic aeas might be simpler...
( only one panel for example )

for pseudo horizontal scrolling You should simply rfill the dynamica area
variables with the appropriate substring of Your data...

Y would go for example this way..

build the full data lines regardless of lenght,

fill the inital area with the proper substring of the data ( 1,80 )
when scrolling refill from the piont needed ( 81,80 )
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> TSO/ISPF

 


Similar Topics
Topic Forum Replies
No new posts Execute secondary panel of sdsf with ... CLIST & REXX 1
No new posts DTL - how to define key with stacked ... TSO/ISPF 3
No new posts Remote Unload of CLOB Columns DB2 6
No new posts Increase the number of columns in the... IBM Tools 3
No new posts Call program, directly from panel CLIST & REXX 9
Search our Forums:

Back to Top