*COMDECK  COMCPTF 
          CTEXT  COMCPTF - PTFCOM COMMON BLOCK DEFINITION.
          SPACE  4
          BASE   D
          SPACE  4,10 
**        PTFCOM - PTF APPLICATIONS SHARED DATA AREAS.
* 
*  ABN    42/,18/ LABNUM
*  ABNACKD  42/,18/ RABNUM
*  TOUT   60/ INTERVAL
*  RTIME  36/0,24/ SECS 
*  DDXFR  60/ DECLARATION 
* 
*         LABNUM - LAST ABN SENT ON A MESSAGE BLOCK.
*         RABNUM - LAST ABN RECEIVED ON A ACK OR NAK. 
*         INTERVAL - TIMEOUT INTERVAL.
*         SECS   - REALTIME OF TIMEOUT. 
*         DECLARATION - DATA DECLARATION FOR NETXFR.
  
  
          USE    /COMCPTF/
          ORGC   *
  
  
 ABL      BSS    1           APPLICATION BLOCK LIMIT
 ABN      BSSZ   1           LAST ABN SENT ON MSG BLOCK 
 ABNACKD  BSSZ   1           LAST ABN RECEIVED ON SUPERVISORY MSG 
          ERRNZ  ABNACKD-ABN-1
 ACKWXFR  BSS    1           ACKNOWLEDGE WINDOW 
 CRESNO   BSS    1           CHECKMARK RESTART NUMBER 
 DBZ      CON    0           DOWNLINE BLOCK SIZE
 FACIL    CON    0           NETXFR FACILITIES ATTRIBUTES 
 INTORG   CON    0           NON-ZERO IF JOB IS INTERACTIVE 
 NIFTYPE  CON    0           NETWORK INTERFACE TYPE (SEE *COMCAPR*) 
 NWTYPE   BSSZ   1           NETWORK TYPE (0=RHF, 1=NAM)
 TOUT     CON    TIMEOUT     TIME OUT INTERVAL IN SECONDS 
 RTIME    BSS    1           REALTIME OF TIMEOUT
 NOS      IFEQ   OS$NOS 
 S=RTIME  EQU    2*12        SHIFT COUNT OF RTIME (NOS) 
 NOS      ELSE
 S=RTIME  EQU    4*12        SHIFT COUNT OF RTIME (NOSBE) 
 NOS      ENDIF 
 DDXFR    DATA   3           DATA DECLARATION FOR NETXFR (C6) 
 HOSTYP   BSSZ   1           HOST TYPE
 MBSIZE   BSS    1           NETXFR BLOCKSIZE 
 PRESNO   BSS    1           PRU RESTART NUMBER 
 XFRA     CON    0           NETXFR STATUS WORD 
 XFRLFN   CON    0           NETXFR LOCAL FILE NAME 
 XMIT     CON    -1          TRANSMIT DIRECTION (-1=NONE) 
 OVLLWA   EQU    104B        LOCATION OF OVERLAY HHA
  
          IF     -MIC,PROGNAM,1 
 PROGNAM  MICRO  1,10,* COMCPTF- *
          SPACE  4,10 
****      COMMON ROUTINE DAYFILE MESSAGES.
  
  
 ABEM     DATA   C*"PROGNAM" FC/BRK RECEIVED RC=XXX.* 
 ACBM     DATA   C*"PROGNAM" APPLICATION CONNECTION BROKEN.*
 ACRM     DATA   C*"PROGNAM" APPLICATION CONNECTION REJECTED.*
 ATOM     DATA   C*"PROGNAM" APPLICATION CONNECTION TIMEOUT.* 
 BNAM     DATA   C*"PROGNAM" FC/NAK RETRY LIMIT.* 
 CWOF     DATA   C*"PROGNAM" CANNOT WRITE ON    XXXXXXX.* 
 CRFF     DATA   C*"PROGNAM" CANNOT READ FROM   XXXXXXX.* 
 BTLM     DATA   C*"PROGNAM" BLOCK TOO LARGE.*
 ERLG     DATA   C*"PROGNAM" ERR/LGL RECEIVED FROM SUBSYSTEM.*
 ICPM     DATA   C*"PROGNAM" INVALID PARAMETER  XX FOR  YY.*
 ICSM     DATA   C*"PROGNAM" INVALID COMMAND  XX.*
 IPNM     DATA   C*"PROGNAM" INVALID  XXXXXXX  =YYYYYYY   .*
 IPVM     EQU    IPNM+2 
 IVMM     DATA   H*"PROGNAM" NO VALUE * 
 ISMM     DATA   C*"PROGNAM" INVALID SUPERVISORY MESSAGE.*
 NCRM     DATA   C*"PROGNAM" NO CONNECTION RECEIVED.* 
 NSEM     DATA   C*"PROGNAM" NETWORK SEQUENCE ERROR.* 
 NSHU     DATA   C*"PROGNAM" NETWORK SHUTDOWN.* 
 PEPM     DATA   C*"PROGNAM" PROTOCOL ERROR IN  XX.*
 PTPM     DATA   C*"PROGNAM" FILE TRANSFER IN PROGRESS.*
 PTTM     DATA   C*"PROGNAM" FILE TRANSFER COMPLETE.* 
 STGM     DATA   C*"PROGNAM" FILE STAGE INITIATED.* 
  
  
****
          SPACE  4,10 
****      ACCOUNT FILE MESSAGES.
  
  
 ALKA     DATA   C*ACLK, JOBNAMM, PID, LID.*
 ULSA     DATA   C*UCLS, PF, XXXXXX.XXXKUNS.* 
  
*         JOBNAMM  IS THE JOBNAME OF THE LINKED JOB.
*         PID      IS THE HOST PID OF THE LINKED MAINFRAME. 
*         LID      IS THE LID SPECIFIED WITH THE *MF=* PARAMETER. 
*         XXXXXX.XXX IS THE NUMBER OF KILO PRUS TRANSFERED. 
  
  
****
          SPACE  4,10 
**        STATE OF TRANSFER DEFINITIONS.
  
  
 AASS     DATA   0L000000    ACCEPTABLE AND SATISFACTORY
 ASRS     DATA   0L000001    ACCEPTABLE, SATISFACTORY, AND REQUIRED 
  
 RUTS     DATA   0L011000    REJECTED, UNSPECIFIC TRANSFER
 RSTS     DATA   0L011001    REJECTED, SEE TEXT 
 RNAS     DATA   0L011012    REJECTED, FILE ACCESS NOT ALLOWED
 RWTS     DATA   0L011013    REJECTED, FILE WRONG TYPE
 RUNS     DATA   0L011015    REJECTED, UNKNOWN USER NAME
 UPIS     DATA   0L011016    USERNUM/PASSWRD INCORRECT
 RAUS     DATA   0L011017    REJECTED, UNKNOWN ACCOUNT
 RAIS     DATA   0L011018    REJECTED, INCORRECT ACCOUNT PASSWORD 
  
 TSAC     DATA   0L022000    TERMINATED, SATISFACTORY AND COMPLETE
 TSTS     DATA   0L022001    TERMINATED, SEE TEXT 
  
 SAIS     DATA   0L033000    SATISFACTORY AND INCOMPLETE, NO RETRY
 RPNS     DATA   0L033002    FILE RECEIVE ERROR, NO RETRY 
 SPNS     DATA   0L033004    FILE SEND ERROR, NO RETRY
 RPRS     DATA   0L033001    FILE RECEIVE ERROR, RETRY
 SPRS     DATA   0L033003    FILE SEND ERROR, RETRY 
  
  
 DEBUG    MICRO  1,5,*"PCOMMENT"* 
  
  
          USE    *
          USE    *
          SPACE  4
          BASE   *
          SPACE  4
          ENDX
