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
 
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
No new posts Calling CLIST through job and REXX Sahasra K CLIST & REXX 19 Tue Aug 01, 2017 10:25 am
No new posts REXX - Dynamic file Creation d_sarlie CLIST & REXX 7 Tue Jun 27, 2017 7:30 pm
No new posts Convert CLIST to REXX cvnlynn CLIST & REXX 12 Tue Jun 27, 2017 2:06 am
No new posts Trace in CLIST PANEL cvnlynn CLIST & REXX 1 Thu Jun 22, 2017 11:06 pm
No new posts Dynamic output file creation in cobol... smileheal COBOL Programming 7 Thu Jun 15, 2017 10:53 pm

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