Accepting Special characters as userid

ANKIT GUJRATI · New User Joined: 22 Mar 2011 Posts: 4 Location: india

i have created a panel which accept userid as input,i want it not to accept '@' as input what can i do to solve it?its only accepting '@' as special characters rest of special characters is not getting accepted which is what i want for '@' too

enrico-sorichetti · Posted: Thu Mar 24, 2011 1:22 pm

post the relevant panel definition

ANKIT GUJRATI · New User Joined: 22 Mar 2011 Posts: 4 Location: india

)ATTR DEFAULT(%+_)
000002 _ TYPE(INPUT) INTENS(HIGH) PAD(_)
000003 + TYPE(TEXT) INTENS(HIGH) SKIP(ON)
000004 )BODY WINDOW(70,20)
000005 +---------------------------------------------+
000006 + DATASET SEARCH SCREEN +
000007 +---------------------------------------------+
000008 +
+ USER ID(FIRST FOUR CHARACTER(A-Z) LAST TWO(0-9)): _USESID+
000010 + MAX.NO.OF DATASETS(NUMERIC(0-9)): _MD+
000011 )INIT
000012 &USESID=' '
000013 )PROC
000014 &USESID=' '
000015 VER(&USESID,NB,PICT,'AAAANN')
000016 VER(&MD,NB,PICT,'NN')
000017 )END

NOW HERE IF I GIVE INPUT AS "ID@C45" ITS ACCEPTING IT.

enrico-sorichetti · Posted: Thu Mar 24, 2011 2:05 pm

if You had used the MODEL VERIFY facility
You would have seen how to specify the PICT clause
You would have seen that ISPF behaves as described

and if You had tested thoroughly You would have seen that also # and $ are accepted

for checking with more sophisticated patterns the best approach would be to do it in the calling program/script

or with an inline rexx

or (very quick and dirty) with something along the lines of

Pedro · Posted: Thu Mar 24, 2011 7:37 pm