MVSFORUMS.com

Anand_R · Intermediate Joined: 24 Dec 2002 Posts: 189 Topics: 60

Hi.

I have file of 80 lrec.. and I want the data having only either A-B OR 0-9 in one file and remaining data in other file.. Can you suggest some sort utility ..if possible canyou paste here..

Thanks
Anand

Frank Yaeger · Posted: Wed Jul 16, 2003 4:15 pm Post subject:

Anand,

I'm not sure what you mean by "the data having only either A-B or 0-9", but I'll assume you mean data having A-B or 0-9 in some particular position in the file - let's say in position 11. Here's an example of how to do that with DFSORT:

Anand_R · Intermediate Joined: 24 Dec 2002 Posts: 189 Topics: 60

Frank.

Sorry for the confusion.. I want the non numeric or non alphanumeric data into separate file.

For instance

Input file : THIS IS GOOD DATA 126543
THIS IS BAD$#@DATA87698

I need two output files

first file should have : THIS IS GOOD DATA 126543

Because this data contains only numeric(0-9) and alpha numeric(A-Z).

And
Second file should have : THIS IS BAD$#@DATA87698

Because this data contains some special characters(%)..

Please let me know is it possible?

Thanks
Anand

Frank Yaeger · Posted: Wed Jul 23, 2003 3:00 pm Post subject:

Anand,

So if I understand correctly, you want the records that contain any character other than blank, A-Z or 0-9 anywhere from positions 1-80 in the BAD file, and records that contain only blank, A-Z or 0-9 in all characters in the GOOD file. That's a little harder than the original request, but this DFSORT job will do it:

Anand_R · Intermediate Joined: 24 Dec 2002 Posts: 189 Topics: 60

Frank,

I am getting u0016 error.. outfil statment syntax error.

here is my jcl. I am just doing testing for columns 12,13,14 in the file..

//G1NX62TE JOB (CEFD-CEFTSOU,020),'ICEMAN',CLASS=X,
// MSGCLASS=X,NOTIFY=G1NX62T
//S1 EXEC PGM=ICEMAN
//SYMNAMES DD *
CHK,C' ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789'
B01,12,1
B02,*,1
B03,*,1
//SYSOUT DD SYSOUT=*
//SORTIN DD *
THIS IS GOOD DATA 126543
THIS IS BAD$#@DATA87698
//BAD DD SYSOUT=*
//GOOD DD SYSOUT=*
//SYSIN DD *
OPTION COPY
OUTFIL FNAMES=BAD,
INCLUDE=(B01,SS,NE,CHK,OR,B02,SS,NE,CHK,OR,B03,SS,NE,CHK)
OUTFIL FNAMES=GOOD,SAVE
/*

Error description is :

SYSIN :
OPTION COPY
OUTFIL FNAMES=BAD,
INCLUDE=(B01,SS,NE,CHK,OR,B02,SS,NE,CHK,OR,B03,SS,NE,CHK)
*
OUTFIL FNAMES=GOOD,SAVE
WER268A OUTFIL STATEMENT : SYNTAX ERROR
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000

Please let me know..

Thanks

kolusu · Posted: Thu Jul 31, 2003 2:41 pm Post subject:

Anand,

Based on your error messages(WER....) it is evident that you have syncsort at your shop. Syncsort does not support the use of symbols like DFSORT does. so try the following JCl.

Anand_R · Intermediate Joined: 24 Dec 2002 Posts: 189 Topics: 60

Thanks Kolusu and Frank

Kolusu
..you are right/great.. we don't have DFSORT in our shop...