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
 
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: 1932
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

Senior Member


Joined: 07 Feb 2009
Posts: 1072
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: 8615
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

Senior Member


Joined: 07 Feb 2009
Posts: 1072
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: 8615
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: 659
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
This topic is locked: you cannot edit posts or make replies. Need help how to pass the ESP variabl... Venkichaitu JCL & VSAM 12 Thu Nov 02, 2017 3:53 am
No new posts Validate the Date girishb2 DFSORT/ICETOOL 9 Tue Sep 19, 2017 1:12 am
No new posts Trace in CLIST PANEL cvnlynn CLIST & REXX 1 Thu Jun 22, 2017 11:06 pm
No new posts Validate if a Value from the file is ... balacsv2 COBOL Programming 8 Mon Jun 19, 2017 11:52 pm
No new posts SCLM -- not installed -- panel ISRNOSLM dmitchell1105 IBM Tools 3 Fri Jun 09, 2017 10:41 pm

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