SSL Program1.cob

       IDENTIFICATION DIVISION.
       PROGRAM-ID. Program1 AS "Client.Program1".
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SPECIAL-NAMES.
       REPOSITORY.
           CLASS CLASS-DOTNET  AS "Dotnet.areacode"
           CLASS CLASS-COMEXCP AS "System.ArgumentException"
             PROPERTY PROP-MESSAGE AS "Message"
           CLASS CLASS-STRING  AS "System.String"
       .
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 WS-AREA  PIC X(03)  VALUE SPACES.
       01 WS-STATE PIC X(02)  VALUE SPACES.
       01 JUNK     PIC X(01)  VALUE SPACES.
       01 ERR-MSG  PIC X(100) VALUE SPACES.
       01 EXCPOBJ   OBJECT REFERENCE CLASS-COMEXCP.
       01 ERR-MS2  OBJECT REFERENCE CLASS-STRING.
       01 AREACDOBJ OBJECT REFERENCE CLASS-DOTNET.
       PROCEDURE DIVISION.
       DECLARATIVES.
       ERR SECTION.
           USE AFTER EXCEPTION CLASS-COMEXCP
           INVOKE CLASS-COMEXCP "NEW" RETURNING EXCPOBJ
           SET ERR-MSG TO PROP-MESSAGE OF EXCPOBJ
           DISPLAY ERR-MSG
           DISPLAY "Press Enter to end the application..."
           ACCEPT JUNK FROM CONSOLE
       END DECLARATIVES.
       MAIN-LINE.
           DISPLAY "Enter an AreaCode to search for: ".
           ACCEPT WS-AREA FROM CONSOLE.        
           PERFORM UNTIL WS-AREA = "XXX"
             INVOKE CLASS-DOTNET "NEW" RETURNING AREACDOBJ
             INVOKE AREACDOBJ "GETSTATECODE" USING WS-AREA 
                                             RETURNING WS-STATE
             DISPLAY "State is ", WS-STATE
             DISPLAY "Enter an AreaCode to search for: "
             ACCEPT WS-AREA FROM CONSOLE
           END-PERFORM.
           
       END PROGRAM Program1.