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.