ZOSVKSPI ;BP/RAK/JML - Post install routine ;9/1/2015
;;8.0;KERNEL;**568**;Jul 26, 2004;Build 48
;
EN ;-- entry point for post-install
;
D BMES^XPDUTL(" Begin Post-Install...")
D SAVE
D MES^XPDUTL(" Post-Install complete!")
;
Q
;
SAVE ;-save correct files as '%' routines
;
N %D,%S,SCR,ZTOS
S ZTOS=$$OSNUM^ZTMGRSET
; if not supported
I ZTOS'=3 D Q
.D MES^XPDUTL(" "_$P($T(@ZTOS^ZTMGRSET),";",3)_" is not supported. No routine saved!")
; supported
; - don't need to send/recompile all
; S %D="%ZOSVKSE^%ZOSVKSS^%ZOSVKSD^%ZOSVKR",%S="ZOSVKSOE^ZOSVKSOS^ZOSVKSD^ZOSVKRO",SCR="I 1"
S %D="%ZOSVKSE^%ZOSVKSD^%ZOSVKR",%S="ZOSVKSOE^ZOSVKSD^ZOSVKRO",SCR="I 1"
D MOVE^ZTMGRSET
D MES^XPDUTL(" for "_$P($T(@ZTOS^ZTMGRSET),";",3)_".")
;
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HZOSVKSPI 793 printed Nov 22, 2024@17:25:51 Page 2
ZOSVKSPI ;BP/RAK/JML - Post install routine ;9/1/2015
+1 ;;8.0;KERNEL;**568**;Jul 26, 2004;Build 48
+2 ;
EN ;-- entry point for post-install
+1 ;
+2 DO BMES^XPDUTL(" Begin Post-Install...")
+3 DO SAVE
+4 DO MES^XPDUTL(" Post-Install complete!")
+5 ;
+6 QUIT
+7 ;
SAVE ;-save correct files as '%' routines
+1 ;
+2 NEW %D,%S,SCR,ZTOS
+3 SET ZTOS=$$OSNUM^ZTMGRSET
+4 ; if not supported
+5 IF ZTOS'=3
Begin DoDot:1
+6 DO MES^XPDUTL(" "_$PIECE($TEXT(@ZTOS^ZTMGRSET),";",3)_" is not supported. No routine saved!")
End DoDot:1
QUIT
+7 ; supported
+8 ; - don't need to send/recompile all
+9 ; S %D="%ZOSVKSE^%ZOSVKSS^%ZOSVKSD^%ZOSVKR",%S="ZOSVKSOE^ZOSVKSOS^ZOSVKSD^ZOSVKRO",SCR="I 1"
+10 SET %D="%ZOSVKSE^%ZOSVKSD^%ZOSVKR"
SET %S="ZOSVKSOE^ZOSVKSD^ZOSVKRO"
SET SCR="I 1"
+11 DO MOVE^ZTMGRSET
+12 DO MES^XPDUTL(" for "_$PIECE($TEXT(@ZTOS^ZTMGRSET),";",3)_".")
+13 ;
+14 QUIT
+15 ;
