XU8P661 ;OAK/RD - Post install for patch XU*8*661
;;8.0;KERNEL;**661**;Jul 10, 1995;Build 29
;setup %ZOSF("TEST")
D ONE^ZOSFONT("TEST")
;remove incorrect node that was set in patch 365
K ^%ZOSF("GSEL;Select Globals")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXU8P661 232 printed Dec 13, 2024@02:08:27 Page 2
XU8P661 ;OAK/RD - Post install for patch XU*8*661
+1 ;;8.0;KERNEL;**661**;Jul 10, 1995;Build 29
+2 ;setup %ZOSF("TEST")
+3 DO ONE^ZOSFONT("TEST")
+4 ;remove incorrect node that was set in patch 365
+5 KILL ^%ZOSF("GSEL;Select Globals")
+6 QUIT