Data Manipulation Language Statements › #MAPMOD—requests that the system modify options in the map request block › #MAPMOD Example

#MAPMOD Example

The example of the #MAPMOD statement shown below performs the following functions:

• Identifies BLOCK1 as the storage area associated with the MRB of the map that is being modified
• Accepts the default of setting the modifications listed in this statement as permanent until the program terminates or another #MAPMOD statement is issued
• Accepts the default of MRBPLIST as the symbolic name of the storage area that will be substituted for the DC/UCF portion of SUBSCHEMA-CTRL
• Identifies the initial position of the cursor during a map out operation on the first position of the field SCREENF1
• Defines the WCC character options requested for output operations
• Specifies that all the fields listed in the FLIST parameter are to be modified
• Specifies that during an output operation the screen fields associated with the fields listed in the FLIST parameter are to be set to the value of the storage fields
• Specifies that during an input operation the storage fields are to be set to the value of the corresponding screen fields
• Specifies that the storage fields will be left justified on input
• Specifies that on input the storage fields will be padded on the right with blank spaces
• Specifies that input is optional
• Specifies the 3270 attributes for the specified map fields

  #MAPMOD MRB=BLOCK1,CURSOR=(SCREENF1),WCC=(NOMDT,RESETKDB,     *
        NOALARM,NOPRT),FLIST=(FIELD,SCREENF1,                   *
        FIELD,SCREENF2                                          *
  

        FIELD,SCREENF3                                          *
        FIELD,SCREENF4),                                        *
        FOR=FLIST,OUTDATA=YES,INDATA=YES,                       *
        JUSTIFY=LEFT,PAD=C' ',INPUT=OPTIONAL,                   *
        ATTR=(SKIP,BRIGHT,UNDERSCR)
  

The following #MAPMOD statement shows how to suppress display of default error messages for fields EMPID and DEPTID on the current map.

#MAPMOD TYPE=TEMP,MRB=MAPMRB,                                          *

      FLIST=(FIELD,EMPID FIELD,DEPTID),                                *

      FOR=FLIST,ERRMSG=SUPPRESS

Because this #MAPMOD statement specifies TEMP, error messages for these fields are suppressed for the next mapout only. If PERM (default) were used, the error messages would be suppressed until the program terminated or until the error message specifications were overridden by a subsequent #MAPMOD statement.