copying every nth record using File-Aid.

ranga_subham · New User Joined: 01 Jul 2005 Posts: 51

Hi,

Can you give me a File-Aid sysin card to copy every nth record of an input data to the output dataset?

Thanks in advance.

shrivatsa · Posted: Thu May 11, 2006 9:17 am

Hi Ranga,

//COPY EXEC PGM=FILEAID
//SYSPRINT DD SYSOUT=A
//SYSLIST DD SYSOUT=A
//DD01 DD DSN=xxxxx.TEST.SORT,DISP=SHR
//DD01O DD DSN=xxxxx.TEST.SORTOUT,DISP=(,CATLG,DELETE),
// UNIT=SYSD@,LABEL=RETPD=90,
// DCB=(BLKSIZE=58200,LRECL=300,RECFM=FB),
// SPACE=(58200,(14000,135),RLSE,,ROUND)
//SYSIN DD *
$$DD01 COPY SELECT=2,OUT=100
/*

it will select every 2nd record and you can limit here the output by 100 records.

ranga_subham · New User Joined: 01 Jul 2005 Posts: 51

Shrivatsa, Thanks a lot. Have a good day.