elango_K
New User
Joined: 18 Aug 2011
Posts: 44
Location: India
|
|
|
|
Time stamp can be appended to all detail records by using GROUP funtion.
Input:
| Code: |
H00:01
D00030
D00100
D00032
D00443
D00003
D00004
D00015
D00077
D00086
D00088
TEND
|
JCL
| Code: |
//SYSIN DD *
OPTION COPY
INREC IFTHEN=(WHEN=INIT,BUILD=(1:1,80)),
IFTHEN=(WHEN=GROUP,BEGIN=(1,1,CH,EQ,C'H'),
END=(1,1,CH,EQ,C'T'),PUSH=(30:2,5))
|
output:
| Code: |
H00:01 00:01
D00030 00:01
D00100 00:01
D00032 00:01
D00443 00:01
D00003 00:01
D00004 00:01
D00015 00:01
D00077 00:01
D00086 00:01
D00088 00:01
TEND 00:01
|
Hope this helps... |
|
