isCOBOL Evolve : Language Reference : Object-oriented Programming : Sample application : Main program
Main program
Most object oriented applications have a conventional program to start the processing. BANKMAIN serves this function in this sample bank application.
PROGRAM-ID. BANKMAIN.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
REPOSITORY.
CLASS Account.
DATA DIVISION.
WORKING-STORAGE SECTION.
01  an-object USAGE OBJECT REFERENCE Account.
PROCEDURE DIVISION.
go-now.
    INVOKE Account "new" RETURNING an-object.
    INVOKE an-object "displayUI".
    SET an-object to NULL.
    GOBACK.
The same code can also be written as follows:
PROGRAM-ID. BANKMAIN.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
REPOSITORY.
CLASS Account.
DATA DIVISION.
WORKING-STORAGE SECTION.
01  an-object USAGE OBJECT REFERENCE Account.
PROCEDURE DIVISION.
go-now.
    SET an-object TO Account:>new().
    an-object:>displayUI().
    SET an-object to NULL.
    GOBACK.