Omitt records from sort but still include them in output

In this Mainframe Forum - You can post your queries on DFSORT, ICETOOL , SyncSort & JCL Utilities

Moderators: Frank Yaeger, Moderator Group

Post Reply
korey
Member
Posts: 1
Joined: Wed Apr 19, 2006 4:45 pm

Omitt records from sort but still include them in output

Post by korey » 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

User avatar
Frank Yaeger
Moderator
Posts: 812
Joined: Sat Feb 18, 2006 5:45 am
Location: San Jose, CA
Contact:

Post by Frank Yaeger » 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 (FB/80)
//SORTOUT DD DSN=...  output file (FB/80)
//SYSIN    DD    *
* Reformat record 1 to:
* |data|A|00000001|
* Reformat records 2-n to:
* |data|B|nnnnnnnn|
  INREC IFTHEN=(WHEN=INIT,OVERLAY=(81:C'B',82:SEQNUM,8,ZD)),
        IFTHEN=(WHEN=(82,8,ZD,EQ,1),OVERLAY=(81:C'A'))
* Sort on A (for record 1) or B (for record 2-n), and data.
* This will keep record 1 in place and sort the rest of
* the records.
  SORT FIELDS=(81,1,CH,A,1,3,CH,A)
* Remove A/B and seqnum
  OUTREC BUILD=(1,80)
/*

If that's not what you're trying to do, then please explain in more detail what it is you're trying to do.
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort

academyindia4

Topic deleted by Admin

Post by academyindia4 » Mon Jan 25, 2016 11:10 pm

<< Content deleted By Admin >>

Post Reply

FREE TUTORIALS

Tutorials
Free tutorials from mainframegurukul
  • JCL Tutorial
    Covers all important JCL concepts.
  • Cobol Tutorial
    This tutorials covers all Cobol Topics from STRING to COMP-3.
  • DB2 Tutorial
    DB2 Tutorial focuses on DB2 COBOL Programming.
  • SORT Tutorial
    This Tutorial covers all important aspects of DFSORT with examples
  • CICS Tutorial
    This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming.
Interview
Mainframe Interview questions



Other References
Mainframe Tools and others