|
View previous topic :: View next topic
|
| Author |
Message |
bhairon singh rathore
New User
Joined: 19 Jun 2008
Posts: 91
Location: banglore
|
|
|
|
Hi All
I have below requirement
Can anybody help me in this regards
I have to copy data from input file position 5 length 15
to output file position 9 length 15 and
moves 0000 to output file position 5 length 4
and copy data from 24 position in input file unchanged
to output file
Note :- Header and trailer should be copy
as they are in input file and can be recognized
by first character 'H' or 'T'
Thanks
Bhairon |
|
| Back to top |
|
 |
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
Please post SYNCSORT questions in the JCL forum.
Topic moved. |
|
| Back to top |
|
|
Arun Raj
Moderator
Joined: 17 Oct 2006
Posts: 2481
Location: @my desk
|
|
|
|
Your requirement is not so clear. What about output position 1-4? And you said
| Quote: |
| copy data from 24 position in input file unchanged |
from 24 till which position? Your topic title says 'SORT', but you do mention only about 'COPY'. Are you trying to sort the records enclosed by 'H' and 'T' records? |
|
| Back to top |
|
|
bhairon singh rathore
New User
Joined: 19 Jun 2008
Posts: 91
Location: banglore
|
|
|
|
Hi Arun
Clarification for above question
1) Spaces in 1-4 Position
2) 24 till 400 Position remains unchanged
3) Need to copy, If possible data can be sorted too.
Regards
Bhairon |
|
| Back to top |
|
|
mfsundar
New User
Joined: 05 Apr 2009
Posts: 7
Location: India
|
|
|
|
Try this
| Code: |
SORT FIELDS=COPY
OUTREC IFTHEN=(WHEN=(1,1,CH,EQ,C'H'),BUILD=(1,400)),
IFTHEN=(WHEN=(1,1,CH,EQ,C'T'),BUILD=(1,400)),
IFTHEN=(WHEN=NONE,BUILD=(1:4X,5:C'0000',9:5,15,24:24,400)) |
|
|
| Back to top |
|
|
bhairon singh rathore
New User
Joined: 19 Jun 2008
Posts: 91
Location: banglore
|
|
|
|
| Thanks I got the Desired Output |
|
| Back to top |
|
|
bhairon singh rathore
New User
Joined: 19 Jun 2008
Posts: 91
Location: banglore
|
|
|
|
| Just need to change last IFTHEN=(WHEN=NONE,BUILD=(1:4X,5:C'0000',9:5,15,24:24,400)) to IFTHEN=(WHEN=NONE,BUILD=(1:4X,5:C'0000',9:5,15,24:24,377)) |
|
| Back to top |
|
|
mfsundar
New User
Joined: 05 Apr 2009
Posts: 7
Location: India
|
|
|
|
| You are welcome. |
|
| Back to top |
|
|
|
|
