; copy a routine from the list into the volume groups uci
VA()
; execute the VA's ZTMGRSET routine in the MGR uci
MGR
; list of routines to copy into the MGR UCI of the Volume group. END marks the end of the list
MGRCHG(ZIBRPROD,ZIBRMGR)
; zsave a routine from the production uci to the MGR uci of
; the volume group
;
; input: routine name
; output: uci routine copied from^uci copied to
; usage: S X=$$MGRCHG^ZIBSETUP("routine_name")