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
 

 

validate more then 100 panel variables

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
abhit007

New User


Joined: 18 Oct 2006
Posts: 10
Location: Bangalore

PostPosted: Mon Nov 21, 2011 2:54 pm    Post subject: validate more then 100 panel variables
Reply with quote

Adding on to the problem which Hemanth mentioned, I have more than 100 variables to validate for the same situation. The panel is throwing an error that you can not validate more than 100 variables for a LISTV. Any solution?
Back to top
View user's profile Send private message

Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 1715
Location: UK

PostPosted: Mon Nov 21, 2011 4:11 pm    Post subject:
Reply with quote

If you have 100+ entry fields on a panel then you are putting too much on a panel making it unreadable. Split it into 4 or 5 panels - even then there are a lot more entry fields than are advisable. Panels should be clear and simple.
Back to top
View user's profile Send private message
prino

Active Member


Joined: 07 Feb 2009
Posts: 984
Location: Oostende, Belgium

PostPosted: Mon Nov 21, 2011 4:12 pm    Post subject:
Reply with quote

Yes, do it in two stages - and don't add anything to a thread that dates back more than eight months, start a new one!
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Mon Nov 21, 2011 4:36 pm    Post subject:
Reply with quote

Or get the background code do perform the validation and then throw up error messages on the same screen allowing the user to make corrections and resubmit
Back to top
View user's profile Send private message
prino

Active Member


Joined: 07 Feb 2009
Posts: 984
Location: Oostende, Belgium

PostPosted: Mon Nov 21, 2011 5:03 pm    Post subject:
Reply with quote

If you insist on this folly, use panel REXX
Back to top
View user's profile Send private message
abhit007

New User


Joined: 18 Oct 2006
Posts: 10
Location: Bangalore

PostPosted: Mon Nov 21, 2011 5:07 pm    Post subject:
Reply with quote

(Reposting it, just noticed that my last post was splitted.. icon_smile.gif )

Hi Guys,

No, I am not putting all the 100 values on the panel.

I am using LISTV and I am taking values from outside of the panel as

VALFLD = 'A B C ................' /* 100+ values */

In the panel, I have given the below way.

VER (&CTY,NB,LISTV,&VALFLD,MSG=XYZ)


Since this is not working as there are more than 100 values, I want something like


VALFLD1 = 'A B C ................' /* 50 values */
VALFLD2 = 'A B C ................' /* 50 values */


Now how can I validate the values of &CTY on the same panel?
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Mon Nov 21, 2011 7:21 pm    Post subject:
Reply with quote

Maybe if you explained in detail we would not have to keep asking questions.

Where do the values to be compared come from.
What are they compared against, and where do these values come from.
Why can you not do this in the REXX (or whatever) code that displays the panel.
Code:

DO FOREVER
  ERROS = 0
  "ISPEXEC DISPLAY PANEL(whatever)
  Validation process - if error found set ERROS = 1
  IF ERROS = 0 THEN EXIT
END
Back to top
View user's profile Send private message
don.leahy

Active Member


Joined: 06 Jul 2010
Posts: 642
Location: Whitby, ON, Canada

PostPosted: Mon Nov 21, 2011 8:36 pm    Post subject:
Reply with quote

Have you tried this variation:
Code:
IF (ver (&cty NB,LISTV,&valfld2)) 
else                                   
   VER (&cty NB,LISTV,&valdfld1)   
Back to top
View user's profile Send private message
abhit007

New User


Joined: 18 Oct 2006
Posts: 10
Location: Bangalore

PostPosted: Tue Nov 22, 2011 10:05 am    Post subject:
Reply with quote

Yay!!! It worked.....

Code:
IF (ver (&cty NB,LISTV,&valfld2))
else
VER (&cty NB,LISTV,&valdfld1)

Thanks a ton Guys!!! You rocks!! icon_smile.gif icon_smile.gif icon_biggrin.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 -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Is the 'prompt' data for the DSLIST p... Willy Jensen TSO/ISPF 2 Tue Dec 06, 2016 4:38 am
No new posts Protection Exception while move 0 to ... Kevin Vaz CICS 10 Tue Oct 18, 2016 4:19 pm
No new posts Rexx Panel Validation ajithajt CLIST & REXX 6 Sun Jul 17, 2016 10:50 pm
No new posts Is it possible to pass variables of s... Csongor CLIST & REXX 2 Fri Jun 10, 2016 7:33 pm
This topic is locked: you cannot edit posts or make replies. Providing inputs to a panel of anothe... Raghur CLIST & REXX 2 Tue Apr 05, 2016 12:01 pm


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