selective copy from the TAPE file

Truptib · New User Joined: 16 Apr 2005 Posts: 3

Hi,
I want to copy data for a list of policies from a Tape file to a flat file. I can use a sort card but the sort card will be unnecessarily too long. I have a flat file having only the list of policies.
Can anyone guide me how can i Do this using the file instead of the job, Currently I am using JCL as follows:

//CPYSLTTP JOB (FCLA-FCL0000),'SELECTIVE COPY ',
// CLASS=C,MSGCLASS=R,NOTIFY=&SYSUID
//*
//JOBLIB DD DSN=PROD.CLF.LOADLIB,DISP=SHR
// DD DSN=MODL.CLF.LOADLIB,DISP=SHR
//*
//SRTSTEP EXEC PGM=SORT
//SORTIN DD DSN=PLF.NXX.SECURE.POLICY.EOQ.G0023V00,
// DISP=SHR
//SORTOUT DD DSN=F6925.VXX.POLICY.REPRO,
// DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
// SPACE=(CYL,(2,2)),
// DCB=(LRECL=300,BLKSIZE=32700,RECFM=FB)
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(5,5),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(5,5),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(5,5),RLSE)
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
INCLUDE COND=(9,7,CH,EQ,C'M291761',OR,9,7,CH,EQ,C'M293720',OR,
9,7,CH,EQ,C'M294632',OR,9,7,CH,EQ,C'M294674',OR,
9,7,CH,EQ,C'M295301',OR,9,7,CH,EQ,C'M295305',OR,
9,7,CH,EQ,C'M500078')
/*

andycool · New User Joined: 12 Apr 2005 Posts: 64

IEBGENER is one way to copy any dataset.

i cant give u the code but m sure some1 will.

Frank Yaeger · Posted: Tue Apr 19, 2005 8:37 pm

Some comments on your current job:

Remove the //SORTWKdd DD statements - work data sets are NOT needed for a COPY, so you're just wasting space.

You can rewrite your INCLUDE statement like this to make it simpler:

Frank Yaeger · Posted: Tue Apr 19, 2005 8:39 pm

Andy,

IEBGENER can copy a file, but as far as I know, it can't select records in the way Truptib wants to.

Truptib · New User Joined: 16 Apr 2005 Posts: 3

:) Hi guys,
Thanks a lot for your inputs. Thanks for also optimizing my code.
have a nice day,
Trupti