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

validate more then 100 panel variables


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
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
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: 2455
Location: Hampshire, UK

PostPosted: Mon Nov 21, 2011 4:11 pm
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

Senior Member


Joined: 07 Feb 2009
Posts: 1306
Location: Vilnius, Lithuania

PostPosted: Mon Nov 21, 2011 4:12 pm
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: 8797
Location: Welsh Wales

PostPosted: Mon Nov 21, 2011 4:36 pm
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

Senior Member


Joined: 07 Feb 2009
Posts: 1306
Location: Vilnius, Lithuania

PostPosted: Mon Nov 21, 2011 5:03 pm
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
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: 8797
Location: Welsh Wales

PostPosted: Mon Nov 21, 2011 7:21 pm
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: 765
Location: Whitby, ON, Canada

PostPosted: Mon Nov 21, 2011 8:36 pm
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
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> TSO/ISPF

 


Similar Topics
Topic Forum Replies
No new posts Execute secondary panel of sdsf with ... CLIST & REXX 1
No new posts Call program, directly from panel CLIST & REXX 9
No new posts JCL with variables JCL & VSAM 1
No new posts JCL Variables JCL & VSAM 1
No new posts reset/clear ALL application profile v... TSO/ISPF 3
Search our Forums:

Back to Top