Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: DG53299P

DG53299P.m

Go to the documentation of this file.

DG53299P ;ALB/DW - Environment check routine for patch DG299 ; 8/11/00

 ;;5.3;Registration;**299,1015**;Aug 13, 1993;Build 21

 I $G(DUZ(0))'="@" D

 . W $C(7),!,"DUZ(0) must equal ""@"" to insure the data dictionary changes",!,"contained in this patch to be installed correctly."

 . S XPDQUIT=2

DG53299P  ;ALB/DW - Environment check routine for patch DG299 ; 8/11/00

 +1       ;;5.3;Registration;**299,1015**;Aug 13, 1993;Build 21

 +2       ;

 +3        IF $GET(DUZ(0))'="@"

               Begin DoDot:1

 +4                WRITE $CHAR(7),!,"DUZ(0) must equal ""@"" to insure the data dictionary changes",!,"contained in this patch to be installed correctly."

 +5                SET XPDQUIT=2

               End DoDot:1

 +6        QUIT