Data Manipulation Language Statements › #MAPINQ › Moving Map-Related Data

Moving Map-Related Data

This version of the #MAPINQ statement moves the following information into variable storage:

• The cursor position (row and column).
• The attention ID (AID) key used. An AID key is the key that was last pressed during the input operation.
• The entered length of a specific input field.

Syntax

►►─── #MAPINQ MRB=map-request-block-pointer ──────────────────────────────────►

 ►─┬─────────────────────────────────────────────┬────────────────────────────►
   └─ ,MRBLIST= ─┬─ MRBPLIST ◄ ─────────────────┬┘
                 └─ mrb-parameter-list-pointer ─┘

   ┌───────────────────────────────┐
 ►─▼─┬─ ,CURSOR=cursor-position ──┬┴──────────────────────────────────────────►◄
     ├─ ,AID=aid-indicator ───────┤
     └─ field-options ────────────┘

Expansion of field-options

►►─── ,FIELD=field-name ──────────────────────────────────────────────────────►

 ►─┬─────────────────────────┬────────────────────────────────────────────────►
   └─ ,INDEX=index-register ─┘

 ►─┬────────────────────────────────┬─────────────────────────────────────────►◄
   └─ ,INLEN=field-length-register ─┘

Parameters

MRB=

Specifies the storage area associated with the MRB of the map about which the inquiry is being made.

map-request-block

A register that points to the MRB storage area or the symbolic name of that area.

MRBLIST=

Specifies the location of the 20-fullword storage area that is substituted for the DC/UCF portion of SUBSCHEMA-CTRL.

MRBPLIST

(Default); is the symbolic name of the storage area that will be substituted for the DC/UCF portion of SUBSCHEMA-CTRL.

mrb-parameter-list

A register that points to the area or the symbolic name of the area.

CURSOR=

Requests that the system return the cursor address from the last map in operation to the specified location in the issuing program.

cursor-position

The symbolic name of a 2-byte user-defined field. The system will set the value of cursor-position to the row and the column, each a 1-byte binary number, of the cursor position on the screen.

AID=

Requests that the system return the AID to the specified location in the issuing program.

aid-indicator

The symbolic name of a 1-byte user-defined field that will be set to the 3270 AID character received in the last map in request.

FIELD=

Requests that the system move the entered length of the specified map field for which information is required.

field-name

Specifies the name of the map field.

Note: For each #MAPINQ request to return map-related data, field-specific information can be requested for one map field; if information is needed for multiple fields, additional #MAPINQ commands must be issued.

INDEX=

Specifies the occurrence of the field if field-name is a multiply-occurring field.

index-register

Either a register or the symbolic name of a user-defined field that contains the subscript or an absolute expression.

INLEN=

Requests that the system return the entered length, in bytes, of the specified map field to the issuing program.

field-length-register

A register or the symbolic name of a halfword or fullword user-defined field to which the system will return the length.

Example

The following #MAPINQ statement moves the contents of map field EMPNUM to the area in the program labeled BLOCK1. The value of the 3270 AID character received in the last map in request is returned to the user-defined field AIDBYTE. This field is tested for the specific AID key value that indicates the operator is finished with this program.

         #MAPINQ MRB=BLOCK1,AID=AIDBYTE,FIELD=EMPNUM
         CLI   AIDBYTE,CLEAR
         BE    RETURN
         .
         .
CLEAR    EQU   X'6D'

The following table lists attention ID (AID) key values.