Subprograms

#### Search Results

Search

# Subprograms

You will now expand your program to include a `CALLNAT` statement that invokes a subprogram. In the subprogram, the employees identified from the main program will be the basis of a `FIND` request to the `VEHICLES` file which is also part of the demo database. As a result, your output will contain vehicles information from the subprogram as well as employees information from the main program.

The new subprogram requires the creation of an additional local data area and a parameter data area.

When you have completed the exercises below, your sample application will consist of the following modules:

This document contains the following exercises:

- Modifying the Local Data Area

- Creating a Parameter Data Area from an Existing Local Data Area

- Creating Another Local Data Area Containing a Different View

- Creating a Subprogram

- Referencing the Subprogram from Your Program

## Modifying the Local Data Area

You will now add more fields to the local data area that you have previously created. These fields will be used by the subprogram that you will create later.

To add more fields to the local data area

1. Return to your local data area.

       E LDA01

2. Define the following fields below `#NAME-END`:

   Level (L column) | Name | Format (F column) | Length
   --- | --- | --- | ---
   1 | `#PERS-ID` | A | 8
   1 | `#MAKE` | A | 20
   1 | `#MODEL` | A | 20

   The local data area should now look as follows:

       Local     LDA01     Library TUTORIAL                       DBID 11177 FNR     8
       Command                                                                     > +
       I T L  Name                             F Length     Miscellaneous
       All -- -------------------------------- - ---------- ------------------------->
            1 #NAME-START                      A         20
            1 #NAME-END                        A         20
            1 #PERS-ID                         A          8
            1 #MAKE                            A         20
            1 #MODEL                           A         20

       ----------------------------------------------------------------- S 5    L 1

3. Stow the local data area.

## Creating a Parameter Data Area from an Existing Local Data Area

A parameter data area (PDA) is used to specify the data parameters to be passed between your Natural program and the subprogram that you will create later. The parameter data area will be referenced in the subprogram.

With minor modifications, your local data area can be used to create the parameter data area: you will delete two of the data fields in in the local data area and then save the revised data area as a parameter data area. The original local data area remains intact.

To create the parameter data area

1. In the local data area, delete the fields `#NAME-START` and `#NAME-END`.

2. Enter the following in the command line of the data area editor.

       SA PDA01

   The current data area is saved with the new name `PDA01`. The existing local data area is still shown in the editor.

3. Load the newly created data area into the editor by entering the following command:

       E PDA01

4. To change the local data area into a parameter data area, enter the following command:

       SET TYPE A

   where "A" denotes parameter data area.

   The object type changes to "Parameter". This is indicated at the top left of the screen. The parameter data area should now look as follows:

       Parameter PDA01     Library TUTORIAL                       DBID 11177 FNR     8
       Command                                                                     > +
       I T L  Name                             F Length     Miscellaneous
       All -- -------------------------------- - ---------- ------------------------->
            1 #PERS-ID                         A          8
            1 #MAKE                            A         20
            1 #MODEL                           A         20

       ----------------------------------------------------------------- S 3    L 1

5. Stow the parameter data area.

## Creating Another Local Data Area Containing a Different View

You will now create a second local data area and import fields from the DDM for the `VEHICLES` database file.

This local data area will be referenced in the subprogram.

To create the local data area

1. Enter the following command in the command line of the data area editor.

       CLEAR

   The data area editor is now empty.

2. To change the type of the data area, enter the following in the command line:

       SET TYPE L

   where "L" denotes local data area.

3. In the first line of the editing area, enter the following starting in the T column:

       .V(VEHICLES)

4. Press ENTER.

   The `VEHICLES` view appears.

       SYSGDA 4461: Mark fields to incorporate into data area.
       Local               Library TUTORIAL                       DBID 11177 FNR     8
       View VEHICLES
       I T L  Name                             F Length     Miscellaneous
       - - -- -------------------------------- - ---------- -------------------------
            2 REG-NUM                          A         15 /* CAR'S REGISTR. NUMBE
            2 CHASSIS-NUM                      I          4 /* MANUFACTURER NUMBER
            2 PERSONNEL-ID                     A          8 /* IDENT. OF CAR USER
         G  2 CAR-DETAILS                                   /* DESCRIPTION OF THE C
            3 MAKE                             A         20
            3 MODEL                            A         20
            3 COLOR                            A         10
            3 COLOUR                           A         10
            2 YEAR                             N        4.0 /* MANUFACTURING YEAR
            2 CLASS                            A          1 /* P=PRIVAT
            2 LEASE-PUR                        A          1 /* L=LEASED
            2 DATE-ACQ                         N        8.0 /* DATE THE CAR WAS ACQ
            2 CURR-CODE                        A          3 /* CURRENCY OF CAR COST
         M  2 MAINT-COST                       P        7.0 (1:60)/* MAINTENANCE COST
            2 MODEL-YEAR-MAKE                  A         24 /* YEAR + CAR MAKE /* SP

       - - -- -------------------------------- - ---------- -------------------------

5. Mark the following fields by entering any character in the I column :

   `PERSONNEL-ID`
   `CAR-DETAILS`
   `MAKE`
   `MODEL`

6. After you have marked all required fields, press ENTER to return to the data area editor.

   The local data area should now look as follows:

       Local               Library TUTORIAL                       DBID 11177 FNR     8
       Command                                                                     > +
       I T L  Name                             F Length     Miscellaneous
       All -- -------------------------------- - ---------- ------------------------->
         V  1 VEHICLES-VIEW                                 VEHICLES
            2 PERSONNEL-ID                     A          8 /* IDENT. OF CAR USER
         G  2 CAR-DETAILS                                   /* DESCRIPTION OF THE CAR
            3 MAKE                             A         20
            3 MODEL                            A         20

       ----------------------------------------------------------------- S 5    L 1

7. Save the new local data area by entering the following in the command line:

       SA LDA02

8. Stow the new local data area.

## Creating a Subprogram

You will now create a subprogram that uses a parameter data area and a local data area to retrieve information from the `VEHICLES` file. The subprogram receives the personnel ID passed by the program `PGM01` and uses this ID as the basis for a search of the `VEHICLES` file.

To create the subprogram

1. In the command line of the data area editor, enter the following command:

       E N

   where "N" denotes subprogram.

   An empty program editor is invoked. The object type has been set to subprogram.

2. Enter the following:

       DEFINE DATA
         PARAMETER USING PDA01
         LOCAL USING LDA02
       END-DEFINE
       *
       FD1. FIND (1) VEHICLES-VIEW
         WITH PERSONNEL-ID = #PERS-ID
         MOVE MAKE (FD1.) TO #MAKE
         MOVE MODEL (FD1.) TO #MODEL
         ESCAPE BOTTOM
       END-FIND
       *
       END

   This subprogram returns to a given personnel ID the make and model of the employee's company car.

   The `FIND` statement selects a set of records (here: one record) from the database based on the search criterion `#PERS-ID`.

   In the field `#PERS-ID`, the subprogram receives the value of `PERSONNEL-ID` that has been passed by the program `PGM01`. The subprogram uses this value as the basis for a search of the `VEHICLES` file.

3. Stow the subprogram.

       STOW SPGM01

## Referencing the Subprogram from Your Program

A subprogram is invoked from the main program using a `CALLNAT` statement. A subprogram can only be invoked via a `CALLNAT` statement; it cannot be executed by itself. A subprogram has no access to the global data area used by the invoking object.

Data is passed from the main program to the specified subprogram through a set of parameters that are referenced in the `DEFINE DATA PARAMETER` statement of the subprogram.

The variables defined in the parameter data area of the subprogram do not have to have the same names as the variables in the `CALLNAT` statement. Since the parameters are passed by address, it is only necessary that they match in sequence, format, and length.

You will now modify your main program so that it can use the subprogram you have just defined.

To use the subprogram in your main program

1. Return to the program editor by entering the following in the command line.

       E PGM01

2. Insert the following directly above the `DISPLAY` statement:

       RESET #MAKE #MODEL
       CALLNAT 'SPGM01' PERSONNEL-ID #MAKE #MODEL

   The `RESET` statement sets the values of `#MAKE` and `#MODEL` to null values.

3. Delete the line containing the `DISPLAY` statement and replace it with the following:

       WRITE TITLE
             / '*** PERSONS WITH 20 OR MORE DAYS LEAVE DUE ***'
             / '***     ARE MARKED WITH AN ASTERISK        ***'//
       *
       DISPLAY   1X '//N A M E' NAME
                 1X '//DEPT'    DEPT
                 1X '/LV/DUE'   LEAVE-DUE
                    ' '         #MARK
                 1X '//MAKE'    #MAKE
                 1X '//MODEL'   #MODEL

   The text defined with the `WRITE TITLE` statement will appear at the top of each page in the output. The `WRITE TITLE` statement overrides the default page title: the information which was previously displayed at the top of each page (page number, date and time) is no longer shown. Each slash (/) causes the subsequent information to be shown in a new line.

   Since the subprogram is now returning additional vehicles information, the columns in the output need to be resized. They receive shorter headers. The column in which the asterisk is to be shown (`#MARK`), does not receive a header at all. One space will be inserted between the columns (`1X`). Each slash in the header causes the subsequent information to be shown in a new line of the same column.

   Your program should now look as follows:

       DEFINE DATA
         GLOBAL USING GDA01
         LOCAL USING LDA01
       END-DEFINE
       *
       RP1. REPEAT
       *
         INPUT USING MAP 'MAP01'
       *
         IF #NAME-START = '.' THEN
           ESCAPE BOTTOM (RP1.)
         END-IF
       *
         IF #NAME-END = ' ' THEN
           MOVE #NAME-START TO #NAME-END
         END-IF
       *
         RD1. READ EMPLOYEES-VIEW BY NAME
           STARTING FROM #NAME-START
           ENDING AT #NAME-END
       *
           IF LEAVE-DUE >= 20 THEN
             PERFORM MARK-SPECIAL-EMPLOYEES
           ELSE
             RESET #MARK
           END-IF
       *
           RESET #MAKE #MODEL
           CALLNAT 'SPGM01' PERSONNEL-ID #MAKE #MODEL
       *
           WRITE TITLE
             / '*** PERSONS WITH 20 OR MORE DAYS LEAVE DUE ***'
             / '***     ARE MARKED WITH AN ASTERISK        ***'//
       *
           DISPLAY   1X '//N A M E' NAME
                     1X '//DEPT'    DEPT
                     1X '/LV/DUE'   LEAVE-DUE
                        ' '         #MARK
                     1X '//MAKE'    #MAKE
                     1X '//MODEL'   #MODEL
       *
         END-READ
       *
         IF *COUNTER (RD1.) = 0 THEN
           REINPUT 'No employees meet your criteria.'
         END-IF
       *
       END-REPEAT
       *
       END

4. Run the program.

5. Enter "JONES" as the starting name and press ENTER.

   The resulting list should look similar to the following:

       MORE

                       *** PERSONS WITH 20 OR MORE DAYS LEAVE DUE ***
                       ***     ARE MARKED WITH AN ASTERISK        ***

                                    LV
              N A M E         DEPT  DUE           MAKE                MODEL
        -------------------- ------ --- - -------------------- --------------------

        JONES                SALE30  25 * CHRYSLER             IMPERIAL
        JONES                MGMT10  34 * CHRYSLER             PLYMOUTH
        JONES                TECH10  11   GENERAL MOTORS       CHEVROLET
        JONES                MGMT10  18   FORD                 ESCORT
        JONES                TECH10  21 * GENERAL MOTORS       BUICK
        JONES                SALE00  30 * GENERAL MOTORS       PONTIAC
        JONES                SALE20  14   GENERAL MOTORS       OLDSMOBILE
        JONES                COMP12  26 * DATSUN               SUNNY
        JONES                TECH02  25 * FORD                 ESCORT 1.3

6. To return to the program editor, enter `EDIT` at the `MORE` prompt.

7. Stow the program.

You have successfully completed this tutorial.

### On this page

- Modifying the Local Data Area
- Creating a Parameter Data Area from an Existing Local Data Area
- Creating Another Local Data Area Containing a Different View
- Creating a Subprogram
- Referencing the Subprogram from Your Program