regina/date3.rexx

   1 /* REXX ***************************************************************
   2 * Test of date(option_out,date,option_in
   3 * Change Activity:
   4 * 07.11.2004 Walter Pachl - generated for Thomas Schneider
   5 **********************************************************************/
   6 Parse Source source
   7 Parse Version version
   8 cnt.=0
   9 oid='pachl.txt'
  10 'erase' oid
  11 Call lineout oid,'Running DATET on' date() time()
  12 Call lineout oid,'source='source 'version='version
  13 Call chk date('B','719163','B'),'719163'
  14 Call chk date('B','2','D'),'731581'
  15 Call chk date('B','02/01/70','E'),'719163'
  16 Call chk date('B','2 Jan 1970','N'),'719163'
  17 Call chk date('B','70/01/02','O'),'719163'
  18 Call chk date('B','19700102','S'),'719163'
  19 Call chk date('B','98745','T'),'719163'
  20 Call chk date('B','01/02/70','U'),'719163'
  21 Call chk date('D','719163','B'),'2'
  22 Call chk date('D','2','D'),'2'
  23 Call chk date('D','02/01/70','E'),'2'
  24 Call chk date('D','2 Jan 1970','N'),'2'
  25 Call chk date('D','70/01/02','O'),'2'
  26 Call chk date('D','19700102','S'),'2'
  27 Call chk date('D','98745','T'),'2'
  28 Call chk date('D','01/02/70','U'),'2'
  29 Call chk date('E','719163','B'),'02/01/70'
  30 Call chk date('E','2','D'),'02/01/04'
  31 Call chk date('E','02/01/70','E'),'02/01/70'
  32 Call chk date('E','2 Jan 1970','N'),'02/01/70'
  33 Call chk date('E','70/01/02','O'),'02/01/70'
  34 Call chk date('E','19700102','S'),'02/01/70'
  35 Call chk date('E','98745','T'),'02/01/70'
  36 Call chk date('E','01/02/70','U'),'02/01/70'
  37 Call chk date('M','719163','B'),'January'
  38 Call chk date('M','2','D'),'January'
  39 Call chk date('M','02/01/70','E'),'January'
  40 Call chk date('M','2 Jan 1970','N'),'January'
  41 Call chk date('M','70/01/02','O'),'January'
  42 Call chk date('M','19700102','S'),'January'
  43 Call chk date('M','98745','T'),'January'
  44 Call chk date('M','01/02/70','U'),'January'
  45 Call chk date('N','719163','B'),'2 Jan 1970'
  46 Call chk date('N','2','D'),'2 Jan 2004'
  47 Call chk date('N','02/01/70','E'),'2 Jan 1970'
  48 Call chk date('N','2 Jan 1970','N'),'2 Jan 1970'
  49 Call chk date('N','70/01/02','O'),'2 Jan 1970'
  50 Call chk date('N','19700102','S'),'2 Jan 1970'
  51 Call chk date('N','98745','T'),'2 Jan 1970'
  52 Call chk date('N','01/02/70','U'),'2 Jan 1970'
  53 Call chk date('O','719163','B'),'70/01/02'
  54 Call chk date('O','2','D'),'04/01/02'
  55 Call chk date('O','02/01/70','E'),'70/01/02'
  56 Call chk date('O','2 Jan 1970','N'),'70/01/02'
  57 Call chk date('O','70/01/02','O'),'70/01/02'
  58 Call chk date('O','19700102','S'),'70/01/02'
  59 Call chk date('O','98745','T'),'70/01/02'
  60 Call chk date('O','01/02/70','U'),'70/01/02'
  61 Call chk date('S','719163','B'),'19700102'
  62 Call chk date('S','2','D'),'20040102'
  63 Call chk date('S','02/01/70','E'),'19700102'
  64 Call chk date('S','2 Jan 1970','N'),'19700102'
  65 Call chk date('S','70/01/02','O'),'19700102'
  66 Call chk date('S','19700102','S'),'19700102'
  67 Call chk date('S','98745','T'),'19700102'
  68 Call chk date('S','01/02/70','U'),'19700102'
  69 Call chk date('T','719163','B'),'86400'
  70 Call chk date('T','2','D'),'1073001600'
  71 Call chk date('T','02/01/70','E'),'86400'
  72 Call chk date('T','2 Jan 1970','N'),'86400'
  73 Call chk date('T','70/01/02','O'),'86400'
  74 Call chk date('T','19700102','S'),'86400'
  75 Call chk date('T','98745','T'),'86400'
  76 Call chk date('T','01/02/70','U'),'86400'
  77 Call chk date('U','719163','B'),'01/02/70'
  78 Call chk date('U','2','D'),'01/02/04'
  79 Call chk date('U','02/01/70','E'),'01/02/70'
  80 Call chk date('U','2 Jan 1970','N'),'01/02/70'
  81 Call chk date('U','70/01/02','O'),'01/02/70'
  82 Call chk date('U','19700102','S'),'01/02/70'
  83 Call chk date('U','98745','T'),'01/02/70'
  84 Call chk date('U','01/02/70','U'),'01/02/70'
  85 Call chk date('W','719163','B'),'Friday'
  86 Call chk date('W','2','D'),'Friday'
  87 Call chk date('W','02/01/70','E'),'Friday'
  88 Call chk date('W','2 Jan 1970','N'),'Friday'
  89 Call chk date('W','70/01/02','O'),'Friday'
  90 Call chk date('W','19700102','S'),'Friday'
  91 Call chk date('W','98745','T'),'Friday'
  92 Call chk date('W','01/02/70','U'),'Friday'
  93 Call chk date('B','727202','B'),'727202'
  94 Call chk date('B','6','D'),'731585'
  95 Call chk date('B','06/01/92','E'),'727202'
  96 Call chk date('B','6 Jan 1992','N'),'727202'
  97 Call chk date('B','92/01/06','O'),'727202'
  98 Call chk date('B','19920106','S'),'727202'
  99 Call chk date('B','694668345','T'),'727202'
 100 Call chk date('B','01/06/92','U'),'727202'
 101 Call chk date('D','727202','B'),'6'
 102 Call chk date('D','6','D'),'6'
 103 Call chk date('D','06/01/92','E'),'6'
 104 Call chk date('D','6 Jan 1992','N'),'6'
 105 Call chk date('D','92/01/06','O'),'6'
 106 Call chk date('D','19920106','S'),'6'
 107 Call chk date('D','694668345','T'),'6'
 108 Call chk date('D','01/06/92','U'),'6'
 109 Call chk date('E','727202','B'),'06/01/92'
 110 Call chk date('E','6','D'),'06/01/04'
 111 Call chk date('E','06/01/92','E'),'06/01/92'
 112 Call chk date('E','6 Jan 1992','N'),'06/01/92'
 113 Call chk date('E','92/01/06','O'),'06/01/92'
 114 Call chk date('E','19920106','S'),'06/01/92'
 115 Call chk date('E','694668345','T'),'06/01/92'
 116 Call chk date('E','01/06/92','U'),'06/01/92'
 117 Call chk date('M','727202','B'),'January'
 118 Call chk date('M','6','D'),'January'
 119 Call chk date('M','06/01/92','E'),'January'
 120 Call chk date('M','6 Jan 1992','N'),'January'
 121 Call chk date('M','92/01/06','O'),'January'
 122 Call chk date('M','19920106','S'),'January'
 123 Call chk date('M','694668345','T'),'January'
 124 Call chk date('M','01/06/92','U'),'January'
 125 Call chk date('N','727202','B'),'6 Jan 1992'
 126 Call chk date('N','6','D'),'6 Jan 2004'
 127 Call chk date('N','06/01/92','E'),'6 Jan 1992'
 128 Call chk date('N','6 Jan 1992','N'),'6 Jan 1992'
 129 Call chk date('N','92/01/06','O'),'6 Jan 1992'
 130 Call chk date('N','19920106','S'),'6 Jan 1992'
 131 Call chk date('N','694668345','T'),'6 Jan 1992'
 132 Call chk date('N','01/06/92','U'),'6 Jan 1992'
 133 Call chk date('O','727202','B'),'92/01/06'
 134 Call chk date('O','6','D'),'04/01/06'
 135 Call chk date('O','06/01/92','E'),'92/01/06'
 136 Call chk date('O','6 Jan 1992','N'),'92/01/06'
 137 Call chk date('O','92/01/06','O'),'92/01/06'
 138 Call chk date('O','19920106','S'),'92/01/06'
 139 Call chk date('O','694668345','T'),'92/01/06'
 140 Call chk date('O','01/06/92','U'),'92/01/06'
 141 Call chk date('S','727202','B'),'19920106'
 142 Call chk date('S','6','D'),'20040106'
 143 Call chk date('S','06/01/92','E'),'19920106'
 144 Call chk date('S','6 Jan 1992','N'),'19920106'
 145 Call chk date('S','92/01/06','O'),'19920106'
 146 Call chk date('S','19920106','S'),'19920106'
 147 Call chk date('S','694668345','T'),'19920106'
 148 Call chk date('S','01/06/92','U'),'19920106'
 149 Call chk date('T','727202','B'),'694656000'
 150 Call chk date('T','6','D'),'1073347200'
 151 Call chk date('T','06/01/92','E'),'694656000'
 152 Call chk date('T','6 Jan 1992','N'),'694656000'
 153 Call chk date('T','92/01/06','O'),'694656000'
 154 Call chk date('T','19920106','S'),'694656000'
 155 Call chk date('T','694668345','T'),'694656000'
 156 Call chk date('T','01/06/92','U'),'694656000'
 157 Call chk date('U','727202','B'),'01/06/92'
 158 Call chk date('U','6','D'),'01/06/04'
 159 Call chk date('U','06/01/92','E'),'01/06/92'
 160 Call chk date('U','6 Jan 1992','N'),'01/06/92'
 161 Call chk date('U','92/01/06','O'),'01/06/92'
 162 Call chk date('U','19920106','S'),'01/06/92'
 163 Call chk date('U','694668345','T'),'01/06/92'
 164 Call chk date('U','01/06/92','U'),'01/06/92'
 165 Call chk date('W','727202','B'),'Monday'
 166 Call chk date('W','6','D'),'Tuesday'
 167 Call chk date('W','06/01/92','E'),'Monday'
 168 Call chk date('W','6 Jan 1992','N'),'Monday'
 169 Call chk date('W','92/01/06','O'),'Monday'
 170 Call chk date('W','19920106','S'),'Monday'
 171 Call chk date('W','694668345','T'),'Monday'
 172 Call chk date('W','01/06/92','U'),'Monday'
 173 Call chk date('B','730178','B'),'730178'
 174 Call chk date('B','60','D'),'731639'
 175 Call chk date('B','29/02/00','E'),'730178'
 176 Call chk date('B','29 Feb 2000','N'),'730178'
 177 Call chk date('B','00/02/29','O'),'730178'
 178 Call chk date('B','20000229','S'),'730178'
 179 Call chk date('B','951794745','T'),'730178'
 180 Call chk date('B','02/29/00','U'),'730178'
 181 Call chk date('D','730178','B'),'60'
 182 Call chk date('D','60','D'),'60'
 183 Call chk date('D','29/02/00','E'),'60'
 184 Call chk date('D','29 Feb 2000','N'),'60'
 185 Call chk date('D','00/02/29','O'),'60'
 186 Call chk date('D','20000229','S'),'60'
 187 Call chk date('D','951794745','T'),'60'
 188 Call chk date('D','02/29/00','U'),'60'
 189 Call chk date('E','730178','B'),'29/02/00'
 190 Call chk date('E','60','D'),'29/02/04'
 191 Call chk date('E','29/02/00','E'),'29/02/00'
 192 Call chk date('E','29 Feb 2000','N'),'29/02/00'
 193 Call chk date('E','00/02/29','O'),'29/02/00'
 194 Call chk date('E','20000229','S'),'29/02/00'
 195 Call chk date('E','951794745','T'),'29/02/00'
 196 Call chk date('E','02/29/00','U'),'29/02/00'
 197 Call chk date('M','730178','B'),'February'
 198 Call chk date('M','60','D'),'February'
 199 Call chk date('M','29/02/00','E'),'February'
 200 Call chk date('M','29 Feb 2000','N'),'February'
 201 Call chk date('M','00/02/29','O'),'February'
 202 Call chk date('M','20000229','S'),'February'
 203 Call chk date('M','951794745','T'),'February'
 204 Call chk date('M','02/29/00','U'),'February'
 205 Call chk date('N','730178','B'),'29 Feb 2000'
 206 Call chk date('N','60','D'),'29 Feb 2004'
 207 Call chk date('N','29/02/00','E'),'29 Feb 2000'
 208 Call chk date('N','29 Feb 2000','N'),'29 Feb 2000'
 209 Call chk date('N','00/02/29','O'),'29 Feb 2000'
 210 Call chk date('N','20000229','S'),'29 Feb 2000'
 211 Call chk date('N','951794745','T'),'29 Feb 2000'
 212 Call chk date('N','02/29/00','U'),'29 Feb 2000'
 213 Call chk date('O','730178','B'),'00/02/29'
 214 Call chk date('O','60','D'),'04/02/29'
 215 Call chk date('O','29/02/00','E'),'00/02/29'
 216 Call chk date('O','29 Feb 2000','N'),'00/02/29'
 217 Call chk date('O','00/02/29','O'),'00/02/29'
 218 Call chk date('O','20000229','S'),'00/02/29'
 219 Call chk date('O','951794745','T'),'00/02/29'
 220 Call chk date('O','02/29/00','U'),'00/02/29'
 221 Call chk date('S','730178','B'),'20000229'
 222 Call chk date('S','60','D'),'20040229'
 223 Call chk date('S','29/02/00','E'),'20000229'
 224 Call chk date('S','29 Feb 2000','N'),'20000229'
 225 Call chk date('S','00/02/29','O'),'20000229'
 226 Call chk date('S','20000229','S'),'20000229'
 227 Call chk date('S','951794745','T'),'20000229'
 228 Call chk date('S','02/29/00','U'),'20000229'
 229 Call chk date('T','730178','B'),'951782400'
 230 Call chk date('T','60','D'),'1078012800'
 231 Call chk date('T','29/02/00','E'),'951782400'
 232 Call chk date('T','29 Feb 2000','N'),'951782400'
 233 Call chk date('T','00/02/29','O'),'951782400'
 234 Call chk date('T','20000229','S'),'951782400'
 235 Call chk date('T','951794745','T'),'951782400'
 236 Call chk date('T','02/29/00','U'),'951782400'
 237 Call chk date('U','730178','B'),'02/29/00'
 238 Call chk date('U','60','D'),'02/29/04'
 239 Call chk date('U','29/02/00','E'),'02/29/00'
 240 Call chk date('U','29 Feb 2000','N'),'02/29/00'
 241 Call chk date('U','00/02/29','O'),'02/29/00'
 242 Call chk date('U','20000229','S'),'02/29/00'
 243 Call chk date('U','951794745','T'),'02/29/00'
 244 Call chk date('U','02/29/00','U'),'02/29/00'
 245 Call chk date('W','730178','B'),'Tuesday'
 246 Call chk date('W','60','D'),'Sunday'
 247 Call chk date('W','29/02/00','E'),'Tuesday'
 248 Call chk date('W','29 Feb 2000','N'),'Tuesday'
 249 Call chk date('W','00/02/29','O'),'Tuesday'
 250 Call chk date('W','20000229','S'),'Tuesday'
 251 Call chk date('W','951794745','T'),'Tuesday'
 252 Call chk date('W','02/29/00','U'),'Tuesday'
 253 Call chk date('B','731887','B'),'731887'
 254 Call chk date('B','308','D'),'731887'
 255 Call chk date('B','03/11/04','E'),'731887'
 256 Call chk date('B','3 Nov 2004','N'),'731887'
 257 Call chk date('B','04/11/03','O'),'731887'
 258 Call chk date('B','20041103','S'),'731887'
 259 Call chk date('B','1099452345','T'),'731887'
 260 Call chk date('B','11/03/04','U'),'731887'
 261 Call chk date('D','731887','B'),'308'
 262 Call chk date('D','308','D'),'308'
 263 Call chk date('D','03/11/04','E'),'308'
 264 Call chk date('D','3 Nov 2004','N'),'308'
 265 Call chk date('D','04/11/03','O'),'308'
 266 Call chk date('D','20041103','S'),'308'
 267 Call chk date('D','1099452345','T'),'308'
 268 Call chk date('D','11/03/04','U'),'308'
 269 Call chk date('E','731887','B'),'03/11/04'
 270 Call chk date('E','308','D'),'03/11/04'
 271 Call chk date('E','03/11/04','E'),'03/11/04'
 272 Call chk date('E','3 Nov 2004','N'),'03/11/04'
 273 Call chk date('E','04/11/03','O'),'03/11/04'
 274 Call chk date('E','20041103','S'),'03/11/04'
 275 Call chk date('E','1099452345','T'),'03/11/04'
 276 Call chk date('E','11/03/04','U'),'03/11/04'
 277 Call chk date('M','731887','B'),'November'
 278 Call chk date('M','308','D'),'November'
 279 Call chk date('M','03/11/04','E'),'November'
 280 Call chk date('M','3 Nov 2004','N'),'November'
 281 Call chk date('M','04/11/03','O'),'November'
 282 Call chk date('M','20041103','S'),'November'
 283 Call chk date('M','1099452345','T'),'November'
 284 Call chk date('M','11/03/04','U'),'November'
 285 Call chk date('N','731887','B'),'3 Nov 2004'
 286 Call chk date('N','308','D'),'3 Nov 2004'
 287 Call chk date('N','03/11/04','E'),'3 Nov 2004'
 288 Call chk date('N','3 Nov 2004','N'),'3 Nov 2004'
 289 Call chk date('N','04/11/03','O'),'3 Nov 2004'
 290 Call chk date('N','20041103','S'),'3 Nov 2004'
 291 Call chk date('N','1099452345','T'),'3 Nov 2004'
 292 Call chk date('N','11/03/04','U'),'3 Nov 2004'
 293 Call chk date('O','731887','B'),'04/11/03'
 294 Call chk date('O','308','D'),'04/11/03'
 295 Call chk date('O','03/11/04','E'),'04/11/03'
 296 Call chk date('O','3 Nov 2004','N'),'04/11/03'
 297 Call chk date('O','04/11/03','O'),'04/11/03'
 298 Call chk date('O','20041103','S'),'04/11/03'
 299 Call chk date('O','1099452345','T'),'04/11/03'
 300 Call chk date('O','11/03/04','U'),'04/11/03'
 301 Call chk date('S','731887','B'),'20041103'
 302 Call chk date('S','308','D'),'20041103'
 303 Call chk date('S','03/11/04','E'),'20041103'
 304 Call chk date('S','3 Nov 2004','N'),'20041103'
 305 Call chk date('S','04/11/03','O'),'20041103'
 306 Call chk date('S','20041103','S'),'20041103'
 307 Call chk date('S','1099452345','T'),'20041103'
 308 Call chk date('S','11/03/04','U'),'20041103'
 309 Call chk date('T','731887','B'),'1099440000'
 310 Call chk date('T','308','D'),'1099440000'
 311 Call chk date('T','03/11/04','E'),'1099440000'
 312 Call chk date('T','3 Nov 2004','N'),'1099440000'
 313 Call chk date('T','04/11/03','O'),'1099440000'
 314 Call chk date('T','20041103','S'),'1099440000'
 315 Call chk date('T','1099452345','T'),'1099440000'
 316 Call chk date('T','11/03/04','U'),'1099440000'
 317 Call chk date('U','731887','B'),'11/03/04'
 318 Call chk date('U','308','D'),'11/03/04'
 319 Call chk date('U','03/11/04','E'),'11/03/04'
 320 Call chk date('U','3 Nov 2004','N'),'11/03/04'
 321 Call chk date('U','04/11/03','O'),'11/03/04'
 322 Call chk date('U','20041103','S'),'11/03/04'
 323 Call chk date('U','1099452345','T'),'11/03/04'
 324 Call chk date('U','11/03/04','U'),'11/03/04'
 325 Call chk date('W','731887','B'),'Wednesday'
 326 Call chk date('W','308','D'),'Wednesday'
 327 Call chk date('W','03/11/04','E'),'Wednesday'
 328 Call chk date('W','3 Nov 2004','N'),'Wednesday'
 329 Call chk date('W','04/11/03','O'),'Wednesday'
 330 Call chk date('W','20041103','S'),'Wednesday'
 331 Call chk date('W','1099452345','T'),'Wednesday'
 332 Call chk date('W','11/03/04','U'),'Wednesday'
 333 Call chk date('B','713263','B'),'713263'
 334 Call chk date('B','311','D'),'731890'
 335 Call chk date('B','07/11/53','E'),'749788'
 336 Call chk date('B','7 Nov 1953','N'),'713263'
 337 Call chk date('B','53/11/07','O'),'749788'
 338 Call chk date('B','19531107','S'),'713263'
 339 Call chk date('B','-509661255','T'),'713264'
 340 Call chk date('B','11/07/53','U'),'749788'
 341 Call chk date('D','713263','B'),'311'
 342 Call chk date('D','311','D'),'311'
 343 Call chk date('D','07/11/53','E'),'311'
 344 Call chk date('D','7 Nov 1953','N'),'311'
 345 Call chk date('D','53/11/07','O'),'311'
 346 Call chk date('D','19531107','S'),'311'
 347 Call chk date('D','-509661255','T'),'312'
 348 Call chk date('D','11/07/53','U'),'311'
 349 Call chk date('E','713263','B'),'07/11/53'
 350 Call chk date('E','311','D'),'06/11/04'
 351 Call chk date('E','07/11/53','E'),'07/11/53'
 352 Call chk date('E','7 Nov 1953','N'),'07/11/53'
 353 Call chk date('E','53/11/07','O'),'07/11/53'
 354 Call chk date('E','19531107','S'),'07/11/53'
 355 Call chk date('E','-509661255','T'),'08/11/53'
 356 Call chk date('E','11/07/53','U'),'07/11/53'
 357 Call chk date('M','713263','B'),'November'
 358 Call chk date('M','311','D'),'November'
 359 Call chk date('M','07/11/53','E'),'November'
 360 Call chk date('M','7 Nov 1953','N'),'November'
 361 Call chk date('M','53/11/07','O'),'November'
 362 Call chk date('M','19531107','S'),'November'
 363 Call chk date('M','-509661255','T'),'November'
 364 Call chk date('M','11/07/53','U'),'November'
 365 Call chk date('N','713263','B'),'7 Nov 1953'
 366 Call chk date('N','311','D'),'6 Nov 2004'
 367 Call chk date('N','07/11/53','E'),'7 Nov 2053'
 368 Call chk date('N','7 Nov 1953','N'),'7 Nov 1953'
 369 Call chk date('N','53/11/07','O'),'7 Nov 2053'
 370 Call chk date('N','19531107','S'),'7 Nov 1953'
 371 Call chk date('N','-509661255','T'),'8 Nov 1953'
 372 Call chk date('N','11/07/53','U'),'7 Nov 2053'
 373 Call chk date('O','713263','B'),'53/11/07'
 374 Call chk date('O','311','D'),'04/11/06'
 375 Call chk date('O','07/11/53','E'),'53/11/07'
 376 Call chk date('O','7 Nov 1953','N'),'53/11/07'
 377 Call chk date('O','53/11/07','O'),'53/11/07'
 378 Call chk date('O','19531107','S'),'53/11/07'
 379 Call chk date('O','-509661255','T'),'53/11/08'
 380 Call chk date('O','11/07/53','U'),'53/11/07'
 381 Call chk date('S','713263','B'),'19531107'
 382 Call chk date('S','311','D'),'20041106'
 383 Call chk date('S','07/11/53','E'),'20531107'
 384 Call chk date('S','7 Nov 1953','N'),'19531107'
 385 Call chk date('S','53/11/07','O'),'20531107'
 386 Call chk date('S','19531107','S'),'19531107'
 387 Call chk date('S','-509661255','T'),'19531108'
 388 Call chk date('S','11/07/53','U'),'20531107'
 389 Call chk date('T','713263','B'),'-509673600'
 390 Call chk date('T','311','D'),'1099699200'
 391 Call chk date('T','07/11/53','E'),'2646086400'
 392 Call chk date('T','7 Nov 1953','N'),'-509673600'
 393 Call chk date('T','53/11/07','O'),'2646086400'
 394 Call chk date('T','19531107','S'),'-509673600'
 395 Call chk date('T','-509661255','T'),'-509587200'
 396 Call chk date('T','11/07/53','U'),'2646086400'
 397 Call chk date('U','713263','B'),'11/07/53'
 398 Call chk date('U','311','D'),'11/06/04'
 399 Call chk date('U','07/11/53','E'),'11/07/53'
 400 Call chk date('U','7 Nov 1953','N'),'11/07/53'
 401 Call chk date('U','53/11/07','O'),'11/07/53'
 402 Call chk date('U','19531107','S'),'11/07/53'
 403 Call chk date('U','-509661255','T'),'11/08/53'
 404 Call chk date('U','11/07/53','U'),'11/07/53'
 405 Call chk date('W','713263','B'),'Saturday'
 406 Call chk date('W','311','D'),'Saturday'
 407 Call chk date('W','07/11/53','E'),'Friday'
 408 Call chk date('W','7 Nov 1953','N'),'Saturday'
 409 Call chk date('W','53/11/07','O'),'Friday'
 410 Call chk date('W','19531107','S'),'Saturday'
 411 Call chk date('W','-509661255','T'),'Sunday'
 412 Call chk date('W','11/07/53','U'),'Friday'
 413 Call chk date('B','713628','B'),'713628'
 414 Call chk date('B','311','D'),'731890'
 415 Call chk date('B','07/11/54','E'),'750153'
 416 Call chk date('B','7 Nov 1954','N'),'713628'
 417 Call chk date('B','54/11/07','O'),'750153'
 418 Call chk date('B','19541107','S'),'713628'
 419 Call chk date('B','-478125255','T'),'713629'
 420 Call chk date('B','11/07/54','U'),'750153'
 421 Call chk date('D','713628','B'),'311'
 422 Call chk date('D','311','D'),'311'
 423 Call chk date('D','07/11/54','E'),'311'
 424 Call chk date('D','7 Nov 1954','N'),'311'
 425 Call chk date('D','54/11/07','O'),'311'
 426 Call chk date('D','19541107','S'),'311'
 427 Call chk date('D','-478125255','T'),'312'
 428 Call chk date('D','11/07/54','U'),'311'
 429 Call chk date('E','713628','B'),'07/11/54'
 430 Call chk date('E','311','D'),'06/11/04'
 431 Call chk date('E','07/11/54','E'),'07/11/54'
 432 Call chk date('E','7 Nov 1954','N'),'07/11/54'
 433 Call chk date('E','54/11/07','O'),'07/11/54'
 434 Call chk date('E','19541107','S'),'07/11/54'
 435 Call chk date('E','-478125255','T'),'08/11/54'
 436 Call chk date('E','11/07/54','U'),'07/11/54'
 437 Call chk date('M','713628','B'),'November'
 438 Call chk date('M','311','D'),'November'
 439 Call chk date('M','07/11/54','E'),'November'
 440 Call chk date('M','7 Nov 1954','N'),'November'
 441 Call chk date('M','54/11/07','O'),'November'
 442 Call chk date('M','19541107','S'),'November'
 443 Call chk date('M','-478125255','T'),'November'
 444 Call chk date('M','11/07/54','U'),'November'
 445 Call chk date('N','713628','B'),'7 Nov 1954'
 446 Call chk date('N','311','D'),'6 Nov 2004'
 447 Call chk date('N','07/11/54','E'),'7 Nov 2054'
 448 Call chk date('N','7 Nov 1954','N'),'7 Nov 1954'
 449 Call chk date('N','54/11/07','O'),'7 Nov 2054'
 450 Call chk date('N','19541107','S'),'7 Nov 1954'
 451 Call chk date('N','-478125255','T'),'8 Nov 1954'
 452 Call chk date('N','11/07/54','U'),'7 Nov 2054'
 453 Call chk date('O','713628','B'),'54/11/07'
 454 Call chk date('O','311','D'),'04/11/06'
 455 Call chk date('O','07/11/54','E'),'54/11/07'
 456 Call chk date('O','7 Nov 1954','N'),'54/11/07'
 457 Call chk date('O','54/11/07','O'),'54/11/07'
 458 Call chk date('O','19541107','S'),'54/11/07'
 459 Call chk date('O','-478125255','T'),'54/11/08'
 460 Call chk date('O','11/07/54','U'),'54/11/07'
 461 Call chk date('S','713628','B'),'19541107'
 462 Call chk date('S','311','D'),'20041106'
 463 Call chk date('S','07/11/54','E'),'20541107'
 464 Call chk date('S','7 Nov 1954','N'),'19541107'
 465 Call chk date('S','54/11/07','O'),'20541107'
 466 Call chk date('S','19541107','S'),'19541107'
 467 Call chk date('S','-478125255','T'),'19541108'
 468 Call chk date('S','11/07/54','U'),'20541107'
 469 Call chk date('T','713628','B'),'-478137600'
 470 Call chk date('T','311','D'),'1099699200'
 471 Call chk date('T','07/11/54','E'),'2677622400'
 472 Call chk date('T','7 Nov 1954','N'),'-478137600'
 473 Call chk date('T','54/11/07','O'),'2677622400'
 474 Call chk date('T','19541107','S'),'-478137600'
 475 Call chk date('T','-478125255','T'),'-478051200'
 476 Call chk date('T','11/07/54','U'),'2677622400'
 477 Call chk date('U','713628','B'),'11/07/54'
 478 Call chk date('U','311','D'),'11/06/04'
 479 Call chk date('U','07/11/54','E'),'11/07/54'
 480 Call chk date('U','7 Nov 1954','N'),'11/07/54'
 481 Call chk date('U','54/11/07','O'),'11/07/54'
 482 Call chk date('U','19541107','S'),'11/07/54'
 483 Call chk date('U','-478125255','T'),'11/08/54'
 484 Call chk date('U','11/07/54','U'),'11/07/54'
 485 Call chk date('W','713628','B'),'Sunday'
 486 Call chk date('W','311','D'),'Saturday'
 487 Call chk date('W','07/11/54','E'),'Saturday'
 488 Call chk date('W','7 Nov 1954','N'),'Sunday'
 489 Call chk date('W','54/11/07','O'),'Saturday'
 490 Call chk date('W','19541107','S'),'Sunday'
 491 Call chk date('W','-478125255','T'),'Monday'
 492 Call chk date('W','11/07/54','U'),'Saturday'
 493 Say cnt.0ok  'tests ok'
 494 Say cnt.0bad 'tests failed.'
 495 Call lineout oid, cnt.0ok  'tests ok'
 496 Call lineout oid, cnt.0bad 'tests failed.'
 497 Call lineout oid
 498 Exit
 499 chk:
 500 Parse Arg have,should_be
 501 If have==should_be Then
 502   cnt.0ok=cnt.0ok+1
 503 Else Do
 504   cnt.0bad=cnt.0bad+1
 505   Call lineout oid,sourceline(sigl)
 506   Call lineout oid,'    have     ='''have''''
 507   Call lineout oid,'    should be='''should_be''''
 508   End
 509 Return