Quantcast
Channel: IBM Mainframe Computers Forums
Viewing all articles
Browse latest Browse all 8500

DFSORT/ICETOOL :: RE: How to update a portion of text in a trailer record

$
0
0
Author: Arun Raj
Posted: Mon Nov 14, 2016 7:28 pm (GMT 5.5)

Quote:
When I removed the OUTREC in OUTFIL FILES =02 and 03, it is working fine
Are you sure, it is giving you the expected results? If it does not, then it IS NOT 'working fine'.

If you are ok to build a new trailer, and skip the original trailer, this might help, and maybe easier to understand. This is the alternative explained earlier in this thread.
Code:
//SYSIN    DD *                                       
 OMIT COND=(5,5,CH,EQ,C'TRAIL')                       
 SORT FIELDS=COPY                                     

 OUTFIL FILES=01,                                     
    INCLUDE=(1,3,CH,EQ,C'HDR',OR,25,3,CH,EQ,C'XXX'), 
 TRAILER1=('TR1 TRAIL',30:COUNT-1=(M11,LENGTH=4))     

 OUTFIL FILES=02,                                     
    INCLUDE=(1,3,CH,EQ,C'HDR',OR,25,3,CH,EQ,C'YYY'), 
 TRAILER1=('TR2 TRAIL',30:COUNT-1=(M11,LENGTH=4))     

 OUTFIL FILES=03,                                     
    INCLUDE=(1,3,CH,EQ,C'HDR',OR,25,3,CH,EQ,C'ZZZ'), 
 TRAILER1=('TR3 TRAIL',30:COUNT-1=(M11,LENGTH=4))     

_________________
Arun
----------------------------------------------------------------------------------------------------
Love is like an hourglass, with the heart filling up as the brain empties. -Jules Renard


Viewing all articles
Browse latest Browse all 8500

Trending Articles