Loc Source Statement
000000 ISTRIVL DSECT MAPPING FOR RESOURCE INFORMATION
* VECTOR LIST POINTED TO BY ACBRIVL
000000 RIVLLEN DS HL2 TOTAL LENGTH OF VECTORS
000002 RIVLDATA DS 0X VECTOR DATA
*
***********************************************************************
*** GENERALIZED MAPPING FOR EXAMINING COMMON FIELDS IN ALL ACB **
*** VECTORS IN THE VECTOR LIST POINTED TO BY ACBRIVL **
***********************************************************************
000000 ISTRIVVT DSECT VECTOR TEMPLATE @Y3A
000000 RIVVTLEN DS X VECTOR LENGTH @Y3A
000001 RIVVTKEY DS X VECTOR KEY @Y3A
000002 RIVVTDAT DS 0X VECTOR DATA @Y3A
*
*
***********************************************************************
*** ISTRIV02 - maps the application's network name vector. **
*** - The name is specified by the name field of the **
*** application definition statement. **
*** - This is obtained from the NAME ON APPL STATEMENT. **
***********************************************************************
000000 ISTRIV02 DSECT APPLICATION NETWORK NAME VECTOR
* (FROM NAME ON APPL STATEMENT)
000000 RIV02LEN DS X VECTOR LENGTH
000001 RIV02KEY DS X VECTOR KEY
RIV02KYC EQU X'02' KEY IS X'02'
000002 RIV02DTA DS CL8 VECTOR DATA
*
***********************************************************************
*** ISTRIV03 - maps the application's ACB name vector. **
*** - This is supplied by the APPLID operand on the ACB **
*** statement or can be supplied by the operating **
*** system. During OPEN ACB, VTAM will search for the **
*** application's characteristics by matching the ACB **
*** APPLID value to an RDTE with the application's **
*** ACBNAME. If ACBNAME was not coded for the **
*** application, VTAM will search for a match with an **
*** RDTE containing the application's network name. **
*** - This is obtained from the APPLID on ACB MACRO. **
***********************************************************************
000000 ISTRIV03 DSECT APPLICATION ACB NAME VECTOR
* (FROM APPLID ON ACB MACRO)
000000 RIV03LEN DS X VECTOR LENGTH
000001 RIV03KEY DS X VECTOR KEY
RIV03KYC EQU X'03' KEY IS X'03'
000002 RIV03DTA DS CL8 VECTOR DATA
*
***********************************************************************
*** ISTRIV06 - maps the network name in which the host resides. **
*** - This is obtained from the NETID START OPTION. **
*** If NETID start option is not specified, this value **
*** will be blanks. **
***********************************************************************
000000 ISTRIV06 DSECT NETWORK NAME VECTOR
* (FROM NETID START OPTION)
000000 RIV06LEN DS X VECTOR LENGTH
000001 RIV06KEY DS X VECTOR KEY
RIV06KYC EQU X'06' KEY IS X'06'
000002 RIV06DTA DS CL8 VECTOR DATA
*
***********************************************************************
*** ISTRIV07 - maps the SSCP Name vector. **
*** - This is obtained from the SSCPNAME START OPTION **
***********************************************************************
000000 ISTRIV07 DSECT SSCP NAME VECTOR
* (FROM SSCPNAME START OPTON)
000000 RIV07LEN DS X VECTOR LENGTH
000001 RIV07KEY DS X VECTOR KEY
RIV07KYC EQU X'07' KEY IS X'07'
000002 RIV07DTA DS CL8 VECTOR DATA
* (DEFAULT IS 'VTAM')
*
***********************************************************************
*** ISTRIV08 - maps the Host Subarea PU Network Name vector. **
*** - This is obtained from the HOSTPU START OPTION **
*** If HOSTPU start option is not specified, the name **
*** will default to 'ISTPUS '. **
***********************************************************************
000000 ISTRIV08 DSECT HOST SUBAREA PU NETWORK NAME VECTOR
* (FROM HOSTPU START OPTION)
000000 RIV08LEN DS X VECTOR LENGTH
000001 RIV08KEY DS X VECTOR KEY
RIV08KYC EQU X'08' KEY IS X'08'
000002 RIV08DTA DS CL8 VECTOR DATA
* (DEFAULT IS 'ISTPUS')
*
***********************************************************************
*** ISTRIV09 - maps the Host Subarea PU network address vector. **
*** - It contains the network address of the host **
*** subarea PU. **
***********************************************************************
000000 ISTRIV09 DSECT HOST SUBAREA PU NETWORK ADDRESS
*
000000 RIV09LEN DS X VECTOR LENGTH
000001 RIV09KEY DS X VECTOR KEY
RIV09KYC EQU X'09' KEY IS X'09'
000002 RIV09DTA DS XL6 VECTOR DATA
*
***********************************************************************
*** ISTRIV0A - maps the maximum subarea vector. **
*** - Contains the maximum subarea number that is valid **
*** for the host's domain. **
*** - This is obtained from the MAXSUBA START OPTION **
***********************************************************************
000000 ISTRIV0A DSECT MAXIMUM SUBAREA NUMBER VECTOR
* (FROM MAXSUBA START OPTION)
000000 RIV0ALEN DS X VECTOR LENGTH
000001 RIV0AKEY DS X VECTOR KEY
RIV0AKYC EQU X'0A' KEY IS X'0A'
000002 RIV0ADTA DS X VECTOR DATA
*
***********************************************************************
*** ISTRIV0B - maps the LU 6.2 application definition vector. **
*** After the LU 6.2 application program has issued an **
*** open ACB, the LU 6.2 application program may use **
*** this vector to determine the values coded on the **
*** APPL definition statement. **
*** - This is obtained from the APPL STATEMENT PARAMETERS **
***********************************************************************
000000 ISTRIV0B DSECT LU 6.2 APPL DEFINITION VECTOR
* (FROM APPL STATEMENT PARAMETERS)
000000 RIV0BLEN DS X VECTOR LENGTH
000001 RIV0BKEY DS X VECTOR KEY
RIV0BKYC EQU X'0B' KEY IS X'0B'
000002 RIV0BDTA DS 0X VECTOR DATA
000002 DS X RESERVED
RIV0BSLV EQU X'C0' SESSION-LEVEL LU-LU VERIFICATION
* BIT MASK
RIV0BSLR EQU X'80' REQUIRED
RIV0BSLO EQU X'40' OPTIONAL
RIV0BSLN EQU X'00' NONE
000003 RIV0BCLS DS X CONVERSATION SECURITY ACCEPTANCE
RIV0BCLN EQU X'01' NONE
RIV0BCLC EQU X'02' CONV
RIV0BCLA EQU X'03' ALREADYV
RIV0BCLP EQU X'04' PERSISTV
RIV0BCLV EQU X'05' AVPV
000004 RIV0BFLG DS X MISCELLANEOUS FLAGS
RIV0BDDL EQU X'80' DDRAINL=ALLOW
RIV0BDRL EQU X'40' DRESPL=ALLOW
RIV0BATA EQU X'20' ATNLOSS=ALL
RIV0BSYP EQU X'10' SYNCLVL=SYNCPT
RIV0BOPC EQU X'08' OPERCNOS=ALLOW
000005 DS X RESERVED
000006 RIV0BDSL DS HL2 DSESLIM VALUE
000008 RIV0BDML DS HL2 DMINWNL VALUE
00000A RIV0BDMR DS HL2 DMINWNR VALUE
00000C RIV0BAUT DS HL2 AUTOSES VALUE
*
***********************************************************************
*** ISTRIV0C - maps the common application definition vector. **
*** After the application program has issued an open for **
*** its ACB, the application may examine this vector to **
*** determine the values coded on the APPL definition **
*** statement for common application defination keywords. **
*** - This is obtained from the APPL STATEMENT PARAMETERS **
***********************************************************************
000000 ISTRIV0C DSECT APPLICATION DEFINITION VECTOR
* FOR ALL APPLICATION PROGRAMS @N1A
* (FROM APPL STATEMENT PARAMETERS)
000000 RIV0CLEN DS X VECTOR LENGTH @N1A
000001 RIV0CKEY DS X VECTOR KEY @N1A
RIV0CKYC EQU X'0C' KEY IS X'0C' @N1A
000002 RIV0CDTA DS 0X VECTOR DATA @N1A
000002 RIV0CAUT DS X AUTHORIZATION SETTINGS @N1A
RIV0CACQ EQU X'80' AUTH=ACQ @N1A
RIV0CASD EQU X'40' AUTH=ASDP @N1A
RIV0CCNM EQU X'20' AUTH=CNM @N1A
RIV0CPAS EQU X'10' AUTH=PASS @N1A
RIV0CPPO EQU X'08' AUTH=PPO @N1A
RIV0CSPO EQU X'04' AUTH=SPO @N1A
RIV0CTSO EQU X'02' AUTH=TSO @N1A
RIV0CVPA EQU X'01' AUTH=VPACE @N1A
000003 RIV0CFL1 DS X MISCELLANEOUS FLAGS 1 @N1A
RIV0CAPC EQU X'80' APPC=YES @N1A
RIV0CAUX EQU X'40' AUTHEXIT=YES @N1A
RIV0CCER EQU X'20' CERTIFY=YES @N1A
RIV0CDSW EQU X'10' DSPLYWLD=YES @N1A
RIV0CFSP EQU X'08' FASTPASS=YES @N1A
RIV0CHAV EQU X'04' HAVAIL=YES @N1A
RIV0CPAR EQU X'02' PARSESS=YES @N1A
RIV0CPRS EQU X'01' PERSIST=MULTI @N1A
000004 RIV0CFL2 DS X MISCELLANEOUS FLAGS 2 @N1A
RIV0CSSL EQU X'80' SESSLIM=YES @N1A
RIV0CSON EQU X'40' SONSCIP=YES @N1A
RIV0CSRX EQU X'20' SRBEXIT=YES @N1A
RIV0CVCN EQU X'10' VCNS=YES @N1A
RIV0CVFR EQU X'08' VTAMFRR=YES @N1A
000005 RIV0CLTM DS X LOSTERM SETTING @N1A
RIV0CLTN EQU X'00' LOSTERM=NORMAL @N1A
RIV0CLTI EQU X'01' LOSTERM=IMMED @N1A
RIV0CLTS EQU X'02' LOSTERM=SECOND @N1A
000006 RIV0CCMI DS X CMPAPPLI VALUE @N1A
000007 RIV0CCMO DS X CMPAPPLO VALUE @N1A
000008 RIV0CENC DS X ENCR VALUE @N1A
RIV0CECN EQU X'00' ENCR=NONE @N1A
RIV0CECO EQU X'01' ENCR=OPT @N1A
RIV0CECC EQU X'02' ENCR=COND @N1A
RIV0CECS EQU X'03' ENCR=SEL @N1A
RIV0CECR EQU X'04' ENCR=REQD @N1A
000009 RIV0CVPC DS X VPACING VALUE @N1A
00000A DS XL4 RESERVED @N1A
*
***********************************************************************
*** ISTRIV11 - maps the APPCCMD vector area length vector. **
*** - It contains the absolute minimum length and the **
*** recommended minimum length for full use of the **
*** APPCCMD vector area. **
***********************************************************************
000000 ISTRIV11 DSECT APPCCMD VECTOR AREA LENGTH VECTOR
* @L3C
000000 RIV11LEN DS X VECTOR LENGTH
000001 RIV11KEY DS X VECTOR KEY
RIV11KYC EQU X'11' KEY IS X'11'
000002 RIV11AML DS XL4 ABSOLUTE MINIMUM APPCCMD VECTOR
* AREA LENGTH @L3A
000006 RIV11RML DS XL4 RECOMMENDED MINIMUM APPCCMD
* VECTOR AREA LENGTH @L3C
*
***********************************************************************
*** ISTRIV12 - maps the application to VTAM vector keys vector. **
*** - It contains a list of all ACB vector keys that **
*** VTAM will process. Constants for the ACB vectors are **
*** located in ISTVACBV. **
***********************************************************************
000000 ISTRIV12 DSECT APPLICATION TO VTAM VECTOR KEYS
* FOR ACB MACRO
000000 RIV12LEN DS X VECTOR LENGTH
000001 RIV12KEY DS X VECTOR KEY
RIV12KYC EQU X'12' KEY IS X'12'
000002 RIV12DTA DS 0CL1 VECTOR DATA
*
***********************************************************************
*** ISTRIV13 - maps the Performance Monitor vector. **
*** Identifies a table of Performance Data vector fields **
*** (within ISTXPL) that have been retired by the **
*** Performance Monitor Interface since its inception. **
***********************************************************************
000000 ISTRIV13 DSECT PERFORMANCE MONITOR VECTOR @L1A
*
000000 RIV13LEN DS X VECTOR LENGTH @L1A
000001 RIV13KEY DS X VECTOR KEY @L1A
RIV13KYC EQU X'13' KEY IS X'13' @L1A
000002 RIV13ENT DS HL2 NUMBER OF ENTRIES IN TABLE @L2A
* (ZERO IF NONE RETIRED)
000004 RIV13RFT DS AL4 RETIRED FIELDS TABLE ADDRESS @L2A
* (ZERO IF NONE RETIRED)
000008 RIV13ELN DS HL2 LENGTH OF EACH ENTRY @L2A
*
000000 RIV13TBL DSECT RETIRED FIELDS TABLE ENTRY @L1A
* (MAPS ENTRIES IN TABLE ADDRESSED
* BY RIV13RFT)
000000 RIV13VID DS 0CL6 ID OF AFFECTED VECTOR @L1A
000000 RIV13MAJ DS CL2 MAJOR CATEGORY @L1A
000002 RIV13SUB DS CL2 SUBCATEGORY @L1A
000004 RIV13REC DS CL2 RECORD TYPE @L1A
000006 RIV13FLD DS 0CL4 FIELD POSITION WITHIN VECTOR @L1A
000006 RIV13OFF DS HL2 FIELD OFFSET @L1A
000008 RIV13FLG DS BL1 FLAG BYTE @L1A
RIV13BIT EQU X'01' DATA TYPE INDICATOR
* (1= BITSTRING, 0= OTHER) @L1A
000009 RIV13LNG DS XL1 FIELD LENGTH IF NOT BITSTRING,
* MASK FOR BITS RETIRED WITHIN BYTE
* FOR BITSTRING FIELD
*