ZOSVKSP2.m

ZOSVKSP2 ;BP/RAK/JML - Post install routine ;7/26/2004

 ;;8.0;KERNEL;**670**;3/1/2018;Build 45

 ;

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

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

 D MOVE^ZTMGRSET

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

 ;

 Q

 ;

PRE ; Stop RUM handler prior to installing anything.

 N DA,DIE,DR

 S DIE=8989.3,DA=1,DR="300///NO" D ^DIE

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ZOSVKSP2   752     printed  Apr 23, 2025@18:30:14                                                                                                                                                                                                     Page 2

ZOSVKSP2  ;BP/RAK/JML - Post install routine ;7/26/2004

 +1       ;;8.0;KERNEL;**670**;3/1/2018;Build 45

 +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        SET %D="%ZOSVKSD^%ZOSVKR"

           SET %S="ZOSVKSD^ZOSVKRO"

           SET SCR="I 1"

 +9        DO MOVE^ZTMGRSET

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

 +11      ;

 +12       QUIT 

 +13      ;

PRE       ; Stop RUM handler prior to installing anything.

 +1        NEW DA,DIE,DR

 +2        SET DIE=8989.3

           SET DA=1

           SET DR="300///NO"

           DO ^DIE

 +3        QUIT 

 +4       ;