Polaris - jcl file interview question

[Vamsi99]

How do we retrieve odd numbered records like 1st,3rd,5th, 7th... from a file.

[Anuj Dhawan]

Using what? SORT, COBOL or something else?

[mansoor_asma]

We can do it through JCL by using SPLIT command of ICEMAN utility.
Please find the below JCL to obtaain it:

//SPLIT EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=Y897797.INPUT1,DISP=OLD
//OUT1 DD DSN=output file1,DISP=(NEW,CATLG),
// SPACE=(CYL,(5,5)),UNIT=SYSDA
//OUT2 DD DSN=output file2,DISP=(NEW,CATLG),
// SPACE=(CYL,(5,5)),UNIT=SYSDA
//SYSIN DD *
SORT FIELDS=copy
OUTFIL FNAMES=(OUT1,OUT2),SPLIT
//*

Note: odd numbered records will be present in output file1

[MrSpock]

No.

This question was recently answered here:

http://www.mainframegurukul.com/ibmmain ... php?t=4808

[academyindia4]

<< Content deleted By Admin >>