0.012/01/95 KATHY HARCUM
1.0  PROGRAM NARRATIVE
     -----------------

       THIS SUBPROGRAM WILL VALIDATE AND CONVERT A GREGORIAN
       DATE TO JULIAN, OR A JULIAN DATE TO GREGORIAN;
       DEPENDENT UPON PARAMETERS PASSED.

       THE PARAMETER STRING PASSED SHOULD BE AN 01 LEVEL
       DATA ITEM CONTAINING THE FOLLOWING SUBORDINATE
       FIELDS:

           DATE-TYPE:  'G' IF GREGORIAN DATE IS GIVEN,
                           CONVERSION TO JULIAN IS DESIRED.
                       'J' IF JULIAN DATE IS GIVEN, CONVERSION
                           TO GREGORIAN IS DESIRED.

           CENTURY-CODE:  IF SPACES, PROGRAM WILL 'CALCULATE'
                          A CENTURY CODE FOR YOU BASED ON THE
                          2 DIGIT YEAR OF THE DATE PASSED:
                              YEAR < 50 : CENTURY = 20
                              YEAR >=50 : CENTURY = 19
                          IF CENTURY CODE IS PASSED, IT MUST
                          BE NUMERIC.

           GREGORIAN-DATE:  IF GREGORIAN IS GIVEN, MUST BE
                            IN 'YYMMDD' FORMAT.  IF JULIAN
                            IS GIVEN, RESULTANT CONVERTED
                            GREGORIAN DATE IS STORED HERE.

           JULIAN-DATE:  IF JULIAN IS GIVEN, MUST BE IN
                         'YYDDD' FORMAT.  IF GREGORIAN IS
                         GIVEN, RESULTANT CONVERTED JULIAN
                         DATE IS STORED HERE.

           PASS-STAT:  INITIALIZE TO SPACES BEFORE CALLING.
                       IF NO EDIT ERRORS FOUND, WILL CONTAIN
                       SPACES UPON RETURN; OTHERWISE IT WILL
                       CONTAIN AN ERROR CODE AS FOLLOWS:
                           '1' - DATE-TYPE NOT 'G' OR 'J'
                           '2' - INVALID CENTURY CODE
                           '3' - DATE GIVEN NOT NUMERIC
                           '4' - INVALID MONTH
                           '5' - INVALID DAY

           EXAMPLE:  CALL 'UTL560S' USING UTL560S-PASS-DATA.

                     COPYLIB MEMBER UTL560WS CONTAINS A
                     WORKING-STORAGE DESCRIPTION FOR THE
                     UTL560S-PASS-DATA.


2.0  SAMPLE JCL:     N/A
     ----------

3.0  JOB SETUP INSTRUCTIONS:     N/A
     ----------------------

4.0  FILES:     N/A
     -----

5.0  SPECIAL FEATURES
     ----------------
     5.1  CALLING PROGRAMS:
          -----------------
              REC030    REC031    REC320    REC340    REC860
              REC910    FIN395    REC321    APA510    REC390
              REC395    REC345


     5.2  SUBPROGRAMS CALLED:      N/A

     5.3  MESSAGE SEGMENT CODES:   N/A


6.0  PROGRAM OPTIONS:     N/A
     ----------------

7.0  PROGRAM CHANGE HISTORY:
     -----------------------

     7.1  VERSION NO:                V4.27
          CHANGE DATE:               07/09/91
          PROGRAMMER NAME:           KATHY HARCUM
          PROGRAM CHANGE REQUEST NO: 00008378
          DESCRIPTION OF CHANGE:     RELEASE VERSION

     7.2       VERSION:            V4.41
               CHANGE-DATE:        12/15/1992
               PROGRAMMER:         HARRY L. WALDRON, VWCC
               INFO-REQUEST:       10954
               SCHOOL/DEPT:        JRSCC
               DESCRIPTION:

               1)  ADDED REC860 TO THE LIST OF CALLING PROGRAMS.

     7.3       VERSION:            V6.00
               CHANGE-DATE:        11/15/1995
               PROGRAMMER:         RH.CLARK
               INFO-REQUEST:       16090
               DESCRIPTION:

               1)  ADDED REC321 TO THE LIST OF CALLING PROGRAMS.
               2)  ADDED APA510 TO THE LIST OF CALLING PROGRAMS.
               3)  ADDED REC345 TO THE LIST OF CALLING PROGRAMS.
               4)  ADDED REC390 TO THE LIST OF CALLING PROGRAMS.
               5)  ADDED REC395 TO THE LIST OF CALLING PROGRAMS.