Table of Contents

OPPHANG

Table Of Contents

  • [00006] PROC OPPHANG
  • [00045] PROC OMSG
  • [00046] PROC XTRACE

Source Code

OPPHANG.txt 
  1. *DECK OPPHANG 
  2. USETEXT NIPDEF
  3. USETEXT MSGIDX
  4. USETEXT PIT 
  5. USETEXT PT
  6. PROC OPPHANG;                # SET HANG PPU FLAG                       #
  7.  
  8.  STARTIMS;
  9.  #
  10. *1DC  OPPHANG 
  11. * 
  12. *     1. PROC NAME           AUTHOR              DATE 
  13. *        OPPHANG             P.C.TAM             80/02/06 
  14. * 
  15. *     2. FUNCTIONAL DESCRIPTION.
  16. *        SET PPU HANG FLAG. 
  17. * 
  18. *     3. METHOD USED. 
  19. *        SET PPU HANG FLAG IN PIT ENTRIES, PIP WILL LOOK AT THE 
  20. *        FLAG AND HANG PPU. 
  21. * 
  22. *     4. ENTRY PARAMETERS.
  23. *        FETHANG             HANG PPU FLAG
  24. * 
  25. *     5. EXIT PARAMETERS. 
  26. *        NONE.
  27. * 
  28. *     6. COMDECKS CALLED AND SYMPL TEXTS USED.
  29. *        PIT       NIPDEF    PT 
  30. *        MSGIDX 
  31. * 
  32. *     7. ROUTINES CALLED. 
  33. *        XTRACE              RECORD CALLER
  34. *        OMSG                ISSUE DAYFILE MESSAGE
  35. * 
  36. *     8. DAYFILE MESSAGES AND OTHER IMPORTANT INFORMATION 
  37. *        "SCP PROBLEM - TAKE DEADSTART DUMP"
  38.  #
  39.  STOPIMS; 
  40. # 
  41.       EXTERNAL VARIABLES
  42. # 
  43.       XREF
  44.         BEGIN 
  45.         PROC OMSG ; 
  46.         PROC XTRACE;         # RECORD CALLER                           #
  47.         END 
  48. # 
  49.       INTERNAL VARIABLES
  50. # 
  51.       ITEM TEMP;
  52. # ******************************************************************** #
  53.       BEGIN 
  54.       CONTROL IFEQ DEBUG,1; 
  55.         XTRACE("OPPHA") ; 
  56.       CONTROL FI; 
  57.       FOR TEMP = 1 STEP 1 UNTIL MAXPIP
  58.       DO                     # GO THRU PITHPF WORD OF ALL PIT ENTRIES  #
  59.         PITHPF[TEMP] = TRUE; # SET HANG BIT                            #
  60.       OMSG(DFMSG23,0) ; 
  61.       END 
  62. TERM