Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Garbage on output file

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> SYNCSORT
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    Post subject: Garbage on output file
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: 442
Location: USA

PostPosted: Wed Sep 27, 2017 1:16 am    Post subject: Reply to: Garbage on output file
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    Post subject:
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

Senior Member


Joined: 21 Sep 2010
Posts: 2016
Location: NY,USA

PostPosted: Wed Sep 27, 2017 9:07 pm    Post subject:
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    Post subject:
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    IBMMAINFRAMES.com Support Forums -> SYNCSORT All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts ISPF 3.4 edit of a ps file, disp use... Carrie Da Silva TSO/ISPF 3 Fri Sep 21, 2018 3:01 am
No new posts ICETOOL - Finding keys within a file nartcr DFSORT/ICETOOL 10 Mon Sep 17, 2018 6:39 am
No new posts Remove selected duplicate rows from t... hnharish DFSORT/ICETOOL 3 Wed Sep 05, 2018 3:11 am
No new posts Splitting one record in a file to 10 ... mf_123 DFSORT/ICETOOL 9 Tue Aug 21, 2018 8:51 pm
No new posts CLOB Column data to External File usi... lalitmehta12 DB2 9 Tue Aug 21, 2018 7:22 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us