Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

I need to insert 2 zeros in the middle of a each record in t

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

New User


Joined: 08 Jun 2007
Posts: 8
Location: Bangalore/India

PostPosted: Fri Mar 13, 2009 10:14 am    Post subject: I need to insert 2 zeros in the middle of a each record in t
Reply with quote

Hi

I need to insert 2 zeros in the middle of a each record in two places of a file

lrecl of i/p file is 80

lrecl of o/p file wil become 84

please help me in writing the sort card
Back to top
View user's profile Send private message

gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1703
Location: Australia

PostPosted: Fri Mar 13, 2009 10:27 am    Post subject:
Reply with quote

Hi,

where exactly are the 2 sets of zeroes to be inserted ?

More information please.


Gerry
Back to top
View user's profile Send private message
jeevanpower

New User


Joined: 08 Jun 2007
Posts: 8
Location: Bangalore/India

PostPosted: Fri Mar 13, 2009 10:47 am    Post subject:
Reply with quote

hi
i need to insert at

at 119TH posistion and at 175,

i/p LRECL = 441

o/p shul come as LRECL = 445
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1703
Location: Australia

PostPosted: Fri Mar 13, 2009 1:59 pm    Post subject:
Reply with quote

Hi,

what happened to the input file with LRECL of 80 ?


Try this with the input file with LRECL of 441, I've assumed it's FB

Code:
//S1       EXEC PGM=SORT                                     
//SYSOUT   DD SYSOUT=*                                       
//SORTIN   DD DSN=INPUT-FILE    lrecl 441   fb               
//SORTOUT  DD DSN=OUTPUT-FILE   lrecl 445   fb               
//SYSIN    DD *                                             
  OPTION COPY                                               
  OUTREC BUILD=(1,118,C'00',119,56,C'00',175,267)           
/*                                                           



Gerry
Back to top
View user's profile Send private message
Arun Prasad R

New User


Joined: 13 Feb 2008
Posts: 7
Location: India

PostPosted: Thu Mar 26, 2009 11:21 am    Post subject: OUTREC - Inserting Blanks to records
Reply with quote

Team,
How do I insert Blank characters to the records using OUTREC.
Suppose I have an FB Input file of LRECL 16 and I want it to make it to 80.
i.e, from positin 17 to 80 I want just C ' ' to be inserted.
Let me know the OUTREC syntax.

Regards
Arun R
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1703
Location: Australia

PostPosted: Thu Mar 26, 2009 2:15 pm    Post subject:
Reply with quote

This last question has already been answered in another thread.
http://ibmmainframes.com/viewtopic.php?t=39207&sid=cfb62deb8e2f869ce63591501e8f2f30


Gerry
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 Record Not found in AlX but record re... mukun264 COBOL Programming 7 Fri Mar 24, 2017 9:28 am
No new posts Count the length of the record & ... sreekusr DFSORT/ICETOOL 4 Thu Mar 23, 2017 7:52 pm
No new posts IMS DB-How to update a record (a sing... Nic Clouston IMS DB/DC 9 Thu Mar 09, 2017 4:38 pm
No new posts To Merge mutliple records into a sing... anandgbe DFSORT/ICETOOL 6 Wed Feb 22, 2017 8:49 am
No new posts How to update a portion of text in a ... Bill Woodger DFSORT/ICETOOL 25 Wed Nov 09, 2016 9:41 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us