zOs/REXX/MARECANE

/*REXX   ***/
/* -------------------------------------------------------------- */
/* ------- FUNKTION:                                      ------- */
/* -------------------------------------------------------------- */
  ADDRESS ISREDIT "MACRO (fun) "
  TRACE ?R
  say 'marecAnE('fun')'
  ADDRESS ISPEXEC "VGET (VCAT)     PROFILE"
  ADDRESS ISPEXEC "VGET (RZX )     PROFILE"
  ADDRESS ISPEXEC "VGET (ANAPRE  ) PROFILE"
  ADDRESS ISPEXEC "VGET (DSNPRE  ) PROFILE"
  ADDRESS ISPEXEC "VGET (REXXLIB ) PROFILE"
  ADDRESS ISPEXEC "VGET (SKELS   ) PROFILE"
  ADDRESS ISPEXEC "VGET (VLIB    ) PROFILE"
  ADDRESS ISPEXEC "VGET (MEMBNAM ) PROFILE"
  ADDRESS ISREDIT

  if fun == 'EM01' then
      call EM01
  else
      say 'maRecAne bad fun:' fun
  exit

em01:
  "X ALL"
  "DEL ALL X"

  "COPY '"skels"("MEMBNAM")' BEFORE .ZFIRST"

  "C #VCAT# "VCAT" ALL  "
  "C #RZX#  "RZX"  ALL  "

  "C #LIB#  '"LIB"'  ALL        "
  "C #VLIB# '"VLIB"' ALL        "

  "END     "
  return