Portal | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
OUTREC with ALter Command

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
scorp_rahul23

New User


Joined: 06 May 2008
Posts: 96
Location: Delhi

PostPosted: Wed Nov 22, 2017 3:10 pm    Post subject: OUTREC with ALter Command
Reply with quote

My Input file is FB 194 REC Length.

I want to create a outrec to alter the file name.

Code:

........[92 Bytes]....A9340G.SHNP01.ABCD.A5.C51.F01.D2171122.RDY....


I have written below code to change one variable

Code:

OPTION COPY                                       
OUTFIL OUTREC=(C' ALTER ''',93,42,C'''- ',/,       
               C' NEWNAME(',93,19,C'V',113,22,C')')


Result of above code is
Code:

ALTER 'A9340G.SHNP01.ABCD.A5.C51.F01.D2171121.RDY'-             
NEWNAME(A9340G.SHNP01.ABCD.V5.C51.F01.D2171121.RDY)                 


I want to modify the OUTREC command to include additional changes for replacing the character "A9340G" to "A9340T"

Can you please suggest
Back to top
View user's profile Send private message

Rohit Umarjikar

Global Moderator


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

PostPosted: Wed Nov 22, 2017 8:06 pm    Post subject:
Reply with quote

Use INREC to OVERLAY A9340G to A9340T before passing it to OUTREC.
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 -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts VSAM Alter Command - Cylinder Extent ... Need2Know JCL & VSAM 3 Tue Sep 22, 2020 3:02 pm
No new posts Am I missing something on "FREE ... rodferrn CLIST & REXX 10 Fri Sep 04, 2020 6:51 am
No new posts How to use CICS command CEBR on sdsf ... wang_f_y1 CICS 1 Fri Aug 28, 2020 10:35 pm
No new posts File transfer to remote system using ... kalyan.lc5 TSO/ISPF 2 Wed Jun 24, 2020 1:24 pm
No new posts SEQNUM with TRA=ETOA in OUTREC juares castro SYNCSORT 5 Sat May 30, 2020 5:40 am

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