Saved from my old blog c/o the Internet Archive:
|
"Enterprise COBOL supports Java™-based object-oriented syntax to facilitate the interoperation of COBOL and Java programs." | |
| This is just too good not to share | |
DATA DIVISION.
WORKING-STORAGE SECTION.
01 CURR-ARG-COUNT PIC 9(9) BINARY VALUE ZERO.
LINKAGE SECTION.
01 ARG-COUNT PIC 9(9)BINARY.
01 ARG-LENGTH-LIST.
05 ARG-LENGTH-ADDR POINTER OCCURS 1 TO 99999 DEPENDING ON CURR-ARG-COUNT.
01 ARG-LIST.
05 ARG-ADDR POINTER OCCURS 1 TO 99999 DEPENDING ON CURR-ARG-COUNT.
01 ARG-LENGTH PIC 9(9) BINARY.
01 ARG PIC X(65536).
PROCEDURE DIVISION USING ARG-COUNT ARG-LENGTH-LIST ARG-LIST.
That's Enterprise COBOL for main(int ac, char *av[]).
But you ain't seen nothin' yet... you thought ADD ONE TO COBOL GIVING COBOL
was a joke:
CBL DLL,THREAD,PGMNAME(LONGMIXED)
IDENTIFICATION DIVISION.
CLASS-ID.
ACCOUNT INHERITS BASE.
*
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
REPOSITORY.
CLASS BASE IS "java.lang.OBJECT"
CLASS ACCOUNT IS "Account".
*
IDENTIFICATION DIVISION.
FACTORY.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 NUMBER-OF-ACCOUNTS PIC 9(6) VALUE ZERO.
* ...
*
OBJECT.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 ACCOUNTNUMBER PIC 9(6).
01 ACCOUNTBALANCE PIC S9(9) VALUE ZERO.
*
PROCEDURE DIVISION.
*
IDENTIFICATION DIVISION.
METHOD-ID. "getBalance".
DATA DIVISION.
LINKAGE SECTION.
01 OUTBALANCE PIC S9(9) BINARY.
*
PROCEDURE DIVISION RETURNING OUTBALANCE.
MOVE ACCOUNTBALANCE TO OUTBALANCE.
END METHOD "getBalance".
* ...
*
END OBJECT.
*
END CLASS ACCOUNT.
|
