*COMDECK COMFFTF
          USE    /COMFFTF/
          ORGC   *
****      DAYFILE MESSAGES. 
  
  
 IAVM     DIS    ,* MFLINK - INVALID ACCESS VALIDATION.*
 ICCM     DIS    ,* MFLINK - INVALID CONTROL STATEMENT.*
 IDDM     DIS    ,* MFLINK - INVALID DATA DECLARATION.* 
 IFTM     DIS    ,* MFLINK - INVALID FILE TYPE.*
 ILDM     DIS    ,* MFLINK - INCORRECT LID.*
 FTRM     DIS    ,* MFLINK - FILE RETRANSMIT REQUESTED.*
 ILFM     DIS    ,* MFLINK - INVALID FILE NAME.*
 IPCM     DIS    ,* MFLINK - INVALID PC PARAMETER.* 
 NLSM     DIS    ,* MFLINK - NO LID SPECIFIED.* 
 NUTM     DIS    ,* MFLINK - NO USER TEXTS FOUND.*
 PRPM     DIS    ,* MFLINK - USER REQUEST PROCESSED.* 
 PCTM     DIS    ,*       MFLINK - CONNECTING TO LID.*
 PRMM     DIS    ,*       MFLINK - RECOVERING ST LID.*
 PRSM     DIS    ,* MFLINK - USER REQUEST SENT.*
 PTCM     DIS    ,* MFLINK - TERMINATING CONNECTION.* 
 CNFM     DIS    ,* MFLINK - CONTINUATION BLOCK DID NOT FOLLOW.*
 UNIF     DIS    ,* MFLINK - UNKNOWN NETWORK INTERFACE TYPE.* 
 WRAM     DIS    ,* MFLINK - WRONG REMOTE APPLICATION LEVEL.* 
 WRBM     DIS    ,* MFLINK - TRANSFER IMPOSSIBLE TO ST LID.*
  
  
****
          SPACE  4,10 
**        EQUATES.
  
  
 DLYACR   EQU    60D         CONNECTION FAILURE DELAY (SECONDS) 
  
 NOS      IFEQ   OS$NOS 
 DLYINT   EQU    120D        MAX ROLLOUT DELAY - INTERACTIVE (2 MIN)
 DLYJOB   EQU    1200D       MAX ROLLOUT DELAY - NORMAL JOB (20 MIN)
 NOS      ENDIF 
  
 LINEL    EQU    101         INPUT LINE BUFFER LENGTH 
 SDELAYT  EQU    3           SHORT DELAY TIME (SECONDS) 
 SIDELT   EQU    5           SWAPIN DELAY TIME (SECONDS)
 LDELAYT  EQU    15          LONG DELAY TIME (SECONDS)
 NUMSRTY  EQU    1           NUMBER OF SHORT RETRIES
  
****      FTF ERROR CODES FOR MFLCALL 
  
 NENT     EQU    01          NO ERROR NO FILE TRANSFER
 EDFT     EQU    20B         ERROR DURING FILE TRANSFER 
 ENFT     EQU    21B         ERROR NO FILE TRANSFERED 
 EAFT     EQU    22B         ERROR AFTER FILE TRANSFER
 ESFT     EQU    23B         ERROR, MFLINK ABORTED BY SYSTEM
****
          SPACE  4,10 
**        DATA AREAS. 
  
  
 ACKT     DATA   60          ACK WAIT INTERVAL
  
 NOS      IFEQ   OS$NOS 
 APPL     DATA   7LPTF
 NOS      ELSE
 APPL     DATA   7LFTF
 NOS      ENDIF 
  
 DBG      IFC    EQ,*"DEBUG"*DEBUG* 
 DBG      CON    7B 
*                            BIT   0 (000001) - FIP DEBUG MESSAGES
*                                  1 (000002) - NO REPRIEVE/ACCOUNTING
 DBG      ENDIF 
  
 DD       BSSZ   1           FILE CONVERSION MODE 
  
 DDINI    BSSZ   1           INITIAL NETXFR DD
  
 .1       DECMIC TIMEOUT,/AP/TMOUTL 
 DTMO     DATA   H*".1"*
  
 EP       BSSZ   1           ERROR PROCESSING SELECTION (NOT USER)
  
 F        FILEB  100B,100B   SCRATCH FET FOR REWIND/RETURN
  
 NOSBE    IFEQ   OS$NOSBE 
 FDBADDR  FDB    ZZZZZDL,DELFILE,ID=RHF,PW=RHFPERM,SN=DEFPFS,RW=0 
 NOSBE    ENDIF 
  
 FTE      BSSZ   1           FORCE TERMINATION ERROR FLAG 
  
 HA       BSSZ   1           NETPUT HEADER
  
 HT       BSSZ   1           HOST TYPE
  
 I        BSSZ   1           INPUT FILE NAME (DEFAULT *0*)
  
 INT      BSSZ   1           INTERACTIVE DIRECTIVES FLAG (FROM DFINIT)
  
  
 JOBNAME  CON    0LJOBNAME   THIS JOB-S JOBNAME 
  
 MBL      CON    NTLMAX      MESSAGE BUFFER LENGTH
  
 NIFFTE   BSSZ   1           NETWORK INTERFACES DISABLED
  
 ST       BSSZ   1           REMOTE HOST LID
  
 SWTF     BSSZ   1           NONZERO IF MFLINK MACRO CALL 
  
 SWTW     VFD    41/0,6/0,6/0,6/0,1/0  SWT REPLY WORD  - 41/RESERVED
                                                       -  6/SUB-ERROR 
                                                       -  6/FTF ERROR 
                                                       -  6/SWT ERROR 
                                                       -  1/COMPLETE
  
 PC       DATA   1L*         PC PARAMETER (DEFAULT=*) 
  
 NBE      IFEQ   OS$NOSBE 
 PFALTER  CON    0           PERMANENT FILE ALTERED STATE 
*                            (+0) = NO ACTION NEEDED, 
*                            (-0) = FILE SHOULD BE ALTERED, 
*                            (+1) = FILE SHOULD BE EXTENDED.
  
 PFFDB    FDB    LFN         FDB FOR PERM FILE ALTERS AND EXTENDS 
  
 NBE      ENDIF 
  
 PIDHOST  BSSZ   1           HOST PID 
  
 QBIT     BSSZ   1           INPUT AND SUPERVISORY MESSAGE QUEUE BITS 
  
 RC       BSSZ   1           RETURN CODE RETURNED TO MFLCALL
  
 RECFLG   BSSZ   1           RECOVERY IN PROCESS (NOT)
  
 REQT     DATA   10          CON/REQ/R WAIT TIME
  
 REXMIT   BSSZ   1           NON-ZERO, IF RETRANSMIT REQUESTED
  
 RFILFLG  BSSZ   1           RECOVERY TEXTS EXIST ON RFILE
  
 RFI2FLG  BSSZ   1           RECOVERY TEXTS EXIST ON RFILE2 
  
 RT       BSSZ   1           REALTIME RESPONSE REQUIRED (NOT) 
  
 RTYCNT   BSSZ   1           TRANSFER RETRY COUNT 
  
 SRVAPPL  DATA   7RPTFS      SERVICER APPLICATION NAME
  
 SHAB     BSSZ   1           SUPERVISORY HEADER AREA
  
 STAT     DATA   77B         CONNECTION STATUS (NOT NETTED ON)
*                            -1 = NETTED ON AND CONNECTED 
*                            -0 = NETTED ON, CONNECTED, FC/BRK RECEIVED 
*                            +0 = NETTED ON AND NOT CONNECTED 
*                            >0 = NOT NETTED ON.
  
 TSTA     BSSZ   1           TRANSFER STATUS
  
 XFR      BSSZ   1           FILE TO TRANSFER FLAG
  
 ZZZZZDL  FILEB  100B,100B   DUMMY FET FOR DELAY FILE 
  
          USE    *
          USE    *
