Quellcode-Bibliothek

^© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: Program1.cob Sprache: Cobol

Original von: verschiedene^©

       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.

¤ Dauer der Verarbeitung: 0.1 Sekunden (vorverarbeitet) ¤

Download des Quellennavigators
Download des sprechenden Kalenders
in der Quellcodebibliothek suchen

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.