*RDMASK Amend Procedure Variables using FHS

*RDMASK (format [,lib] ) [TAR=n,] [&var1, &var2, ... ]

The *RDMASK statement will display an FHS *-format mask, in which the contents of the specified procedure variables will be displayed in the various fields of the FHS mask. After transmitting the mask with DUE1 or ENTER, the contents of the modified fields will be assigned to the procedure variables. The contents of the first field will be assigned to the first procedure variable specified, and so on.

format Name of the FHS mask in the CFSLIB.

(format,lib) Name of the FHS mask in the specified format library.

TAR=n Tabulator Right. When the mask is displayed, the cursor will normally be positioned in the first input field (TAR=0). The parameter TAR=n (n = 1, 2, ...) enables the cursor to be positioned in the second (TAR=1), third (TAR=2) etc. entry field.

Normally, the parameter can be omitted.

&var1 Name of the procedure variable to be assigned the contents of the first mask field.

If the variable does not yet exist, it will be created by CFS as an empty variable. The data portion of the CFS procedure variable must not exceed 80 bytes. Longer mask fields will be truncated when being transferred to the variable.

When displaying the mask, the current contents of the procedure variables will be displayed in their respective mask fields.

If more variable fields exist in the mask than procedure variables, then the entries in the surplus fields will be lost.

Notes:

With the exception of &CFSMSG, no other CFS-internal variables, such as &DATE or &TIME may be specified.

The MFHSROUT library must be assigned with a file command before the first *RDMASK statement, as follows: /FILE lib,LINK=MROUTLIB

Only *-format FHS masks can be displayed with the *RDMASK stetement. If IFG was used to create an FHS * format mask, the following points should be noted:

In the "DEFAULT VALUES FOR APPLICATION PREPARATION, ADDRESSING AID SPECIFICATIONS" screen, the following entries are necessary in the "Structure of the data transfer area":

separate attribute blocks and field contents : NO

aligned, with attribute fields : NO

unaligned, with attribute fields : NO

unaligned, without attribute fields : YES

The relative entries are also necessary when defining the formats using FHS macros.

The *RDMASK statement can also be used merely to display an FHS mask in a CFS procedure: *RDMASK (format,lib)

Within the procedure, the *RDMASK statement can be split across many lines. A hyphen should be used as the continuation character, with an asterisk appearing as the first character of a continued line.