|
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.13 Sekunden
(vorverarbeitet)
¤
|
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.
|
