Table of Contents

NP$XFR

Table Of Contents

  • [00012] PROC NP$XFR
  • [00048] PROC NP$SEND
  • [00049] PROC NP$UCV

Source Code

NP$XFR.txt 
  1. *DECK NP$XFR
  2. *IF DEF,XFR 
  3. USETEXT AIPDEF
  4. USETEXT NP$MODE 
  5. USETEXT NP$DB 
  6. USETEXT NP$NWL
  7. USETEXT NP$ONAM 
  8. USETEXT NP$STAT 
  9. USETEXT NP$ZHDR 
  10. USETEXT NX$ACBF 
  11. USETEXT NX$ACBX 
  12.  PROC NP$XFR ;
  13.  #
  14. *1DC  NP$XFR
  15. * 
  16. *     1. PROC NAME         AUTHOR               DATE
  17. *        NP$XFR            LIEM T NGUYEN        84/03/01
  18. * 
  19. *     2. FUNCTIONAL DESCRIPTION 
  20. *        VALIDATE THIS APPLICATION FOR FILE TRANSFER CAPABILITY.
  21. * 
  22. *     3. METHOD USED
  23. *        SENDING AN XFR WIRKLIST TO NIP AND PROCESS RETURN. 
  24. * 
  25. *     4. ENTRY CONDITIONS 
  26. *        NONE.
  27. * 
  28. *     5. EXIT CONDITIONS
  29. *        NET$AWL$XFR WILL BE SET ACCORDING TO INFORMATION RETURN
  30. *        FROM NIP.
  31. * 
  32. *     6. COMDECKS CALLED AND SYMPL TEXTS USED.
  33. *        AIPDEF    NP$CRT    NP$DB     NP$LOF 
  34. *        NP$MODE   NP$NWL    NP$ONAM   NP$STAT
  35. *        NP$ACBF   NP$ACBX
  36. * 
  37. *     7. ROUTINES CALLED
  38. *        NP$SEND - SENDS WORKLIST TO NIP
  39. * 
  40.  #
  41.    BEGIN
  42.  
  43. #                                                                     # 
  44. #     ROUTINES CALLED:                                                # 
  45. #                                                                     # 
  46.       XREF
  47.         BEGIN 
  48.         PROC NP$SEND;                   #SENDS NWL TO NIP VIA SSCALL  # 
  49.         PROC NP$UCV ; 
  50.         END #XREFS# 
  51.  
  52.       ARRAY TEMPPTR S(1) ;
  53.         BEGIN 
  54.         ITEM TEMPM B(0,56,1) ;
  55.         ITEM TEMPD B(0,57,1) ;
  56.         ITEM TEMPP B(0,58,1) ;
  57.         ITEM TEMPS B(0,59,1) ;
  58.         END 
  59.  
  60.  
  61. # 
  62.       FORMAT NETON NWL ENTRY
  63. # 
  64.       N$XFRAWL[0] = 1 ;                 # XFR WORKLIST OUTSTANDING     #
  65.       NWL[NEXT]=0;           #CLEAR AND BUILD OP WORD                 # 
  66.       NWL$OP[NEXT]= OP$XFR ;
  67.       NWL$ID[NEXT] = AWLID;  #UNPROCESSED WORKLIST ID = AWLID (=11)   # 
  68.       BS = XFRBSIZE ; 
  69.  
  70.       NP$UCV ;
  71.  
  72. # 
  73.       SEND NETON XFR TO NIP 
  74. # 
  75.       TEMPM = SENDGETMM ; 
  76.       TEMPS = SENDGETSM ;    # NO NEED TO PICK UP SUP MSGS             #
  77.       TEMPD = DEFER$PRO ; 
  78.       TEMPP = PARALLEL ;
  79.       DEFER$PRO = FALSE ; 
  80.       PARALLEL = FALSE ;
  81.       SENDGETMM = FALSE ; 
  82.       SENDGETSM = FALSE ; 
  83.       XFRWLIST = TRUE ; 
  84.       NP$SEND;
  85.       SENDGETMM = TEMPM ; 
  86.       SENDGETSM = TEMPS ; 
  87.       DEFER$PRO = TEMPD ; 
  88.       PARALLEL = TEMPP ;
  89.       XFRWLIST = FALSE ;
  90.       RETURN; 
  91.    END
  92. TERM
  93. *ENDIF