View previous topic :: View next topic
|
Author |
Message |
Mukesh Pandey
Active User
Joined: 11 Nov 2008 Posts: 143 Location: India
|
|
|
|
Hello All,
I have the below requirement. Please let me know how can be done through sort
Input file :
Code: |
JH A01
JL A X
JL B Z
JL M R
JH B01
JL K D
JL L T
JL N L
|
Output file :
Code: |
JL A X A01
JL B Z A01
JL M R A01
JL K D B01
JL L T B01
JL N L B01 |
input record layout :
Code: |
JH, JL (1,2 ) ( Start pos,Length )
A,B,M,K,L,N ( 6,1) ( Start pos,Length )
X,Z,R,D,T,L ( 22,1 ) ( Start pos,Length )
A01,B01 ( 29,3 ) ( Start pos,Length )
|
That is A01,B01 ( 29,3 ) ( Start pos,Length ) from each JH record repeats for the JL records respectively.
Let me know if I can provide more information. |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10872 Location: italy
|
|
|
|
after 2 years You should have been able to do something on your own
( the form contains a few example )
but You could try with something like
Code: |
000004 //S1 EXEC PGM=SORT
000005 //SYSPRINT DD SYSOUT=*
000006 //SYSOUT DD SYSOUT=*
000007 //SORTIN DD *
000008 JH A01
000009 JL A X
000010 JL B Z
000011 JL M R
000012 JH B01
000013 JL K D
000014 JL L T
000015 JL N L
000016 //SORTOUT DD SYSOUT=*,
000017 // DCB=(RECFM=FB,LRECL=80)
000018 //SYSIN DD *
000019 SORT FIELDS=COPY
000020 INREC IFTHEN=(WHEN=GROUP,BEGIN=(01,02,CH,EQ,C'JH'),PUSH=(21:21,5))
000021 OUTFIL OMIT=(01,02,CH,EQ,C'JH')
000022 //*
|
modify to use Your own positions and lengths |
|
Back to top |
|
|
Mukesh Pandey
Active User
Joined: 11 Nov 2008 Posts: 143 Location: India
|
|
|
|
Thanks Enrico |
|
Back to top |
|
|
|
|