MVSFORUMS.com

[Smith]

Hi,
I have 2 files, each with record length 5500. File 1 has a date field in it which will be the current date. File 2 has the date field (in same position as File 1) which has 99999999 as the value. My requirement is to find the records which has date < 99999999 and date = 99999999, when the date fields are added. My Sysin card is

SORT FIELDS=(1,18,CH,A,24,4092,CH,A,4117,384,CH,A) -
SUM FIELDS=(19,5,PD) -
OUTFIL FILES=1,INCLUDE=(19,5,PD,LT,99999999), -
OUTREC=(1,195,X'099C',198,5303) -
OUTFIL FILES=2,INCLUDE=(19,5,PD,EQ,99999999), -
OUTREC=(1,195,X'001C',198,5303)

I am not able to execute this using SYNCSORT because the record length is higher than the limit (the LRECL is 5500). We don't have DFSORT installed in our system, so I can't use this. I can achieve the same result using 2 SORT steps, but it is taking more time. Is there any other way to get the output as mentioned above other than SYNCSORT or DFSORT?

Any help on this would be appretiated.

[kolusu]

[Smith]

Kolusu,
Sorry for the confusion caused. In this sort we are comparing certain fields (1,18,CH,A,24,4092,CH,A,4117,384,CH,A ) and then if these field values are same then we are adding the date fields which starts at column 19 (SUM FIELDS=(19,5,PD) ). If the sum of the fields is less than 99999999 then it means that this record is present only on File1 (because the date in File 1 is the current date which is always less than 99999999) and we are writing these records to another output file . If the sum of the fields is equal to 99999999, then it means that the record is present only on File 2 and we are writing these records to another output file. If the sum of fields is greater than 99999999, then it means that those records are duplicates and we are eliminating those records. I am able to get the desired outputs if the file length is less than 4092. Since my file length is 5500, I am not able to use Syncsort.

I am getting a SOC4 abend when running the JCL. I am not getting any error message in sysout. Please see the Sysout details.

z/OS 1.4
PRODUCT LICENSED FOR CPU SERIAL NUMBER 15388, MODEL 2064 110
SYSIN :
SORT FIELDS=(1,18,CH,A,24,4092,CH,A,4117,384,CH,A) -
SUM FIELDS=(19,5,PD)
OUTFIL FILES=1,INCLUDE=(19,5,PD,LT,99999999),
OUTREC=(1,195,X'099C',198,5303) -
OUTFIL FILES=2,INCLUDE=(19,5,PD,EQ,99999999),
OUTREC=(1,195,X'001C',198,5303)


Thanks,
Smith

[kolusu]

[Smith]

Kolusu,
I gave more sort work cards and gave FILSZ PARM. But still I am getting SOC4. I think it is because of my file length. My file length is 5500 and I did a Quick watch on SORT and it says:

Possible values for 'type' and the max length for each field type are:

AC - 1 to 256 bytes - EBCDIC translated to ASCII before sort or merge
AQ - 1 to 256 bytes - character, but alternate collating sequence set
by ALTSEQ= or default at install time
ASL- 2 to 256 bytes - leading ASCII separate sign (+ or -)
AST- 2 to 256 bytes - trailing ASCII separate sign (+ or -)
BI - 1 to 4092 bytes- binary (usable for any type of field)
CH - 1 to 4092 bytes- character

I think the maximum limit is 4092 bytes for SYNCSORT. If it is a problem with file length, is there any other way I can achieve these results? We don't have DFSORT and we cannot use this.

Thanks,
Smith

[Smith]

Kolusu,
I saw a post in this website under the subject "Problem with SORT when LRECL > 4092 Bytes". I think I am also facing the exact same problem? Is there any way to overcome this syncsort limitation?

Your help is appretiated.

Thanks,
Smith