Retro1.org codex

User Tools

Site Tools

Trace: • HPXFR
cdc:nos2.source:nam5871:hpxfr

Table of Contents

HPXFR

Table Of Contents

  • [00013] PROC HPXFR

Source Code

HPXFR.txt 
  1. *DECK HPXFR 
  2. USETEXT NIPDEF
  3. USETEXT ACB 
  4. USETEXT AT
  5. USETEXT APPSTAT 
  6. USETEXT AWLNTRY 
  7. USETEXT DRHDR 
  8. USETEXT PT
  9. USETEXT NHEADER 
  10. USETEXT NWLNTRY 
  11. USETEXT NWLHEAD 
  12.  
  13.  PROC HPXFR ; 
  14. # 
  15. *** 
  16. *     1.PROC NAM           AUTHOR            DATE 
  17. *       HPXFR              LTNGUYEN           84/02/22
  18. * 
  19. *     2.FUNCTIONAL DESCRIPTION: 
  20. *       PROCESS XFR WORKLIST FOR AIP. 
  21. * 
  22. *     3.METHOD USED:  
  23. *       RESPOND XFR WORKLIST WITH INFORMATION FROM AT ENTRY OF
  24. *       APPLICATION.
  25. * 
  26. *     4.ROUTINE USED: 
  27. *       NONE. 
  28. *** 
  29. # 
  30.       ITEM AN ; 
  31.  
  32.       BEGIN                        # HPXFR                             #
  33.       P<ACB> = ACBADDR ;
  34.       P<NWLENTRY> = WLADDR ;
  35.       P<AWLENTRY> = LOC(ACBAWL0[0]) ; 
  36.       ACBAWL0[0] = NWLEAIPH[0] ;
  37.       ACBAWL1[0] = 0 ;
  38.       AN = ACBAN[0] ; 
  39.       AWLRC[0] = 0 ;               # CLEAR ID FIELD FOR REASON CODE    #
  40.       AWLXFR[0] = ATXFR[AN] ; 
  41.  
  42.       AWLCB[0] = 1 ;
  43.       RETURN ;
  44.       END 
  45.       TERM
cdc/nos2.source/nam5871/hpxfr.txt · Last modified: 2023/08/05 17:22 by Site Administrator