Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Updating of Trailer

Status
Not open for further replies.

rajesh082

Programmer
Dec 18, 2007
38
DK
Hello,

I am trying to update the trailer record with the correct count.

Code:
//TOOLIN    DD *                                                
  COPY FROM(SORTOUT3) TO(SORTOUT) USING(CTL1)                   
//CTL1CNTL DD *                                                 
  SORT FIELDS=(1,11,CH,A)                                       
  OUTFIL FNAMES=SORTOUT,INCLUDE(1,3,CH,NE,C'000'),              
    IFTRAIL=(TRLID=(1,1,CH,EQ,C'E'),                            
    TRLUPD=(020:COUNT+2=(TO=PD,LENGTH=008)))

This is updating SORTOUT file with only the trailer record.
The log says:
Code:
ICE055I 0 INSERT 0, DELETE 0                              
ICE054I 0 RECORDS - IN: 142, OUT: 142                     
ICE227I 0 SORTOUT  : DELETED = 141, REPORT = 1, DATA = 0  
ICE228I 0 SORTOUT  : TOTAL IN = 142, TOTAL OUT = 1        
ICE174I 0 NO DATA RECORDS FOR AN OUTFIL DATA SET - RC=0   
ICE134I 0 NUMBER OF BYTES SORTED: 37488                   
ICE253I 0 RECORDS SORTED - PROCESSED: 142, EXPECTED: 150

However if I do this, OUTFIL has 142 records.
Code:
//TOOLIN    DD *                                                
  COPY FROM(SORTOUT3) TO(SORTOUT) USING(CTL1)                   
//CTL1CNTL DD *                                                 
  SORT FIELDS=(1,11,CH,A)                                       
  OUTFIL FNAMES=SORTOUT,INCLUDE(1,3,CH,NE,C'000')

Can some one tell me what am I doing wrong?
This is how the input file looks like:
Code:
ENDRECORD                 *    ãÏéÀÃð000000264        
00110001703004   X 812978119043042014.01.232014.07.23 
00110001745011   X 802115729643042013.12.042014.06.04 
01910002694008   X 812921147543042013.11.112014.05.11
 
And this has "what?" to do with COBOL? (Same with your other post.)


Nic
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top