View previous topic :: View next topic
|
Author |
Message |
jeevanpower
New User
Joined: 08 Jun 2007 Posts: 7 Location: Bangalore/India
|
|
|
|
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 |
|
|
gcicchet
Senior Member
Joined: 28 Jul 2006 Posts: 1702 Location: Australia
|
|
|
|
Hi,
where exactly are the 2 sets of zeroes to be inserted ?
More information please.
Gerry |
|
Back to top |
|
|
jeevanpower
New User
Joined: 08 Jun 2007 Posts: 7 Location: Bangalore/India
|
|
|
|
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 |
|
|
gcicchet
Senior Member
Joined: 28 Jul 2006 Posts: 1702 Location: Australia
|
|
|
|
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 |
|
|
Arun Prasad R
New User
Joined: 13 Feb 2008 Posts: 7 Location: India
|
|
|
|
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 |
|
|
gcicchet
Senior Member
Joined: 28 Jul 2006 Posts: 1702 Location: Australia
|
|
Back to top |
|
|
|