ZOSVKSPI.m

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 ---ZOSVKSPI   793     printed  Apr 09, 2024@21:12:19                                                                                                                                                                                                     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      ;