- XU8P455 ;ISF/RWF - Patch XU*8*455 Post-Init ;9/6/07 13:41
- ;;8.0;KERNEL;;Jul 10, 1995;Build 6
- Q
- ;
- POST ;Do Post-init
- X ^%ZOSF("EON")
- D RELOAD^ZTMGRSET
- X ^%ZOSF("EOFF")
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXU8P455 186 printed Feb 18, 2025@23:34:11 Page 2
- XU8P455 ;ISF/RWF - Patch XU*8*455 Post-Init ;9/6/07 13:41
- +1 ;;8.0;KERNEL;;Jul 10, 1995;Build 6
- +2 QUIT
- +3 ;
- POST ;Do Post-init
- +1 XECUTE ^%ZOSF("EON")
- +2 DO RELOAD^ZTMGRSET
- +3 XECUTE ^%ZOSF("EOFF")
- +4 QUIT