zOs/REXX/RYXEM01

/*REXX   ***/
/* -------------------------------------------------------------- */
/* ------- FUNKTION:                                      ------- */
/* -------------------------------------------------------------- */
  ADDRESS ISREDIT "MACRO "

  ADDRESS ISPEXEC "VGET (VCAT)     PROFILE"
  ADDRESS ISPEXEC "VGET (RZX )     PROFILE"
  ADDRESS ISPEXEC "VGET (LIB     ) PROFILE"
  ADDRESS ISPEXEC "VGET (VLIB    ) PROFILE"
  ADDRESS ISPEXEC "VGET (MEMBNAM ) PROFILE"

  ADDRESS ISREDIT
  "X ALL"
  "DEL ALL X"

  "COPY 'DSN.MAREC.CNTL("MEMBNAM")' BEFORE .ZFIRST"

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

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

  "END     "