zOs/REXX.O08/CHGALLXX

/* rexx ****************************************************************
     wsh
***********************************************************************/
call adrIsp 'control errors return'
dsn = 'DSN.DBOF.DDL.SYN.TK'
 x = lmmBegin(dsn)
 do forever
     m = lmmNext(x)
     if m = '' then
         return
     s = "edit dataset('"dsn"("m")') macro("dbaCheMM")"
     say s
     call adrIsp s, 4
     end
exit
editIM: procedure expose m.
parse arg dsn, mac
     call adrIsp "edit dataset('"dsn"') macro("chgAllXX") parm(dbaCheMM"
     return