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: 411
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: 211
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: 1827
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: 211
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 ISSUE IN copying Sequential file reco... thesumitk JCL & VSAM 2 Wed Dec 13, 2017 3:07 pm
No new posts File Tailoring -- Temporary dataset i... samzee71 CLIST & REXX 3 Fri Dec 01, 2017 3:12 am
No new posts Rexx - File tailoring samzee71 CLIST & REXX 10 Thu Nov 30, 2017 10:47 pm
No new posts Moving a PS file as body of a mail! Vignesh Sid JCL & VSAM 4 Tue Nov 21, 2017 9:23 pm
No new posts unable to set RC = 4 when empty file migusd SYNCSORT 1 Tue Nov 21, 2017 1:21 am

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