process/dumpmost.p

   1 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r11
   2 &ANALYZE-RESUME
   3 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Procedure
   4 /*--------------------------------------------------------------------------
   5     File        :
   6     Purpose     :
   7
   8     Syntax      :
   9
  10     Description :
  11
  12     Author(s)   :
  13     Created     :
  14     Notes       :
  15   ------------------------------------------------------------------------*/
  16 /*          This .W file was created with the Progress UIB.             */
  17 /*----------------------------------------------------------------------*/
  18
  19 /* ***************************  Definitions  ************************** */
  20
  21 /* _UIB-CODE-BLOCK-END */
  22 &ANALYZE-RESUME
  23
  24
  25 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK
  26
  27 /* ********************  Preprocessor Definitions  ******************** */
  28
  29 &Scoped-define PROCEDURE-TYPE Procedure
  30
  31
  32
  33 /* _UIB-PREPROCESSOR-BLOCK-END */
  34 &ANALYZE-RESUME
  35
  36
  37
  38 /* *********************** Procedure Settings ************************ */
  39
  40 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS
  41 /* Settings for THIS-PROCEDURE
  42    Type: Procedure
  43    Allow:
  44    Frames: 0
  45    Add Fields to: Neither
  46    Other Settings: CODE-ONLY COMPILE
  47  */
  48 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS
  49
  50 /* *************************  Create Window  ************************** */
  51
  52 &ANALYZE-SUSPEND _CREATE-WINDOW
  53 /* DESIGN Window definition (used by the UIB)
  54   CREATE WINDOW Procedure ASSIGN
  55          HEIGHT             = .1
  56          WIDTH              = 34.86.
  57                                                                         */
  58 &ANALYZE-RESUME
  59
  60
  61
  62
  63 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Procedure
  64
  65
  66 /* ***************************  Main Block  *************************** */
  67 DEF VAR big-list AS CHAR NO-UNDO
  68         INITIAL "AcctTran,Document,Batch,AccountBalance".
  69
  70 FOR EACH _File NO-LOCK:
  71   IF INDEX( big-list, _File._File-Name ) = 0 THEN
  72     RUN prodict/dump_d.r( _File._File-Name, "/dump", ? ).
  73 END.
  74
  75 RUN prodict/dump_df.r( "ALL", "/dump/all.df", ?).
  76 RUN prodict/dump_fd.r( "ALL", "/dump/all.fd" ).
  77
  78 /* _UIB-CODE-BLOCK-END */
  79 &ANALYZE-RESUME
  80
  81