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
 
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 Copy 4 byte of data from the last rec... arunsoods DFSORT/ICETOOL 9 Fri Oct 06, 2017 12:15 pm
No new posts How to insert a value on specific pos... Poha Eater DFSORT/ICETOOL 9 Sun Oct 01, 2017 3:04 am
No new posts Insert a Row_number into table useit DB2 2 Tue Sep 19, 2017 1:07 pm
No new posts Updating the Trailer count in variabl... satheshbabur DFSORT/ICETOOL 6 Wed Aug 30, 2017 9:49 pm
No new posts Repeat part of record multiple times Learncoholic DFSORT/ICETOOL 4 Tue Aug 29, 2017 11:33 am

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