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: 401
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: 210
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: 1806
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: 210
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 Subtract the ZD fields to provide neg... Balaryan DFSORT/ICETOOL 4 Wed Oct 11, 2017 10:51 pm
No new posts Execute JCL step based on the content... sprikitik JCL & VSAM 2 Tue Oct 03, 2017 10:03 am
This topic is locked: you cannot edit posts or make replies. PS file data should be passed as symb... d_sarlie JCL & VSAM 15 Tue Oct 03, 2017 5:18 am
No new posts Where is output from PARM ABEXIT (SNA... packerm CA Products 3 Thu Sep 28, 2017 4:06 pm
No new posts File Aid tool to compare numeric data balaji81_k Compuware & Other Tools 2 Tue Sep 26, 2017 3:35 am

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