*DECK TEXTNVF
PROC TEXTNVF;
# TITLE TEXTNVF - SYMPL TEXT FOR NVF. #
BEGIN # TEXTNVF #
#
** TEXTNVF - SYMPL TEXT FOR NVF.
*
* S.H. FISHER 82/06/02
* C.J. BRION 83/10/10
*
* THIS PROC GENERATES A SYMPL TEXT FOR COMPILING NVF.
* IT CONTAINS DEFINITIONS OF SYMBOLS, PARAMETERS, COMMON BLOCKS
* ECT... USED THROUGHOUT THE PROGRAM.
*
#
CONTROL STEXT;
#
****
#
DEF SPTACSIZ$ #66#; # MAX SIZE OF SUB PTAC ENTRY #
DEF SPTACSIZ2$ #67#; # MAX SIZE OF SUB PTAC ENTRY + 1 #
DEF ACNLSIZ$ #2#; # NUMBER OF WORDS PER ACN LIST ENTRY #
$BEGIN
DEF TRAPVCB$ #50#;
$END
DEF NVFAN$ #1#; # APPLICATION NUMBER OF NVF #
DEF ALTSIZ$ #4#; # NUMBER OF WORDS PER ALT ENTRY #
DEF ASTSIZ$ #5#; # NUMBER OF WORDS PER AST ENTRY #
DEF DEFAL$ #128#; # DEFAULT AL VALUE #
DEF DEFLL$ #4#; # DEFAULT LL VALUE #
DEF PIDLLSIZ$ #2#; # NUMBER OF WORDS PER LLPID LLINK ENTRY #
DEF PTACSIZ$ #30#; # NUMBER OF WORDS PER PTAC ENTRY #
DEF PAACSIZ$ #30#; # NUMBER WORDS PER PAAC ENTRY #
DEF AATIME$ #1#; # A-A TIME REQUEST ID #
DEF TATIME$ #2#; # T-A TIME REQUEST ID #
DEF TSTIME$ #3#; # TERMINAL SESSION TIME REQUEST ID #
DEF PDCTSIZ$ #9#; # NUM OF WORDS IN CONSOLE PORTION OF PDCT #
DEF EMPTY$ #1#; # NUMBER WRDS IN EMPTY IN/OUTCALL BLK #
DEF RAUSIZ$ #2#; # NUMBER OF WORDS PER RAU ENTRY #
DEF RMLSIZ$ #1#; # NUMBER OF WORDS PER RML ENTRY #
DEF VBRECDN$ #56#; # VCB REC SIZE SAME AS VBRECD$ IN TXVCBNV #
DEF MULTI$ #1#; # MULTI HOST MODE INDICATOR #
DEF SINGL$ #2#; # SINGLE HOST MODE IND #
DEF VBESIZN$ #8#; # VCB NTRY SIZ SAME AS VBESIZ$ IN TXVCBNV #
DEF VSQSIZ$ #3#; # NUMBER OF WORDS PER VSQ ENTRY #
DEF AASECLEV$ #16#; # A-A SECURITY LEVEL #
DEF VSSQSIZ$ #4#; # NUMBER OF WORDS PER VCBSSQ ENTRY #
DEF LCFVRN$ #4#; # NUMBER OF WORDS IN LCF VERSION MSG #
DEF HOPORD$ #0#; # HOP ACN LIST ORDINAL #
DEF HOPPL$ #31#; # HOP PAGE LENGTH #
DEF HOPTPL$ #32#; # HOP TURN PAGE LENGTH #
DEF NOXPAR$ #X"3400"#; # NON-TRANSPARENT INPUT INDICATOR #
DEF NSAWBP$ #O"77"#;# NS ACCESS WORD BIT POSITION #
DEF NVFPID$ #2#; # NVF PROGRAM I.D. FOR FIELD LENGTH DUMP #
DEF RVD$ #7#; # READ VCB DATA TAG #
DEF WVD$ #1#; # WRITE VCB DATA TAG #
$BEGIN
DEF STRNUM$ #300#; # DEBUG TABLE LEN #
$END
#
* REASON CODE DEFINITIONS FOR A-A FEATURE FOR RELEASE 1 OF SINGLE
* HOST REPLACEMENT.
#
DEF RCNOVCB$ # 1 #; # NO AVAIL VCB #
DEF RCMAXCN$ # 10 #; # APPL AT MAX CON #
DEF RCNOAPP$ # 9 #; # APPL UNAVAILABLE #
DEF RCNOPATH$ # 8 #; # NO PATH TO DEST APPL #
DEF RCBADREQ$ # 4 #; # INVALID CON REQ #
DEF RCUNKAPP$ # 13 #; # UNKNOWN APPL #
#
* THE FOLLOWING DEFS ARE USED TO DETERMINE WHETHER A USER-
* VOLUNTEERED APPLICATION IS A RESERVED NAME.
#
DEF LOGIN$ # 1 #; # NAME IS "LOGIN" OR "HELLO" #
DEF LOGOUT$ # 2 #; # NAME IS "LOGOUT" OR "BYE" #
DEF NORESNAM$ # 0 #; # NOT A RESERVED NAME #
#
* THE FOLLOWING DEFS ARE HARD CODED VALUES FOR THE FLOW CONTROL
* PARAMETERS TO BE USED FOR THE SINGLE HOST A-A FEATURE.
#
DEF INTRABL$ # 7 #; # ABL VALUE #
DEF INTRADBL$ # 5 #; # DBL VALUE #
DEF INTRADBZ$ # 2043 #; # DBZ VALUE #
DEF INTRAUBL$ # 7 #; # UBL VALUE #
DEF INTRAUBZ$ # 2000 #; # UBZ VALUE #
#
* DEFS OF NVF INTERNAL APPLICATION BLOCK TYPES(ABTS) AND PSEUDO
* PFC/SFC-S FOR PROTOCOL REPONSES SENT FROM HOP I-LAYER TO
* HOP C-LAYER.
#
DEF HOPTX$ #10#; # HOP TERMINAL TEXT ABT #
DEF APPPR$ #9#; # PROTOCOL RESPONSE ABT #
DEF APPPTX$ #8#; # PROMPT TEXT ABT #
DEF APPTTX$ #7#; # TERMINAL TEXT ABT #
DEF HOPSRTN$ #X"D045"#; # HOP/START/N PSEUD0 PFC/SFC #
DEF HOPENDN$ #X"D046"#; # HOP/END/N PSEUD0 PFC/SFC #
#
****
#
#
** THE FOLLOWING STATUS LIST IS FOR USE BY THE HOP PROTOCOL EVENT
* PROCESSOR FOR CASING ON EVENT TYPES.
#
STATUS HPESTAT
HOPSRT, # HOP/START #
HOPENDW, # HOP/END-WARNING #
HOPEND, # HOP/END #
;
#
** HCNST - STATES ALLOWED FOR THE HOP ACN ENTRY.
*
* THIS STATUS LIST DEFINES THE ALLOWED STATES FOR THE ACN LIST
* ENTRY FOR THE HOP. BECAUSE WE COMMUNICATE WITH THE HOP VIA A
* TOTALLY DIFFERENT PROTOCOL THAN THAT FOR NOPS (WHO ARE TERMINAL
* USERS), A DIFFERENT SET OF STATES ARE REQUIRED.
#
STATUS HCNST
INACT, # INACTICE, NOT ASSIGNED #
CREATE, # HOP/START IN PROGRESS #
ACTIVE, # BOTH INPUT AND OUTPUT ALLOWED #
COMMAND, # COMMAND IN PROGRESS,ONLY OUTPUT ALLOWED #
BREAK, # BREAK OUTSTANDING #
ENDED, # HOP/END IN PROGRESS #
RESTART, # START WHILE END IN PROGRESS #
STARTEND, # END WHILE START IN PROGRESS #
STARTBRK, # BREAK WHILE START IN PROGRESS #
RESBREAK; # START + BREAK WHILE END IN PROGRESS #
#
** THE FOLLOWING STATUS LIST DEFINES ALL THE ERRORS THAT IS RETURNED
* BY THE SERIAL SEARCHER. THESE ARE SET IN THE VCBSSQ ENTRIES BY
* *NVFVPSR* AND RECOGNIZED BY *NVFOFVD*.
*
#
STATUS SSEC
NOERROR, # NO ERRORS DETECTED #
NOMATCH, # NO MATCH FOUND IN THE VCB FILE #
ABRT; # ABORT COMMAND FLAG IS SET #
#
** LCFVRSN - COMMON BLOCK FOR LCF VERSION MESSAGE.
*
* THIS IS A COMMON BLOCK FOR THE LCF VERSION MESSAGE.
* IT IS BUILT BY *NVFIAST* WHEN READING THE LCF AT
* INITIALIZATION TIME. AND USED BY *NVFOPHC* WHEN
* PROCESSING THE "HISTORY,ALL" COMMAND.
*
#
COMMON LCFVRSN;
BEGIN # LCFVRSN #
ARRAY LCFVRN[00:00] S(LCFVRN$);
BEGIN
ITEM LFV$VRN C(00,00,12); # "LCF VERSION " #
ITEM LFV$DAT C(01,12,20); # LCF CREATION TIME AND DATE #
ITEM LFV$ZERO U(03,12,48); # ZERO BYTE TERMINATOR #
END
END # LCFVRSN #
#
** NVFCITM - COMMON ITEM DEFINITIONS.
*
* NVFCITM IS A COMMON BLOCK CONTAINING GLOBAL ITEM DEFINIATIONS FOR
* VARIOUS OVERLAYS OF NVF.
#
COMMON NVFCITM;
BEGIN # NVFCITM #
ITEM ABORTCMDF B; # ABORT-COMMAND FLAG #
ITEM AL I; # AL VALUE FROM CONTROL CARD #
ITEM LLVAL I; # LL VALUE FROM CONTROL CARD #
ITEM NVFSTATE B; # TRUE IF IDLE/DISABLE HOST INITIATED #
ITEM SSBUSYF B; # SERIAL SEARCHER BUSY FLAG #
ITEM VAPMASK U; # VALID APPLICATION MASK #
END # END NVFCITM #
#
** NVFCARY - COMMON BASED ARRAY DEFINITIONS.
*
* NVFCARY IS A COMMON BLOCK CONTAINING GLOBAL BASED ARRAY
* DEFINITIONS FOR THE VARIOUS OVERLAYS OF NVF.
#
COMMON NVFCARY;
BEGIN # NVFCARY #
#
** TVCBSSQ - TEMPLATE FOR AN ENTRY IN VCBSSQ.
*
* THE FOLLOWING BASED ARRAY IS A TEMPLATE FOR AN ENTRY IN THE
* VCB-SERIAL-SEARCH-DATA-QUEUE (VCBSSQ).
#
BASED ARRAY TVCBSSQ[00:00] S(VSSQSIZ$);
BEGIN
ITEM TSS$TN C(00,00,07); # TERMINAL NAME #
ITEM TSS$DT U(00,47,04); # DEVICE TYPE #
ITEM TSS$UWORD U(01,00,60); # USER REFERENCE WORD #
ITEM TSS$LTIME U(02,00,18); # LOGIN TIME #
ITEM TSS$CATIME U(02,18,18); # CONNECTION TO APPL TIME #
ITEM TSS$AACN U(02,36,12); # APPL-CONNECTION-NUMBER #
ITEM TSS$EC U(02,48,03); # ERROR CODE #
ITEM TSS$APENDF B(02,51,01); # LAST APPL FLAG #
ITEM TSS$VENDF B(02,58,01); # END VCB SERIAL SEARCH FLAG #
ITEM TSS$SWAPNM C(03,00,07); # SWITCHED APPL NAME #
ITEM TSS$SWAPAN U(03,51,09); # SWITCHED APPL NUMBER #
END
#
** TVSQ - TEMPLATE FOR AN ENTRY IN VSQ.
*
* TVSQ IS A TEMPLATE FOR AN ENTRY IN THE VCB-SERIAL-SEARCH-REQUEST
* QUEUE (VSQ).
#
BASED ARRAY TVSQ[00:00] S(VSQSIZ$);
BEGIN
ITEM TVS$APENDF B(00,48,01); # LAST APPL FLAG #
ITEM TVS$WORDP U(00,51,06); # WORD POSITION #
ITEM TVS$SGLEF B(00,59,01); # SINGLE-ENTRY-FLAG #
ITEM TVS$VALUE U(01,00,60); # VALUE TO SEARCH #
ITEM TVS$MASK U(02,00,60); # MASK FOR THE VALUE #
END
END # NVFCARY #
#
** NVFCB - NVF CONTROL BLOCK.
*
* THIS COMMON BLOCK CONTAINS ITEMS RELATING TO NVF CONTROL AND
* IDENTIFICATION.
*
#
COMMON NVFCB;
BEGIN # NVFCB #
ITEM CRNT$NIN; # CURRENT INVOCATION NUMBER #
ITEM CRNT$DPN; # CURRENT DUMP NUMBER #
ITEM DBGFLAG B; # DEBUG CODE ON FLAG #
END # NVFCB #
#
** NVFINTR - COMMON BLOCK OF INTERRUPT LOCATIONS FOR MONITOR
* ROUTINES.
*
* NVFINTR IS A COMMON BLOCK CONTAINING A GROUP OF WHOLE WORD ITEMS
* THAT FUNCTION AS INTERRUPT CELLS FOR THE ROUTINES THAT ARE CALLED
* BY THE STATUS WORKLIST PROCESSOR TO PROCESS ONE OR MORE QUEUES.
* THESE CELLS PROVIDE A LINKAGE BETWEEN ONE OR MORE QUEUES AND A
* SINGLE GIVEN MONITOR ROUTINE. THIS ASSOCIATION IS MADE AT
* INITIALIZATION TIME WHEN *WDF* AND *QWD* TABLES (IN SSTEXT) ARE
* BUILT BY PROC NVFIBWD. WHENEVER THE STATUS WORKLIST PROCESSOR IS
* WATCHING A GIVEN INTERRUPT CELL AND THAT CELL BECOMES OR IS
* NONZERO, THE CORRESPONDING MONITOR ROUTINE IS CALLED. THE
* MONITORS THEMSELVES DETERMINE WHEN A GIVEN CELL WILL BE WATCHED
* VIA THE FORMAL RETURN PARAMETER ARRAY *SWTESS* (COMMON DECK).
* WHENEVER AN ENTRY IS PLACED IN A GIVEN QUEUE, THE ASSOCIATED
* INTERRUPT WORD IS INCREMENTED. (NOTE: NOT ALL MONITOR ROUTINES
* ARE TRIGGERED BY THESE INTERRUPT CELLS. SOME ARE TRIGGERED BY,
* E.G., THE COMPLETE BIT).
#
COMMON NVFINTR;
BEGIN
ITEM INVTICR I; # INTERRUPT FOR PROC *NVFTICR* #
ITEM INVVRVF I; # INTERRUPT FOR PROC *NVFVRVF* #
ITEM INVVPSR I; # INTRP. FOR *NVFVPSR* TRIGGER BY VSQ #
ITEM INVPSR I; # INTRP. FOR *NVFVPSR* TRIGGER BY *NVFVFSD#
END # END NVFINTR #
#
**
*E
** TABLES - MEMORY MANAGEMENT COMMON BLOCK.
*
* COMMON BLOCK OF BASED ARRAY POINTER WORD AND LENGTH FOR TABLES
* AND QUEUES USED BY THE *TABLE MANAGER*. ORDER OF *MEMLOC* AND
* *FL* MUST BE PRESERVED FOR USE BY THE *TABLE MANAGER*.
* FOR QUEUES, THE ENTRY-SIZE IS VARIABLE IN LENGTH AND EACH ENTRY
* HAS THE FOLLOWING FORMAT:
* 1) A ONE WORD WORD-COUNT FOR THE NUMBER OF WORDS IN THE ENTRY.
* 2) A ONE WORD HEADER (ABH FORMAT), AND
* 3) AN SM OR DATA AREA WITH A MAXIMUM SIZE OF 12 WORDS.
#
COMMON TABLES;
BEGIN
ITEM MEMLOC I; # 1ST MEMORY LOCATION OF MANAGED TBL AREA #
ITEM FL I; # FIELD LENGTH #
#
** ACN - APPLICATION CONNECTION NUMBER LIST.
*
* ACN LIST TABLE CONTAINS INFORMATION NEEDED BY THE C-LAYER ABOUT
* ALL CONNECTIONS TO NVF.
*
* THE FOLLOWING IS THE FORMAT OF AN ACN LIST ENTRY. EACH ENTRY
* IS 2-WORDS LONG.
*
*
* 1 2 3 4 5
* 012345678901234567890123456789012345678901234567890123456789
*TEXT
*TEXT
*T,WORD0,1/I,1/B,4/CST,3/,3/BL,18/ABN,12/DBZ,18/ACN
*ENDTEXT
*T,WORD1,3/,6/BKCNT,6/BLCNT,3/,5/PCHA,1/G,9/,6/TRC,3/,9/WBCNT,9/PL
*ENDTEXT
*
#
BASED ARRAY ACN[00:00] S(ACNLSIZ$);
BEGIN
#
****
#
ITEM ACN$WORD0 U(00,00,60); # FIRST WORD REFERENCE #
ITEM ACN$INIT B(00,00,01); # TRUE WHEN FC/INIT DONE #
ITEM ACN$BLKF B(00,01,01); # BLK BLOCK RECEIVED FLAG#
ITEM ACN$HOPST S:HCNST(00,02,04); # HOP PSEUDO ACN STATE #
ITEM ACN$STATE U(00,02,04); # STATE OF CONNECTION #
ITEM ACN$ABL U(00,09,03); # APPLICATION BLOCK LIM #
ITEM ACN$ABN U(00,12,18); # APPLICATION BLOCK NUM #
ITEM ACN$CNUM U(00,12,18); # TIMER CANCEL NUMBER #
ITEM ACN$DBZ U(00,30,12); # APPLICATION BLOCK SIZE #
ITEM ACN$ACN U(00,42,18); # APPLICATION CONNECT NR #
ITEM ACN$WORD1 U(01,00,60); # SECOND WORD REFERENCE #
ITEM ACN$BKCNT I(01,03,06); # OUTSTANDING BREAK CNT #
ITEM ACN$BLCNT U(01,09,06); # OUTSTANDING BLOCK CNT #
ITEM ACN$PCHAR C(01,18,01); # HOP PAGE CHARACTER #
ITEM ACN$PWAIT B(01,23,01); # PAGE WAIT FLAG #
ITEM ACN$BLKCNT U(01,27,06); # BLK BLOCKS RECEIVED #
ITEM ACN$TRC U(01,33,06); # TERMINATE REASON CODE #
ITEM ACN$IGNOR B(01,39,01); # HOP IGNORE FLAG #
ITEM ACN$WBCNT U(01,42,09); # WAITING BLOCK COUNT #
ITEM ACN$PL U(01,51,09); # PAGE LENGTH #
#
****
#
END
ITEM ACNLNGTH I; # LENGTH OF ACN TABLE #
#
** ASQ - APPLICATION SM QUEUE.
*
* ASQ IS THE INPUT QUEUE TO THE MAINTAIN APPLICATION STATUS
* PROCESS. IT CONTAINS SMS PERTINENT TO ESTABLISHING AND
* TERMINATING COMMUNICATION BETWEEN AN APPLICATION AND THE
* NETWORK.
#
BASED ARRAY ASQ[00:00] S(1);
BEGIN
ITEM ASQ$WORD U(00,00,60); # FULL WORD REFERENCE #
END
ITEM ASQLNGTH I; # ASQ QUEUE LENGTH #
#
**
*E
** AST - APPLICATION STATUS TABLE.
*
* AST TABLE CONTAINS AN ENTRY FOR EACH APPLICATION REPRESENTED IN
* THE NOS VALIDATION COMMON DECK - COMTNAP. THIS IS A FIXED ENTRY-
* SIZE TABLE.
*
*
* THE FOLLOWING IS THE FORMAT OF AN AST ENTRY. EACH ENTRY
* IS THREE WORDS LONG.
*
*
* 1 2 3 4 5
* 012345678901234567890123456789012345678901234567890123456789
*TEXT
*T,WORD0,42/ANAM,9/,9/AN
*T,WORD1,24/JSN,18/,6/AWBP,1/B,1/U,1/D,1/N,2/,6/AAL
*T,WORD2,18/MCN,18/TACN,18/AACN,1/P,1/F,1/K,1/N,1/A,1/
*ENDTEXT
*
*
#
BASED ARRAY AST[00:00] S(ASTSIZ$);
BEGIN
#
****
#
ITEM AST$WORD0 U(00,00,60); # WORD 0 REFERENCE #
ITEM AST$WORD1 U(01,00,60); # WORD 1 REFERENCE #
ITEM AST$WORD2 U(02,00,60); # WORD 2 REFERENCE #
ITEM AST$WORD3 U(03,00,60); # WORD 3 REFERENCE #
ITEM AST$WORD4 U(04,00,60); # WORD 4 REFERENCE #
ITEM AST$ANAM C(00,00,07); # APPLICATION NAME #
ITEM AST$PANAM C(00,00,07); # PRIMARY APPL NAME #
ITEM AST$UPANAM U(00,00,42); # PRIMARY APPL NAME #
ITEM AST$AN U(00,51,09); # APPLICATION NUMBER #
ITEM AST$JSN C(01,00,04); # JOB SEQUENCE NUMBER #
ITEM AST$RETRY U(01,24,08); # RETRY COUNT #
ITEM AST$XFERF B(01,32,01); # NETWORK XFER CALLS ALLOWED #
ITEM AST$AWBP U(01,42,06); # ACCESS WORD BIT POSITION #
ITEM AST$BNUF B(01,48,01); # AWBP NOT UNIQUE TO APPL FLAG #
ITEM AST$UIDF B(01,49,01); # UNIQUE IDENTIFR REQUIRED FLAG #
ITEM AST$DIF B(01,50,01); # APPLICATION DISABLED FLAG #
ITEM AST$DNF B(01,51,01); # APPLICATION DOWN FLAG #
ITEM AST$SNPF B(01,52,01); # SEC NETON PENDING FLAG #
ITEM AST$PRUF B(01,53,01); # ALLOWED TO USE PRU INTERFACE #
ITEM AST$AAL U(01,54,06); # APPLICATION ACCESS LEVEL #
ITEM AST$RICN B(02,05,01); # THIS APP RESTRICT INCOMG CONN #
ITEM AST$MXICN U(02,06,12); # MAX INCOMMING CONNS ALLOWED #
ITEM AST$MCN U(02,18,12); # TOTAL NUM OF CONN APPL ALLOWED#
ITEM AST$TACN U(02,30,12); # CUREENT NUMBER OF T-A CONN #
ITEM AST$AACN U(02,42,12); # CURRENT NUMBER OF A-A CONN #
ITEM AST$PPF B(02,54,01); # PRIVILEGED PROGRAM FLAG #
ITEM AST$PUF B(02,55,01); # PRIVILEGED USER FLAG (UNUSED) #
ITEM AST$KDSPF B(02,56,01); # PERMISSION TO USE K-DSP FLAG #
ITEM AST$NON B(02,57,01); # NET/OFF/N NEEDED #
ITEM AST$AFN B(02,58,01); # FAIL/APPL/N NEEDED #
ITEM AST$RS B(02,59,01); # REQUEST STARTABLE FLAG #
ITEM AST$SANAM C(03,00,07); # SEC APPL NAME #
ITEM AST$USANAM U(03,00,42); # SEC APPL NAME #
ITEM AST$RACN I(03,42,12); # TOTAL NUMBER OF RESERVED CONN #
ITEM AST$ICCN U(04,06,12); # TOTAL NUMBER OF INCOMING CONN #
ITEM AST$MXCOP U(04,18,04); # MAXIMUM COPIES #
ITEM AST$CUCOP U(04,22,04); # NUMBER ACTIVE COPIES #
ITEM AST$PNCOP U(04,26,04); # NUMBER PENDING COPIES #
ITEM AST$PAPAST U(04,30,09); # PRIMARY AST ORDINAL #
ITEM AST$TCAN U(04,42,18); # CANCEL NUMBER FOR START TIMER #
#
****
#
END
ITEM ASTLNGTH I; # LENGTH OF AST TABLE #
#
**
*E
** ALTB - AUTO LOGIN TABLE.
*
* ALTB IS USED TO STORE AUTO LOGIN INFORMATION. EACH ENTRY SHOULD
* CONTAIN A TERMINAL NAME, FAMILY, USER, AND APPLICATION NAMES.
* THIS TABLE IS ACCESSED WHEN THE AUTO LOGIN FLAG IN THE INCOMING
* CR/ITE/R SM IS SET.
*
*
* THE FOLLOWING IS THE FORMAT OF AN ALTB ENTRY. EACH ENTRY
* IS FOUR WORDS LONG.
*
*
* 1 2 3 4 5
* 012345678901234567890123456789012345678901234567890123456789
*TEXT
*T,WORD0,42/TNAM,18/
*T,WORD1,42/FNAM,3/FI,15/
*T,WORD2,42/UNAM,3/UI,15/
*T,WORD3,42/ANAM,3/AI,15/
*ENDTEXT
*
*
#
BASED ARRAY ALTB [00:00] S(ALTSIZ$);
BEGIN
#
****
#
ITEM ALT$TNAM C(00,00,07); # TERMINAL NAME #
ITEM ALT$FNAM C(01,00,07); # FAMILY NAME #
ITEM ALT$FIND U(01,42,03); # FAMILY INDICATOR #
ITEM ALT$UNAM C(02,00,07); # USER NAME #
ITEM ALT$UIND U(02,42,03); # USER INDICATOR #
ITEM ALT$ANAM C(03,00,07); # APPLICATION NAME #
ITEM ALT$AIND U(03,42,03); # APPLICATION INDICATOR #
ITEM ALT$WRD0 U(00,00,60);
ITEM ALT$WRD1 U(01,00,60);
ITEM ALT$WRD2 U(02,00,60);
ITEM ALT$WRD3 U(03,00,60);
#
****
#
END
ITEM ALTL; # AUTO LOGIN TABLE LENGTH #
#
** CPMRQ - CPM REQUEST QUEUE.
*
* CPMRQ IS THE INPUT QUEUE TO ISSUE-CPM-REQUEST ROUTINE. IT
* CONTAINS CPM REQUEST 56B (VALID) AND/OR 73B (DECREMENT FAMILY
* COUNT).
#
BASED ARRAY CPMRQ[00:00] S(1);
BEGIN
ITEM CPM$WORD U(00,00,60); # FULL WORD REFERENCE #
END
ITEM CPMLNGTH I; # CPMRQ QUEUE LENGTH #
#
** CTQ - CONNECTION TRAFFIC QUEUE.
*
* CTQ IS THE INPUT QUEUE TO THE C-LAYER. IT CONTAINS CONNECTION
* SMS, PROTOCOL SMS, DATA BLOCKS, TERMINAL TEXT, AND PROTOCOL
* RESPONSE SMS.
#
BASED ARRAY CTQ[00:00] S(1);
BEGIN
ITEM CTQ$WORD U(00,00,60); # FULL WORD REFERENCE #
END
ITEM CTQLNGTH I; # CTQ QUEUE LENGTH #
#
** IFMC - INCREMENTED FAMILY COUNT TABLE
*
* THIS TABLE IS USED TO HOLD THE FAMILY NAMES AND THE NUMBER OF
* INCREMENTED FAMILY COUNT FOR THE PARTICULAR FAMILY NAME.
* WHEN NAM CRASHES, THIS TABLE WILL BE USED TO DECREMENT ALL THE
* FAMILY COUNTS THAT WERE INCREMENTED BY NVF.
#
BASED ARRAY IFMC[00:00] S(1);
BEGIN
ITEM IFMC$WORD U(00,00,60); # FULL WORD REFERENCE #
ITEM IFMC$FNAM C(00,00,07); # FAMILY NAME #
ITEM IFMC$COUNT U(00,48,12); # INCREMENTED FAMILY COUNT #
END
ITEM IFCLNGTH I; # IFC TABLE LENGTH #
#
** OPTQ - OPERATOR TYPEIN QUEUE.
*
* OPTQ IS THE INPUT QUEUE TO RECOGNIZE OPERATOR COMMAND PROCESS.
* IT CONTAINS ALL INCOMING COMMANDS FROM THE HOP.
#
BASED ARRAY OPTQ[00:00] S(1);
BEGIN
ITEM OPQ$WORD U(00,00,60); # FULL WORD REFERENCE #
END
ITEM OPQL I; # LENGTH OF OPERATOR TYPEIN QUEUE #
#
** PEQ - PROTOCOL EVENT QUEUE.
*
* PEQ RECEIVES ALL CONNECTION/OPERATOR RELATED ASYNCHROOUS
* SUPERVISORY MESSAGES THAT MUST BE PROCESSED BY THE
* HOP-PROTOCOL-EVENT PROCESS EXCEPT FOR THE FC/BRK SM,
* WHICH IS PASSED TO THE INNER LAYER AS AN OPERATOR TYPEIN
* (THE FC/BRK IS USED AS A PIPE CLEANER BETWEEN THE
* CONNECTION AND INNER LAYERS AND HENCE MUST BE PROCESSED
* AFTER(SYNCHRONOUS WITH) ANY TYPEINS ALREADY QUEUED FOR
* THE INNER LAYER).
#
BASED ARRAY PEQ[00:00] S(1);
BEGIN
ITEM PEQ$WORD U(00,00,60); # FULL WORD REFERENCE #
END
ITEM PEQL I; # PEQ QUEUE LENGTH #
#
** HCQ - HOP PROGRAM CONTROL QUEUE.
*
* HCQ IS THE INPUT QUEUE TO PERFORM PROGRAM CONTROL PROCESS. IT
* CONTAINS SMS PERTINENT TO COMMUNICATION BETWEEN THE HOP AND NVF
* FOR PROGRAM CONTROL.
#
BASED ARRAY HCQ[00:00] S(1);
BEGIN
ITEM HCQ$WORD U(00,00,60); # FULL WORD REFERENCE #
END
ITEM HCQLNGTH I; # HCQ QUEUE LENGTH #
#
** OTQ - OUTGOING TRAFFIC QUEUE.
*
* OTQ CONTAINS OUTGOING SMS AND DATA BLOCKS FROM NVF TO NIP.
#
BASED ARRAY OTQ[00:00] S(1);
BEGIN
ITEM OTQ$WORD U(00,00,60); # FULL WORD REFERENCE #
END
ITEM OTQLNGTH I; # OTQ QUEUE LENGTH #
#
** PDCT - PASSIVE DEVICE CONNECTION TABLE
*
* PDCT TABLE CONTAINS AN ENTRY FOR EACH TERMINAL THAT IS A CLUSTER
* TYPE TERMINAL, I.E., ONE THAT SUPPORTS BATCH DEVICES. THIS IS A
* VARIABLE ENTRY-SIZE TABLE, WITH EACH ENTRY CONTAINING CONSOLE
* INFORMATION FOLLOWED BY PASSIVE DEVICE INFORMATION. THE CONSOLE
* INFORMATION PORTION OF THE ENTRY HAS A FIXED SIZE OF *PDCTSIZ$*
* WORDS. THE PASSIVE INFORMATION PORTION OF THE ENTRY IS VARIABLE
* IN SIZE, DEPENDING ON THE NUMBER OF PASSIVE DEVICES, EACH DEVICE
* TAKING UP ONE WORD.
#
BASED ARRAY PDCT[00:00] S(1);
BEGIN
ITEM PDT$WORD U(00,00,60); # FULL WORD REFERENCE #
ITEM PDT$CN C(00,00,07); # TERMINAL NAME OF CONSOLE #
ITEM PDT$WC U(00,54,06); # NUMBER OF WORDS IN THIS ENTRY #
ITEM PDT$CAPP C(00,00,07); # APPLICATION NAME #
ITEM PDT$CSTAT U(00,45,03); # STATE OF CONSOLE DEVICE #
ITEM PDT$CVCB U(00,48,12); # VCB ORDINAL OF CONSOLE DEVICE #
ITEM PDT$FWORD U(00,00,60); # REFERENCE FAMILY WORD #
ITEM PDT$FNAM C(00,00,07); # FAMILY NAME #
ITEM PDT$FORD U(00,48,06); # FAMILY ORDINAL #
ITEM PDT$UWORD U(00,00,60); # REFERENCE USER WORD #
ITEM PDT$AHMT U(00,00,60); # SYSTEM RESOURCE AVAIL TO USER #
ITEM PDT$AHDS U(00,00,60); # SYSTEM RESOURCE AVAIL TO USER #
ITEM PDT$AAWC U(00,00,60); # ACCESS CONTROL WORD #
ITEM PDT$ATWD U(00,00,60); # TERMINAL CHARACTERISTICS #
ITEM PDT$AAVW U(00,00,60); # APPLICATION VALIDATION WORD #
ITEM PDT$PN C(00,00,07); # TERMINAL NAME OF PASSIVE DEF #
ITEM PDT$PSTAT U(00,45,03); # STATE OF PASSIVE DEVICE #
ITEM PDT$PVCB U(00,48,12); # VCB ORDINAL OF PASSIVE DEVICE #
END
ITEM PDTLNGTH I; # LENGTH OF PDCT TABLE #
#
**
*E
** PTAC - PENDING TERMINAL TO APPLICATION CONNECTION TABLE
*
* PTAC TABLE CONTAINS AN ENTRY FOR EACH TERMINAL CONNECTED TO
* *NVF*. THIS IS A FIXED ENTRY-SIZE TABLE.
*
*
* THE FOLLOWING IS THE FORMAT OF A PTAC ENTRY. EACH ENTRY
*TEXT
* IS 30-WORDS LONG.
*ENDTEXT
*
*
* 1 2 3 4 5
* 012345678901234567890123456789012345678901234567890123456789
*TEXT
*T,WORD0,42/TNAM,3/,1/I,1/E,1/A,12/ACN
*TEXT
*T,WORD1,12/VCB,3/AB,4/SDT,4/DT,5/TC,4/DO,8/PW,8/PL,11/XBZ,1/I
*ENDTEXT
*T,WORD2,42/OCN,6/SL,11/DBZ,1/
*T,WORD3,30/CNTIME,30/SWTIME
*T,WORD4,42/FNAM,6/,6/FORD,1/ ,1/F,1/V,1/S,1/L,1/
*T,WORD5,6/UBZ,54/
*T,WORD6,42/UNUM,18/
*T,WORD7,42/SWTAPP,18/
*T,WORD8,60/
*T,WORD9,60/AHMT
*T,WORD10,60/AHDS
*T,WORD11,12/AAWC,24/ABITS,24/
*T,WORD12,60/ATWD
*T,WORD13,60/ASWI
*T,WORD14,42/ALIFAM,3/FI,15/
*T,WORD15,42/ALIUSR,3/UI,15/
*T,WORD16,42/ALIAPP,3/AI,15/
*T,WORD17,42/ADSAPP,6/ASTOR,11/,1/V
*TEXT
*T,WORD18,42/VLTFAM,5/VLTF,3/USE,3/APP,4/STAT,3/PRO
*ENDTEXT
*T,WORD19,42/VLTUSR,18/CNUM
*TEXT
*T,WORD20,42/VLTPW,9/ ,8/RC,1/A
*T,WORD21,42/VLTAPP,6/UBZ,2/ ,7/INLGTH,1/D,1/P,1/I
*ENDTEXT
*TEXT
*T,WORD22,60/CHARGE NUMBER
*T,WORD23,60/PROJECT NUMBER
*T,WORD24,60/PROJECT NUMBER
*TEXT
*T,WORD25,30/LCNTIM,30/LSWTIM
*T,WORD26,9/PRIAN,1/ ,8/LRC
*T,WORD27,60/PID
*T,WORD28,60/PID
*T,WORD29,60/EXPDAT
*ENDTEXT
*ENDTEXT
*ENDTEXT
*
*
#
BASED ARRAY PTAC[00:00] S(PTACSIZ$);
BEGIN
#
****
#
ITEM PTA$TWORD U(00,00,60); # REFERENCE TERMINAL NAME WORD #
ITEM PTA$TN C(00,00,07); # TERMINAL NAME #
ITEM PTA$TNAM U(00,00,42); # TERM NAME (INTEGER FIELD) #
ITEM PTA$NET B(00,42,01); # NETWORK TYPE #
ITEM PTA$RCNA B(00,43,01); # CR/RCN/A SENT FLAG #
ITEM PTA$LCF B(00,44,01); # LOANED CONNECTION FLAG #
ITEM PTA$ICF B(00,45,01); # INTERACTIVE CAPABILITY FLAG #
ITEM PTA$SPTAC B(00,46,01); # SUB PTAC EXISTS FLAG #
ITEM PTA$ALIF B(00,47,01); # AUTO-LOGIN FLAG #
ITEM PTA$ACN U(00,48,12); # APPLICATION CONNECTION NUMBER #
ITEM PTA$VCB U(01,00,12); # VCB ORDINAL #
ITEM PTA$ABL U(01,12,03); # APPLICATION BLOCK LIMIT #
ITEM PTA$SDT U(01,15,04); # SUB-DEVICE TYPE #
ITEM PTA$DT U(01,19,04); # DEVICE TYPE #
ITEM PTA$TC U(01,23,05); # TERMINAL CLASS #
ITEM PTA$DO U(01,28,04); # DEVICE ORDINAL #
ITEM PTA$PW U(01,32,08); # PAGE WIDTH #
ITEM PTA$PL U(01,40,08); # PAGE LENGTH #
ITEM PTA$XBZ U(01,48,11); # TRANSMISSION BLOCK SIZE #
ITEM PTA$IUVF B(01,59,01); # INITIAL USER VALIDATION FLAG #
ITEM PTA$OCN C(02,00,07); # OWNING CONSOLE NAME #
ITEM PTA$SL U(02,44,04); # SECURITY LEVEL #
ITEM PTA$DBZ U(02,48,11); # DOWNLINE BLOCK SIZE #
ITEM PTA$HW B(02,59,01); # HARDWIRED FLAG #
ITEM PTA$CNTIME U(03,00,30); # CONNECT TIME - MODDHHMMSS #
ITEM PTA$SWTIME U(03,30,30); # SWITCH TIME - MODDHHMMSS #
ITEM PTA$FWORD U(04,00,60); # REFERENCE FAMILY WORD #
ITEM PTA$FNAM C(04,00,07); # FAMILY NAME #
ITEM PTA$FORD U(04,45,09); # FAMILY ORDINAL #
ITEM PTA$IFCTF B(04,55,01); # INCREMENT FAMILY COUNT FLAG #
ITEM PTA$DVERR B(04,56,01); # DEVICE ERROR FLAG #
ITEM PTA$SCINV U(04,57,02); # REF SECURITY CT AND INV LOGIN #
ITEM PTA$SCEF B(04,57,01); # SECURITY COUNT EXHAUSTED FLAG #
ITEM PTA$INVLF B(04,58,01); # INVALID LOGIN FLAG #
ITEM PTA$PWORD U(05,00,60); # REFERENCE PASSWORD #
ITEM PTA$PASSWD C(05,00,07); # PASSWORD #
ITEM PTA$UWORD U(06,00,60); # REFERENCE USER WORD #
ITEM PTA$UNUM C(06,00,07); # USER NUMBER #
ITEM PTA$UIDX U(06,42,18); # USER INDEX #
ITEM PTA$AWORD U(07,00,60); # REFERENCE APPLICATION WORD #
ITEM PTA$SWTAPP C(07,00,07); # APPLICATION TO SWITCH TO #
ITEM PTA$SWTAN U(07,42,09); # SWITCHED APPL NUMBER #
ITEM PTA$VTP U(07,52,08); # VTP VERSION #
ITEM PTA$AHMT U(09,00,60); # SYSTEM RESOURCE AVAIL TO USER #
ITEM PTA$AHDS U(10,00,60); # SYSTEM RESOURCE AVAIL TO USER #
ITEM PTA$AAWC U(11,00,60); # ACCESS CONTROL WORD #
ITEM PTA$CACA B(11,33,01); # CONCURRENT ACCESS ALLOWED #
ITEM PTA$COPI B(11,34,01); # PERSONAL ID NOT NEEDED #
ITEM PTA$WSV B(02,42,01); # WAIT FOR SECOND VALIDATION #
ITEM PTA$IFU B(02,43,01); # INVALID FAMILY/USER NAME #
ITEM PTA$ATWD U(12,00,60); # TERMINAL CHARACTERISTICS #
ITEM PTA$AAVW U(13,00,60); # APPLICATION VALIDATION WORD #
ITEM PTA$ALIFAM C(14,00,07); # AUTO-LOGIN FAMILY NAME #
ITEM PTA$FAMIND U(14,42,03); # MANDATORY/DEFAULT FAMILY #
ITEM PTA$AFWRD U(14,00,60);
ITEM PTA$ALIUSR C(15,00,07); # AUTO-LOGIN USER NAME #
ITEM PTA$USRIND U(15,42,03); # MANDATORY/DEFAULT USER #
ITEM PTA$AUWRD U(15,00,60);
ITEM PTA$ALIAPP C(16,00,07); # AUTO-LOGIN APPLICATION NAME #
ITEM PTA$APPIND U(16,42,03); # MANDATORY/PRIMARY APPLICATION #
ITEM PTA$AAWRD U(16,00,60);
ITEM PTA$VDSAPP C(17,00,07); # VALIDUS APPLICATION NAME #
ITEM PTA$VDSF B(17,59,01); # VALIDUS APPL EXIST FLAG #
ITEM PTA$VLTFAM C(18,00,07); # VOLUNTEERED FAMILY NAME #
ITEM PTA$VLTF U(18,42,05); # REF ALL VOLUNTEERED FLAGS #
ITEM PTA$VFF B(18,42,01); # VOLUNTEERED FAMILY EXIST FLAG #
ITEM PTA$VUF B(18,43,01); # VOLUNTEERED USER EXIST FLAG #
ITEM PTA$VPF B(18,44,01); # VOLUNTEERED PASSWD EXIST FLAG #
ITEM PTA$VAF B(18,45,01); # VOLUNTEERED APPL EXIST FLAG #
ITEM PTA$VPIDF B(18,46,01); # VOLUNTEERED PERSONAL ID FLAG #
ITEM PTA$USERCT U(18,47,03); # USER RETRY COUNT #
ITEM PTA$APPLCT U(18,50,03); # APPLICATION RETRY COUNT #
ITEM PTA$STATE U(18,53,04); # STATE OF THIS TERMINAL #
ITEM PTA$PROMPT U(18,57,03); # CURRENT PROMPT FOR TERMINAL #
ITEM PTA$VLTUSR C(19,00,07); # VOLUNTEERED USER NAME #
ITEM PTA$CNUM U(19,42,18); # TIMER CANCELLATION NUMBER #
ITEM PTA$VLTPW C(20,00,07); # VOLUNTEERED PASSWORD #
ITEM PTA$RC U(20,51,08); # REASON CODE FOR CR/TRM SM #
ITEM PTA$AFF B(20,59,01); # APPLICATION FAILED FLAG #
ITEM PTA$VAWORD U(21,00,60); # REF VOLUNTEERED APPL WORD #
ITEM PTA$VLTAPP C(21,00,07); # VOLUNTEERED APPLICATION NAME #
ITEM PTA$UBZ U(21,42,06); # UPLINE BLOCK SIZE #
ITEM PTA$INLGTH U(21,50,07); # CHARACTER LENGTH OF LOGIN LINE#
ITEM PTA$INVPID B(21,57,01); # INVALID PERSONAL ID ENTERED #
ITEM PTA$PWEXPF B(21,58,01); # PASSWORD EXPIRATION DATE SET #
ITEM PTA$INVAF B(21,59,01); # INVALID APPLICATION FLAG #
ITEM PTA$LCNTIM U(25,00,30); # LOAN CONNECT TIME #
ITEM PTA$LSWTIM U(25,30,30); # LOAN SWITCH TIME #
ITEM PTA$PRIAN U(26,00,09); # PRI APPL NUMBER #
ITEM PTA$LRC U(26,10,08); # LOAN CONNECTION REASON CODE #
ITEM PTA$PID C(27,00,20); # PERSONAL IDENTIFIER FIELD #
ITEM PTA$APPPID C(27,00,07); # PID ACTUALLY AN APPL ENTRY #
ITEM PTA$EXPDAT C(29,00,10); # PASSWORD EXPIRATION DATE #
ITEM PTA$CHGNUM C(22,00,10); # CHARGE NUMBER #
ITEM PTA$PRJNUM C(23,00,20); # PROJECT NUMBER #
#
****
#
END
ITEM PTALNGTH I; # LENGTH OF PTAC TABLE #
#
** SPTAC - SUB PTAC TABLE.
*
* THIS TABLE CONTAINS THE OPTIONAL WORDS OF THE CR/RCN/R SM
* FOR A LOANED CONNECTION TYPE.
#
BASED ARRAY SPTAC[00:00] S(1);
BEGIN
ITEM SPT$WORD U(00,00,60);
ITEM SPT$VCB U(00,12,12); # OWNING PTAC VCB ORDINAL #
ITEM SPT$ESIZE U(00,48,12); # ENTRY SIZE IN CM WORDS #
ITEM SPT$WRD2 U(01,00,60);
END
ITEM SPTACL I; # LENGTH OF SPTAC TABLE #
#
**
*
** RAU - RESTRICTED APPLICATION USER TABLE.
*
* RAU TABLE CONTAINS AN ENTRY FOR EACH APPLICATION THAT CAN HAVE
* ONLY 1 UNIQUE FAMILY/USER CONNECTED TO IT. THIS IS A FIXED
* ENTRY-SIZE TABLE.
*
*
* THE FOLLOWING IS THE FORMAT OF A RAU ENTRY. EACH ENTRY
* IS 1-WORD LONG.
*
*
* 1 2 3 4 5
* 012345678901234567890123456789012345678901234567890123456789
*TEXT
*TEXT
*T,9/AN,21/,18/UIDX,3/,9/FORD
*ENDTEXT
*ENDTEXT
*
*
#
BASED ARRAY RAU[00:00] S(RAUSIZ$);
BEGIN
#
****
#
ITEM RAU$AN U(00,00,09); # APPLICATION NUMBER #
ITEM RAU$FNAM C(01,00,07); # FAMILY NAME #
ITEM RAU$UIDX U(01,42,18); # USER INDEX #
#
****
#
END
ITEM RAULNGTH I; # LENGTH OF RAU TABLE #
#
**
*
** RML - RESTRICT MULTIPLE LOGINS TABLE.
*
* THE RML TABLE CONTAINS AN ENTRY FOR EACH INTERACTIVE USER WHICH
* IS RESTRICTED MULTIPLE CONCURRENT LOGINS.
*
* THE FOLLOWING IS THE FORMAT OF A RML ENTRY. EACH ENTRY
* IS 1-WORD LONG.
*
*TEXT
*T,42/FAMILY NAME,18/USER INDEX
*ENDTEXT
*
*
#
BASED ARRAY RML[00:00] S(RMLSIZ$);
BEGIN
#
****
#
ITEM RML$FNAM C(00,00,07); # FAMILY ORDINAL #
ITEM RML$UIDX U(00,42,18); # USER INDEX #
#
****
#
END
ITEM RMLLNGTH I; # LENGTH OF RML TABLE #
#
** TAINPQ - TERMINAL TO APPLICATION INPUT QUEUE.
*
* TAINPQ IS THE INPUT QUEUE TO THE T-A PROCESS. IT CONTAINS
* CONNECTION SMS, PROTOCOL SMS, AND DATA BLOCKS. EACH ENTRY IS
* COPIED TO A FIXED BUFFER PRIOR TO BEING PROCESSED.
#
BASED ARRAY TAINPQ[00:00] S(1);
BEGIN
ITEM TAQ$WORD U(00,00,60); # FULL WORD REFERENCE #
END
ITEM TAQLNGTH I; # TAINPQ QUEUE LENGTH #
#
** TRQ - TIMER REQUEST QUEUE.
*
* TRQ IS USED TO RETAIN TIMER REQUESTS UNTIL THE TIME
* HAS EXPIRED. THEN THE TIMER REQUEST BLOCK IS RETURNED
* TO THE REQUESTOR. IT IS USED ONLY BY THE FOLLOWING
* SS ROUTINES:
* *SSCATR* *SSCCTR* *SSCRTR*
#
BASED ARRAY TRQ[00:00] S(1);
BEGIN
ITEM TRQ$WORD U(00,00,60); # FULL WORD REFERENCE #
END
ITEM TRQLNGTH I; # TRQ QUEUE LENGTH #
#
** USQ - UNSOLICITED STATUS QUEUE.
*
* USQ IS THE INPUT QUEUE TO UPDATE-HISTORY-BUFFER PROCESS.
* IT CONTAINS REPORTS OF SIGNIFICANT EVENTS, PERTINENT TO NVF,
* OCCURRING IN THE NETWORK WHICH MAY REQUIRE OPERATOR ATTENTION.
#
BASED ARRAY USQ[00:00] S(1);
BEGIN
ITEM USQ$WORD U(00,00,60); # FULL WORD REFERENCE #
END
ITEM USQLNGTH I; # USQ QUEUE LENGTH #
#
** HSBUF - HISTORY BUFFER.
*
* HSBUF CONTAINS REPORTS OF SIGNIFICANT EVENTS, PERTINENT TO NVF
* OCCURRING IN THE NETWORK WHICH MAY REQUIRE OPERATOR ATTAEENTION.
* IT IS A SUBSET OF UNSOLICITED-STATUS-QUEUE (USQ).
#
BASED ARRAY HSBUF[00:00] S(1);
BEGIN
ITEM HSB$WORD U(00,00,60); # FULL WORD REFERENCE #
ITEM HSB$ZERO U(00,48,12); # ZERO BYTE TERMINATOR #
END
ITEM HSBL; # HISTORY BUFFER LENGTH #
#
** VCBRDQ - VCB (VALIDATION CONTROL BLOCK) READ DATA QUEUE.
*
* VCBRDQ IS THE INPUT QUEUE TO RECEIVE-VCB-DATA PROCESS. IT
* CONTAINS INFORMATION PERTAINING TO A CONNECTION THAT HAS BEEN
* SUCCESSFULLY SWITCHED TO AN APPLICATION.
#
BASED ARRAY VCBRDQ[00:00] S(1);
BEGIN
ITEM VRD$WORD U(00,00,60); # FULL WORD REFERENCE #
END
ITEM VRDLNGTH I; # VCBRDQ QUEUE LENGTH #
#
** VSQ - VCB (VALIDATION CONTROL BLOCK) SERIAL-SEARCH REQUEST QUEUE.
*
* VSQ IS THE INPUT QUEUE TO THE PROCESS-SERIAL-SEARCH-REQUEST
* ROUTINE. IT CONTAINS REQUEST(S) FOR AN ENTRY(IES) IN THE
* VCB FILE THAT MATCHES A GIVEN SET OF VALUES.
#
BASED ARRAY VSQ[00:00] S(1);
BEGIN
ITEM VSQ$WORD U(00,00,60); # FULL WORD REFERENCE #
END
ITEM VSQL I; # VSQ QUEUE LENGTH #
#
** VCBSSQ - VCB (VALIDATION CONTROL BLOCK) SERIAL SEARCH DATA QUEUE.
*
* VCBSSQ IS THE DESTINATION QUEUE FOR DATA FROM A SERIAL SEARCH OF
* THE VCB FILE. IT CONTAINS DATA IN THE FORMAT OF ONE VCB RECORD
* PER ENTRY. IT IS BUILT BY *NVFVDCD* AND PROCESSED BY *NVFVFSD*.
* THE DEFINED ARRAY ENTRY SIZE IS ONE WORD TO FACILITATE STORAGE
* MOVING.
#
BASED ARRAY VCBSSQ[00:00] S(1);
BEGIN
ITEM VSS$WORD U(00,00,60); # FULL WORD REFERENCE #
END
ITEM VSSLNGTH I; # VCBSSQ QUEUE LENGTH #
#
** VDATAQ - VALIDATION DATA QUEUE.
*
* VDATAQ IS THE INPUT QUEUE TO VERIFY-VALIDATION-DATA PROCESS. IT
* CONTAINS VALIDATION DATA RETURNED FOR A CPM 56B REQUEST. EACH
* ENTRY IS COPIED TO A FIXED BUFFER PRIOR TO BEING PROCESSED.
#
BASED ARRAY VDATAQ[00:00] S(1);
BEGIN
ITEM VDQ$WORD U(00,00,60); # FULL WORD REFERENCE #
END
ITEM VDQLNGTH I; # VDATAQ QUEUE LENGTH #
#
** VRQ - VCB (VALIDATION CONTROL BLOCK) REQUEST QUEUE.
*
* VRQ IS THE INPUT QUEUE TO READ-VCB-FILE ROUTINE. IT CONTAINS
* READ/WRITE VCB FILE REQUEST.
#
BASED ARRAY VRQ[00:00] S(1);
BEGIN
ITEM VRQ$WORD U(00,00,60); # FULL WORD REFERENCE #
END
ITEM VRQLNGTH I; # VRQ QUEUE LENGTH #
#
** VWBT - VCB WRITE BLOCK TABLE.
*
* VWBT IS THE DESTINATION TABLE FOR DATA FROM A VCB WRITE REQUEST.
* IT CONTAINS DATA IN THE FORMAT OF ONE VCB RECORD PER ENTRY. IT
* IS BUILD BY *NVFVDCD* AND PROCESSED BY *NVFVWVF*.
#
BASED ARRAY VWBT[00:00] S(VBRECDN$);
BEGIN
ITEM VWB$WORD U(00,00,60); # FULL WORD REFERENCE #
ITEM VWB$ORD U(00,48,12); # VCB ORDINAL #
ITEM VWB$RPA U(00,48,09); # RELATIVE PRU ADDRESS #
ITEM VWB$ENTRY U(00,57,03); # ENTRY NUMBER #
END
ITEM VWBLNGTH I; # VWBT TABLE LENGTH #
#
** VWT - VCB WRITE REQUEST TABLE.
*
* VWT CONTAINS PENDING WRITE REQUESTS. IT IS BUILT BY *NVFVRVF*
* AND PROCESSED BY *NVFVDCD*.
#
BASED ARRAY VWT[00:00] S(VBESIZN$);
BEGIN
ITEM VWT$WORD U(00,00,60); # FULL WORD REFERENCE #
ITEM VWT$ORD U(00,48,12); # VCB ORDINAL #
END
ITEM VWTLNGTH I; # VWT TABLE LENGTH #
#
** WBQ - WAITING BLOCK QUEUE.
*
* THIS QUEUE CONTAINS BLOCKS FOR ALL ACN S THAT CANNOT BE SENT.
* THE CONNECTION MAY NOT HAVE BEEN INITIALIZED OR THE OUTSTANDING
* BLOCK COUNT MAY BE AT LIMIT OR IN A INHIBITED OR WAITING STATE.
*
#
BASED ARRAY WBQ[00:00] S(1);
BEGIN
ITEM WBQ$WORD U(00,00,60); # FULL WORD REFERENCE #
ITEM WBQ$LICNT U(00,12,12); # HOP LINE COUNT #
ITEM WBQ$ESIZE U(00,48,12); # ENTRY SIZE IN CM WORDS #
ITEM WBQ$ABT U(01,00,06); # APP. BLOCK TYPE #
ITEM WBQ$ABHACN U(01,06,12); # ACN IN ABH #
ITEM WBQ$ABN U(01,18,18); # APPLICATION BLOCK NUMBER #
ITEM WBQ$ACT U(01,36,04); # APP. CHARACTER TYPE #
ITEM WBQ$NCP U(00,43,01); # NO CURSOR POSITION FLAG #
ITEM WBQ$NFE U(01,44,01); # NO FORMAT EFFECTOR #
ITEM WBQ$TLC U(01,48,12); # TEXT LENGTH #
ITEM WBQ$PSFC U(02,00,16); # PSC/SFC IN SM #
ITEM WBQ$CRSACN U(02,24,12); # ACN IN CR/SWT #
ITEM WBQ$HIAF B(02,59,01); # HOP INPUT ALLOWED FLAG #
END
ITEM WBQLNGTH I; # LENGTH OF WBQ TABLE #
#
** IWBQ - INCOMING WAITING BLOCK QUEUE.
*
* THIS QUEUE IS USED TO BUFFER BLK BLOCKS AS THEY COME INTO NVF.
* THESE BLOCKS ARE KEPT HERE UNTIL THE MSG BLOCK COMES IN
* INDICATING THE END OF THE TEXT. THE BLOCK IS THEN SENT TO THE
* INNER LAYER FOR PROCESSING AND EDITING.
#
BASED ARRAY IWBQ [00:00] S(1);
BEGIN
ITEM IWQ$WORD I(00,00,60); # FULL WORD REFERENCE #
ITEM IWQ$ACN U(00,06,12); # ACN VALUE OF BLK BLOCK #
ITEM IWQ$WC U(00,48,12); # ENTRY WORD COUNT #
END
ITEM IWBQL I; # IWBQ TABLE LENGTH #
#
**
*E
** PAAC - PENDING A-A CONNECTION TABLE.
*
* THIS QUEUE HOLDS THE PENDING CONNECTION ENTRIES FOR APPLI-
* CATION TO APPLICATION CONNECTIONS.
*
*
* THE FOLLOWING IS THE FORMAT OF A PAAC ENTRY. EACH ENTRY
* IS 15-WORDS LONG.
*
*
* 1 2 3 4 5
* 012345678901234567890123456789012345678901234567890123456789
*TEXT
*T,WORD0,18/RHID,4/MOD,2/,12/NACN,12/ACN,12/VCB
*T,WORD1,4/SL,2/,4/ST,2/,8/IAPRC,1/ ,24/ABITS,4/DT,3/HR,8/PORT
*T,WORD2,42/IAPNM,8/IAPAN,1/ ,9/IAPAST
*T,WORD3,42/RAPNM,8/RAPAN,1/ ,9/RAPAST
*T,WORD4,42/FAM,6/FORD,7/,1/F,1/P,2/SC,1/
*T,WORD5,42/USER,18/USRIDX
*T,WORD6,30/OUTCUR(INCUR),30/OUTNXT(INNXT)
*T,WORD7,30/CNTIME,30/SWTIME
*T,WORD8,42/SWAP,8/SWAPAN,1/ ,9/SWAPAST
*T,WORD9,8/NUMOUT,1/ ,8/SNODE,1/ ,8/DNOD,34/
*T,WORD10,60/AAWC
*T,WORD11,60/
*T,WORD12,60/
*T,WORD13,60/
*T,WORD14,60/
*ENDTEXT
*
*
#
BASED ARRAY PAAC [00:00] S(PAACSIZ$);
BEGIN
#
****
#
ITEM PA$RHID C(00,00,03); # REMOTE HOST ID #
ITEM PA$URHID U(00,00,18);
ITEM PA$MODE U(00,18,04); # MULTI ORSINGLE HOST MODE #
ITEM PA$NACN U(00,24,12); # NVF ACN #
ITEM PA$ACN U(00,36,12); # CONNECTED APPL ACN #
ITEM PA$VCB U(00,48,12); # VCB ORDINAL OF CONNECTION #
ITEM PA$SL U(01,00,04); # SECURITY OR ACCESS LEVEL #
ITEM PA$ICMCN B(01,05,01); # THIS IS AN INCOMMING CONN #
ITEM PA$STATE U(01,06,06); # STATE OF PAAC #
ITEM PA$IAPRC U(01,12,08); # REASON CODE FROM CR/IAP/R #
ITEM PA$DT U(01,21,04); # DEVICE TYPE,5=INTR,6=INTER #
ITEM PA$ICT U(01,27,04); # INPUT CHAR TYPE #
ITEM PA$SMAN U(01,31,09); # CR/IAP/SM APPL NUM (REPEAT)#
ITEM PA$IAPNM C(02,00,07); # CALLING APPL NAME #
ITEM PA$IAPAN U(02,42,09); # CALLING APPL NUMBER #
ITEM PA$WORD3 U(03,00,60);
ITEM PA$RAPNM C(03,00,07); # CALLED APPL NAME #
ITEM PA$RAPAN U(03,42,09); # CALLED APPL NUMBER #
ITEM PA$VAL0 U(04,00,60); # VALIDATION WORD 0 #
ITEM PA$FAM C(04,00,07); # FAMILY NAME #
ITEM PA$FORD U(04,48,06); # FAMILY ORDINAL #
ITEM PA$UPFCF B(04,55,01); # INC FAM COUNT FLAG #
ITEM PA$UPWF B(04,56,01); # USE PASSWORD FLAG #
ITEM PA$SCINV U(04,57,02); # REF SEC COUNT & INV LOGIN #
ITEM PA$SCEF B(04,57,01); # SEC COUNT EXHAUSTED FLAG #
ITEM PA$INVLF B(04,58,01); # INVALID LOGIN FLAG #
ITEM PA$VAL1 U(05,00,60); # VALIDATION WORD 1 #
ITEM PA$VAL2 U(06,00,60); # VALIDATION WORD 2 #
ITEM PA$USER C(06,00,07); # USER NAME #
ITEM PA$USRIDX U(06,42,18); # USER INDEX #
ITEM PA$OUTCUR U(05,00,30); # CURRENT OUTCALL RWD #
ITEM PA$INCUR U(05,00,30); # CURRENT INCALL RWD #
ITEM PA$OUTNXT U(05,30,30); # NEXT OUTCALL RWD #
ITEM PA$INNXT U(05,30,30); # NEXT INCALL RWD #
ITEM PA$VAL3 U(07,00,60); # VALIDATION WORD 3 #
ITEM PA$CNTIME U(07,00,30); # CONNECT TIME #
ITEM PA$SWTIME U(07,30,30); # SWITCH TIME #
ITEM PA$VAL4 U(08,00,60); # VALIDATION WORD 4 #
ITEM PA$VAL5 U(09,00,60); # VALIDATION WORD 5 #
ITEM PA$AHMT U(09,00,60); # RESOURCE AVAILABLE TO USER #
ITEM PA$VAL6 U(10,00,60); # VALIDATION WORD 6 #
ITEM PA$AHDS U(10,00,60); # RESOURCE AVAILABLE TO USER #
ITEM PA$VAL7 U(11,00,60); # VALIDATION WORD 7 #
ITEM PA$AAWC U(11,00,60); # ACCESS CONTROL WORD #
ITEM PA$ABITS U(11,12,24); # REF APPL BITS OF AAWC #
ITEM PA$VAL8 U(12,00,60); # VALIDATION WORD 8 #
ITEM PA$ATWD U(12,00,60); # UNUSED VALIDATION WORD #
ITEM PA$VAL9 U(13,00,60); # VALIDATION WORD 9 #
ITEM PA$AAVW U(13,00,60); # APPLICATION VALIDATION WORD #
ITEM PA$SWAP C(14,00,07); # SWITCHED APPL NAME #
ITEM PA$SWAPAN U(14,42,09); # SWITCHED APPL AN #
ITEM PA$NUMOUT U(15,00,08); # NUMBER OUTCALL ATTEMPTS #
ITEM PA$VSTATE U(15,27,06); # VCB STATE #
ITEM PA$SMSIZ U(15,33,08); # WRD LENGTH OF RAP #
ITEM PA$FACWRD U(15,41,08); # START WORD FOR SM FACS #
ITEM PA$FACSBIT U(15,49,08); # START BIT FOR SM FACS #
ITEM PA$ICWRD2 U(16,00,60); # INCALL BLK WRD 2 #
ITEM PA$PRI B(16,00,01); # PRIORITY FLAG #
ITEM PA$DBL U(16,04,08); # DOWNLINE BLK LIMIT #
ITEM PA$DBZ U(16,12,16); # DOWNLINE BLK SIZE #
ITEM PA$ABL U(16,28,08); # APPL BLK LIMIT #
ITEM PA$UBL U(16,36,08); # UPLINE BLK LIMIT #
ITEM PA$UBZ U(16,44,08); # UPLINE BLK SIZE #
ITEM PA$PORT U(16,52,08); # ACCESS PORT #
ITEM PA$ICWRD3 U(17,00,60); # INCALL BLK WORD 3 #
ITEM PA$WS U(17,16,04); # WINDOW SIZE #
ITEM PA$DPLS U(17,20,08); # DATA PACKET LEN #
ITEM PA$WININ U(17,28,04); # WIN SIZE IN #
ITEM PA$WINOUT U(17,32,04); # WIN SIZE OUT #
ITEM PA$DPLIN U(17,36,08); # PKT SIZE IN #
ITEM PA$DPLOUT U(17,44,08); # PKT SIZE OUT #
ITEM PA$RHWRD U(00,00,60);
ITEM PA$CNWRD U(01,00,60);
ITEM PA$IAPWRD U(02,00,60);
ITEM PA$RAPWRD U(03,00,60);
ITEM PA$FWORD U(04,00,60);
ITEM PA$UWORD U(06,00,60);
ITEM PA$TIMWRD U(07,00,60);
ITEM PA$SWAPWRD U(14,00,60);
ITEM PA$LLWRD U(15,00,60);
ITEM PA$RAPSM U(18,00,60); # CR/RAP/N SM AREA #
ITEM PA$RAPSM0 U(18,00,60); # WRD 0 OF RAP SM #
ITEM PA$RAPSM1 U(19,00,60); # WRD 1 OF RAP SM #
ITEM PA$RAPSM2 U(20,00,60); # WRD 2 OF RAP SM #
ITEM PA$RAPSM3 U(21,00,60); # WRD 3 OF RAP SM #
ITEM PA$RAPSM4 U(22,00,60); # WRD 4 OF RAP SM #
ITEM PA$SNODE U(20,00,08); # SOURCE NODE #
ITEM PA$DNOD U(20,08,08); # DESTINATION NODE #
ITEM PA$WSIZ U(20,16,08); # WINDOW SIZE #
ITEM PA$PSIZ U(20,24,08); # PKT SIZE #
ITEM PA$DTEL U(20,32,08); # ZERO LEN DTE LEN #
ITEM PA$FCL U(20,40,08); # FACILITY OCTET LEN #
ITEM PA$NOFAC U(20,48,12); # EMPTY SPACE #
ITEM PA$CNUM U(23,00,18); # CANCELLATION NUMBER #
ITEM PA$LID C(23,18,03); # LOGICAL IDENTIFIER #
ITEM PA$ULID U(23,18,18);
ITEM PA$PID C(23,36,03); # PHYSICAL IDENTIFIER #
ITEM PA$UPID U(23,36,18);
ITEM PA$LPIDFC U(23,54,06); # LID/PID FUNCTION CODE #
ITEM PA$CUACPID U(24,00,11); # CURRENT ACPID LOCATION #
ITEM PA$NXACPID U(24,11,11); # NEXT ACPID LOCATION #
ITEM PA$LIDSTAT U(24,22,08); # LID STATUS #
ITEM PA$PIDSTAT U(24,30,08); # PID STATUS #
ITEM PA$ACPIDL U(24,38,08); # LEN OF ACPID ENTRY #
ITEM PA$PIDBIAS U(24,46,08); # PID ENTRY BIAS TO ACPID ETRY#
ITEM PA$ACPIDNUM U(25,00,08); # NUMBER OF PIDS IN ACPID #
ITEM PA$IAPPIDF B(25,30,01); # IAP SM PID SPECIFIED FLAG #
ITEM PA$IAPSFF B(25,33,01); # IAP STORE/FORWARD PID FLAG #
ITEM PA$OUTSPEC B(25,36,01); # OUTCALL PARMS ON CR/IAP SM #
ITEM PA$PATHNXT U(25,37,11); # NEXT PATH AVAIL IN LLPID #
ITEM PA$PIDCUR U(25,48,12); # CUR PID LOCATION IN LLPID #
END
#
****
#
ITEM PACLNGTH I; # LENGTH OF PAAC TABLE #
#
** AAINPQ - APPL TO APPL INPUT QUEUE.
*
* THIS QUEUE IS THE INPUT QUEUE TO THE A-A PROCESS.
#
BASED ARRAY AAINPQ [00:00] S(1);
BEGIN
ITEM AAQ$WORD U(00,00,60); # FULL WORD REF #
END
ITEM AAQL I; # LEN OF AAINPQ #
#
** OUTSMQ - OUTCALL REQUEST MESSAGE QUEUE.
*
* THIS QUEUE IS THE MAIN INPUT QUEUE FOR THE OUTCALL REQUEST
* OVERLAY. IT WILL CONTAIN CR/IAP/R SMS.
#
BASED ARRAY OUTSMQ [00:00] S(1);
BEGIN
ITEM OUTS$WORD U(00,00,60); # WORD REFERENCE #
END
ITEM OUTSMQL I; # LENGTH OF OUTSMQ #
#
** INSMQ - INCALL MESSAGE QUEUE.
*
* THIS QUEUE IS THE MAIN INPUT QUEUE FOR THE INCALL REQUEST
* OVERLAY. IT WILL CONTAIN CR/RAP/R SMS.
#
BASED ARRAY INSMQ [00:00] S(1);
BEGIN
ITEM INS$WORD U(00,00,60); # WORD REFERENCE #
END
ITEM INSMQL I; # LENGTH OF INSMQ #
#
** AAVCBRDQ - A-A VCB RECEIVE DATA QUEUE.
*
* RECEIVE VCB DATA QUEUE FOR A-A.
#
BASED ARRAY AAVCBRDQ [00:00] S(1);
BEGIN
ITEM AAVC$WORD U(00,00,60);
END
ITEM AAVCLNGTH I; # AAVCDATAQ LENGTH #
#
** FACTAB - TABLE FOR HOLDING THE FACILITY PAIRS FOR A-A.
#
BASED ARRAY FACTAB [00:00] S(1);
BEGIN
ITEM FACT$WORD U(00,00,60);
END
ITEM FACTABL I; # LENGTH OF FACTAB #
#
* LLPID - LOGICAL LINK TO PID TABLE.
#
BASED ARRAY LLPID [00:00] S(1);
BEGIN
ITEM LLP$WORD U(00,00,60); # WORD REFERENCE #
ITEM LLP$PNAME C(00,00,03); # PID NAME #
ITEM LLP$ACLL U(00,37,11); # ACTIVE LOG LINKS FOR PID #
ITEM LLP$PIDSTAT B(00,48,01); # PID ACCESSIBLE FLAG #
ITEM LLP$LLCNT U(00,49,11); # LOG LINKS DEFINED FOR PID #
ITEM LLP$WORD1 U(01,00,60); # WORD 1 REFERENCE #
ITEM LLP$DN U(01,00,08); # DESTINATION NODE OF LLINK #
ITEM LLP$SN U(01,08,08); # SOURCE NODE OF LLINK #
ITEM LLP$PORT U(01,16,08); # NPU CALL ACCESS PORT #
ITEM LLP$DTEL U(01,24,08); # CALLED DTE ADDR LENGTH #
ITEM LLP$LLSTAT B(01,59,01); # LLINK STATUS #
ITEM LLP$DTEA U(02,00,60); # DTE ADDRESS #
END
ITEM LLPIDL I; # LENGTH OF LLPID TABLE #
#
** ACPID - ACTIVE PID TABLE.
*
* THIS TABLE CONTAINS ENTRIES FOR EACH A-A CONNECTION THAT
* DICTATES THE USE OF LID/PID ATTRIBUTES IN ORDER TO
* ESTABLISH AN A-A OUTCALL.
#
BASED ARRAY ACPID [00:00] S(1);
BEGIN
ITEM ACP$WORD0 U(00,00,60);
ITEM ACP$WORD1 U(01,00,60);
ITEM ACP$WORD2 U(02,00,60);
ITEM ACP$WORD3 U(03,00,60);
ITEM ACP$SMID U(00,00,12); # ENTRY IDENTIFIER #
ITEM ACP$ESIZ U(00,48,12); # ENTRY SIZE IN CM WORDS #
ITEM ACP$VCB U(01,18,18); # OWNING PAAC VCB ORDINAL #
ITEM ACP$FC U(02,00,12); # FUNCTION CODE - SETPIDA #
ITEM ACP$SPANP U(02,12,12); # NUNBER PIDS - SETPIDA #
ITEM ACP$SPARES1 U(02,24,11); # RESERVED #
ITEM ACP$SPANWID B(02,35,01); # NETWORD ID-SETPIDA #
ITEM ACP$SPARES2 U(02,36,06); # RESERVED #
ITEM ACP$RC U(02,42,08); # RETURN REASON CODE #
ITEM ACP$RES3 U(02,50,10); # RESERVED #
ITEM ACP$CBIT B(02,59,01); # FET BUSY BIT #
ITEM ACP$SPAPID C(03,00,03); # 3 CHAR PID-SETPIDA #
ITEM ACP$SPAUPID U(03,00,18);
ITEM ACP$SPARES3 U(03,18,38); # RESERVED #
ITEM ACP$SPAST U(03,56,04); # RETURN NETWORK STATUS #
ITEM ACP$GLCWC U(02,00,12); # WORD COUNT-GETLIDC #
ITEM ACP$GLCRES1 U(02,12,30); # RESERVED #
ITEM ACP$GLCLID C(03,00,03); # 3 CHAR LID-GETLIDC #
ITEM ACP$GLCULID U(03,00,18);
ITEM ACP$GLCRES2 U(03,18,30); # RESERVED #
ITEM ACP$GLCNP U(03,48,12); # NUMBER PIDS-GETLIDC #
ITEM ACP$GLCPID C(04,00,03); # 3 CHAR PID 1-GETLIDC #
ITEM ACP$GLCUPID U(04,00,18);
ITEM ACP$GLCSF B(04,18,01); # STORE AND FORWARD-GETLIDC#
ITEM ACP$GLCRES3 U(04,19,37); # RESERVED #
ITEM ACP$GLCST U(04,56,04); # RET PID STATUS-GETLIDC #
ITEM ACP$GPAPID C(02,00,03); # 3 CHAR PID-GETPIDA #
ITEM ACP$GPAUPID U(02,00,18);
ITEM ACP$GPARES1 U(02,18,24); # RESERVED #
ITEM ACP$GPARPID C(03,00,03); # 3 CHAR PID-GETPIDA #
ITEM ACP$GPARUPID U(03,00,18);
ITEM ACP$GPARES2 U(03,18,38); # RESERVED #
ITEM ACP$GPAST U(03,56,04); # RET PID STATUS-GETPIDA #
END
ITEM ACPIDL I; # ACPID TABLE LENGTH #
#
** AALPID - A-A LID/PID FUNCTION QUEUE.
*
* THIS IS AN INPUT QUEUE TO THE MAIN A-A DISPATCHER.
* IT CONTAINS STATUS QUEUE ENTRIES FROM COMPLETED
* GETLIDC AND GETPIDA SFM FUNCTION REQUESTS.
#
BASED ARRAY AALPID [00:00] S(1);
BEGIN
ITEM AAL$WORD U(00,00,60);
END
ITEM AALPIDL I; # LENGTH OF AALPID TABLE #
#
** LPIDFXQ - LID/PID FUNCTION QUEUE.
*
* THIS QUEUE IS AN INPUT QUEUE TO THE OUTCALL REQUEST OVERLAY.
* IT CONTAINS THE COMPLETED STATUS FROM A GETLIDC OR GETPIDA
* RA+1 FUNCTION CALL.
#
BASED ARRAY LPIDFXQ [00:00] S(1);
BEGIN
ITEM LP$WC U(00,48,12); # ENTRY SIZE IN CM WORDS #
ITEM LP$VCB U(01,24,12); # OWNING PAAC VCB #
END
ITEM LPIDFXQL I; # LENGTH OF LPIDFXQ #
#
** APOUTCL - APPLICATION SUPPLIED OUTCALL PARAMETERS
*
* THIS TABLE IS USED TO HOLD THE APPLICATION SUPPLIED OUTCALL
* PARAMETERS WHICH MAY BE SPECIFIED IN THE CR/IAP/R SM.
#
BASED ARRAY APOUTCL [00:00] S(1);
BEGIN
ITEM APO$VCB U(00,36,12); # OWNING PAAC VCB #
ITEM APO$WC U(00,48,12); # ENTRY SIZE IN CM WORDS #
ITEM APO$WORD U(00,00,60); # FULL WORD REFERENCE #
END
ITEM APOUTCLL I; # LENGTH OF APOUTCL #
#
** TEND - DUMMY LAST TABLE.
*
* TEND TABLE SERVES NO PURPOSE EXCEPT TO TERMINATE THE VECTOR OF
* TABLE POINTERS USED BY THE *TABLE MANAGER*.
#
BASED ARRAY TEND[00:00] S(1);
BEGIN
ITEM TND$FL I(00,00,60); # CONTAINS ADDRESS AT END OF FL #
END
ITEM TNDTEND I; # CONTAINS TOTAL STORAGE USED #
END # END TABLES #
END # END TEXTNVF #
TERM