keep the header and removes the intermediate headers



IBM's flagship sort product DFSORT for sorting, merging, copying, data manipulation and reporting. Includes ICETOOL and ICEGENER

keep the header and removes the intermediate headers

Postby David2k8 » Mon Mar 30, 2015 3:04 pm

//JObname JOB REGION=0M,CLASS=A,MSGCLASS=Z,
// NOTIFY=&SYSUID
//STEP1 EXEC PGM=SORT
//SORTIN DD DSN=INPutfile,DISP=SHR
//SYSOUT DD SYSOUT=*
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
INREC IFTHEN=(WHEN=(1,6,CH,EQ,C'tittlename'),
OVERLAY=(586:SEQNUM,1,ZD))
OUTFIL INCLUDE=(586,1,ZD,EQ,1,OR,586,1,CH,EQ,C' '),
BUILD=(1,585)
/*
David2k8
 
Posts: 7
Joined: Mon Mar 23, 2015 10:32 am
Has thanked: 0 time
Been thanked: 2 times

Return to DFSORT/ICETOOL/ICEGENER

 


  • Related topics
    Replies
    Views
    Last post