Data Manipulation Language Statements › #MAPINQ › Testing for Global Map Input Conditions

Testing for Global Map Input Conditions

This version of the #MAPINQ statement tests for one of the following conditions related to map input operations:

• The screen was not previously formatted before the map in was performed.
• One or more input fields were truncated when transferred to program variable storage.
• One or more input fields were modified on the screen before being transferred.
• One or more fields, which were modified on the screen, are undefined in the map being used.

Syntax

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

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

 ►─── ,CURSOR=cursor-position ────────────────────────────────────────────────►

 ►─── ,AID=aid-indicator ─────────────────────────────────────────────────────►

 ►─┬─────────────────────────────────────────────────────────┬────────────────►◄
   └─ ,IF= ( ─┬─ UNFORMAT,unformatted-screen-label─────┬─ ) ─┘
              ├─ TRUNCATE,truncated-data-label ────────┤
              ├─ CHANGED,updated-data-label ───────────┤
              └─ XTRNEOUS,extraneous-input-data-label ─┘

Parameters

MRB=

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

map-request-block-pointer

A register that points to the MRB 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-pointer

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.

IF=

Tests the outcome of the last map in request for a condition relating to the data input as a whole. Map data fields that are in error are not transferred to program variable storage.

Note: For more information about testing map input conditions, see the Mapping Facility Guide.

For each condition, the associated label specifies the symbolic name of the routine in the issuing program to which the system will pass control if the tested condition is true. The IF-parameter condition and label must be enclosed in parentheses.

UNFORMAT,unformatted-screen-label

Tests whether the screen had been formatted before the input operation was performed.

TRUNCATE,truncated-data-label

Tests whether any of the screen fields had been truncated when transmitted to program variable storage.

CHANGED,updated-data-label

Tests whether any of the screen fields actually had been mapped to program data fields when the map in operation was performed.

XTRNEOUS,extraneous-input-data-label

Tests whether the data stream that had been read from the terminal contains any data from a field undefined to the map. If this condition occurs, the system does not move the undefined data field to program variable storage.

Example

The following example of the #MAPINQ statement tests if any of the screen fields have been updated to the program data fields of the map identified by BLOCK1 when the last map in operation was performed. If the test is true, the program branches to the label NEWINFO. A false condition causes the program to execute the next sequential instruction:

#MAPINQ MRB=BLOCK1,IF=(CHANGED,NEWINFO)