MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Lower case Validate

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Application Programming
View previous topic :: View next topic  
Author Message
mainhead
Beginner


Joined: 07 Feb 2006
Posts: 26
Topics: 11

PostPosted: Tue Feb 07, 2006 5:51 am    Post subject: Lower case Validate Reply with quote

Hi ,

I want to validate a file such that if any lowercase present in input file it should not come into output file . Please give any information about to validate this .

Thanks,
Back to top
View user's profile Send private message
ofer71
Intermediate


Joined: 12 Feb 2003
Posts: 358
Topics: 4
Location: Israel

PostPosted: Tue Feb 07, 2006 6:30 am    Post subject: Reply with quote

If you can use REXX, then it's pretty easy:
Code:

ADDRESS TSO "EXECIO * DISKR FILEIN (STEM IN. FINIS"
 
DO I = 1 TO IN.0
  IF DATATYPE(IN.I,"L") THEN
    ITERATE I
END I
 
EXIT


For COBOL, here is an example I found in Google groups.

O.
________
halfbaked


Last edited by ofer71 on Sat Feb 05, 2011 11:31 am; edited 1 time in total
Back to top
View user's profile Send private message Send e-mail
mainhead
Beginner


Joined: 07 Feb 2006
Posts: 26
Topics: 11

PostPosted: Tue Feb 07, 2006 7:54 am    Post subject: Lower case Validate Reply with quote

Thanks for your information .
Iam using cobol

Please could you help up with this
I have input file which iam copying to ANOTHER file which is output

Input record length of 80 for example
----+----1----+----2----+----3----+----4----+-
02362,A1B, ,P,J,200545,000000,000000000,000100

and i want only to check 7 - 9 fields to check it whether its upper case or lower case , if lower case not to copy .

Can you give information regarding this or i can use jcl to overcome

Thanks
Back to top
View user's profile Send private message
Bithead
Advanced


Joined: 03 Jan 2003
Posts: 550
Topics: 23
Location: Michigan, USA

PostPosted: Tue Feb 07, 2006 9:18 am    Post subject: Reply with quote

Try this:

if function upper-case (field-7-9) = field-7-9
... copy the record....
end-if.
Back to top
View user's profile Send private message
mainhead
Beginner


Joined: 07 Feb 2006
Posts: 26
Topics: 11

PostPosted: Thu Feb 09, 2006 1:59 am    Post subject: Lower case validate Reply with quote

Thanks bit head ,its really helped me and sorry to come again . is it possible to remove the data thru Jcl by sort utility ??. could you please give any information on this .
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Application Programming All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group