.MACRO HDRDEF,$GBL ; ; DEFINE THE STRUCTURE OF THE MESSAGE HEADER. ; ; THIS IS STRUCTURE CAN BE USED TO FORM A RECORD THAT CAN BE READ ; FROM THE QUEUE. IE: CONCATENATE THIS STRUCTURE TO PROCEED ; THE ACTUAL DATA TO BE RETURNED ON A READ_Q. ; ; ; DATE OF LAST UPDATE: 8/11/86 ; ; INLAND STEEL ; PROCESS AUTOMATION DEPT. ; 3210 WATLING ST. MS 2-465 ; EAST CHICAGO, IN 46312 ; .SAVE_PSECT .PSECT $$HDR,ABS .=0 HDR$C_SNM: .BLKB 6 ; ASCII DECNET SOURCE NODE NAME ; (FOR MESSAGES QUEUED WITHIN A NODE ; THIS WILL BE BLANK) HDR$C_DNM: .BLKB 6 ; DESTINATION DECNET NODE NAME ; FOR MESSAGES QUEUED WITHIN A NODE, ; THIS WILL BE BLANK). HDR$Q_OFFQT: .BLKQ 1 ; OFF QUEUE TIME (FILLED IN DURING READ) HDR$W_TYPE: .BLKW 1 ; TYPE OF MESSAGE ; ; 0= MESSAGE CAN BE DELETED WHEN QUEUE IS FULL AND THIS IS OLDEST ; 1= MESSAGE IS NOT TO BE DELETED EVEN IF QUEUE IS FULL ; 2= IF REMOTE NODE QUEUE IS FULL, THEN DO NOT QUEUE ON REMOTE NODE ; HDR$Q_ONQT: .BLKQ 1 ; ON QUEUE TIME (FILLED IN WHEN MESSAGE WAS ; FIRST WRITTEN TO A QUEUE EITHER LOCALLY ; OR ON THE REMOTE QUEUE (IT IS PRESERVED ; WHEN REQUEUED ON TARGET NODE) HDR$W_LEN: .BLKW 1 ; BYTE COUNT OF MESSAGE (DOES NOT INCLUDE HEADER) HDR$W_QSEQ: .BLKW 1 ; ON QUEUE SEQUENCE NUMBER HDR$K_SIZ=. ; MINIMUM MESSAGE SIZE HDR$K_MAXSEQ=9999 ; MAXIMUM ON QUEUE SEQUENCE NUMBER .=0 .RESTORE_PSECT .ENDM