|
View previous topic :: View next topic
|
| Author |
Message |
scorp_rahul22
Currently Banned
New User
Joined: 06 Aug 2007
Posts: 42
Location: chennai
|
|
|
|
Is there any way to copy lines
| Code: |
Aaaaaaaaaaaaaaaaaaaaaaaaa
............................................bbbbbbbbbbbbbbbb
............................................cccccccccccccccccc
|
I want to copy like
| Code: |
Aaaaaaaaaaaaaaaaaaaaaaaaabbbbbbbbbbbbbbbb
Aaaaaaaaaaaaaaaaaaaaaaaaacccccccccccccccccc
|
|
|
| Back to top |
|
 |
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
You can use a DFSORT/ICETOOL job like this to do what you asked for:
| Code: |
//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD *
Aaaaaaaaaaaaaaaaaaaaaaaaa
............................................bbbbbbbbbbbbbbbb
............................................cccccccccccccccccc
/*
//OUT DD SYSOUT=*
//TOOLIN DD *
SPLICE FROM(IN) TO(OUT) ON(80,1,CH) -
WITHALL WITH(26,20) USING(CTL1)
/*
//CTL1CNTL DD *
INREC BUILD=(1,25,26:45,20,80:X)
/*
|
|
|
| Back to top |
|
|
scorp_rahul22
Currently Banned
New User
Joined: 06 Aug 2007
Posts: 42
Location: chennai
|
|
|
|
sUPPOSE I HAVE INPUT AS
(I st line) Aaaaaaaaaaaaaaaaaaaaaaaa123456789
(2nd line)............................................bbbbbbbbbbbbbbbb
(3rd line)............................................cccccccccccccccccc
in this first line size is not fixed it can be more or less but it will be in range of (1--70)
I want output as
(2nd line)Aaaaaaaaaaaaaaaaaaaaaaaa123456789bbbbbbbbbbbbbbbb
(3rd line)Aaaaaaaaaaaaaaaaaaaaaaaa123456789cccccccccccccccccc
Can you please tell hw to ;proceed on that as i m cnfused on this. |
|
| Back to top |
|
|
scorp_rahul22
Currently Banned
New User
Joined: 06 Aug 2007
Posts: 42
Location: chennai
|
|
|
|
| I AM STILL FACING ISSUES IN THAT |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
Hello,
TURN OFF your CAPS. . . .
Post what issues you are still facing. . . . |
|
| Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
Rahul,
It's not clear what you want to do.
What is the RECFM and LRECL of the input file?
What is the starting position and length of the field in the second and third lines?
| Quote: |
| in this first line size is not fixed it can be more or less but it will be in range of (1--70) |
Do you mean that the field in the first record can have different numbers of trailing blanks, so for example one record might have 'ABC' followed by 67 blanks and another record might have 'QRSTUV' followed by 64 blanks?
Are you trying to squeeze out the blanks between the 70 byte field in the first record and the fields in the second record, e.g.
| Code: |
ABCbbbbbbbbbbbbbbbb
QRSTUVbbbbbbbbbbbbbbbb
|
or are you trying to do something else? Please explain more clearly with a better example of input and output. Use code tags around your example records. |
|
| Back to top |
|
|
|
|
