Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

How to make a dynamic panel for CLIST

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
nickyboy

New User


Joined: 26 Aug 2005
Posts: 16

PostPosted: Thu Sep 22, 2005 12:50 pm    Post subject: How to make a dynamic panel for CLIST
Reply with quote

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

MGIndaco

Active User


Joined: 10 Mar 2005
Posts: 432
Location: Milan, Italy

PostPosted: Thu Sep 22, 2005 5:08 pm    Post subject:
Reply with quote

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
View user's profile Send private message
Kevin

Active User


Joined: 25 Aug 2005
Posts: 234

PostPosted: Thu Sep 22, 2005 11:47 pm    Post subject: Re: How to make a dynamic panel for CLIST
Reply with quote

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
View user's profile Send private message
nickyboy

New User


Joined: 26 Aug 2005
Posts: 16

PostPosted: Tue Sep 27, 2005 4:43 pm    Post subject:
Reply with quote

Thanks Kevin..I got what you meant..
Back to top
View user's profile Send private message
Kevin

Active User


Joined: 25 Aug 2005
Posts: 234

PostPosted: Tue Sep 27, 2005 5:37 pm    Post subject: Re: How to make a dynamic panel for CLIST
Reply with quote

That's good to know. My CLIST coding is really rusty! icon_smile.gif
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 -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
This topic is locked: you cannot edit posts or make replies. Calling REXX code from ISPF panel sanchita dey TSO/ISPF 4 Mon Jan 02, 2017 5:13 pm
No new posts REXX DB2: Dynamic allocation of DB2.D... BHAS CLIST & REXX 3 Mon Dec 19, 2016 8:26 pm
No new posts Is the 'prompt' data for the DSLIST p... Willy Jensen TSO/ISPF 2 Tue Dec 06, 2016 4:38 am
No new posts What is the code in CLIST to enable t... jackzhang75 CLIST & REXX 1 Fri Dec 02, 2016 3:02 am
No new posts Single COPY CICS TS datasets and when... Kyle Carroll CICS 2 Tue Oct 11, 2016 9:47 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us