View previous topic :: View next topic
|
Author |
Message |
ramsri
Active User
Joined: 18 Oct 2008 Posts: 380 Location: India
|
|
|
|
Hi,
I have an input file (LRECL=80,RECFM=FB) with data as shown below:
Code: |
----+----1----+----2----+----3
A1 NAME OF LENGTH 80
A2 ADDR OF LENGTH 80
A8 OTHR OF LENGTH 80
ZZ ENDR OF LENGTH 80
A1 DATA OF LENGTH 80
A2 DATA OF LENGTH 80
ZZ ENDR OF LENGTH 80
A1 NAME OF LENGTH 80
A2 ADDR OF LENGTH 80
A7 MISC OF LENGTH 80
ZZ ENDR OF LENGTH 80
A1 NAME OF LENGTH 80
A2 ADDR OF LENGTH 80
A8 OTHR OF LENGTH 80
ZZ ENDR OF LENGTH 80
|
The above data has groups of records (each group of records start with A1 and ends with ZZ at 1st column). There are total 4 groups. My requirement is to insert A9 record after each A8 record if a group has got A8 record type. However, all the records should remain in the same order as they do appear in I/P file.
The expected output is like this:
Code: |
----+----1----+----2----+----3
A1 NAME OF LENGTH 80
A2 ADDR OF LENGTH 80
A8 OTHR OF LENGTH 80
A9 EXTR OF LENGTH 80
ZZ ENDR OF LENGTH 80
A1 DATA OF LENGTH 80
A2 DATA OF LENGTH 80
ZZ ENDR OF LENGTH 80
A1 NAME OF LENGTH 80
A2 ADDR OF LENGTH 80
A7 MISC OF LENGTH 80
ZZ ENDR OF LENGTH 80
A1 NAME OF LENGTH 80
A2 ADDR OF LENGTH 80
A8 OTHR OF LENGTH 80
A9 EXTR OF LENGTH 80
ZZ ENDR OF LENGTH 80
|
Is this possible with DFSORT v10 for z/OS? Please help.
Thanks. |
|
Back to top |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011 Posts: 7309 Location: Inside the Matrix
|
|
|
|
Try an IFTHEN on OUTFIL and use the / (slash operator) when you get an A8. There are examples. Search for "slash operator". |
|
Back to top |
|
|
ramsri
Active User
Joined: 18 Oct 2008 Posts: 380 Location: India
|
|
|
|
Bill, yes.......got the results.....thanks for the idea !!!
Code: |
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL IFTHEN=(WHEN=(1,2,CH,EQ,C'A8'),
BUILD=(1,80,/,C'A9 EXTR OF LENGTH 80',60X))
//*
|
|
|
Back to top |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011 Posts: 7309 Location: Inside the Matrix
|
|
|
|
No problem. Thanks for posting your solution, it'll help someone else later. |
|
Back to top |
|
|
|