ZOSVKSP3.m

ZOSVKSP3 ;SP/JML - VSM 3 Post install routine ;10/16/2020

 ;;8.0;KERNEL;**740**;3/1/2018;Build 6

 ;

EN ;-- entry point for post-install

 ;

 D MES^XPDUTL(" Begin Post-Install...")

 D STOPMON^KMPVCBG("VBEM",1)

 D MES^XPDUTL(" VBEM Monitor Stopped...")

 ;

 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

 S %D="%ZOSVKSD^%ZOSVKR",%S="ZOSVKSD^ZOSVKRO",SCR="I 1"

 D MOVE^ZTMGRSET

 D MES^XPDUTL("          for "_$P($T(@ZTOS^ZTMGRSET),";",3)_".")

 ;

 D STARTMON^KMPVCBG("VBEM",1)

 D MES^XPDUTL(" VBEM Monitor Restarted...")

 D MES^XPDUTL(" Post-Install complete!")

 ;

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ZOSVKSP3   720     printed  Feb 18, 2025@23:42:08                                                                                                                                                                                                     Page 2

ZOSVKSP3  ;SP/JML - VSM 3 Post install routine ;10/16/2020

 +1       ;;8.0;KERNEL;**740**;3/1/2018;Build 6

 +2       ;

EN        ;-- entry point for post-install

 +1       ;

 +2        DO MES^XPDUTL(" Begin Post-Install...")

 +3        DO STOPMON^KMPVCBG("VBEM",1)

 +4        DO MES^XPDUTL(" VBEM Monitor Stopped...")

 +5       ;

 +6        NEW %D,%S,SCR,ZTOS

 +7        SET ZTOS=$$OSNUM^ZTMGRSET

 +8       ; if not supported

 +9        IF ZTOS'=3

               Begin DoDot:1

 +10               DO MES^XPDUTL(" "_$PIECE($TEXT(@ZTOS^ZTMGRSET),";",3)_" is not supported.  No routine saved!")

               End DoDot:1

               QUIT 

 +11      ; supported

 +12       SET %D="%ZOSVKSD^%ZOSVKR"

           SET %S="ZOSVKSD^ZOSVKRO"

           SET SCR="I 1"

 +13       DO MOVE^ZTMGRSET

 +14       DO MES^XPDUTL("          for "_$PIECE($TEXT(@ZTOS^ZTMGRSET),";",3)_".")

 +15      ;

 +16       DO STARTMON^KMPVCBG("VBEM",1)

 +17       DO MES^XPDUTL(" VBEM Monitor Restarted...")

 +18       DO MES^XPDUTL(" Post-Install complete!")

 +19      ;

 +20       QUIT