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
 
How to verify the data entered in the Panel is Alphanumeric

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
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    Post subject: How to verify the data entered in the Panel is Alphanumeric
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10326
Location: italy

PostPosted: Tue Nov 11, 2008 2:53 pm    Post subject: Reply to: How to verify the data entered in the Panel is Alp
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    Post subject: Reply to: How to verify the data entered in the Panel is Alp
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

Senior Member


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

PostPosted: Wed Nov 12, 2008 3:30 am    Post subject: Reply to: How to verify the data entered in the Panel is Alp
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 http://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: 1703
Location: Australia

PostPosted: Wed Nov 12, 2008 4:13 am    Post subject:
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    Post subject:
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    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
No new posts Copy 4 byte of data from the last rec... arunsoods DFSORT/ICETOOL 9 Fri Oct 06, 2017 12:15 pm
No new posts opening a dataset after reading it fr... arunsoods DFSORT/ICETOOL 5 Wed Oct 04, 2017 3:54 pm
This topic is locked: you cannot edit posts or make replies. PS file data should be passed as symb... d_sarlie JCL & VSAM 15 Tue Oct 03, 2017 5:18 am
No new posts File Aid tool to compare numeric data balaji81_k Compuware & Other Tools 2 Tue Sep 26, 2017 3:35 am
No new posts Question related to Data dictionary f... rexx77 SYNCSORT 3 Thu Aug 31, 2017 7:23 am

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