ZOSVKRPI.m

ZOSVKRPI ;BP/RAK - Post install routine ;8/3/10  10:49

 ;;8.0;KERNEL;**550**;;Build 23

 ;

EN ;-- entry point for post-install

 ;

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

 D SAVE

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

 ;

 Q

 ;

SAVE ;-save correct file as %ZOSVKR

 ;

 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="%ZOSVKR",%S="ZOSVKRO",SCR="I 1"

 D MOVE^ZTMGRSET

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

 ;

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ZOSVKRPI   597     printed  Apr 23, 2025@18:30:08                                                                                                                                                                                                     Page 2

ZOSVKRPI  ;BP/RAK - Post install routine ;8/3/10  10:49

 +1       ;;8.0;KERNEL;**550**;;Build 23

 +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 file as %ZOSVKR

 +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="%ZOSVKR"

           SET %S="ZOSVKRO"

           SET SCR="I 1"

 +9        DO MOVE^ZTMGRSET

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

 +11      ;

 +12       QUIT