home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / 3x400 / chkdte.lzh / CHKDTE.DOC < prev   
Text File  |  1987-06-01  |  919b  |  24 lines
  1.  Program: CHKDTE
  2.  Purpose: To validate a date from an RPG program.
  3.  Written By: Walt Eis-              Missouri-Nebraska Express
  4.              (816) 233-3158         P.O. Box 939
  5.              Q38-IBBS: ID0039       St. Joseph, MO   64502
  6.  
  7.  FUNCTION
  8.  --------
  9.     This program allows easy validation of a date from an RPG program.
  10.  The date to be validated must be in MMDDYY format to use the program
  11.  as written. (I wrote it this way because some of our canned software
  12.  uses dates in that format.  To change CHKDTE to validate YYMMDD dates
  13.  just change the *MDY to *YMD in the program). CHKDTE returns a '1' if
  14.  the date is invalid, a '0' if it is OK.
  15.  
  16.  I use it as follows:
  17.  
  18.      C                     CALL 'CHKDTE'
  19.      C                     PARM           DATE    60
  20.      C           *INxx     PARM           OK      1
  21.  
  22.  Where xx is some indicator, and DATE contains the date to be checked.
  23.  
  24.