Set Up and Run the ACCT Application

Configuring the TN3270 Properties

Ensure that the IDE is configured to use the embedded Rumba emulator to run mainframe applications:

1. In the IDE, click Window > Preferences.
2. Expand Micro Focus > Enterprise Server, and click TN3270.
3. Ensure that Enable display, Rumba (Embedded) and Connect automatically are all selected.
4. Click OK.

Open the Rumba Mainframe Display View

Now that you have configured an enterprise server and have associated the server with your CICS project, you can start the Rumba Mainframe Display view as follows:

1. Ensure that the ACCT server is running and that it is associated with your project.
2. Right-click the ACCT project in COBOL Explorer, and click Enterprise Server > Show TN3270 Display.

   This opens the Rumba Mainframe Display view inside the IDE and connects it to the ACCT application running in the ACCT enterprise server.

Clear the CESN login screen

• Clear the CESN login screen as security is not enabled - in Micro Focus Rumba you need to press CTRL+SHIFT+Z.

Initialize the VSAM file of the application

The first time you connect to the ACCT server you also need to initialize the application VSAM file as follows:

1. Type CFCR ACCTFIL and press Enter to initialize the VSAM files for the application.

   You should receive a message indicating that the file was successfully created.

If the ACCTFIL VSAM was previously initialized, a message appears explaining that the ACCTFIL already exists. This might be the case, especially if you have previously run this tutorial.

Clear the screen of the emulator and run the application as described earlier in this tutorial.

Start the CICS Transaction

1. Clear the CESN login screen as security is not enabled - in Micro Focus Rumba you need to press CTRL+SHIFT+Z.
2. Enter ACCT.

   

Add Two Records

You will use the records you create here later on in the tutorial.

1. Tab to the REQUEST TYPE field and type A.
2. In the ACCOUNT field, type 11111.
3. Press Enter.
4. Complete the fields on the NEW RECORD screen as follows, pressing the Tab key to advance from one field to another.
   Note:

   • Of the three ADDRESS fields, complete only the first two.
   • Screen fields not represented in this table are not mandatory and can be ignored.

   SURNAME	Washington
   FIRST	George
   TITLE	Pres
   TELEPHONE	7037802000
   ADDRESS	Mt. Vernon Estate
   	Mt. Vernon, VA 22121
   NO. CARDS ISSUED	1
   DATE ISSUED	07 04 76
   REASON	N
   CARD CODE	1
   APPROVED BY	JF

5. Press Enter.
6. Tab to the REQUEST TYPE field and type A.
7. In the ACCOUNT field, type 11112 and press Enter.
8. Repeat step 4, substituting the following data:

   SURNAME	Jefferson
   FIRST	Thomas
   TITLE	Pres
   TELEPHONE	4349849800
   ADDRESS	Monticello
   	C'sville, VA 22902
   NO. CARDS ISSUED	3
   DATE ISSUED	07 04 76
   REASON	N
   CARD CODE	1
   APPROVED BY	JF

9. Press Enter to return to the Menu.

Display a Record

1. Tab to the REQUEST TYPE field.
2. Type D to display a record.
3. In the ACCOUNT field, type 11111.
4. Press Enter.

   

5. Clear the screen of your TN3270 emulator to exit the application.