|
View previous topic :: View next topic
|
| Author |
Message |
amitava
Warnings : 1
Active User
Joined: 30 Oct 2005
Posts: 186
Location: India
|
|
|
|
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 |
|
 |
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
|
|
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 |
|
|
amitava
Warnings : 1
Active User
Joined: 30 Oct 2005
Posts: 186
Location: India
|
|
|
|
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 |
|
|
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
|
|
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 |
|
|
|
|
