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
 

 

Regarding the Dynamic input field in dynamic area of a panel

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

Active User


Joined: 30 Oct 2005
Posts: 186
Location: India

PostPosted: Fri Mar 24, 2006 1:38 pm    Post subject: Regarding the Dynamic input field in dynamic area of a panel
Reply with quote

Hi All,
I have a requirement to design an ISPF-driven panel(which will be called by a REXX routine). This panel will e a dynamic one but this dynamic area will contain input fields. The panel will look like as below :-
Code:

************************************************************
* Option    Member  Description                                                          *
*                                                                                                      *
*                                                                                                      *
*                                                                                                      *
*                                                                                                      *
*                                                                                                      *
************************************************************


Actually the members will be taken from an ISPF table & we dnt know how many rows are there in the table. In the option column, the user can only select a member by giving 'S' as an input. So Option column is going to be dynamic input field in dynamic area.

Can anyone please help me by providing some sample code or any link?
And if possible pls also provide the corresponding REXX routine also.
Please help me out.
Back to top
View user's profile Send private message

superk

Moderator Team Head


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

PostPosted: Sat Mar 25, 2006 3:11 am    Post subject: Re: Regarding the Dynamic input field in dynamic area of a p
Reply with quote

It appears (I've never attempted this before) that the panel definition would look something like this:
Code:

)ATTR DEFAULT(%+_)                                                     
 ! TYPE(DATAOUT) INTENS(HIGH)                                           
 @ TYPE(DATAOUT) INTENS(LOW)                                           
 ~ TYPE(DATAIN)  INTENS(HIGH) PAD('_')                                 
 # AREA(DYNAMIC) SCROLL(ON) EXTEND(ON)                                 
)BODY                                                                   
%-------------------- TITLE -----------------------                     
%COMMAND ===>_ZCMD                  +SCROLL ===>_AMT +                 
+                                                                       
%OPTION   +MEMBER  DESCRIPTION                                         
#SAREA ----------------------------------------------------------------#
#                                                                      #
+                                                                       
+  (MORE INSTRUCTIONS FOR THIS PANEL ...)                               
+                                                                       
)END                                                                   


The variable SAREA would contain the contents of each "row" that you would build.
Back to top
View user's profile Send private message
amitava
Warnings : 1

Active User


Joined: 30 Oct 2005
Posts: 186
Location: India

PostPosted: Sun Mar 26, 2006 12:41 pm    Post subject:
Reply with quote

Hey Superk,
Then tell me the way to embed the input field in the scrollable dynamic area. If I am doing this through REXX then how I will embed this in the coding. Should the SAREA have the content like -
~S' 'MEM1' 'DESCRIPTION

So here S will be responsible for the user-input,MEM1 will be the member name and DESCRIPTION will be its description. But how do I know user has selected which member? Please if possible please SUPERK give me some sample code or that kind of thing.
Back to top
View user's profile Send private message
superk

Moderator Team Head


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

PostPosted: Tue Mar 28, 2006 8:58 pm    Post subject: Re: Regarding the Dynamic input field in dynamic area of a p
Reply with quote

Again, let me re-iterate that I've never attempted this before, but, yes, pretty much what you described. Based on my panel definition, the logic looks to be something like this:
Code:

/* REXX */
...
/* Presume that the stem variable "ml." contains the list of members and their descriptions */
sarea = ''                                                 
Do loop = 1 To ml.0
  Parse Upper Var ml.loop member desc                       
  member = Left(member,8)                                   
  desc   = Left(desc,54)                                   
  sarea = sarea||Left('~      @'member'!'desc,72)           
End                                                         


My guess as to how you know which line was selected - I guess you would check for the value of the two left-most positions of every 72-bytes of the sarea variable. The value would be '~' followed by either a blank or a non-blank character.
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 INVALID FIELD OR CONSTANT IN SORTOF ?? Ron Klop DFSORT/ICETOOL 8 Wed Jan 11, 2017 3:44 pm
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 Performing arithmetic on input field zh_lad DFSORT/ICETOOL 31 Tue Dec 06, 2016 8:04 pm
No new posts Is the 'prompt' data for the DSLIST p... Willy Jensen TSO/ISPF 2 Tue Dec 06, 2016 4:38 am


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