IBM Mainframe Forum

by **kiran** » Fri Oct 05, 2007 7:42 pm

how to copy 1 to 500 records from one file to another file by using jcl?

can anybody give the help ple...

by **Frank Yaeger** » Fri Oct 05, 2007 10:04 pm

Here's a DFSORT job that will do what you asked for. SORTOUT must specify a MOD data set.

//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... file1
//SORTOUT DD DISP=MOD,DSN=... file2
//SYSIN DD *
OPTION COPY,STOPAFT=500
/*

by **kiran** » Sat Oct 06, 2007 2:34 pm

hi thank Q for giving the reply

by **Frank Yaeger** » Sat Oct 06, 2007 11:47 pm

Glad I could help.

Copy 1 to 500 records from one file to another file