rplctn/delreptg.p

   1 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12
   2 &ANALYZE-RESUME
   3 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Procedure
   4 /*--------------------------------------------------------------------------
   5     File        : delreptg.p
   6     Purpose     : Create a schema df to delete all replication triggers
   7                   from the current database
   8
   9     Syntax      : delreptg.p( <file-name> )
  10
  11     Description :
  12
  13     Author(s)   : Donald Christie
  14     Created     :
  15     Notes       :
  16   ------------------------------------------------------------------------*/
  17 /*          This .W file was created with the Progress UIB.             */
  18 /*----------------------------------------------------------------------*/
  19
  20 /* ***************************  Definitions  ************************** */
  21
  22 DEF INPUT PARAMETER file-name AS CHAR NO-UNDO.
  23
  24 /* _UIB-CODE-BLOCK-END */
  25 &ANALYZE-RESUME
  26
  27
  28 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK
  29
  30 /* ********************  Preprocessor Definitions  ******************** */
  31
  32 &Scoped-define PROCEDURE-TYPE Procedure
  33
  34
  35
  36 /* _UIB-PREPROCESSOR-BLOCK-END */
  37 &ANALYZE-RESUME
  38
  39
  40
  41 /* *********************** Procedure Settings ************************ */
  42
  43 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS
  44 /* Settings for THIS-PROCEDURE
  45    Type: Procedure
  46    Allow:
  47    Frames: 0
  48    Add Fields to: Neither
  49    Other Settings: CODE-ONLY COMPILE
  50  */
  51 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS
  52
  53 /* *************************  Create Window  ************************** */
  54
  55 &ANALYZE-SUSPEND _CREATE-WINDOW
  56 /* DESIGN Window definition (used by the UIB)
  57   CREATE WINDOW Procedure ASSIGN
  58          HEIGHT             = .3
  59          WIDTH              = 33.
  60 /* END WINDOW DEFINITION */
  61                                                                         */
  62 &ANALYZE-RESUME
  63
  64
  65
  66
  67 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Procedure
  68
  69
  70 /* ***************************  Main Block  *************************** */
  71
  72 IF file-name = ? THEN file-name = "rplctn\delreptg.df".
  73
  74 OUTPUT TO VALUE( file-name ).
  75
  76 FOR EACH _File WHERE NOT _File._File-Name BEGINS "_" NO-LOCK:
  77
  78   PUT UNFORMATTED
  79       "UPDATE TABLE """ _file._file-name """"  SKIP
  80       "    TABLE-TRIGGER ""REPLICATION-CREATE"" DELETE" SKIP
  81       "    TABLE-TRIGGER ""REPLICATION-DELETE"" DELETE" SKIP
  82       "    TABLE-TRIGGER ""REPLICATION-WRITE""  DELETE" SKIP.
  83
  84 END.
  85
  86 OUTPUT CLOSE.
  87
  88 /* _UIB-CODE-BLOCK-END */
  89 &ANALYZE-RESUME
  90
  91