*DECK XNBRLC
USETEXT NIPDEF
USETEXT FREETAB
USETEXT KDIS
USETEXT KHDRX
USETEXT PARAMS
USETEXT OVERLAY
PRGM XNBRLC; # PROCESS NAM BEFFER LEVEL CHANGE #
STARTIMS;
STOPIMS;
#
EXTERNAL REFERENCES
#
XREF
BEGIN
PROC OMSG; # DAYFILE MESSAGE #
PROC OVLCALL; # LOAD OVERLAY #
PROC KPUT; # UPDATE STATUS DISPLAY #
PROC XTRACE; # TRACE PROC CALLS #
LABEL RJMAIN;
END
#
LOCAL VARIABLES
#
ARRAY KM$MAXFL [0:0] S(3);
BEGIN
ITEM KMSG$TEXT C(00,00,28) =
["NIP MAXIMUM FL REACHED."];
ITEM KMSG$END U(02,48,12) = [0];
END
ARRAY KINREG S(3);
BEGIN
ITEM KINREGM C(0,00,25) = [" NIP IN REGULATION LEVEL "];
ITEM KINREGL U(2,30,06);
ITEM KINREGP C(2,36,01) = ["."];
ITEM KINREGE U(2,42,18) = [0];
END
ARRAY KLPCR S(4);
BEGIN
ITEM KLPCRM C(0,00,37) = [" INCREASE FL - LOW PRI CONNS IN REGL."];
ITEM KLPCRE U(3,42,18) = [0];
END
ARRAY KACR S(4);
BEGIN
ITEM KACRM C(0,00,33) = [" INCREASE FL - ALL CONNS IN REGL."];
ITEM KACRE U(3,42,18) = [0];
END
CONTROL EJECT;
BEGIN # XNBRLC #
CONTROL IFEQ DEBUG,1;
XTRACE("XNBLC"); # TRACE CALL #
CONTROL FI;
IF HRL NQ 0
THEN # NAM BUFFER LEVEL NOT AT -NO TRAFFIC- #
BEGIN # SEND REG/CP(S) TO ALL NPUS TO NOTIFY CHANGE #
PARAMS1 = 0; # INFORM ALL ACTIVE NPUS #
PARAMS2 = 0; # UNSOLICITED REG/CP TO PIP #
OVLNAME = NCREGCPP;
OVLCALL;
KINREGL[0] = HRL + O"33"; # STORE REGL LEVEL IN DAY MSG #
OMSG(KINREG,0); # ISSUE REGULATION DAYFILE MESSAGE #
IF HRL EQ HRLV2
THEN # REGULATION LEVEL 2 - LOW PRI CONS HUNG #
BEGIN
OMSG(KLPCR,0); # ISSUE DAYFILE MESSAGE #
END
ELSE # REGULATION LEVEL 1 - ALL CONS HUNG #
BEGIN
IF HRL EQ HRLV1
THEN # REGULATION LEVEL 1 - ALL CONS HUNG #
BEGIN
OMSG(KACR,0); # ISSUE DAYFILE MESSAGE #
END
END
END
ELSE # MAXIMUM FL REACHED, NO TRAFFIC ALLOWED #
BEGIN
IF KDAM[0]
THEN # K DISPLAY IN APPLICATION MODE #
BEGIN # FORCE SWITCH INTO NAM MODE #
OVLNAME = KPCLNUPP;
OVLCALL;
END
OMSG(KM$MAXFL,0); # DAYFILE MAX FL REACHED #
END
LASTHRL = HRL; # UPDATE LAST BUFFER REGULATION LEVEL TO CURRENT #
IF KDST[0]
THEN # NAM STATUS DISPLAY IS UP #
KPUT(LOC(KHDRXNM),0,KPHXRGL,HRL); # UPDATE K DISPLAY #
GOTO RJMAIN;
END # XNBRLC #
TERM