Syncsort: Splitting file based of date

Shriram Jogdand · New User Joined: 14 Oct 2008 Posts: 65 Location: Pune

Hi,
I have two files.
File1- FB,LREC=10, have only one record which have date mentioned in it.
File2- FB,Lrec=80, contains many records. Each record have date starting from 11th position and have same format as of date in first file.

Now I wanted to split file2 into sortout1 and sortout2 based on date in first file. If a date of record from file2 is greater than date in first file then that record should go in SORTOut1 file and if date of record (of file2) is equal of less than date of file 1 then records should go in sortout2 file.

How can we do this?

sqlcode1 · Active Member Joined: 08 Apr 2010 Posts: 577 Location: USA

Shriram Jogdand,
What is the format of the date in both the files?

Thanks,

Shriram Jogdand · New User Joined: 14 Oct 2008 Posts: 65 Location: Pune

Its YYYYMMDD

Bill Woodger · Posted: Wed Feb 15, 2012 6:55 pm

You can have a look at this. Generates a DFSORT Symbol for the SYMNAMES file in the following step. Then use OUTFIL INCLUDE/OMIT for your two output files using the Symbol generated.

sqlcode1 · Active Member Joined: 08 Apr 2010 Posts: 577 Location: USA

Shriram Jogdand,
See if below works...

Shriram Jogdand · New User Joined: 14 Oct 2008 Posts: 65 Location: Pune

Hi,
I tried below code just to create one file using SYMNAMES but it is giving SYMNAMES error

//STEP10 EXEC PGM=SORT
//SORTIN DD DSN=ABC.XYZ,
// DISP=SHR
//SORTOUT DD DSN=&&SYS1,DISP=(,PASS)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
INREC FIELDS=(1,4,C'-',5,2,C'-',7,2)
SORT FIELDS=COPY
OUTREC BUILD=(C'CIPE,',1,10,80:X)
//*
//STEP20 EXEC PGM=SORT
//SYMNAMES DD DSN=&&SYS1,DISP=(OLD,PASS)
//SORTIN DD DSN=ABC.INPUT.FILE,
// DISP=SHR
//SORTOUT DD DSN=ABC.OUTPUT.FILE,
// DISP=(NEW,CATLG,DELETE)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INCLUDE COND=(51,10,CH,EQ,CIPE)

The error coming is
SYNCSORT FOR Z/OS 1.3.2.1R U.S. PATENTS: 4210961, 5117495 (
SYNCSORT LICENSED FOR CPU SERIAL NUMBER 5F782, MODEL 2817 609
*** ERRORS IN SYMNAMES STATEMENTS ***
CIPE,2012-01-31
*
*** SYNTAX ERROR ***
WER470A SYMNAMES ERRORS FOUND WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE

dbzTHEdinosauer · Posted: Wed Feb 15, 2012 9:02 pm

oohhhh golly!

seems as if SYNCSORT is not the same as DFSORT.

oh well, yet again another thread which is a waste of time

sqlcode1 · Active Member Joined: 08 Apr 2010 Posts: 577 Location: USA

Shriram Jogdand,
You didn't mention that you wanted to compare date(s) in YYYY-MM-DD format. Change your OUTREC for STEP10 as below and see if it works.

UNTESTED

Shriram Jogdand · New User Joined: 14 Oct 2008 Posts: 65 Location: Pune

Thanks. It worked perfectly.