   C A L L D A T E  -  Platform: MVS routine


   A routine to convert dates. See also CONVDATE program.


   In this distribution file (CALLDATE.ZIP) there is:

CALLDATE.OBJ            executable for MVS mainframe, in obj form
CALLDATE.HIL            Hilmas source of this file
README.TXT              this help file 
LINKEDIT.JCL            job example to install CALLDATE
MAN_ENG.TXT             manual in English
MAN_ITA.TXT             manual in Italian
TESTDATE.OBJ            Demo of use of CALLDATE in assembler
TESTDATE.HIL            Source Hilmas of demo



OBJ installation:

- Create in MVS a sequential file, for example 'MYUSER.PROGRAM.OBJ'
  with RECFM=FB and LRECL=80, for example of 1 cylinder.

- SEND obj module from PC to MVS in this file in BINARY form, with your 
  3270 emulation; the most important thing is a binary transfer (therefore 
  without ASCII CRLF) in a file with record length of 80 bytes.
  Use this PC command (in a PC with IBM/PCOMM 4.1 3270 emulation installed):

     SEND CALLDATE.OBJ 'MYUSER.PROGRAM.OBJ'

- Prepare a Job to Linkedit transferred obj in a load library;
  use LINKEDIT.JCL as example: fit this JCL to your needs
  changing library names

- Submit linkedit job to create load module; output library must be a
  load library used in your compilation job.

- Recall this routine in your Cobol program as explained in manual;
  then linkedit your program with this routine, verifying that 
  this load library is included in your compilation procedure.


Program instruction:

    See the manual for examples in COBOL of the use of this routine.
Here we want explain the demo in Hilmas enclosed in distribution;
TestDate is a very simple program that display use of CALLDATE displaying
the data area returned by routine. See source TESTDATE.HIL.

    To install executable (OBJ) of this demo you must do the same things 
you have done for CALLDATE; pay attention that the linkedit library SYSLIB
(in the linkedit job) must already contains routines CALLDATE that 
must be linked together with TESTDATE.

    To run demo TESTDATE in your ISPF/TSO session write:
       TSO TESTDATE        (if library of this executable is in linklist)
or, from =3.4 menu option, enter 'M' of the load library containing
TestAsk and, left to executable, write CALL <Enter>.

    TestDate show an interactive screen similar to this:


 --- TEST OF "CALLDATE" ROUTINE. ---                                          
                                                                              
                                                                              
 INSERT DATE IN ONE OF THESE FORMATS:                                         
                                                                              
   DD/MM/YY  or  DD/MM/YYYY  or  YY/DDD                                       
   +N  or  -N    for a day relative to Today                                  
   JULIAN DAY   (a number greater then 2305448)                               
                                                                              
10/10/2000
                                                                              
                                                                              
THIS 80 BYTES RECORD IS "DATOUT":                                             
------------------------------------------------------------------------------
    Date     DN Leap Month   Week day    DF WN   Julian Y M  Easter  FromToday
------------------------------------------------------------------------------
  10/10/2000 284 B OCTOBER   1  TUESDAY   L 41  2451828 1 0 23/04 114 00018K  
------------------------------------------------------------------------------
DN: Day Number, DF: Day Flag,  WN: Week Number, Y: Year Letter, M: Month Lett.
                                                                              
***                                                                           

