*** EMPLOYEE INFORMATION SCREEN ***
 
               EMPLOYEE ID : ____
                 LAST NAME : ____________
                FIRST NAME : ________________
                   ADDRESS : ________________
                           : ____________
                           : __ __________
 
                DEPARTMENT : ____________________
 
 
 
 
 
 
 
 
    ENTER AN EMPLOYEE ID AND PRESS ENTER  ***  PRESS CLEAR TO EXIT
 

Write data to a terminal screen
Read data input from a terminal screen and query the status of conditions related to the input operation
Modify previously established map and map field options
Write unlimited detail occurrences that can be displayed one page at a time by using a pageable map

Attribute byte
-The nondisplayable byte that begins each map field at run time. The contents of the attribute byte determine the characteristics of the field (such as protection and intensity). Attributes bytes are a 3270 feature.
Automatic editing and error handling
-An optional map feature that can be used to perform editing and error-handling functions at run time. These functions can compare input and output data with internal and external pictures, validate data against edit tables, and encode or decode data through code tables.
Modified data tag (MDT)
-:ih1.modified data tag The internal switch for a map data field that indicates whether the value in that field has been changed by the user. Modified data tags are a 3270 feature.
Write control character (WCC)
-The internal character that holds various specifications for the display of the map such as resetting the keyboard to allow user input. Write control characters are a 3270 feature.

Identify the map you want to use
by including a MAP SECTION (COBOL), a DECLARE MAP statement (PL/I), or the MAP parameter in the @INVOKE statement (Assembler).
Copy the map request block (MRB) and the map records
by including compiler-directive statements in program variable storage.
Establish addressability between DC and the MRB
by issuing a BIND MAP statement.
Establish addressability to map records
by issuing a BIND MAP RECORD statement for each record defined for the map.

Issue mapping mode housekeeping statements as described above.
Initialize variable-storage data fields as needed.
Transfer data from variable-storage data fields to map fields on the screen by issuing a MAP OUT statement.

Sending informational messages to the user
Keeping the data stream short
Choosing asynchronous or synchronous processing

 ENTER AN EMPLOYEE ID AND PRESS ENTER ****  PRESS CLEAR TO EXIT
 You might send a different message with the same map at another time to indicate the completion status of a task:
 ****  SPECIFIED EMPLOYEE CANNOT BE FOUND  ****
 

Avoid rewriting literals
. If you are rewriting to the same map, there usually is no need to retransmit literal fields. Specify the NEWPAGE and the LITERALS options only on an initial map output.
Transmit only the attribute bytes
. If your program determines that the user has entered invalid data, you need not retransmit the invalid values; these values are still listed on the terminal screen. Instead, you can specify OUTPUT DATA IS ATTRIBUTE to transmit only the attribute bytes for map fields.
The ATTRIBUTE specification is useful when sending error messages to the terminal because DC still transmits the data in the message field. For example, you could minimize the data stream transmitted by coding the following MAP OUT statement:
MAP OUT USING DEPTMAP
     OUTPUT DATA IS ATTRIBUTE
     MESSAGE IS ID-EDIT-ERROR-MESS TO ID-EDIT-ERROR-MESS-END.
 
If automatic editing and error handling are enabled and you use the ERROR option of the MODIFY MAP statement, the ATTRIBUTE specification is automatically invoked.

During a
synchronous
map output request, DC places your task in an inactive state until processing is complete.
To issue a synchronous map output request, specify the WAIT option of the MAP OUT statement. This option allows you to ensure that the output request was completed successfully before continuing program processing.
During an
asynchronous
map output request, DC returns control to your task before the output processing is complete. Before issuing subsequent map output requests, you must ensure that the first request is finished by issuing a CHECK TERMINAL request. CHECK TERMINAL is a basic mode DML statement that is described in Basic Mode.
To issue an asynchronous map output request, specify the NOWAIT option of the MAP OUT statement.
You may want to specify NOWAIT if your program issues a MAP OUT just before task termination. This causes DC to release a task's resources sooner. In this case, however, you cannot issue the CHECK TERMINAL statement; you won't be able to determine the completion status of the MAP OUT operation.

  DATA DIVISION.
  WORKING-STORAGE SECTION.
  01  TSK02                         PIC X(8)  VALUE 'TSK02'.
  01  MESSAGES.
      05 INITIAL-MESSAGE            PIC X(54) VALUE
       'ENTER AN EMPLOYEE ID AND PRESS ENTER *** CLEAR TO EXIT'.
      05 INITIAL-MESSAGE-END        PIC X.
  PROCEDURE DIVISION.
 *** ESTABLISH ADDRESSABILITY TO MAP ***
      BIND MAP SOLICIT.
 *** ESTABLISH ADDRESSABILITY TO MAP RECORDS ***
      BIND MAP SOLICIT RECORD EMPLOYEE.
      BIND MAP SOLICIT RECORD DATE-WORK-REC.
      MOVE ZERO TO EMP-ID-0415.
  
*** DISPLAY THE MAP *** 
  
     MAP OUT USING SOLICIT 
  
        WAIT NEWPAGE 
  
        MESSAGE IS INITIAL-MESSAGE TO INITIAL-MESSAGE-END. 
 *** RETURN CONTROL TO CA-IDMS/DC NEXT TASK TSK02 ***
      DC RETURN
         NEXT TASK CODE TSK02.
 

Issue mapping mode housekeeping statements, as explained in Housekeeping.
Transfer data from map fields on the terminal screen to variable-storage data fields by issuing a MAP IN statement.

  PROCEDURE DIVISION.
 *** ESTABLISH ADDRESSABILITY TO THE MAP ***
      BIND MAP SOLICIT.
 *** ESTABLISH ADDRESSABILITY TO THE MAP RECORDS ***
      BIND MAP SOLICIT RECORD EMPLOYEE.
      BIND MAP SOLICIT RECORD EMP-DATE-WORK-REC.
  
*** TRANSFER DATA FROM MAP DATA FIELDS TO VARIABLE STORAGE *** 
  
     MAP IN USING SOLICIT. 
 *** FURTHER PROCESSING OF ENTERED DATA ***
 

The control key pressed.
The current cursor position.
Information on conditions regarding a map data field or group of map data fields:
Is data present?
Has data been modified?
Has data been truncated?
What is the entered length of a specific map input field?
Whether specified map fields are in error (the error flag has been set on for those fields) or are correct (the error flag has been set off). This option applies only to those maps and map fields for which automatic editing is enabled.
Whether the screen was formatted before the input operation was performed.

To determine what control key was pressed
. Typically, an application offers various processing options to the user. Each option can be associated with a control key. Your program should check the AID byte after every MAP IN statement to determine the option chosen. The table below lists the AID characters associated with each 3270-type control key.

To ensure that necessary data has been entered
. You should make sure that the user has entered data in all fields necessary for successful processing.
To determine if automatic editing and error-handling have detected any errors
. If input errors are detected, DC automatically transmits only the attribute bytes for the next map output operation.

  DATA DIVISION.
  WORKING-STORAGE SECTION.
  01  DC-AID-CONDITION-NAMES.
       03  DC-AID-IND-V           PIC X.
                              88  ENTER-HIT VALUE QUOTE.
                              88  CLEAR-HIT VALUE '_'.
  PROCEDURE DIVISION.
 *** ESTABLISH ADDRESSABILITY TO THE MAP AND MAP RECORDS ***
      BIND MAP SOLICIT.
      BIND MAP SOLICIT RECORD EMPLOYEE.
      BIND MAP SOLICIT RECORD DEPARTMENT.
      BIND MAP SOLICIT RECORD EMP-DATE-WORK-REC.
 *** TRANSFER DATA FROM THE MAP TO VARIABLE STORAGE ***
      MAP IN USING SOLICIT.
  
*** DETERMINE THE AID KEY PRESSED BY THE TERMINAL OPERATOR *** 
  
     INQUIRE MAP SOLICIT 
  
         MOVE AID TO DC-AID-IND-V. 
 *** IF OPERATOR PRESSED CLEAR THEN DC RETURN ***
      IF CLEAR-HIT DC RETURN.
 *** DETERMINE IF THE TERMINAL OPERATOR     ***
 *** ENTERED DATA IN THE DEPT-ID-0410 FIELD ***
  
     INQUIRE MAP SOLICIT 
  
         IF DFLD DEPT-ID-0410 
  
            DATA IS NO 
  
            GO TO A100-NO-DATA. 
         .
 *** FURTHER PROCESSING OF ENTERED DATA ***
 

Position the cursor on the next MAP OUT operation
Require that the user enter data in a specified map data field
Prevent the user from entering data in specified map data fields (this is especially useful on the initial MAP OUT of a session)
Require that data from a specified map data field be transmitted regardless of whether it was modified by the user
Modify the WCC and attribute options for an entire session

Issue mapping mode housekeeping statements
For more information about housekeeping statements, see Housekeeping.
Issue the MODIFY MAP command
Issue either a MAP IN or MAP OUT statement

  PROCEDURE DIVISION.
      BIND MAP SOLICIT.
      BIND MAP SOLICIT RECORD EMPLOYEE.
      BIND MAP SOLICIT RECORD EMP-DATE-WORK-REC.
  
*** SET CURSOR AND PREVENT INPUT INTO ALL BUT EMP-ID-0415 *** 
  
     MODIFY MAP SOLICIT TEMPORARY 
  
        CURSOR AT DFLD EMP-ID-0415 
  
        FOR ALL EXCEPT DFLD EMP-ID-0415 
  
        ATTRIBUTES PROTECTED. 
 *
      MOVE ZERO TO EMP-ID-0415.
      MAP OUT USING SOLICIT
         YES NEWPAGE
         MESSAGE IS INITIAL-MESSAGE TO INITIAL-MESSAGE-END.
 *
      DC RETURN
         NEXT TASK CODE TSK02.
 

Issue mapping mode housekeeping statements
For more information about housekeeping statements, see Housekeeping.
Modify map or map data fields,
For more information about modifying map data fields, see Modifying Map Options.
Initialize variable-storage data fields as needed
Transfer data from variable-storage data fields to map fields on the terminal screen and back again by issuing the MAP OUTIN statement

Define an alternative message in working storage. For example:
 DATA DIVISION.
 WORKING-STORAGE SECTION.
 01  MESSAGES.
     05 INITIAL-MESSAGE            PIC X(80) VALUE
      'ENTER A NUMERIC ORDER-AMOUNT AND PRESS ENTER'.
     05 EDIT-ERROR-MESSAGE         PIC X(80) VALUE
      'ORDER-AMOUNT EITHER NOT ENTERED OR NOT NUMERIC'.
     05 INVENTORY-MESSAGE          PIC X(80) VALUE
      'NOT ENOUGH WIDGETS IN STOCK TO DELIVER THAT AMOUNT'.
     05 DISPLAY-MESSAGE            PIC X(80) VALUE
      'CLEAR TO EXIT ** ENTER ORDER-AMOUNT AND ENTER TO CONTINUE'
 
Modify the map to display alternative messages when a specific error is found:
 MODIFY MAP MAP01 TEMPORARY
    FOR DFLD ORDER-AMOUNT
        ERROR MESSAGE IS SUPPRESS.
 
Perform your data validation routine. For example, you can compare the number of widgets in stock to ORDER-AMOUNT. If ORDER-AMOUNT is greater than the number in stock, issue an alternative message indicating that the order cannot be filled.
If the data validation routine indicates that there are not enough widgets in stock, display the map with the alternative message.

If TEMPORARY is specified, error messages are suppressed for the next mapout only.
If PERMANENT is specified, error messages are suppressed until the program terminates or until the error message specifications are overridden by a subsequent MODIFY MAP statement.

The field's MDT is off. On mapin, the MDT is usually off if the user did not type any characters in the field.
The field's MDT is on, but each character that the user typed in is identical (including capitalization) to the data in variable storage.

If the IDENTICAL condition is
true
(the user doesn't specify a different ID number), the program displays the menu screen
If the IDENTICAL condition is
false
(the user specifies a different ID number), the program obtains the corresponding employee record from the database

 INQUIRE MAP MAP01
    IF DFLD EMP-ID-0415 DATA IS IDENTICAL THEN
       PERFORM EMP-PROMPT-20
    ELSE
       PERFORM EMP-OBTAIN-20.
 

 INQUIRE MAP MAP02
    IF ANY DFLD DEPT-ID-0410
           DFLD DEPT-NAME-0410 DATA IS DIFFERENT
    THEN PERFORM DEPTUP-30.