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

How to verify the data entered in the Panel is Alphanumeric


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
vijay_pampana

New User


Joined: 19 Jan 2008
Posts: 15
Location: Hyderabad

PostPosted: Tue Nov 11, 2008 2:49 pm
Reply with quote

I've written a panel which will accepts the control number as input.
The control number is a Alphanumeric (A-Z, a-z, 0-9) field, so I want to validate the Control Number Field in my panel.

Code:

)BODY
C01+_CNTRL01
.
.
)PROC
VER (&CNTRL01,PICT,'NNNNNNN')


The above code will only check numeric values but I need to check for alphanumeric
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Tue Nov 11, 2008 2:53 pm
Reply with quote

Quote:
rexx panel


maybe You are asking because You are looking in the wrong place,
- rexx manuals I suppose

if You had looked at the right manuals
_ ISPF manuals

You would have used the right term and found the answer!

another way of getting hints is to use the model command

but still not rexx related
Back to top
View user's profile Send private message
vijay_pampana

New User


Joined: 19 Jan 2008
Posts: 15
Location: Hyderabad

PostPosted: Tue Nov 11, 2008 4:21 pm
Reply with quote

Thanks for the reply.

I am very new to writing panels using ISPF function. Can you please provide some more information about the usage of MODEl.

Thanks in advance
--Vijay
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2546
Location: Silicon Valley

PostPosted: Wed Nov 12, 2008 3:30 am
Reply with quote

Possibly, VER(var1,NAME) will work for you.

If not, I think you will need to use the *REXX statement to have rexx code within your panel. Then use the VERIFY function of rexx to make sure the value only has the characters you want. See www-03.ibm.com/systems/z/os/zos/bkserv/r10pdf/ for ISPF Dialog Developers Guide and for TSOE Rexx Reference.
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1702
Location: Australia

PostPosted: Wed Nov 12, 2008 4:13 am
Reply with quote

Hi,

you can try

Code:
VER (&CNTRL01,NB,INCLUDE,ALPHAB,NUM)   



Gerry
Back to top
View user's profile Send private message
vijay_pampana

New User


Joined: 19 Jan 2008
Posts: 15
Location: Hyderabad

PostPosted: Wed Nov 12, 2008 9:52 am
Reply with quote

Thanks sorichetti, Pedro, Gerry for the replies. I tried the gerry code and it worked for me. icon_biggrin.gif

--Vijay
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 Data set Rec-Cnt and Byte-Cnt Testing & Performance 2
No new posts SCOPE PENDING option -check data DB2 2
No new posts Check data with Exception Table DB2 0
No new posts JCL EXEC PARM data in C Java & MQSeries 2
Search our Forums:

Back to Top