In this session, you will create and execute the example program PROG001
to test the effect of the INPUT USING MAP
statement, which invokes
map MAP001.
PROG001 is provided in the Natural system library SYSEXPG; ask your Natural system administrator for details.
To create and execute PROG001
If you have access to a copy of PROG001, in the command line of the Edit Map menu, enter the following:
EDIT PROG001
The program editor is invoked and the source code of PROG001 is displayed in the editing area. Make sure that the program is identical to the one shown below.
Or:
If you do not have access to a copy of PROG001, in the command line of
the Edit Map menu, enter the following:
EDIT PROGRAM
The program editor is invoked. If necessary, clear the editing area
by entering the command CLEAR
at the program
editor's command prompt (>
). Then type in the following
program:
** Example 'PROG001': Example program for the Map Tutorial ************************************************************************ DEFINE DATA LOCAL 01 PERS-VIEW VIEW OF EMPLOYEES 02 NAME 02 FIRST-NAME 02 CITY * 01 #NAME (A20) 01 #CITY (A20) END-DEFINE * REPEAT /* INPUT USING MAP 'MAP001' /* IF #CITY NE ' ' AND #NAME NE ' ' FIND PERS-VIEW WITH NAME = #NAME AND CITY = #CITY IF NO RECORDS FOUND REINPUT 'NO ONE BY THIS NAME LIVING IN THIS CITY.' MARK *#CITY END-NOREC /* DISPLAY NOTITLE NAME FIRST-NAME CITY /* END-FIND ELSE IF #NAME NE ' ' FIND PERS-VIEW WITH NAME = #NAME IF NO RECORDS FOUND REINPUT 'PLEASE TRY ANOTHER NAME.' END-NOREC /* DISPLAY NOTITLE NAME FIRST-NAME CITY /* END-FIND END-IF END-IF /* END-REPEAT END
If no program name is displayed in the top line of the editor, at the
program editor's command prompt, enter the command
STOW PROG001
.
Or:
If the program name PROG001 is displayed in the top line of the
editor, at the program editor's command prompt, enter the command
STOW
.
If required, correct any syntax errors and repeat the
STOW
.
After the STOW
completed successfully, the
program is stored as a source object and a cataloged object in the current
Natural library in the current system file.
At the program editor's command prompt, enter the following:
RUN
PROG001 is executed and map MAP001 appears.
To check whether MAP001 works as intended
Press ENTER without typing in anything.
The following message is displayed: PLEASE TYPE IN A
NAME
.
In the first input field, enter a question mark (?) and press ENTER.
Help map HELP001 appears.
Press ENTER.
The help map disappears.
In the first input field, enter the name MCKENNA
and
press ENTER.
The following message is displayed: PLEASE TRY ANOTHER
NAME
.
Replace MCKENNA
by JONES
and press
ENTER.
The program produces the following list:
NAME FIRST-NAME CITY -------------------- -------------------- -------------------- JONES VIRGINIA TULSA JONES MARSHA MOBILE JONES ROBERT MILWAUKEE JONES LILLY BEVERLEY HILLS JONES EDWARD CAMDEN JONES MARTHA KALAMAZOO JONES LAUREL BALTIMORE JONES KEVIN DERBY JONES GREGORY NOTTINGHAM |
Press ENTER.
MAP001 appears.
In the first input field of the map, enter the name JONES
and, in the second input field, enter the name DUNFERMLINE
.
Press ENTER.
The following message is displayed: NO ONE BY THIS NAME LIVING
IN THIS CITY
.
In the first input field of the map, enter the name JONES
and, in the second input field, enter the name TULSA
.
Press ENTER.
The program produces the following list:
NAME FIRST-NAME CITY -------------------- -------------------- -------------------- JONES VIRGINIA TULSA |
Press ENTER.
MAP001 appears.
In the first input field, enter a period (.) and press ENTER.
The editing area of the program editor appears with the source code of PROG001.
You can now proceed with Creating a Map for WRITE and Copying Field Definitions.