inc/null.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 /*          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
  30
  31 /* _UIB-PREPROCESSOR-BLOCK-END */
  32 &ANALYZE-RESUME
  33
  34
  35 /* ************************  Function Prototypes ********************** */
  36
  37 &IF DEFINED(EXCLUDE-null-dec) = 0 &THEN
  38
  39 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD null-dec Method-Library
  40 FUNCTION null-dec RETURNS DECIMAL
  41   ( INPUT d AS DECIMAL, INPUT alt AS DECIMAL )  FORWARD.
  42
  43 /* _UIB-CODE-BLOCK-END */
  44 &ANALYZE-RESUME
  45
  46 &ENDIF
  47
  48 &IF DEFINED(EXCLUDE-null-int) = 0 &THEN
  49
  50 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD null-int Method-Library
  51 FUNCTION null-int RETURNS INTEGER
  52   ( INPUT i AS INTEGER, INPUT alt AS INTEGER )  FORWARD.
  53
  54 /* _UIB-CODE-BLOCK-END */
  55 &ANALYZE-RESUME
  56
  57 &ENDIF
  58
  59 &IF DEFINED(EXCLUDE-null-log) = 0 &THEN
  60
  61 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD null-log Method-Library
  62 FUNCTION null-log RETURNS LOGICAL
  63   ( INPUT l AS LOGICAL, INPUT alt AS LOGICAL )  FORWARD.
  64
  65 /* _UIB-CODE-BLOCK-END */
  66 &ANALYZE-RESUME
  67
  68 &ENDIF
  69
  70 &IF DEFINED(EXCLUDE-null-str) = 0 &THEN
  71
  72 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD null-str Method-Library
  73 FUNCTION null-str RETURNS CHARACTER
  74   ( INPUT c AS CHARACTER, INPUT alt AS CHARACTER )  FORWARD.
  75
  76 /* _UIB-CODE-BLOCK-END */
  77 &ANALYZE-RESUME
  78
  79 &ENDIF
  80
  81
  82 /* *********************** Procedure Settings ************************ */
  83
  84 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS
  85 /* Settings for THIS-PROCEDURE
  86    Type: Method-Library
  87    Allow:
  88    Frames: 0
  89    Add Fields to: Neither
  90    Other Settings: INCLUDE-ONLY
  91  */
  92 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS
  93
  94 /* *************************  Create Window  ************************** */
  95
  96 &ANALYZE-SUSPEND _CREATE-WINDOW
  97 /* DESIGN Window definition (used by the UIB)
  98   CREATE WINDOW Method-Library ASSIGN
  99          HEIGHT             = .25
 100          WIDTH              = 39.14.
 101 /* END WINDOW DEFINITION */
 102                                                                         */
 103 &ANALYZE-RESUME
 104 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _XFTR "MethodLibraryCues" Method-Library _INLINE
 105 /* Actions: adecomm/_so-cue.w ? adecomm/_so-cued.p ? adecomm/_so-cuew.p */
 106 /* Method Library,uib,70080
 107 Destroy on next read */
 108 /* _UIB-CODE-BLOCK-END */
 109 &ANALYZE-RESUME
 110
 111
 112
 113
 114 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB Method-Library
 115 /* ************************* Included-Libraries *********************** */
 116
 117 /* _UIB-CODE-BLOCK-END */
 118 &ANALYZE-RESUME
 119
 120
 121
 122 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Method-Library
 123
 124
 125 /* ***************************  Main Block  *************************** */
 126
 127 /* _UIB-CODE-BLOCK-END */
 128 &ANALYZE-RESUME
 129
 130
 131 /* ************************  Function Implementations ***************** */
 132
 133 &IF DEFINED(EXCLUDE-null-dec) = 0 &THEN
 134
 135 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION null-dec Method-Library
 136 FUNCTION null-dec RETURNS DECIMAL
 137   ( INPUT d AS DECIMAL, INPUT alt AS DECIMAL ) :
 138 /*------------------------------------------------------------------------------
 139   Purpose:
 140     Notes:
 141 ------------------------------------------------------------------------------*/
 142
 143   IF d = ? THEN RETURN alt. ELSE RETURN d.
 144
 145 END FUNCTION.
 146
 147 /* _UIB-CODE-BLOCK-END */
 148 &ANALYZE-RESUME
 149
 150 &ENDIF
 151
 152 &IF DEFINED(EXCLUDE-null-int) = 0 &THEN
 153
 154 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION null-int Method-Library
 155 FUNCTION null-int RETURNS INTEGER
 156   ( INPUT i AS INTEGER, INPUT alt AS INTEGER ) :
 157 /*------------------------------------------------------------------------------
 158   Purpose:
 159     Notes:
 160 ------------------------------------------------------------------------------*/
 161
 162   IF i = ? THEN RETURN alt. ELSE RETURN i.
 163
 164 END FUNCTION.
 165
 166 /* _UIB-CODE-BLOCK-END */
 167 &ANALYZE-RESUME
 168
 169 &ENDIF
 170
 171 &IF DEFINED(EXCLUDE-null-log) = 0 &THEN
 172
 173 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION null-log Method-Library
 174 FUNCTION null-log RETURNS LOGICAL
 175   ( INPUT l AS LOGICAL, INPUT alt AS LOGICAL ) :
 176 /*------------------------------------------------------------------------------
 177   Purpose:
 178     Notes:
 179 ------------------------------------------------------------------------------*/
 180
 181   IF l = ? THEN RETURN alt. ELSE RETURN l.
 182
 183 END FUNCTION.
 184
 185 /* _UIB-CODE-BLOCK-END */
 186 &ANALYZE-RESUME
 187
 188 &ENDIF
 189
 190 &IF DEFINED(EXCLUDE-null-str) = 0 &THEN
 191
 192 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION null-str Method-Library
 193 FUNCTION null-str RETURNS CHARACTER
 194   ( INPUT c AS CHARACTER, INPUT alt AS CHARACTER ) :
 195 /*------------------------------------------------------------------------------
 196   Purpose:
 197     Notes:
 198 ------------------------------------------------------------------------------*/
 199
 200   IF c = ? THEN RETURN alt. ELSE RETURN c.
 201
 202 END FUNCTION.
 203
 204 /* _UIB-CODE-BLOCK-END */
 205 &ANALYZE-RESUME
 206
 207 &ENDIF
 208