IBM Mainframe Forum

Sno    Subject     roll-Number        Name
1       English        100            ABC
2       Maths          100            ABC
3       Science        100            ABC
4       Computer       100            ABC 
5       English        200            DEF
6       English        300            GHI
7       Maths          300            GHI
8       Science        400            JKL
9       Computer       500            MNO 
10      English        500            MNO

Sno  Subject     roll-Number   Name    Print field
1     English         100      ABC     100
2     Maths           100      ABC     ___(Space)   
3     Science         100      ABC     ___(Space)   
4     Computer        100      ABC     ___(Space)   
5     English         200      DEF     200
6     English         300      GHI     300
7     Maths           300      GHI     ___(Space)   
8     Science         400      JKL     400
9     Computer        500      MNO     500

  SORT FIELDS=COPY
   INREC IFTHEN=(WHEN=INIT,
     OVERLAY=(100:SEQNUM,5,ZD,RESTART=(24,3))),
         IFTHEN=(WHEN=(100,5,ZD,EQ,1,AND,1,3,CH,EQ,C'SNO'),
     BUILD=(1,42,47:C'PRINT FIELD')),
         IFTHEN=(WHEN=(100,5,ZD,EQ,1),
     BUILD=(1,42,47:24,3)),
         IFTHEN=(WHEN=NONE,
     BUILD=(1,42,80:X))