Table of Contents

NETSETF

Table Of Contents

  • [00007] PROC NETSETF(FLUSH,FETADR)
  • [00059] PROC NP$SLOF
  • [00068] ENTRY PROC QTSETF(FLUSH,FETADR)

Source Code

NETSETF.txt 
  1. *DECK NETSETF 
  2. *IF,DEF,DEBUG 
  3. USETEXT AIPDEF
  4. USETEXT NP$DB 
  5. USETEXT NP$LOF
  6. *ENDIF
  7. PROC NETSETF(FLUSH,FETADR);             # SET ZZZZZDN FLUSH BIT        #
  8.     BEGIN 
  9. *CALL NP$CRT
  10. *IF DEF,IMS 
  11.  #
  12. *1DC  NETSETF 
  13. * 
  14. *     1. PROC NAME           AUTHOR              DATE 
  15. *        NETSETF             S.KRULEVITCH        78/11/28 
  16. * 
  17. *     2. FUNCTIONAL DESCRIPTION 
  18. *        THIS ROUTINE SETS THE FLUSH BIT IN THE ZZZZZDN FET FOR 
  19. *        FLUSHING THE CIRCULAR IO BUFFER OF THE DEBUG LOG FILE AT 
  20. *        ABNORMAL JOB STEP TERMINATION. 
  21. * 
  22. *     3. METHOD USED
  23. *        INITIALIZE ZZZZZDN, IF NOT ALREADY DONE
  24. *        FLUSH BIT SET
  25. *        IF FLUSH IS TRUE, THEN SET UP LIST OF FILES AND CALL NP$SLOF 
  26. *        IF FLUSH IS FALSE, THEN RETURN FET ADDRESS 
  27. * 
  28. *     4. ENTRY CONDITIONS 
  29. *        FLUSH - = TRUE, SET UP FILE FLUSH ON ABNORMAL TERMINATION
  30. *                = FALSE, RETURN FETADR 
  31. * 
  32. *     5. EXIT CONDITIONS
  33. *        FETADR - = 0, IF FLUSH EQ TRUE 
  34. *                 = DB$FET, IF FLUSH EQ FALSE 
  35. * 
  36. *     6. COMDECKS CALLED AND SYMPL TEXTS USED.
  37. *        AIPDEF    NP$CRT    NP$DB     NP$LOF 
  38. * 
  39. *     7. ROUTINES CALLED
  40. *        NP$SLOF - SETS LIST OF FILES FOR ABNORMAL JOB STEP TERMINATION 
  41. *                  PROCESSING 
  42. * 
  43. *     8. DAYFILE MESSAGES 
  44. *        NONE 
  45. * 
  46.  #
  47. *ENDIF
  48. # 
  49.       FORMAL PARAMETERS 
  50. # 
  51.       ITEM FLUSH        B;   # IF TRUE, SET LIST OF FILES              #
  52.       ITEM FETADR       I;   # =0 OR = DEBUG LOG FILE FET ADDRESS      #
  53. *IF DEF,DEBUG 
  54. # 
  55.       EXTERNAL ROUTINES 
  56. # 
  57.       XREF
  58.         BEGIN 
  59.         PROC NP$SLOF;        # SET LIST OF FILES                       #
  60.         END 
  61.  
  62. *ENDIF
  63. #**********************************************************************#
  64. # 
  65.       NETSETF EXECUTION BEGINS HERE 
  66. # 
  67.  
  68.       ENTRY PROC QTSETF(FLUSH,FETADR); # QTRM ENTRY PT FOR THIS PROC   #
  69.  
  70.       FETADR = 0;            # 0 VALUE RETURNED IF APP LOADED WITH     #
  71.                              # NETIO                                   #
  72. *IF DEF,DEBUG 
  73. # 
  74.         OPEN ZZZZZDN, IF NOT ALREADY DONE 
  75. # 
  76.       IF FET$LFN NQ "ZZZZZDN" 
  77.       THEN                   # INITIALIZE DEBUG LOG FILE FET           #
  78.         BEGIN 
  79.         FET$LFN = "ZZZZZDN";
  80.         FET$LN[0] = 0;       # INITIALIZE LEVEL NUMBER FIELD IN FET    #
  81.         FET$AT[0] = 0;       # INITIALIZE ABNORMAL TERM CODE FIELD     #
  82.         FET$CODE = 1;        # SET COMPLETION BIT                      #
  83.         FET$LEN = 3;         # SET FET LENGTH                          #
  84.         DB$OP = LOC(DB$BUF); # DB$OP USED AS A TEMPORARY STORE         #
  85.         FET$FIRST = DB$OP;   # INITIALIZE CIRCULAR BUFFER POINTERS     #
  86.         FET$IN = DB$OP; 
  87.         FET$OUT = DB$OP;
  88.         FET$LIMIT = DB$OP + 192;
  89.         END                  # ZZZZZDN FET INITIALIZED                 #
  90.  
  91.       FET$FB[0] = TRUE;      # SET FLUSH BIT                           #
  92.       IF FLUSH
  93.       THEN
  94.         BEGIN 
  95.         LOFN1[0] = LOC(LOFN) + 1; 
  96.         LOFFET[0] = LOC(DB$FET);
  97.         NP$SLOF(LOFN);       # SET LIST OF FILES FOR ABNORMAL JOB STEP #
  98.                              # TERMINATION PROCESSING BY SYSTEM        #
  99.         END 
  100.  
  101.       ELSE
  102.         FETADR = LOC(DB$FET); 
  103. *ENDIF
  104.       RETURN; 
  105.    END                       # NETSETF                                 #
  106. TERM