jcl to print 5,7,10th records in a ps

josephvincentd · New User Joined: 19 May 2005 Posts: 18

i have a question

that is

a ps or a pds member having 10 records.

and we dont know what are all the contents inside the file

i want to print 5th , 7th,10th
records in my spool with the use of JCL.(especially in jes2 environment)

is it possible?

can u help me to over come this....

thanks & regards

vincent.

Deepa.m · Active User Joined: 28 Apr 2005 Posts: 88

Is the total records only 10? is the records you want to print has any relation like want to print a record after every 2 records. does it have a common difference .. in that case u can use SAMPLE option

//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file
//SORTOUT DD DSN=... output file
//SYSIN DD *
OPTION COPY
OUTFIL STARTREC=5,SAMPLE=2
/*
it filters the records starting from 5 ,8,10 etc..

MGIndaco · Posted: Thu May 19, 2005 6:37 pm Post subject:

Or... you can also use a IDCAMS as you can see below:

Frank Yaeger · Posted: Thu May 19, 2005 9:33 pm Post subject:

Here's an example of a one pass DFSORT copy solution. I assumed your input file has RECFM=FB and LRECL=80, but you can change the job appropriately for other attributes.