*DECK PTFXFR
          IDENT  PTFXFR 
          TITLE  PTFXFR - CALL NETXFR FOR MFLINK/PTFS.
          SST    CM 
          SYSCOM B1 
          ENTRY  PTFXFR 
*CALL     COMCMAC 
*CALL     COMCAPR 
*CALL     COMCPTF 
*CALL     CMACROS 
 PTFXFR   SPACE  4,15 
**        PTFXFR - CALL NETXFR FOR MFLINK/PTFS. 
* 
*         PTFXFR CALLS *NETXFR* TO DO A FILE TRANSFER.  PTFXFR
*         GENERALLY RESIDES IN A SEPARATE OVERLAY TO REDUCE MEMORY
*         REQUIREMENTS DURING THE FILE TRANSFER (NETXFR) PHASE. 
*         COMMUNICATION BETWEEN THE CALLING APPLICATION AND PTFXFR IS 
*         VIA THE COMMON BLOCK /COMCPTF/. 
* 
*         PTFXFR
* 
*         ENTRY - (XMIT) = 0, IF RECEIVING FILE TRANSFER. 
*                        = 1, IF SENDING FILE TRANSFER. 
*                 (XFRLFN) = LFN OF FILE TO BE TRANSFERED.
*                 (DDXFR) = DD TO BE USED FOR FILE TRANSFER.
*                 (TOUT) = TIMEOUT (SECONDS). 
*                 (ABL) = APPLICATION BLOCK LIMIT.
*                 (FACIL) = SELECTED FACILITIES ATTRIBUTES. 
*                 (MBSIZE) = MAXIMUM BLOCK SIZE.
*                 (ACKWXFR) = CHECKMARK WINDOW. 
* 
*         EXIT  - *NETXFR* FINISHED.
*                 (XFRA) = NETXFR REPLY CODE. 
  
  
 PTFXFR   SUBR               ENTRY/EXIT 
          SB1    1
          MESSAGE PTPM,1,RCL *FILE TRANSFER IN PROGRESS*
          SA1    PFX1        PARAMETER LIST 
          RJ     =XFTUXFR    CALL *NETXFR*
          SB1    1           RESET B1 
          SA1    XFRA 
          SX1    X1-1        CHECK STATUS = NORMAL
          NZ     X1,PTFXFRX  IF STATUS = ERROR
          MESSAGE PTTM,1,RCL *FILE TRANSFER COMPLETE* 
          EQ     PTFXFRX     EXIT 
  
 PFX1     BSS    0           *NETXFR* PARAMETER LIST
          CON    =1          ACN
          CON    XFRLFN      LOCAL FILE NAME
          CON    XMIT        GIVE/TAKE
          CON    XFRA        STATUS 
          CON    =0          WAIT UNTIL COMPLETE
          CON    DDXFR       DATA DECLARATION 
          CON    TOUT        TIMEOUT
          CON    ABL         APPLICATION BLOCK LIMIT
          CON    FACIL       FACILITIES SELECTED
          CON    MBSIZE      MAXIMUM BLOCK SIZE 
          CON    ACKWXFR     CHECKMARK ACKN WINDOW
          CON    CRESNO      CHECKMARK NUMBER 
          CON    PRESNO      PRU RESTART NUMBER 
          DATA   0           END OF LIST
  
          END 
