inc/tabledump.i

   1 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12
   2 &ANALYZE-RESUME
   3 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Method-Library
   4 /*--------------------------------------------------------------------------
   5     Library     :
   6     Purpose     :
   7
   8     Syntax      :
   9
  10     Description :
  11
  12     Author(s)   :
  13     Created     :
  14     Notes       :
  15   ------------------------------------------------------------------------*/
  16
  17 /* ***************************  Definitions  ************************** */
  18
  19 /* _UIB-CODE-BLOCK-END */
  20 &ANALYZE-RESUME
  21
  22
  23 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK
  24
  25 /* ********************  Preprocessor Definitions  ******************** */
  26
  27
  28
  29 /* _UIB-PREPROCESSOR-BLOCK-END */
  30 &ANALYZE-RESUME
  31
  32
  33 /* ************************  Function Prototypes ********************** */
  34
  35 &IF DEFINED(EXCLUDE-convert-cha) = 0 &THEN
  36
  37 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD convert-cha Method-Library
  38 FUNCTION convert-cha RETURNS CHAR
  39   ( INPUT in-text AS CHAR )  FORWARD.
  40
  41 /* _UIB-CODE-BLOCK-END */
  42 &ANALYZE-RESUME
  43
  44 &ENDIF
  45
  46 &IF DEFINED(EXCLUDE-convert-dat) = 0 &THEN
  47
  48 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD convert-dat Method-Library
  49 FUNCTION convert-dat RETURNS CHAR
  50   ( INPUT in-date AS DATE )  FORWARD.
  51
  52 /* _UIB-CODE-BLOCK-END */
  53 &ANALYZE-RESUME
  54
  55 &ENDIF
  56
  57 &IF DEFINED(EXCLUDE-convert-dec) = 0 &THEN
  58
  59 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD convert-dec Method-Library
  60 FUNCTION convert-dec RETURNS CHAR
  61   ( INPUT in-dec AS DEC )  FORWARD.
  62
  63 /* _UIB-CODE-BLOCK-END */
  64 &ANALYZE-RESUME
  65
  66 &ENDIF
  67
  68 &IF DEFINED(EXCLUDE-convert-int) = 0 &THEN
  69
  70 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD convert-int Method-Library
  71 FUNCTION convert-int RETURNS CHAR
  72   ( INPUT in-int AS INT )  FORWARD.
  73
  74 /* _UIB-CODE-BLOCK-END */
  75 &ANALYZE-RESUME
  76
  77 &ENDIF
  78
  79 &IF DEFINED(EXCLUDE-convert-log) = 0 &THEN
  80
  81 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD convert-log Method-Library
  82 FUNCTION convert-log RETURNS CHARACTER
  83   ( INPUT in-log AS LOGICAL )  FORWARD.
  84
  85 /* _UIB-CODE-BLOCK-END */
  86 &ANALYZE-RESUME
  87
  88 &ENDIF
  89
  90 &IF DEFINED(EXCLUDE-convert-raw) = 0 &THEN
  91
  92 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD convert-raw Method-Library
  93 FUNCTION convert-raw RETURNS CHAR
  94   ( INPUT in-text AS RAW )  FORWARD.
  95
  96 /* _UIB-CODE-BLOCK-END */
  97 &ANALYZE-RESUME
  98
  99 &ENDIF
 100
 101 &IF DEFINED(EXCLUDE-convert-rec) = 0 &THEN
 102
 103 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD convert-rec Method-Library
 104 FUNCTION convert-rec RETURNS CHAR
 105   ( INPUT in-int AS RECID )  FORWARD.
 106
 107 /* _UIB-CODE-BLOCK-END */
 108 &ANALYZE-RESUME
 109
 110 &ENDIF
 111
 112 &IF DEFINED(EXCLUDE-convert-row) = 0 &THEN
 113
 114 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD convert-row Method-Library
 115 FUNCTION convert-row RETURNS CHAR
 116   ( INPUT in-int AS ROWID )  FORWARD.
 117
 118 /* _UIB-CODE-BLOCK-END */
 119 &ANALYZE-RESUME
 120
 121 &ENDIF
 122
 123
 124 /* *********************** Procedure Settings ************************ */
 125
 126 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS
 127 /* Settings for THIS-PROCEDURE
 128    Type: Method-Library
 129    Allow:
 130    Frames: 0
 131    Add Fields to: Neither
 132    Other Settings: INCLUDE-ONLY
 133  */
 134 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS
 135
 136 /* *************************  Create Window  ************************** */
 137
 138 &ANALYZE-SUSPEND _CREATE-WINDOW
 139 /* DESIGN Window definition (used by the UIB)
 140   CREATE WINDOW Method-Library ASSIGN
 141          HEIGHT             = .67
 142          WIDTH              = 38.
 143 /* END WINDOW DEFINITION */
 144                                                                         */
 145 &ANALYZE-RESUME
 146
 147
 148
 149 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB Method-Library
 150 /* ************************* Included-Libraries *********************** */
 151
 152 /* _UIB-CODE-BLOCK-END */
 153 &ANALYZE-RESUME
 154
 155
 156
 157 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Method-Library
 158
 159
 160 /* ***************************  Main Block  *************************** */
 161
 162 RUN DumpTableData.
 163
 164 /* _UIB-CODE-BLOCK-END */
 165 &ANALYZE-RESUME
 166
 167
 168 /* ************************  Function Implementations ***************** */
 169
 170 &IF DEFINED(EXCLUDE-convert-cha) = 0 &THEN
 171
 172 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION convert-cha Method-Library
 173 FUNCTION convert-cha RETURNS CHAR
 174   ( INPUT in-text AS CHAR ) :
 175 /*------------------------------------------------------------------------------
 176   Purpose:  Convert a character string to a string for SQL import
 177 ------------------------------------------------------------------------------*/
 178   IF in-text = ? THEN RETURN "NULL".
 179
 180   in-text = REPLACE( in-text, "'", "''").
 181   in-text = REPLACE( in-text, "\", "\\").
 182   RETURN "'" + in-text + "'".
 183
 184 END FUNCTION.
 185
 186 /* _UIB-CODE-BLOCK-END */
 187 &ANALYZE-RESUME
 188
 189 &ENDIF
 190
 191 &IF DEFINED(EXCLUDE-convert-dat) = 0 &THEN
 192
 193 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION convert-dat Method-Library
 194 FUNCTION convert-dat RETURNS CHAR
 195   ( INPUT in-date AS DATE ) :
 196 /*------------------------------------------------------------------------------
 197   Purpose:  Convert a date to a string generically for SQL import
 198 ------------------------------------------------------------------------------*/
 199   IF in-date = ? THEN RETURN "NULL".
 200
 201   RETURN "'" + STRING(in-date, "99-99-9999") + "'".
 202
 203 END FUNCTION.
 204
 205 /* _UIB-CODE-BLOCK-END */
 206 &ANALYZE-RESUME
 207
 208 &ENDIF
 209
 210 &IF DEFINED(EXCLUDE-convert-dec) = 0 &THEN
 211
 212 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION convert-dec Method-Library
 213 FUNCTION convert-dec RETURNS CHAR
 214   ( INPUT in-dec AS DEC ) :
 215 /*------------------------------------------------------------------------------
 216   Purpose:  Convert a decimal to a string generically for SQL import
 217 ------------------------------------------------------------------------------*/
 218   IF in-dec = ? THEN RETURN "NULL".
 219
 220   RETURN RIGHT-TRIM( RIGHT-TRIM( TRIM(STRING(in-dec, "->>>>>>>>>>>>>>>9.99999999999")), "0"), ".").
 221
 222 END FUNCTION.
 223
 224 /* _UIB-CODE-BLOCK-END */
 225 &ANALYZE-RESUME
 226
 227 &ENDIF
 228
 229 &IF DEFINED(EXCLUDE-convert-int) = 0 &THEN
 230
 231 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION convert-int Method-Library
 232 FUNCTION convert-int RETURNS CHAR
 233   ( INPUT in-int AS INT ) :
 234 /*------------------------------------------------------------------------------
 235   Purpose:  Convert an Int to a string generically for SQL import
 236 ------------------------------------------------------------------------------*/
 237   IF in-int = ? THEN RETURN "NULL".
 238
 239   RETURN TRIM(STRING(in-int, "->>>>>>>>>>9")).
 240
 241 END FUNCTION.
 242
 243 /* _UIB-CODE-BLOCK-END */
 244 &ANALYZE-RESUME
 245
 246 &ENDIF
 247
 248 &IF DEFINED(EXCLUDE-convert-log) = 0 &THEN
 249
 250 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION convert-log Method-Library
 251 FUNCTION convert-log RETURNS CHARACTER
 252   ( INPUT in-log AS LOGICAL ) :
 253 /*------------------------------------------------------------------------------
 254   Purpose:
 255     Notes:
 256 ------------------------------------------------------------------------------*/
 257   IF in-log = ? THEN RETURN "NULL".
 258
 259   RETURN STRING( in-log, "TRUE/FALSE").
 260
 261 END FUNCTION.
 262
 263 /* _UIB-CODE-BLOCK-END */
 264 &ANALYZE-RESUME
 265
 266 &ENDIF
 267
 268 &IF DEFINED(EXCLUDE-convert-raw) = 0 &THEN
 269
 270 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION convert-raw Method-Library
 271 FUNCTION convert-raw RETURNS CHAR
 272   ( INPUT in-text AS RAW ) :
 273 /*------------------------------------------------------------------------------
 274   Purpose:  Convert a character string to a string for SQL import
 275 ------------------------------------------------------------------------------*/
 276 DEF VAR out-str AS CHAR NO-UNDO.
 277
 278   IF in-text = ? THEN RETURN "NULL".
 279
 280   out-str = REPLACE( STRING(in-text), "'", "''").
 281   RETURN "'" + out-str + "'".
 282
 283 END FUNCTION.
 284
 285 /* _UIB-CODE-BLOCK-END */
 286 &ANALYZE-RESUME
 287
 288 &ENDIF
 289
 290 &IF DEFINED(EXCLUDE-convert-rec) = 0 &THEN
 291
 292 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION convert-rec Method-Library
 293 FUNCTION convert-rec RETURNS CHAR
 294   ( INPUT in-int AS RECID ) :
 295 /*------------------------------------------------------------------------------
 296   Purpose:  Convert an Int to a string generically for SQL import
 297 ------------------------------------------------------------------------------*/
 298
 299   IF in-int = ? THEN RETURN "NULL".
 300   RETURN TRIM(STRING(in-int)).
 301
 302 END FUNCTION.
 303
 304 /* _UIB-CODE-BLOCK-END */
 305 &ANALYZE-RESUME
 306
 307 &ENDIF
 308
 309 &IF DEFINED(EXCLUDE-convert-row) = 0 &THEN
 310
 311 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION convert-row Method-Library
 312 FUNCTION convert-row RETURNS CHAR
 313   ( INPUT in-int AS ROWID ) :
 314 /*------------------------------------------------------------------------------
 315   Purpose:  Convert an Int to a string generically for SQL import
 316 ------------------------------------------------------------------------------*/
 317
 318   IF in-int = ? THEN RETURN "NULL".
 319   RETURN TRIM(STRING(in-int)).
 320
 321 END FUNCTION.
 322
 323 /* _UIB-CODE-BLOCK-END */
 324 &ANALYZE-RESUME
 325
 326 &ENDIF
 327