$PAIR – Define a table pair

Use $PAIR to define a table pair. See Using JES2 table pairs for a detailed description of table pairs.

Format description


1?  label  $PAIR  FORM=
2.1 TABLE
2.1 DSECT
2.1 MSG
2.1 IPCS
1  HASPENT=
2.1 (name,ADDR)
2.1 NONE
1  USERENT=
2.1 (name,ADDR)
2.1 NONE
1  COMMENT= 'comment text'
2  TABLE=
3.1 SCAN
3.1 (SCAN,VECTOR)
3.1 WST
3.1 BERT
3.1 PCE
3.1 DCT
3.1 DTE
3.1 TID
3.1 PCR
3.1 xxxxxxxx
FORM=
Indicates what of several forms of the table pair is being generated:
DSECT
Generates the DCs required for the DSECT mapping.
TABLE
Generates the DCs required for the DSECT mapping plus a WXTRN for any user table entry.
IPCS
Generates the IPCS model that corresponds to the DSECT mapping.
MSG
Generates the special table pair form used by HASPMSG, including the $SCANTAB TABLE=HASP|USER. Only valid when TABLE=SCAN or TABLE= (SCAN,VECTOR).
HASPENT=
Specifies a name that will override the default HASP table name of HASPxxxT. A specification of NONE causes a zero value to be filled into the HASP table. It is not valid for FORM=MSG. When the HASP table is defined in this assembly module, then the positional operand ADDR must be specified.
USERENT=
Specifies a name that will override the default user table name of USERxxxT. A specification of NONE causes a zero value to be filled into the USER table. It also causes dynamic tables to be disallowed for this table pair. Not valid for FORM=MSG. When the USER table is defined in this assembly module, then the positional operand ADDR must be specified.
COMMENT=
Specifies a comment that is to be placed on the table pair in the macro expansion.
TABLE=
Specifies the type of table that this table pair will point to. A second positional entry of VECTOR indicates that a special VECTOR SCANTAB entry is to be produced, which consists of only a HASP table (no USER or DYNAMIC entries).
TABLE=SCAN - $SCANTAB
TABLE=(SCAN,VECTOR) - $SCANTAB VECTOR
TABLE=WST - $WSTAB
TABLE=BERT - $BERTTAB
TABLE=PCE - $PCETAB
TABLE=DTE - $DTETAB
TABLE=DCT - $DCTTAB
TABLE=TID - $TIDTAB
TABLE=PCR - $PCTAB

Environment

  • Main task.
  • $WAIT can occur.