IBM Mainframe Forum

01 group.
    05 st-details pic 9(8)   //student no,class
    05 st-address pic x(10)   //student address, zip-code

             01 group.
                   05 st-details pic 9(8).   
          *student no,class (comment)
                   05 st-address pic x(10).   
          *student address,zipcode(comment)

#! /usr/bin/rexx

stmt.1 = "01 group."
stmt.2 = "   05 st-details pic 9(8)   //student no,class"
stmt.3 = "   05 st-address pic x(10)   //student address, zip-code"
stmt.0 = 3

do  s = 1 to stmt.0
    temp = strip(stmt.s,"T")
    say "orig >>>"temp"<<<"
    parse var temp stmt "//" cmnt
    stmt = strip(stmt,"T")

    if  stmt = temp then ,
        say "orig >>>"stmt"<<<"
    else do
        stmt = stmt "."
        say "stmt >>>"stmt"<<<"
        cmnt = "*" cmnt
        say "cmnt >>>"cmnt"<<<"
    end
    say
    say
end