In this session, you will create a map by copying the field definitions
from a DDM (data definition module). In addition, you will change the map
setting so that you can use the WRITE USING MAP statement.
To create a map from DDM fields
At the program editor's command prompt, enter the following:
EDIT MAP
The Edit Map menu appears.
Execute the Initialize new Map function to create
a map with the name MAP002.
The Define Map Settings For MAP screen appears.
Change Page Size to 60. Mark
WRITE Statement by typing in an X in the
input field next to it. Unmark INPUT Statement by removing
the X next to it with SPACEBAR.
Press ENTER.
The WRITE Statement option is marked, which means
that this map can only be invoked from a program with a WRITE USING
MAP statement.
Press ENTER twice.
The map editing screen appears.
Next to the Ob input fields at the top of the screen, enter the following:
V EMPLOYEES
Press ENTER.
The fields definitions of the DDM EMPLOYEES are listed:
Ob V EMPLOYEES Ob D CLS ATT DEL CLS ATT DEL
1 PERSONNEL-ID A8 . T D Blnk T I ?
. FULL-NAME *G1 . A D _ A I )
2 FIRST-NAME A20 . A N ¬ M D &
3 MIDDLE-I A1 . M I : O D +
4 NAME A20 . O I (
5 MIDDLE-NAME A20 .
001 --010---+----+----+---030---+----+----+---050---+----+----+---070---+----
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Mset Exit Test Edit -- - + Full < > Let |
In the editing area, enter the following:
Ob V EMPLOYEES Ob D CLS ATT DEL CLS ATT DEL
1 PERSONNEL-ID A8 . T D Blnk T I ?
. FULL-NAME *G1 .
2 FIRST-NAME A20 .
3 MIDDLE-I A1 . O D +
4 NAME A20 . O I (
5 MIDDLE-NAME A20 .
001 --010---+----+----+---030---+----+----+---050---+----+----+---070---+----
NAME:(4
(2
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Mset Exit Test Edit -- - + Full < > Let
|
This defines two fields for the map, whose definitions are to be
copied from the DDM: the sequential number 4 entered will copy the definition
of the corresponding field NAME, and number 2 will copy the
definition of the corresponding field FIRST-NAME.
Press ENTER.
The field definitions in the DDM are copied into the map:
Ob V EMPLOYEES Ob D CLS ATT DEL CLS ATT DEL
1 PERSONNEL-ID A8 . T D Blnk T I ?
. FULL-NAME *G1 .
2 FIRST-NAME A20 .
3 MIDDLE-I A1 . O D +
4 NAME A20 . O I (
5 MIDDLE-NAME A20 .
001 --010---+----+----+---030---+----+----+---050---+----+----+---070---+----
NAME:(XXXXXXXXXXXXXXXXXXXX
(XXXXXXXXXXXXXXXXXXXX
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Mset Exit Test Edit -- - + Full < > Let
|
Use the field command .M to move the field
positioned in the second line of the editing area to the position shown
below:
Ob V EMPLOYEES Ob D CLS ATT DEL CLS ATT DEL
1 PERSONNEL-ID A8 . T D Blnk T I ?
. FULL-NAME *G1 .
2 FIRST-NAME A20 .
3 MIDDLE-I A1 . O D +
4 NAME A20 . O I (
5 MIDDLE-NAME A20 .
001 --010---+----+----+---030---+----+----+---050---+----+----+---070---+----
NAME:(XXXXXXXXXXXXXXXXXXXX(XXXXXXXXXXXXXXXXXXXX
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Mset Exit Test Edit -- - + Full < > Let
|
In the Ob input fields, replace the
V by a plus sign (+) and press ENTER.
The next page of field definitions is displayed.
Repeat the previous step until the field CITY appears in
the list. Replace the V by a minus sign (-) if you need to scroll
up one page in the list.
Enter CITY:(2 as shown below:
Ob V EMPLOYEES Ob D CLS ATT DEL CLS ATT DEL
. FULL-ADDRESS *G1 . T D Blnk T I ?
1 ADDRESS-LINE A20 . A D _ A I )
2 CITY A20 . A N ¬ M D &
3 ZIP A10 . M I : O D +
4 POST-CODE A10 . O I (
5 COUNTRY A3 .
001 --010---+----+----+---030---+----+----+---050---+----+----+---070---+----
NAME:(XXXXXXXXXXXXXXXXXXXX(XXXXXXXXXXXXXXXXXXXX CITY:(2
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Mset Exit Test Edit -- - + Full < > Let
|
Press ENTER.
The screen now look as follows:
Ob V EMPLOYEES Ob D CLS ATT DEL CLS ATT DEL
. FULL-ADDRESS *G1 . T D Blnk T I ?
1 ADDRESS-LINE A20 . A D _ A I )
2 CITY A20 . A N ¬ M D &
3 ZIP A10 . M I : O D +
4 POST-CODE A10 . O I (
5 COUNTRY A3 .
001 --010---+----+----+---030---+----+----+---050---+----+----+---070---+----
NAME:(XXXXXXXXXXXXXXXXXXXX(XXXXXXXXXXXXXXXXXXXX CITY:(XXXXXXXXXXXXXXXXXXXX
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Mset Exit Test Edit -- - + Full < > Let
|
Press PF3.
The Edit Map menu appears.
STOW map MAP002 by using the appropriate
menu function.
You can now proceed with Reusing the Layout of a Map.
