- 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 Feb 18, 2025@23:34:53 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