*DECK NPNPIDP USETEXT NIPDEF USETEXT DRHDR USETEXT OVERLAY USETEXT PARAMP USETEXT PARAMS USETEXT SUPMSG PRGM NPNPIDD ; # ***** * 1.PROC NAME AUTHOR DATE * NPNPIDD LIEM T NGUYEN 84/03/13 * * 2.FUNCTIONAL DESCRIPTION: * PROCESS NPI/DD OR NPI/PP SUPERVISORY MESSAGE FROM ANOTHER HOST. * * 3.METHOD: * CALL XDUMPFL TO DUMP NIP-S FIELD LENGTH. * CALL OMSG TO ISSUE DAYFILE MESSAGE. * CALL ODAYFL TO DUMP CONTENTS OF WORKLIST. * * 4.ROUTNIE CALLED: * ODAYFL DUMP CONTENTS OF WORKLIST * OMSG ISSUE DAYFILE MESSAGE * OVLCALL LOAD AND EXECUTE OVERLAYS * XDUMPFL DUMP NIP-S FIELD LENGTH * XTRACE RECORD PROCEDURE CALL * * 5.DAYFILE MESSAGES: * "A - A NETWORK PROTOCOL VIOLATION" * # XREF BEGIN PROC OMSG ; PROC OVLCALL; # LOAD AND EXECUTE OVERLAY # PROC XDUMPFL; # DUMP NIP-S FIELD LENGTH # PROC XTRACE ; LABEL RJMAIN ; END ARRAY MSGNPI S(4) ; BEGIN ITEM MSG1 C (0,0,35) = ["NIP A-A NETWORK PROTOCOL VIOLATION"] ; ITEM MSG2 U (3,48,12) =[0] ; END BEGIN CONTROL IFEQ DEBUG,1; XTRACE("NPIDP") ; CONTROL FI; XDUMPFL; # DUMP NIP-S FIELD LENGTH # OMSG(MSGNPI,0) ; PARAMS1 = PARAMP1; # ADDR OF NPI/DD/PP SUP MSG # P = PARAMS1; # TEMPLATE FOR BUFFER # PARAMS2 = BLKBS[0]; # SIZE OF BUFFER # OVLNAME = ODAYFLP; # NAME OF OVERLAY TO LOAD # OVLCALL; # LOAD AND EXECUTE OVERLAY # GOTO RJMAIN ; END TERM