Skip to main content

Initializing Company Name (GETCOMPY)

The GETCOMPY program is responsible for initializing and setting the company name for the CICS Bank Sample Application. This is achieved by defining the PREMIERE section to initialize the company name, setting the company name to 'CICS Bank Sample Application', and then returning control to CICS.

The flow starts with initializing the company name in the PREMIERE section. Then, the company name 'CICS Bank Sample Application' is set to the COMPANY-NAME variable. Finally, control is returned to CICS, indicating that the initialization process is complete.

Lets' zoom into the flow:

Initialize Company Name​

First, the PREMIERE section is defined, which is responsible for initializing the company name for the application.

       PREMIERE SECTION.
       A010.

Set Company Name​

Next, the company name 'CICS Bank Sample Application' is moved to the COMPANY-NAME variable. This sets the company name that will be used throughout the application.

           move 'CICS Bank Sample Application' to COMPANY-NAME.

Return Control to CICS​

Then, the EXEC CICS RETURN command is executed to return control back to CICS, indicating that the initialization is complete.

           EXEC CICS RETURN
           END-EXEC.

 

This is an auto-generated document by Swimm 🌊 and has not yet been verified by a human