Tutorial: Define Program Actions

Requirements

Before attempting this tutorial, you must complete:

• Tutorial: Start AppMaster Builder in Enterprise Developer for Eclipse
• Tutorial: Create a User Area
• Tutorial: Create Projects
• Tutorial: Add Objects to the AMB Project
• Tutorial: Set Preferences and View Properties
• Tutorial: Learn Screen Painter Techniques
• Tutorial: Paint a Screen
• Tutorial: Assign Screen Field Edits
• Tutorial: Code a User Rule
• Tutorial: Map Screen Fields

If you have closed Enterprise Developer, start it; then open the AppMaster Builder perspective and, from the Project Explorer, double-click the BLDRUPD program to start Online Express.

Define Program Actions for the BLDRUPD Program

Start the Action/Event Editor

1. On the Control Type list, click Function Field.
2. On the Control Name list, double-click Function. The Action/Event Editor appears.

Define Query database action

1. From the Function Field drop-down list box, click Function.
2. Click Edit > Create. A new function line appears on the Action/Event Editor.
3. In the Event field, type Q.
4. From the Action drop-down list, click Reserved.
5. From the Argument drop-down list, click *QUERY.

Define remaining database actions

• Repeat steps 2 through 5 in Define Query database action one time for each action listed in the following table, substituting the appropriate event, action, and argument for each:

  Event	Action	Argument
  U	Reserved	*UPDATE
  D	Reserved	*DELETE
  C	Reserved	*CLEAR
  E	Reserved	*TERM

Complete program actions

1. On the Action/Event Editor, click Apply.
2. Close the Action/Event Editor. The Action/Event Browser shows all assigned actions.

Assign an action to the PF3 key

Previously, we assigned the PF3 key to bypass field edits. In this section, we assign the PF3 key to also escape from the Parts Update program and transfer you back to the Main Menu program.

1. From the Control Type list, choose KEYS.
2. On the Control Name list, double-click PF1-PF12. The Action/Event Editor dialog box appears.
3. Click the PF3 row.
4. From the Action drop-down list, select XCTL.
5. In the Argument field, type bldrcmnu.
6. Click Apply.
7. Close the Action/Event Editor. The Action/Event Browser reappears.

Code working-storage fields

The screen fields that we created using the Screen Painter and mapped to working-storage fields in a previous tutorial need corresponding working-storage fields in our program. In Online Express we can code a record for these fields as Miscellaneous User Code using the S-COBOL language, which is a short-hand version of COBOL. S-COBOL is read by the Micro Focus Generator (MFG) and translated into native COBOL. The record coded here receives the data from our VSAM file.

1. On the Action/Event Browser on the Control Type list, click All.
2. On the Control Name list, click All.
3. Click Action/Event > Edit Miscellaneous User Code. This brings up your default editor.
4. Code the following S-COBOL record into the editor. Code the WS on the first line in column 4. Continue the line starting in column 12. Indent the code for the remainder of the record under the first line. Use the field on the bottom right of the editor to be sure you have the code placed in the proper columns.

      WS      WS-MASTER-RECORD
                WS-PART-NUMBER      9(8)
                WS-SHORT-DESC       X20
                WS-UNITS-INSTOCK    99
                WS-BASE-PRICE       9(4)V99
                WS-DIMENSIONS       X8
                FILLER              X36

5. To save your source code, click File > Save.
6. Exit the editor. This returns you to the Action/Event Editor.