mainframegurukul.com

Posted: **Wed Apr 19, 2006 4:45 pm**

Is there a way to use the functionality of SKIPREC=n but not omit the record from the output file.
Sample Input:
999
444
333
111
222

Desired Output:
999
111
222
333
444

Posted: **Wed Apr 19, 2006 9:33 pm**

I think you're trying to keep record 1 (a header?) where it is and sort the rest of the records. If that's what you're trying to do, then you can use a DFSORT job like this to do it. I assumed your input file has RECM=FB and LRECL=80, but the job can be changed appropriately for other attributes.

Code: Select all

//S1    EXEC  PGM=ICEMAN
//SYSOUT    DD  SYSOUT=*
//SORTIN DD DSN=...  input file &#40;FB/80&#41;
//SORTOUT DD DSN=...  output file &#40;FB/80&#41;
//SYSIN    DD    *
* Reformat record 1 to&#58;
* |data|A|00000001|
* Reformat records 2-n to&#58;
* |data|B|nnnnnnnn|
  INREC IFTHEN=&#40;WHEN=INIT,OVERLAY=&#40;81&#58;C'B',82&#58;SEQNUM,8,ZD&#41;&#41;,
        IFTHEN=&#40;WHEN=&#40;82,8,ZD,EQ,1&#41;,OVERLAY=&#40;81&#58;C'A'&#41;&#41;
* Sort on A &#40;for record 1&#41; or B &#40;for record 2-n&#41;, and data.
* This will keep record 1 in place and sort the rest of
* the records.
  SORT FIELDS=&#40;81,1,CH,A,1,3,CH,A&#41;
* Remove A/B and seqnum
  OUTREC BUILD=&#40;1,80&#41;
/*

If that's not what you're trying to do, then please explain in more detail what it is you're trying to do.

Posted: **Mon Jan 25, 2016 11:10 pm**

<< Content deleted By Admin >>

mainframegurukul.com

Omitt records from sort but still include them in output

Omitt records from sort but still include them in output

Topic deleted by Admin