MVSFORUMS.com

[Anand_R]

Hi ,

My logic is not working in the PROC section of the ISPF panels(SDF-II). I have following code..
)PROC
&LISTVAL = 'A B'
VER(&PREGION,NB,LISTV,&LISTVAL,MSG=STMT021E)

VPUT (PREGION,DREGION,SACCT1,SACCT2,SACCT3,SACCT4,SACCT5) PROFILE
)END

above code is working..

If I change to as follows :

)PROC
&LISTVAL = 'AB BC CD DE'
VER(&PREGION,NB,LISTV,&LISTVAL,MSG=STMT021E)

VPUT (PREGION,DREGION,SACCT1,SACCT2,SACCT3,SACCT4,SACCT5) PROFILE
)END

Above code does the validations against the values I entered in one of the input fields..
Problem is after I changed to above .. even I entered right values(AB or BC or CD or DE) it was saying the message 'VALID VALUES ARE AB BC CD DE' .. which I stored in STMT021E.

Note : &PREGION accepts the input field entered on the screen

Please some one can guide me why it is not accepting double character values. what changes I should do ..

Thanks

[dorkhead]

to me, the fact that u initialize value to up to 'AB BC CD DE'
means that it expects the whole line (8 char).

I would suggest to suppress LISTV in the following
VER(&PREGION,NB,LISTV,&LISTVAL,MSG=STMT021E)

and see how it goes.
_________________
Dorkhead

[Anand_R]

Hi,

I tried that option,, but it was saying syntax error. Is there any manuals that I can get some tutorial on the verify statement..

Thanks

[dorkhead]

check ISPF documentation on this site

here is a sample VER statement :

&ZVIEW = TRUNC (&ZUPIV,1)
VER (&ZVIEW,NB,LIST,V,S,A,T)

u need a space between var name and first parenthesis.
_________________
Dorkhead

[taltyman]

Just a guess without looking it up... Try
&LISTVAL = "'AB','BC','CD','DE'"


Thats double quotes around single quoted values

[Mike]

I've actually checked what you have given and it does work, the fact that you are receiving the STMT021E message also indicates that the LISTV is working, just that what is being checked is not as expected.

Possibly the value being checked is not AB BC etc, my initial guess would be that PREGION is not upper case. Try :-
&LISTVAL = 'AB ab Ab Ab BC bc Bc bC ....'
or use the CAPS(ON) attribute. for the input field.

You aren't accidentally changing the value of PREGION ?, include PREGION in the message (I'd do this anyway) make the message something like
'PREGION ?????? IS NOT ONE OF THE VALID VALUES AB BC CD DE'
In the message I'd use &LISTVAL as oposed to hard coding AB BC CD DE (not sure if you have). e.g. the message would be something like :-
STMT021E 'PREGION INVALID'
'PREGION &pregion IS NOT ONE OF THE LISTED VALUES &listval '

If this does not pinpoint the problem then please let us see the code for the whole panel.
_________________
Regards,
Mike.

[Anand_R]

Hi wood,

I tried the option, by hardcoding as follows..

VER(&PREGION,NB,LIST,PA,PB,PC,PD,DA,DB,DG,QA,QB,MSG=STMT021E)

It's working fine.. Thanks for ur suggestion

Talty,

I tried ur option,, it's not accepting some syntax error..

Mike,

Thanks for ur suggestion, it's really valid suggestion.. But in this case it seems to be not that case.. But we should keep in mind your suggestion while designing any new screens ..

Thanks a lot to everone