IBM Mainframe Forum

Posted: **Sat Apr 14, 2012 10:25 am**

Hi,

I have to repeat the key field in all rows as metioned below.
Please guide me on this.

INPUT DATA-- starting from 2 to 31

Select all

---+----1----+----2----+----3-
0077777777 G 345 261228
G 780 954902
G 780 959135
0088888888 G 345 261228
G 780 954902
G 780 959135

OUTPUT DATA-- starting from 2 to 31

Select all

---+----1----+----2----+----3-
0077777777 G 345 261228
0077777777 G 780 954902
0077777777 G 780 959135
0088888888 G 345 261228
0088888888 G 780 954902
0088888888 G 780 959135

Posted: **Mon Apr 16, 2012 10:50 pm**

Assuming that each "group" starts with non-blanks in 1-10, you can use a DFSORT job like the following to do what you asked for:

Select all

//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
0077777777 G 345 261228
G 780 954902
G 780 959135
0088888888 G 345 261228
G 780 954902
G 780 959135
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INREC IFTHEN=(WHEN=GROUP,BEGIN=(1,10,CH,NE,C' '),
PUSH=(1:1,10))

If the groups are defined a different way, you need to explain the exact "rules" for selecting the records of a group.

IBM Mainframe Forum

Key data to be reapeat in rows

Key data to be reapeat in rows

Re: Key data to be reapeat in rows