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
 
Getting Mutiple input from Panels

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
vidyaa

New User


Joined: 02 May 2008
Posts: 77
Location: chennai

PostPosted: Mon Aug 14, 2017 1:28 pm    Post subject: Getting Mutiple input from Panels
Reply with quote

Hi,

I have a panel where there are two hundred lines of input and each line has 4 fields to be keyed in . I know that is too much but that is what they need. The user can type in 200 lines of input. I need to validate those and pass to Rexx and write them to file.

Now, I have designed the panel, to get the values from the user and verify it. This seems to be too big to assign the fields names and verify all the (200 * 4 ) 800 fields in panel. 200 lines and each line has 4 fields

Is there any other way to do it better. Please advice how to do that.

Code:


****** ***************************** Top of Data ******************************
000001 )ATTR                                                                   
000002  _ TYPE(INPUT)  INTENS(HIGH) JUST(RIGHT)                               
000003  ~ TYPE(INPUT)  INTENS(HIGH) JUST(LEFT)                                 
000004  + TYPE(TEXT)   INTENS(LOW) SKIP(ON)                                   
000005  # AREA(SCRL) EXTEND(ON)                                               
000006 )BODY                                                                   
000007 %-----------------xxxxxxxxxxxxxxx GROUP MOVE-----------------           
000008 %TSO COMMAND LINE   ===>_ZCMD                                           
000009 %                                                                       
000010 #MYAREA ----------------------------------------------------------------
000011 )AREA MYAREA DEPTH(50)                                                 
000012 +                                                                       
000013 +      %VENDOR     DEPT   STORE         GROUP                           
000014 +  1. _V1      +  _D1 +  _S1   +        _P1 +                           
000015 +  2. _V2      +  _D2 +  _S2   +        _P2 +                           
000016 +  3. _V3      +  _D3 +  _S3   +        _P3 +                           
000017 +  4. _V4      +  _D4 +  _S4   +        _P4 +                           
......................................... 200 lines like the above
 )INIT                                                                   
 )PROC                                                                   
  VER(&V1,NUM)                                                           
  VER(&D1,LIST,'02A','02M','02S','03A','03B','03C','03T','01 ','01B')
  VER(&S1,NB,RANGE,01,99999)                                             
  VER(&P1,NB,RANGE,01,16)                 

                               


this goes very long.
Back to top
View user's profile Send private message

Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1247
Location: Israel

PostPosted: Mon Aug 14, 2017 3:56 pm    Post subject:
Reply with quote

Assuming that the user wants to have the possibility to fill more than one line at a time:

1. in panel, use )MODEL to define a single row with 5 fields (Seqnum, V, D, S and P).
2. Use TBCREATE to create an ISPF table (1 key: Seqnum, 4 fields: V, D, S and P)
3. Use TBADD to add 200 "empty" rows in the table (fill only Seqnum)
4. Use TBDISPL to display the panel with 200 rows.
5. Collect all modified lines (using ZTDSELS).

While checking myself, I found a chapter named "Adding table rows dynamically during table display scrolling" in the ISPF Dialog Developer's Guide and Reference.

I would try first my own suggestion (with a small number of lines) then, after I understand exactly how it works, I would try dynamically adding rows.
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1247
Location: Israel

PostPosted: Mon Aug 14, 2017 4:00 pm    Post subject:
Reply with quote

NB. all TBxxxx services are explained in ISPF Services Guide
Back to top
View user's profile Send private message
Willy Jensen

Active User


Joined: 01 Sep 2015
Posts: 171
Location: Switzerland

PostPosted: Mon Aug 14, 2017 4:38 pm    Post subject:
Reply with quote

I am curious, what do you mean by
Quote:
This seems to be too big to assign the fields names and verify all the (200 * 4 ) 800 fields in panel

Do you get an error message? if so, which?
Back to top
View user's profile Send private message
daveporcelan

Active Member


Joined: 01 Dec 2006
Posts: 687
Location: Pennsylvania

PostPosted: Mon Aug 14, 2017 4:56 pm    Post subject:
Reply with quote

I am a big fan of panels. I use them all the time.

I also use ISPF tables as well.

I agree with Marso's approach on how to handle your inquiry.

Where I disagree, is with your approach to have the user enter 800 fields on a panel.

I would have the user create a sequential file with the data in specific columns.

This will allow the user to enter the data as they see fit.

They can repeat lines, where three of the fields are the same, only changing the fourth field.

They can split the work among multiple people, and join together.

You can then write a small Rexx validation program they can run as they go, and when they are finished.

Just a thought from my thirty years of experience.
Back to top
View user's profile Send private message
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2088
Location: Silicon Valley

PostPosted: Tue Aug 15, 2017 3:41 am    Post subject: Reply to: Getting Mutiple input from Panels
Reply with quote

Are all of the rows the same? were they have the same VER statements?

If so, then I also agree that using a table is a better solution. And you can add line commands to repeat, delete, insert lines, etc which would have some of the benefits of using a data set.

If the rows are slightly different, then you might be better of using the panel in your post.
Back to top
View user's profile Send private message
Willy Jensen

Active User


Joined: 01 Sep 2015
Posts: 171
Location: Switzerland

PostPosted: Tue Aug 15, 2017 2:29 pm    Post subject:
Reply with quote

I have created a panel as described and it works for me. I did a couple of changes to the panel top, most importantly I use the BODY EXPAND command and have added a scroll field after the command field.
Code:

)ATTR                                                                           
 _ TYPE(INPUT)  color(turq) hilite(uscore) caps(on)                             
 ~ TYPE(INPUT)  INTENS(HIGH) JUST(LEFT)                                         
 + TYPE(TEXT)   INTENS(LOW) SKIP(ON)                                           
 # AREA(SCRL) EXTEND(ON)                                                       
)BODY expand(\\)                                                               
%\ \GROUP MOVE\ \+                                                             
%Command ===>_ZCMD\ \+Scrl_scrl+                                               
%                                                                               
#MYAREA \ \#                                                                   
)AREA MYAREA                                                                   
+                                                                               
+      %VENDOR     DEPT   STORE         GROUP                                   
+  1 + _V1      + _D1      + _S1      + _G1      +                             
-  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  199 Line(s) not Displayed
)INIT                                                                           
)PROC                                                                           
VER(&V1,NUM)                                                                   
VER(&D1,LIST,'02A','02M','02S','03A','03B','03C','03T','01 ','01B')             
VER(&S1,NB,RANGE,01,99999)                                                     
VER(&P1,NB,RANGE,01,16)                                                         
-  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  796 Line(s) not Displayed
)END                                                                           

So vidyaa I must ask again, what exactly does not work for you?
I agree with the other posters that this would be a case for a table application, as I have run into problems with the size of a panel area in the past. However a table display is not trivial either, which is why I have written a subroutine to handle all the standard stuff (display, insert, delete, find etc) for my own applications.
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1247
Location: Israel

PostPosted: Tue Aug 15, 2017 8:45 pm    Post subject:
Reply with quote

Willy Jensen wrote:
I am curious, what do you mean by
Quote:
This seems to be too big to assign the fields names and verify all the (200 * 4 ) 800 fields in panel

Do you get an error message? if so, which?
I think what vidyaa means is that nobody really wants a panel which is over 1000 lines long.
Also, DEPT and GROUP are only 3 characters long. Which means that from 'D100' and 'P100' until the end, you have to use ZVARS and it will make things a bit messy.

Without context, it is difficult to give a good answer (other than a technical answer):
- Is this used for data input only, or can the list be displayed ?
- Can it be updated ?
- Can I insert 50 lines today and finish the work tomorrow ?
- Where does the data come from ?
- Where is the data saved ?
Back to top
View user's profile Send private message
vidyaa

New User


Joined: 02 May 2008
Posts: 77
Location: chennai

PostPosted: Thu Aug 17, 2017 7:10 pm    Post subject:
Reply with quote

This is the input keyed by the user and they wanted n number of lines to be given as input, validated and written to a output file
Back to top
View user's profile Send private message
Willy Jensen

Active User


Joined: 01 Sep 2015
Posts: 171
Location: Switzerland

PostPosted: Thu Aug 17, 2017 7:58 pm    Post subject:
Reply with quote

if you are talking about a varying number of lines, then a table display is certainly the way to go.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10352
Location: italy

PostPosted: Thu Aug 17, 2017 8:33 pm    Post subject: Reply to: Getting Mutiple input from Panels
Reply with quote

without doubt the TS has been given a task well above his competence level
he is the victim here icon_cool.gif
Back to top
View user's profile Send private message
vidyaa

New User


Joined: 02 May 2008
Posts: 77
Location: chennai

PostPosted: Fri Aug 18, 2017 11:09 am    Post subject:
Reply with quote

so by using table can I have the user key in n number of lines? how to do that can you please give a sample of it
Back to top
View user's profile Send private message
Willy Jensen

Active User


Joined: 01 Sep 2015
Posts: 171
Location: Switzerland

PostPosted: Fri Aug 18, 2017 7:51 pm    Post subject:
Reply with quote

vidyaa, ISPF table services can be a bit complicated to use, so perhaps you should stick to your original panel. For your 3-byte field, you can use letters in the variable name like DAA-DAZ, DA0-DA9 etc, which should give you enough possibilities for your 200 line display. Not pretty, but perhaps simpler than ZVARS.
For a demo of a full-blown table service application see XISPTBL at my website http://harders-jensen.com/wjtech/programs.html - it demos a called REXX pgm to handle the table display, filter and update.
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 -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts JOINKEYS Paired and Unpaired Sort on ... MFwhiz DFSORT/ICETOOL 7 Tue Nov 07, 2017 2:46 am
No new posts Copy selected columns from 2 input fi... Poha Eater DFSORT/ICETOOL 3 Thu Nov 02, 2017 3:43 pm
No new posts Conditional highlighting of rows in I... packerm CLIST & REXX 2 Thu Sep 21, 2017 6:50 pm
No new posts SORT Trailer Count - LRECL Output co... amorante DFSORT/ICETOOL 5 Tue Aug 29, 2017 8:57 pm
No new posts How to generate a new unique Input fi... for1ranjith CLIST & REXX 11 Sat Jul 01, 2017 12:09 pm

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