Large Files -- Big Volume of Records Help Needed
Posted: Wed Jun 21, 2006 10:54 pm
Dear All,
I have a file(file A) containing 15000 (fifteen thousand) records. I have a separate file(file B) of 6 million records. Is there any easy way to select the 15,000 records from File A from File B? I tried SYNCSORT but there is a limit to the number of records so I cannot create these 15000 records in one step. Instead of writing a JCL with 140 steps, is there any other way this can be done?
Please Help,
Thanks,
Ardhendu.
*************** **************** ********* FILEAID USED ********************** *******
//STEP003R EXEC PGM=SORT
//SORTIN DD DSN=X101561.RXB0100.AHIS.TRD.BSTRDD.SORTED,DISP=SHR
//SORTOUT DD DSN=X101561.RXB0100.AHIS.TRD.BSTRDD.ID.UNIQUE,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE),VOL=SER=TSO100,
// DCB=(DSORG=PS,RECFM=FB,LRECL=30,BLKSIZE=0)
//SORTXSUM DD DSN=X101561.RXB0100.AHIS.TRD.BSTRDD.ID.DUPES,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE),VOL=SER=TSO100,
// DCB=(DSORG=PS,RECFM=FB,LRECL=30,BLKSIZE=0)
//SYSOUT DD SYSOUT=*
//SYSIN DD SUBSYS=(CCSS,
// ' SORT FIELDS=(12,18,CH,A) ',
// ' SUM FIELDS=NONE,XSUM ')
I have a file(file A) containing 15000 (fifteen thousand) records. I have a separate file(file B) of 6 million records. Is there any easy way to select the 15,000 records from File A from File B? I tried SYNCSORT but there is a limit to the number of records so I cannot create these 15000 records in one step. Instead of writing a JCL with 140 steps, is there any other way this can be done?
Please Help,
Thanks,
Ardhendu.
*************** **************** ********* FILEAID USED ********************** *******
//STEP003R EXEC PGM=SORT
//SORTIN DD DSN=X101561.RXB0100.AHIS.TRD.BSTRDD.SORTED,DISP=SHR
//SORTOUT DD DSN=X101561.RXB0100.AHIS.TRD.BSTRDD.ID.UNIQUE,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE),VOL=SER=TSO100,
// DCB=(DSORG=PS,RECFM=FB,LRECL=30,BLKSIZE=0)
//SORTXSUM DD DSN=X101561.RXB0100.AHIS.TRD.BSTRDD.ID.DUPES,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE),VOL=SER=TSO100,
// DCB=(DSORG=PS,RECFM=FB,LRECL=30,BLKSIZE=0)
//SYSOUT DD SYSOUT=*
//SYSIN DD SUBSYS=(CCSS,
// ' SORT FIELDS=(12,18,CH,A) ',
// ' SUM FIELDS=NONE,XSUM ')