XU8P800 ;ISF/RWF - Post-INIT for XU*8*800. ;04/23/2024
;;8.0;KERNEL;**800**;Apr 23, 2024;Build 9
Q
POST ;Post-INIT
X ^%ZOSF("EON")
W ! D RELOAD^ZTMGRSET W !
X ^%ZOSF("EOFF")
Q
BACKOUT ;
W !!,"BACKOUT: XU*8.0*800- PROGRAMMER MODE ACCESS ..."
S FROM="ZOSVONT",TO="%ZOSV"
X "ZL @FROM ZS @TO"
W !!,"ZOSVONT Loaded, Saved as %ZOSV: BACKOUT COMPLETE"
W !!,"ALL DONE"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXU8P800 391 printed Sep 23, 2025@19:44:57 Page 2
XU8P800 ;ISF/RWF - Post-INIT for XU*8*800. ;04/23/2024
+1 ;;8.0;KERNEL;**800**;Apr 23, 2024;Build 9
+2 QUIT
POST ;Post-INIT
+1 XECUTE ^%ZOSF("EON")
+2 WRITE !
DO RELOAD^ZTMGRSET
WRITE !
+3 XECUTE ^%ZOSF("EOFF")
+4 QUIT
BACKOUT ;
+1 WRITE !!,"BACKOUT: XU*8.0*800- PROGRAMMER MODE ACCESS ..."
+2 SET FROM="ZOSVONT"
SET TO="%ZOSV"
+3 XECUTE "ZL @FROM ZS @TO"
+4 WRITE !!,"ZOSVONT Loaded, Saved as %ZOSV: BACKOUT COMPLETE"
+5 WRITE !!,"ALL DONE"
+6 QUIT
