/* REXX
*/                                     /*                            */
address ISREDIT                        /*                            */
'macro'                                /*                            */
"(lastline) = LINENUM .zlast"
do i = 1 to lastline
   "(xst) = XSTATUS" i
   if xst = "X" then "XSTATUS" Right(i,6,0) "= NX"
                else "XSTATUS" Right(i,6,0) "= X"
end
exit                                   /*                            */