*DECK HPXFR 
USETEXT NIPDEF
USETEXT ACB 
USETEXT AT
USETEXT APPSTAT 
USETEXT AWLNTRY 
USETEXT DRHDR 
USETEXT PT
USETEXT NHEADER 
USETEXT NWLNTRY 
USETEXT NWLHEAD 
 
 PROC HPXFR ; 
# 
*** 
*     1.PROC NAM           AUTHOR            DATE 
*       HPXFR              LTNGUYEN           84/02/22
* 
*     2.FUNCTIONAL DESCRIPTION: 
*       PROCESS XFR WORKLIST FOR AIP. 
* 
*     3.METHOD USED:  
*       RESPOND XFR WORKLIST WITH INFORMATION FROM AT ENTRY OF
*       APPLICATION.
* 
*     4.ROUTINE USED: 
*       NONE. 
*** 
# 
      ITEM AN ; 
 
      BEGIN                        # HPXFR                             #
      P<ACB> = ACBADDR ;
      P<NWLENTRY> = WLADDR ;
      P<AWLENTRY> = LOC(ACBAWL0[0]) ; 
      ACBAWL0[0] = NWLEAIPH[0] ;
      ACBAWL1[0] = 0 ;
      AN = ACBAN[0] ; 
      AWLRC[0] = 0 ;               # CLEAR ID FIELD FOR REASON CODE    #
      AWLXFR[0] = ATXFR[AN] ; 
 
      AWLCB[0] = 1 ;
      RETURN ;
      END 
      TERM