IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Garbage on output file


IBM Mainframe Forums -> SYNCSORT
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Hervey Martinez

New User


Joined: 12 Jul 2016
Posts: 6
Location: United States

PostPosted: Wed Sep 27, 2017 12:50 am
Reply with quote

I'm processing the hsm miglog dataset and trying to put something together to process records with errors.

I am looking at the ARC0734I records that have "RC= 20, REASON= 98" and the file in error is in the subsequent record.

I'm merging both of these records into an output file for subsequent processing and getting garbage on the output and have looked at all the parms and not sure how to correct the error;

Input file:

first record:
Code:
ARC0734I ACTION=MIGRATE FRVOL=HSMVOL TOVOL=...... TRACKS=         1 RC=  20, REASON=  98, AGE=  54

second record:

Code:
 DSN=ABC.EXN.ZZ69310.JM69353.RFPQERR.G0575V00


On the output file, I get:

Code:
ABC.EXN.ZZ69310.JM69353.RFPQERR.G0575V00    RC=  20, REASON=  98, AGE=2 54


The "2" on the age should be a blank.

My sort parms:

Code:
SORT FIELDS=COPY
INREC IFTHEN=(WHEN=GROUP,
BEGIN=(2,23,CH,EQ,C'ARC0734I ATCION=MIGRATE',
             AND,70,7,CH,EQ,C'RC=  20'),
             RECORDS=2,PUSH=(52:70,31,79:SEQ=1))
OUTFILE INCLUDE=(79,1,ZD,EQ,2),
             BUILD=(2:7,44,
                        47:52,31)


code' d
Back to top
View user's profile Send private message
RahulG31

Active User


Joined: 20 Dec 2014
Posts: 446
Location: USA

PostPosted: Wed Sep 27, 2017 1:16 am
Reply with quote

Your problem may be this as you are overwriting position 79 with SEQ
Code:
PUSH=(52:70,31,79:SEQ=1))
Back to top
View user's profile Send private message
magesh23586

Active User


Joined: 06 Jul 2009
Posts: 213
Location: Chennai

PostPosted: Wed Sep 27, 2017 8:17 pm
Reply with quote

Try below code

Code:

SORT FIELDS=COPY
INREC IFTHEN=(WHEN=GROUP,
BEGIN=(2,23,CH,EQ,C'ARC0734I ATCION=MIGRATE',
             AND,70,7,CH,EQ,C'RC=  20'),
             RECORDS=2,PUSH=(52:70,31,83:SEQ=1))
OUTFILE INCLUDE=(83,1,ZD,EQ,2),
             BUILD=(2:7,44,
                        47:52,31)
Back to top
View user's profile Send private message
Rohit Umarjikar

Global Moderator


Joined: 21 Sep 2010
Posts: 2671
Location: NYC,USA

PostPosted: Wed Sep 27, 2017 9:07 pm
Reply with quote

magesh23586, Isn't it same as RahulG31?
Back to top
View user's profile Send private message
magesh23586

Active User


Joined: 06 Jul 2009
Posts: 213
Location: Chennai

PostPosted: Wed Sep 27, 2017 9:21 pm
Reply with quote

Rohit Umarjikar wrote:
magesh23586, Isn't it same as RahulG31?


Yes Rohit,

RahulG31 provided the root cause.

I gave the resolution.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> SYNCSORT

 


Similar Topics
Topic Forum Replies
No new posts COBOL Table data to a flat file with ... COBOL Programming 5
No new posts Compare 2 files replace data in 1st f... DFSORT/ICETOOL 4
No new posts Merging 2 files but ignore duplicate... DFSORT/ICETOOL 1
No new posts DB2 SQL query to read and update data... DB2 12
This topic is locked: you cannot edit posts or make replies. copy file 2 data into file1 for match... DFSORT/ICETOOL 4
Search our Forums:

Back to Top