CUPAB - Address operand list (24-bit interface)

General

Application areas:	Requesting and accessing lists and tables; see "Requesting and accessing lists and tables"Input/output; see "Input/output"
Macro type:	Type O; see "O-type macros"

The description applies to TIAM V13.2A.

The CUPAB macro may be used only in 24-bit addressing mode.
In 31-bit addressing mode, the form MF=F/D of the appropriate input/output macro (RDATA, WROUT, WRTRD) must be used.

Macro description

The CUPAB macro (Communication User PArameter Block) macro allows the user to address symbolically the fields and flags in the operand lists for the RDATA, WROUT and WRTRD macros. For this purpose, CUPAB generates a dummy section (DSECT) for the operand list with 24-bit addresses.

Macro format and description of operands

[name] CUPAB

D

name
When this entry is specified, it is used as the DSECT name. When it is omitted, CUPAB is automatically generated as the DSECT name.

D
D generates a dummy section (DSECT) for the operand list. When this operand is omitted, an MNOTE message is issued.
DSECT generation is not affected.

The field names generated by the macro and their characteristics are as follows:

• RDATA operand table:

  Field Name	Byte	Meaning
  CURAREAW	0 - 3	Input edit option byte 1.
  CUREDIT1	0	Input edit option byte 1.
  CURAREA	1 - 3	Address of user input area (in CURAREAW).
  CURFTB	4	Flag
  CUREDIT2	5	Input edit option byte 2.
  CURALEN	6 - 7	Length of user input area.
  CURERRW	8 - 11	Full word containing CURACI and CURERROR.
  CURACI	8	Assignment change indicator for SYSDTA
  CURERROR	9 - 11	Error address (in CURERRW).
  L@RDATAB		Length of RDATA operand table.

• WROUT operand table:

  Field Name	Byte	Meaning
  CUWMSGW	0 - 3	Full word containing CUWEDIT1 and CUWMSG.
  CUWEDIT1	0	Output edit option byte 1.
  CUWMSG	1 - 3	Address of the message in the user program.
  CUWERRW	4 - 7	Full word containing CUWEDIT2 and CUWERROR.
  CUWEDIT2	4	Output edit option byte 2.
  CUWERROR	5 - 7	Error address.
  L@WROUTB		Length of the WROUT operand table.

• WRTRD operand table:

  Field Name	Byte	Meaning
  CUBMSGW	0 - 3	Full word containing CUBOEDT1 and CUBMSG.
  CUBOEDT1	0	Output edit option byte 1.
  CUBMSG	1 - 3	Address of message output area.
  CUBAREAW	4 - 7	Full word containing CUBIEDT1 and CUBAREA.
  CUBIEDT1	4	Input edit option byte 1.
  CUBAREA	5 - 7	Input area address.
  CUBOEDT2	8	Output edit option byte 2.
  CUBIEDT2	9	Input edit option byte 2.
  CUBALEN	10 - 11	Length of user input area.
  CUBERRW	12 - 15	Full word containing CUBERROR.
  reserviert	12	-
  CUBERROR	13 - 15	Error address.
  L@WRTRDB		Length of the WRTRD operand table.

Symbolic constants for edit bytes 1 and 2

As well as defining field names for the RDATA, WROUT and WRTRD operand tables, CUPAB also defines symbolic constants for the values of the edit, edit1 and edit2 operands.

The following tables provide an overview of the names of the symbolic constants defined by CUPAB, their current values and equivalent symbolic edit operands when MODE is specified, and also indicate whether or not they are valid in the various modes.

1. Output edit option byte 1

   CUPAB name	Bit	Corresponding MODE operand	valid (X) or mandatory (1) for MODE=
   			COMP	LINE	FORM	PHYS
   CWR1CODE	20	OTRSUP=	X	0	0	0
   CWR1LNET	21	OLINEND=	X	0	1	1
   	22	reserved for MODE=	0	1	0	1
   CWR1RSET	23	OMANUAL=	X	0	0	0
   CWR1HOM	24	OHOM=	0	X	0	0
   CWR1PTPE	25	OPTAPE=	X	0	0	0
   	26	reserved for MODE=	0	0	1	1
   CWR1HARD	27	OHCOPY=	X	X	0	X

2. Output edit option byte 2

   CUPAB name	Bit	Corresponding MODE operand	valid (X) or mandatory (1) for MODE=
   			COMP	LINE	FORM	PHYS
   CWR2HDR	20	OHDR=	X	0	1	X
   CWR2NOLC	21	ONOLOGC=	0	X	0	0
   CWR2EXT	22	EXTEND=	0	X	0	0
   CWR2INFO	23	OINFO=	0	X	0	0
   	24	reserved	0	0	0	0
   CWR2POSN	25	ONOPOSN=	0	X	0	0
   CWR2TRAN	25	OTRANS=	0	0	0	X
   CWR2BEL	26	OBELL=	0	X	0	0
   CWR2ETB	27	OETB=	0	0	0	X

3. Input edit option byte 1

   CUPAB name	Bit	Corresponding MODE operand	valid (X) or mandatory (1) for MODE=
   			COMP	LINE	FORM	PHYS
   CRD1CODE	20	ITRSUP=	X	0	0	X
   CRD1LNET	21	ILINEND=	X	0	1	1
   CRD1BACK	22	IGETBS=	X	X	X	X
   CRD1RSET	23	IMANUAL=	X	0	0	0
   CRD1LCT	24	ILCASE=	X	X	X	X
   	25	reserved for MODE=	0	1	0	1
   	26	reserved for MODE=	0	0	1	1
   CRD1HDR	27	IHDR=	X	0	1	X

4. Input edit option byte 2

   CUPAB name	Bit	Corresponding MODE operand	valid (X) or mandatory (1) for MODE=
   			COMP	LINE	FORM	PHYS
   CRD2GFC	20	IGETFC=	0	X	0	0
   	21	reserved	0	0	0	0
   CRD2CFD	22	ICFD=	0	X	0	0
   CRD2GIC	23	IGETIC=	0	X	0	0
   	24	reserved	0	0	0	0
   CRD2EXT	25	EXTEND=	0	X	0	1
   	26	reserved	0	0	0	0
   	27	reserved	0	0	0	0

The following applies to operands where bits are not reserved:

MODE operand	Associated bit
= Y	set (1)
= N	reset (0)

For the meaning of the MODE operands (and the associated bits of the input and output edit option bytes) refer to the operand descriptions for the RDATA, WROUT and WRTRD macros.