*DECK INITIME 
USETEXT COMCBEG 
USETEXT COMADEF 
USETEXT COMACBF 
USETEXT COMACBX 
PROC INITIME; 
# TITLE INITIME - INITIALIZE FTTTINE . #
  
      BEGIN  # INITIME #
  
# 
**    INITIME - INITIALIZE FTTTIME. 
* 
*     INITIME MAKES AN RA+1 CALL FOR TIM (WHICH IS PROCESSED BY CPMTR)
*     SO THAT THE INITIAL TIME OF ENTRY INTO A NEW FILE TRANSFER STATE
*     CAN BE SET. 
* 
*     PROC INITIME
* 
*     ENTRY      <FTTENT> = FWA FTT ENTRY.
* 
*     EXIT       FTTTIME IN ARRAY FTT IS SET. 
* 
*     PROCESS    CALL SYSTEM SO THAT TIM IS CALLED IN ORDER TO OBTAIN 
*                  REAL CLOCK TIME. (TIM FUNCTION 4). 
*                SET FTTTIME TO REAL CLOCK TIME.
# 
  
# 
****  PROC INITIME - XREF LIST BEGIN. 
# 
  
      XREF
        BEGIN 
        PROC CALLSYS;                # MAKES RA+1 CALLS # 
        END 
  
# 
****  PROC INITIME - XREF LIST BEGIN
# 
  
                                               CONTROL EJECT; 
      CALLSYS (TIMCALL);             # GET REAL TIME CLOCK #
      FTTTIME  = TIM$CURTIM[0]; 
      END  # INITIME #
  
      TERM
