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

Dynamically create ten Input fields


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
karthik.ilangovan

New User


Joined: 05 Dec 2006
Posts: 27
Location: India

PostPosted: Tue Dec 05, 2006 10:53 pm
Reply with quote

Hi all,

I have PanelA and PanelB. PanelA gets an Input (a numeric between 0-20). Let us assume, the user gave the input as 10 on the first panel and pressed Enter.

Requirement:
Based on the above Input of 10, Panel-B needs to dynamically create ten Input fields in the )BODY Area so that 10 Input (Variable) names can be given by the user. Also, the 10 Input names need to be retrieved and stored in 10 dynamically created variables.

Karthik
Back to top
View user's profile Send private message
superk

Global Moderator


Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA

PostPosted: Wed Dec 06, 2006 3:04 am
Reply with quote

Option 1.

How about building Panel-B dynamically into a VIO or temporary PDS, using a different member-name for each iteration, using a series of LMPUT services, followed by an LMMADD service. Display the panel, then delete it with an LMMDEL service.

Option 2.

Create Panel-B with all 20 possible input fields in the )BODY. Use a unique attribute bit for each row, correponding to a unique )ATTR variable. Set the attributes, by default, to TYPE(TEXT) SKIP(ON). As the value is entered in Panel-A, change the attribute variables for the 'n' fields to TYPE(INPUT).
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 Extracting Variable decimal numbers f... DFSORT/ICETOOL 17
No new posts How to create a list of SAR jobs with... CA Products 3
No new posts Dynamically pass table name to a sele... DB2 2
No new posts force tablespace using LISTDEF input DB2 1
No new posts Two input files & writing counter... DFSORT/ICETOOL 12
Search our Forums:

Back to Top