validate the fields of a mainframe panel using REXX proc

Hemanth Kumar Guntupalli · New User Joined: 09 Jun 2007 Posts: 6 Location: bangalore

Hi,

I have 20 panels with several fields as inputs. In most of them I have similar fields that need to be validated and their validation keeps changing based on my shops requirement.
My question here is, is there way I can write a REXX procedure to validate all the relevant fields and throw message back to panel.

Thanks in advance,
Hemanth

expat · Posted: Tue Feb 01, 2011 5:23 pm

Well, a Yes/No question deserves a Yes/No answer.

The answer is Yes

Or you could read the ISPF manuals to find out about VER

Hemanth Kumar Guntupalli · New User Joined: 09 Jun 2007 Posts: 6 Location: bangalore

Hi Expat,

That is really quick. Thanks. I see that using VER we can validate a variable in a single panel. Can you show some code of how to call a procedure in a panel to validate?

I went through this link http://publib.boulder.ibm.com/infocenter/zos/v1r9/index.jsp?topic=/com.ibm.zos.r9.f54dg00/ispzdg60164.htm

Thanks,
Hemanth [/url]

expat · Posted: Tue Feb 01, 2011 6:07 pm

You can build REXX in to an ISPF panel, or you can exit the panel to do the validation from a procedure and then redisplay the panel with the required messages.

AFIK, you can not call procedures from panels

don.leahy · Posted: Tue Feb 01, 2011 6:14 pm

PANEXIT is another option. The concept is similar to embedded Rexx, but it calls an external function.

daveporcelan · Posted: Tue Feb 01, 2011 6:34 pm

What I do is use VER with LISTV. Here is an example:

expat · Posted: Tue Feb 01, 2011 7:02 pm

Dave,

Nice tip

Hemanth Kumar Guntupalli · New User Joined: 09 Jun 2007 Posts: 6 Location: bangalore

Dave,

That's nice tip. But it doesn't work for me yet. Could you please review my code.

I have tried this way in my REXX program that calls the panel.

VALFLD = 'C E S R'

In the panel, I have given the below way.

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

Please validate.

Thanks in advance,
Hemanth

dick scherrer · Posted: Wed Feb 02, 2011 10:42 am

Hello,

What happens? An abend? Syntax error? Unexpected/unwanted result?

What happens if you remove the MSG=HEM00TC?

Hemanth Kumar Guntupalli · New User Joined: 09 Jun 2007 Posts: 6 Location: bangalore

Hi,

There is no abend. Even for a valid value the message panel is thrown.

My intention is not to remove the MSG panel, because I want this specific panel to be thrown in case of invalid value.

Thanks,
Hemanth

Pedro · Posted: Wed Feb 02, 2011 8:18 pm

Where do you put the VER statement? show us the panel.

don.leahy · Posted: Wed Feb 02, 2011 9:09 pm

You need to separate the values in VALFLD with commas. Just as if you were using LIST rather than LISTV.

daveporcelan · Posted: Wed Feb 02, 2011 9:20 pm

Don,

It may work with commas, but my experience is with spaces.

I have a dozen panels using spaces in between the values.

That is all I know.

Hemanth Kumar Guntupalli · New User Joined: 09 Jun 2007 Posts: 6 Location: bangalore

Hi All,

Thanks for your time. LISTV is working for me if a program PROG calls PANELA. But, the same if PANELA calls PANELB, PANELB is not able to identify the variables defined my PROG.

How I achieved sofar..
In my PROG I have given
"ISPEXEC VPUT VALFLD PROFILE"

In my Panel in )INIT I have given
VGET (VALFLD) PROFILE

In )PROC I just used as LISTV,&VALFLD. it worked.

Now my question is about passing this global variable to susequent panels.

Please help me.

Thanks in advance,
Hemanth [/u]

ofer71 · Posted: Thu Feb 03, 2011 12:44 pm

You just need to add a VGET to the second panel....

O.

Hemanth Kumar Guntupalli · New User Joined: 09 Jun 2007 Posts: 6 Location: bangalore

Hi Guys,

Sorry. there is a mismatch of my variables. Please consider what I mentioned earlier working fine..

Thanks to all.
Hemanth

dick scherrer · Posted: Thu Feb 03, 2011 8:26 pm

Good to hear it is working - thank you for posting the resolution

d