*DECK TXTANVF
PROC TXTANVF;
# TITLE TXTANVF - SYMPL TEXT FOR NVF RESIDENT CODE. #
BEGIN #TXTANVF #
#
** TXTANVF - SYMPL TEXT FOR NVF RESIDENT CODE.
*
* S. H. FISCHER. 81/12/01.
* C. J. BRION. 83/04/21. 83/05/10. 83/09/08.
* C. J. BRION 83/10/19.
*
* THIS SYMPL TEXT CONTAINS DEFINITIONS NEEDED BY SEVERAL NVF
* RESIDENT PROCESSES.
*
* PROC TXTANVF
*
#
CONTROL STEXT;
#
****
#
DEF ABAP$ #3#; # "ABAP" ACCOUNT MESSAGE TYPE #
DEF ABUN$ #1#; # "ABUN" ACCOUNT MESSAGE TYPE #
DEF AEAP$ #4#; # "AEAP" ACCOUNT MESSAGE TYPE #
DEF AEUN$ #2#; # "AEUN" ACCOUNT MESSAGE TYPE #
DEF ABER$ #5#; # "ABER" ACCOUNT MESSAGE TYPE #
DEF ABIC$ #6#; # "ABIC" ACCOUNT MESSAGE TYPE #
DEF SIPI$ #7#; # "SIPI" ACCONT MESSAGE TYPE #
DEF ABAC$ #0#; # A-A ACCOUNT MSG TYPES #
DEF ABAA$ #1#;
DEF ABAE$ #2#;
DEF ABEA$ #3#;
DEF ABRE$ #4#;
DEF AEAA$ #5#;
DEF ABAR$ #6#;
DEF SANW$ #0#; # APPLICATION STATUS ACCOUNT MSG TYPES #
DEF SBNW$ #1#;
DEF SBER$ #2#;
DEF SENW$ #3#;
DEF ALN$ #0#; # APPL LIST NUMBER FOR THE CONNECTION #
DEF AWTAPP$ #1#; # AWAIT APPLICATION PROMPT - PTA$PROMPT #
DEF AWTFAM$ #5#; # AWAIT FAMILY PROMPT - PTA$PROMPT #
DEF AWTPID$ #2#; # AWAIT PERSONAL ID PROMPT - PTA$PROMPT #
DEF AWTPWD$ #3#; # AWAIT PASSWORD PROMPT - PTA$PROMPT #
DEF AWTUSR$ #4#; # AWAIT USER PROMPT - PTA$PROMPT #
DEF CPMSIZ$ #15#; # MAXIMUM NUMBER OF CPM PARAMETERS - 1 #
DEF CPM56B$ #O"56"#; # CPM VALIDATE FUNCTION CODE #
DEF CPM73B$ #O"73"#; # CPM DECREMENT FAMILY COUNT FUNCTION CODE#
DEF DSPROUTE$ #O"77"#; # DSP ROUTE FUNCTION CODE #
DEF GLIDCFC$ #O"65"#; # GETLID CONFIGURATION FUNCTION CODE #
DEF GPIDAFC$ #O"66"#; # GET PID ATTRIBUTES FUNCTION CODE #
DEF SPIDAFC$ #O"67"#; # SET PID ATTRIBUTES FUNCTION CODE #
DEF PIDOPST$ # 1 #; # SETPIDA NETWORK STATUS=PID AVAILABLE #
DEF PIDINOP$ # 2 #; # SETPIDA NETWORK STATUS=PID NOT AVAILABLE#
DEF GLIDBUFS$ #14#; # GETLIDC FX MINIMUM BUFFER SIZE #
DEF GPIDBUFS$ # 6#; # GETPIDA FX BUFFER SIZE #
DEF SPIDBUFS$ # 4#; # SETPIDA FX BUFFER SIZE #
DEF LPIDLEN$ #20#; # CHAR LEN OF LID/PID FX REQ BUFFER #
DEF GPIDABIAS$ #2#; # ACPID ENTRY BIAS FOR GETPIDA MACRO CALL #
DEF GLIDCBIAS$ #3#; # ACPID ENTRY BIAS FOR GETLIDC MACRO CALL #
DEF GETFC$ #O"76"#; # GET FILE INTERNAL FUNCTION CODE #
DEF GETFETS$ #17#; # GET MACRO CALL FET SIZE + 1 #
DEF CRQDSIZ$ #2#; # NUM OF WRDS PER DECREMNT FAM CT CPM REQ #
DEF CRQVSIZ$ #4#; # NUM OF WORDS PER VALIDATE CPM REQUEST #
DEF DSPVSIZ$ #9#; # NUM OF WORDS PER DSP ROUTE REQUEST #
DEF TMBSIZ$ #4#; # TIMER REQUEST BUFFER SIZE #
DEF DEFAULT$ #2#; # FAMILY/USER AUTOLOGIN TYPE INDICATOR #
DEF EPFNBIT$ #16#; # STARTING BIT FOR EP FIELD NUMBER (FN) #
DEF EPFN$ #49#; # EP FIELD NUMBER #
DEF EPON$ #X"45503D59"#; # HEX CODE FOR "EP=Y" #
DEF EPTLC$ #6#; # CTLR/DEF ECHOPLEX TEXT LENGTH IN CHARS #
DEF ICT$ #4#; # INPUT CHARACTER TYPE FOR THE CONNECTION #
DEF LCTRLO$ #4#; # CTRL/CHAR LENGTH IN OCTETS #
DEF MATRY$ #128#; # MAXIMUM NUMBER OF APPL RETRIES ALLOWED #
DEF MLTRY$ #4#; # MAXIMUM NUMBER OF LOGIN RETRIES ALLOWED #
DEF MNDATRY$ #1#; # FAMILY/USER/APPL AUTOLOGIN TYPE IND #
DEF NULL$ #0#; # NULL PARAMETER #
DEF PRIMARY$ #3#; # APPLICATION AUTOLOGIN TYPE INDICATOR #
DEF RTCLC$ #6#; # CTRL/RTC TEXT LENGTH IN CHARACTERS #
DEF TCFNBIT$ #0#; # STARTING BIT FOR TC FIELD NUMBER (FN) #
DEF TCFN$ #34#; # TC FIELD NUMBER #
DEF TC9$ #9#; # SYNCHRONOUS TERMINAL CLASS #
DEF VCBSIZ$ #8#; # NUMBER OF WORDS PER VCB ENTRY #
DEF NETPTIME$ # 300 #; # NETON PENDING TIMEOUT IN SECS #
DEF RTRYTIME$ # 30 #; # RETRY CONNECTION TIMEOUT IN SECS #
DEF CONNOK$ # 0 #; # CONNECTION OK STATUS #
DEF NOCONN$ # 1 #; # NO CONNECTION POSSIBLE STATUS #
DEF NETP$ # 2 #; # NETON PENDING STATUS #
DEF MCLIMIT$ # 3 #; # MAXIMUM CONNECTION/COPIES LIMIT REACHED #
DEF AACON$ # 1 #; # AA CONNECTION TYPE ID #
DEF TACON$ # 2 #; # TA CONNECTION TYPE ID #
DEF ECABSY$ # 0 #; # APPLICATION BUSY ERROR CODE #
DEF ECCANA$ # 7 #; # CONCURRENT ACCESS PROHIBITED ERROR CODE #
DEF ECANP$ # 1 #; # APPLICATION NOT PRESENT EC #
DEF ECAPNETP$ # 2 #; # APPLICATION NETON PENDING EC #
#
* LID/PID MANAGEMENT FUNCTION REASON CODES.
#
DEF LPIDSMALL$ # 6 #; # RETURN INFO TOO LONG FOR BUFFER #
DEF LPIDBADLP$ # 7 #; # PID/LID NOT LEGAL #
DEF LPIDBADAT$ #10 #; # INVALID ATTRIBUTE #
DEF LPIDLIDOV$ #12 #; # LID TABLE OVERFLOW #
DEF LPIDBUFSM$ #16 #; # BUFFER TOO SMALL #
#
****
#
#
** ACNST - ACN STATE DEFINITIONS.
*
* THIS STATUS LIST DEFINES THE SYMBOLS TO BE USED IN SETTING AND
* CHECKING THE STATE OF A CONNECTION TO NVF BY THE C LAYER.
*
#
STATUS ACNST
CREATE, # CREATE IN PROGRESS #
ACTIVE, # ACTIVE #
BRKOUT, # BREAK OUTSTANDING #
BROKEN, # CONNECTION BROKEN #
ENDED, # CONNECTION ENDED (IN PROGRESS)#
TRMPEND, # TERMINATE PENDING #
SWTPEND, # SWITCH PENDING #
CLEARI, # CLEAR INPUT #
SWSTART, # SWITCH STARTED #
BRKCMD, # BRK PENDING/CMD IN PROGRESS #
;
#
** CTQSTAT - CONNECTION TRAFFIC QUEUE ENTRY DEFINITIONS.
** FOLLOWING STATUS IS FOR USE BY *NVFCDQE**AND *NVFTDQE**PROCESSES
* FOR DISPATCHING ITS SMS.
#
STATUS CTQSTAT
SACC, # CR/ACC SM #
SCB, # CR/CB SM #
SITE, # CR/ITE SM #
SIAP, # CR/IAP SM #
SRAP, # CR/RAP SM #
SRCN, # CR/RCN SM #
SSWHN, # CR/SWH/N SM #
STRMN, # CR/TRM/N SM #
SACK, # FC/ACK SM #
SBRK, # FC/BRK SM #
SIUSR, # INTR/USR SM #
SINA, # FC/INACT - TIMER EXPIRED #
SINIT, # FC/INIT SM #
SNAK, # FC/ACK SM #
SBMRK, # BI/MARK SM #
SHBRK, # HOP/BRK SM #
SHCMD, # HOP/CMD SM #
SHEND, # HOP/END SM #
SHIG, # HOP/IG SM #
SHPAGE, # HOP/PAGE SM #
SHSTART, # HOP/START SM #
STCHAR, # TCH/TCHAR SM #
SSLL, # CR/SLL SM #
SFAI, # FAI/APP/N SM #
SNETN, # NET/ON/N SM #
SNETA; # NET/ON/A SM #
#
** DTSTAT - DEVICE TYPE STATUS DEFINITIONS.
** FOLLOWING STATUS IS FOR USE BY *NVFTACC*, *NVFTDSP**AND *NVFTITE**
* PROCESSES FOR CASING ON DEVICE TYPE.
#
STATUS DTSTAT
SCON, # CONSOLE DEVICE TYPE 0 #
SCR, # CARD READER DEVICE TYPE 1 #
SLP, # LINE PRINTER DEVICE TYPE 2 #
SCP, # CARD PUNCH DEVICE TYPE 3 #
SPL, # PLOTTER DEVICE TYPE 4 #
SAA1, # APPLICATION-TO-APPLICATION TYPE 5 #
SAA2, # APPLICATION-TO-APPLICATION TYPE 6 #
SCLP, # CDCNET LINE PRINTER (PSU) 7 #
,,,, # 8,9,10,11,#
SUSER; # USER DEVICE TYPE 12 #
#
** PDCTST - PDCT STATE DEFINITIONS.
*
* THIS STATUS LIST DEFINES THE SYMBOLS TO BE USED IN SETTING AND
* CHECKING THE STATE OF A PDCT BY THE T-A PROCESS.
#
STATUS PDCTST
PDCNULL, # NULL STATE - NOT USED #
CONSWT, # CONNECTION SWITCHED #
AWTCVAL, # AWAIT CONSOLE VALIDATION #
AWTCON; # AWAIT CONSOLE #
#
** PAACST - STATE DEFINITIONS FOR PAAC ENTRIES.
#
STATUS PAACST
PANULL, # S0 - NULL STATE/NO PAAC #
PAIAP, # S1 - IAP REQUEST PROCESSED #
PARAP, # S2 - RAP REQUEST PROCESSED #
PAAWTVAL, # S3 - RAP AWAIT VALIDATION DATA #
PAICBVCB, # S4 - IAP - CB WAITING ON VCB DATA #
PARCBVCB, # S5 - RAP - CB WAITING ON VCB DATA #
PAIRCNVCB, # S6 - IAP - RCN WAITING ON VCB DATA #
PARRCNVCB, # S7 - RAP - RCN WAITING ON VCB DATA #
PACB, # S8 - CB ON NON NVF CONNECTION #
PAISWT, # S9 - IAP SWITCH SUCCESSFUL - VCB STATE #
PARSWT, # S10 - RAP SWITCH SUCCESSFUL - VCB STATE #
PARCN, # S11 - RCN ON NON NVF CONNECTION #
PANETP, # NETON PENDING #
PAAWTLPID, # AWAIT LID PID FUNCTION CALL #
PAERR; # ERROR STATE #
#
** PTACST - PTAC STATE DEFINITIONS.
*
* THIS STATUS LIST DEFINES THE SYMBOLS TO BE USED IN SETTING AND
* CHECKING THE STATE OF A PTAC BY THE T-A PROCESS.
#
STATUS PTACST
PTANULL, # NULL STATE - NOT USED #
AWTRSP, # AWAIT RESPONSE #
AWTVAL, # AWAIT VALIDATION #
CONBROK, # CONNECTION BROKEN #
AWTVCBC, # AWAIT VCB FOR A CR/CB #
AWTVCBR, # AWAIT VCB FOR A CR/RCN #
AWTPRMT, # AWAIT PROMPT #
AWTNETP, # AWAIT NETON PENDING #
AWTAPPL, # AWAIT CONSOLE SWITCH TO APPLICATION #
AWTVAA, # AWAIT VALIDATE APPLICATION ACCESS #
AWTVCBL; # AWAIT VCB FOR LOANED CR/RCN #
#
** TABUF - LABELLED COMMON BLOCK.
*
* COMMON BLOCK OF BUFFERS USED BY THE TERMINAL-TO-APPLICATION
* PROCESS OF NVF.
#
COMMON TABUF;
BEGIN
#
** CRQBUF - CPM REQUEST BUFFER.
*
* BUFFER FOR CPM REQUEST 56B (VALID) AND 73B (DECREMENT FAMILY
* COUNT).
*
*
* THE FOLLOWING IS THE FORMAT OF AN CRQ ENTRY. EACH ENTRY
* IS 4-WORDS LONG.
*
*
* 1 2 3 4 5
* 012345678901234567890123456789012345678901234567890123456789
*TEXT
*T,WORD0,6/FC,18/,12/ACN,24/
*TEXT
*T,WORD1,42/FNAME,16/ ,1/RETPED,1/RETPID
*ENDTEXT
*T,WORD2,42/PASSWD,16/,1/F,1/P
*T,WORD3,42/UNUM,18/
*ENDTEXT
*
*
#
BASED ARRAY CRQBUF[00:00] S(DSPVSIZ$);
BEGIN
#
****
#
ITEM CRQ$FCWORD U(00,00,60); # REFERENCE FUNCTION CODE WORD #
ITEM CRQ$FC U(00,00,06); # FUNCTION CODE OF REQUEST #
ITEM CRQ$ACN U(00,24,12); # APPLICATION CONNECTION NUMBER #
ITEM CRQ$VCB U(00,24,12); # VCB ORDINAL #
ITEM CRQ$QNUM U(00,42,18); # QUEUE NUMBER FOR RECVD DATA #
ITEM CRQ$FWORD U(01,00,60); # REFERENCE FAMILY WORD #
ITEM CRQ$FNAM C(01,00,07); # FAMILY NAME #
ITEM CRQ$NOROUT B(01,57,01); # NOT ROLL OUT JOB IF DEVICE ERR#
ITEM CRQ$RETPED B(01,58,01); # CPM TO RETURN PASSWRD EXP DATE#
ITEM CRQ$RETPID B(01,59,01); # CPM TO RETURN PERSONAL ID #
ITEM CRQ$PWORD U(02,00,60); # REFERENCE PASSWORD WORD #
ITEM CRQ$PASSWD C(02,00,07); # PASSWORD #
ITEM CRQ$IFCTF B(02,58,01); # INCREMENT FAMILY COUNT FLAG #
ITEM CRQ$VPWF B(02,59,01); # VALIDATE PASSWORD FLAG #
ITEM CRQ$UWORD U(03,00,60); # REFERENCE USER WORD #
ITEM CRQ$UNUM C(03,00,07); # USER NUMBER #
#
****
#
END
#
** CPMBUF - CONTROL POINT MANAGER REQUEST BUFFER.
*
* THE FOLLOWING ARRAY DEFINES THE PARAMETER BLOCK FOR CPM REQUEST.
#
ARRAY CPMBUF[00:CPMSIZ$] S(1);
BEGIN
ITEM CPB$WORD U(00,00,60); # FULL WORD REFERENCE #
ITEM CPB$FNAM C(00,00,07); # FAMILY NAME #
ITEM CPB$CBIT B(00,59,01); # COMPLETE BIT #
END
ITEM WAITCPM B = FALSE; # TRUE WHEN CPM REQUEST ISSUED #
ITEM FXACTIVE B = FALSE; # FUNCTION ACTIVE FLAG #
#
**
*E
** VCBBUF - VCB (VALIDATION CONTROL BLOCK) DATA BUFFER.
*
* BUFFER OF VCB DATA FOR WRITE VCB REQUEST.
*
*
* THE FOLLOWING IS THE FORMAT OF A T-A VCB ENTRY. EACH ENTRY
* IS 8-WORDS LONG.
*
*
*TEXT
*TEXT
*T,WORD0,42/TN,1/H,1/N,1/C,1/I,1/ ,1/A,12/VCB
*ENDTEXT
*T,WORD1,30/CNTIME,30/SWTIME
*T,WORD2,60/FWORD
*T,WORD3,30/,4/DT,5/TC,12/AACN,9/ASORD
*T,WORD4,60/UWORD
*T,WORD5,42/ALIFAM,3/FI,3/UI,1/ ,11/XBZ
*T,WORD6,42/ALIUSR,6/UBZ,1/ ,11/DBZ
*T,WORD7,42/ALIAPP,3/AI,1/V,4/SDT,4/DO,6/SL
*ENDTEXT
*
*
#
BASED ARRAY VCBBUF[00:00] S(VCBSIZ$);
BEGIN
#
****
#
ITEM VCB$TN C(00,00,07); # TERMINAL NAME #
ITEM VCB$HW B(00,42,01); # HARDWIRED TERMINAL FLAG #
ITEM VCB$NET B(00,43,01); # NETWORK TYPE #
ITEM VCB$CACA B(00,44,01); # CONCURRENT ACCESS FLAG #
ITEM VCB$ICF B(00,45,01); # INTERACTIVE CAPABILITY FLAG #
ITEM VCB$ALIF B(00,47,01); # AUTO-LOGIN FLAG #
ITEM VCB$VCB U(00,48,12); # VCB ORDINAL #
ITEM VCB$CNTIME U(01,00,30); # CONNECT TIME - MODDHHMMSS #
ITEM VCB$CTIME U(01,12,18); # CONNECT TIME - HHMMSS #
ITEM VCB$SWTIME U(01,30,30); # SWITCH TIME - MODDHHMMSS #
ITEM VCB$STIME U(01,42,18); # SWITCH TIME - HHMMSS #
ITEM VCB$FWORD U(02,00,60); # REFERENCE FAMILY WORD #
ITEM VCB$PRIAN U(03,00,09); # PRI APPL NUMBER #
ITEM VCB$VTP U(03,09,08); # VTP VERSION #
ITEM VCB$ICMCN B(03,26,01); # THIS IS AN INCOMING CONNECTION#
ITEM VCB$RCNA B(03,28,01); # CR/RCN/A SENT FLAG #
ITEM VCB$LCF B(03,29,01); # LOANED CONNECTION FLAG #
ITEM VCB$DT U(03,30,04); # DEVICE TYPE #
ITEM VCB$TC U(03,34,05); # TERMINAL CLASS #
ITEM VCB$AACN U(03,39,12); # CONNECTED APPLICATION'S ACN #
ITEM VCB$SWAPAN U(03,51,09); # APPLICATION NUMBER #
ITEM VCB$UWORD U(04,00,60); # REFERENCE USER WORD #
ITEM VCB$ALIFAM C(05,00,07); # AUTO-LOGIN FAMILY NAME #
ITEM VCB$FAMIND U(05,42,03); # MANDATORY/DEFAULT FAMILY #
ITEM VCB$USRIND U(05,45,03); # MANDATORY/DEFAULT USER #
ITEM VCB$XBZ U(05,49,11); # TRANSMISSION BLOCK SIZE #
ITEM VCB$ALIUSR C(06,00,07); # AUTO-LOGIN USER NAME #
ITEM VCB$UBZ U(06,42,06); # UPLINE BLOCK SIZE #
ITEM VCB$DBZ U(06,49,11); # DOWNLINE BLOCK SIZE #
ITEM VCB$ALIAPP C(07,00,07); # AUTO-LOGIN APPLICATION NAME #
ITEM VCB$APPIND U(07,42,03); # MANDATORY/PRIMARY APPLICATION #
ITEM VCB$VDSF B(07,45,01); # VALIDUS APPL EXIST FLAG #
ITEM VCB$SDT U(07,46,04); # SUB-DEVICE TYPE #
ITEM VCB$DO U(07,50,04); # DEVICE ORDINAL #
ITEM VCB$SL U(07,56,04); # SECURITY LEVEL #
#
****
#
#
**
*E
* THE FOLLOWING THE FORMAT OF A MULT-HOST A-A VCB ENTRY.
* EACH ENTRY IS 8-WORDS LONG.
*
*
* 1 2 3 4 5
* 012345678901234567890123456789012345678901234567890123456789
*TEXT
*T,WORD0,18/ARHID,4/AMO,2/,12/ANACN,12/APACN,12/VCB
*T,WORD1,4/ASL,2/,8/AIAPRC,1/ ,4/ADT,2/,3/AH,28/,8/APORT
*T,WORD2,42/AFAM,6/AFORD,7/,1/F,1/P,1/C,1/I,1/
*T,WORD3,42/AUSER,18/AUSRIDX
*T,WORD4,30/ACNTIME,30/ASWTIME
*T,WORD5,42/ASWAP,8/ASWAPAN,1/ ,9/ASWAPAST
*T,WORD6,8/ANUMOUT,1/ ,8/ASNODE,1/ ,8/ADNODE,34/
*T,WORD7,60/
*ENDTEXT
#
#
****
#
ITEM VCB$ATN C(00,00,07); # A-A TERMINAL NAME #
ITEM VCB$AVCB U(00,48,12); # VCB ORDINAL #
ITEM VCB$ACNTIME U(01,00,30); # CONNECT TIME #
ITEM VCB$ACTIME U(01,12,18); # CONNECT TIME HHMMSS #
ITEM VCB$ASWTIME U(01,30,30); # SWITCH TIME #
ITEM VCB$ASTIME U(01,42,18); # SWITCH TIME HHMMSS #
ITEM VCB$AFAM C(02,00,07); # FAMILY NAME #
ITEM VCB$AFORD U(02,48,06); # FAMILY ORDINAL #
ITEM VCB$AUPFCF B(02,55,01); # INC FAM CNT FLAG #
ITEM VCB$AUPWF B(02,56,01); # USE PASSWORD FLAG #
ITEM VCB$ASCINV U(02,57,02); # REF SEC CNT & INV LOGIN #
ITEM VCB$ASCEF B(02,57,01); # SEC CNT EXHAUSTED FLAG #
ITEM VCB$AINVLF B(02,58,01); # INV LOGIN FLAG #
ITEM VCB$ARHID C(03,00,03); # REMOTE HOST ID #
ITEM VCB$AMODE U(03,18,04); # HOST MODE #
ITEM VCB$ADT U(03,30,04); # DEVICE TYPE #
ITEM VCB$ACNAA U(03,39,12); # CONNECTED APPL ACN #
ITEM VCB$ASWAPAN U(03,51,09); # CONNECTED APPL NUMBER #
ITEM VCB$AUSER C(04,00,07); # USER NUMBER #
ITEM VCB$AUSRIDX U(04,42,18); # USER INDEX #
ITEM VCB$ASWAP C(05,00,07); # SWITCHED APPL NAME #
ITEM VCB$ASL U(05,42,04); # SECURITY LEVEL #
ITEM VCB$ASTATE U(05,46,06); # PAAC STATE #
ITEM VCB$AIAPRC U(05,52,08); # CR/IAP REASON CODE #
ITEM VCB$ANUMOUT U(06,00,08); # NUMBER OUTCALL ATTEMPTS #
ITEM VCB$ASNODE U(06,08,08); # SOURCE NODE #
ITEM VCB$ADNOD U(06,16,08); # DESTINATION NODE #
ITEM VCB$AVSTATE U(06,24,06); # VCB STATE #
ITEM VCB$AABITS U(06,30,24); # REF APPL BITS OF AAWC #
ITEM VCB$ANACN U(07,24,12); # NVF ACN #
ITEM VCB$APORT U(07,40,08); # ACCESS PORT NUMBER ON NPU #
ITEM VCB$WRD0 U(00,00,60); # WORD REFERENCES #
ITEM VCB$WRD1 U(01,00,60);
ITEM VCB$WRD2 U(02,00,60);
ITEM VCB$WRD3 U(03,00,60);
ITEM VCB$WRD4 U(04,00,60);
ITEM VCB$WRD5 U(05,00,60);
ITEM VCB$WRD6 U(06,00,60);
#
****
#
END
#
** LPIDBUF - LID PID BUFFER FOR SFM FUNCTION CALLS.
#
BASED ARRAY LPIDBUF [00:00] S(2);
BEGIN
ITEM LPI$WORD0 U(00,00,60);
ITEM LPI$WORD1 U(01,00,60);
ITEM LPI$FC U(00,00,06); # FUNCTION CODE #
ITEM LPI$VCB U(00,24,12); # PAAC VCB ORDINAL #
ITEM LPI$QNUM U(00,42,18); # Q NUMBER FOR RETURN #
ITEM LPI$LID C(01,00,03); # LID IDENTIFIER #
ITEM LPI$ULID U(01,00,18);
ITEM LPI$PID C(01,18,03); # PID IDENTIFIER #
ITEM LPI$UPID U(01,18,18);
ITEM LPI$SIZE U(01,36,13); # ACPID TABLE SIZE NEEDED #
ITEM LPI$NWST U(01,56,04); # SETPIDA PID STATUS #
END
END # END TABUF #
END # END TXTANVF #
TERM