Sample COBOL program using COMPUTE:
IDENTIFICATION DIVISION. PROGRAM-ID. SRINIMF. ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT In-File ASSIGN TO "EINSTEIN.TXT" ORGANIZATION IS LINE SEQUENTIAL. DATA DIVISION. FILE SECTION. FD IN-FILE BLOCK CONTAINS 0 RECORDS. 01 IN-REC. 02 M PIC S9(10). 02 C PIC S9(10). WORKING-STORAGE SECTION. 01 E PIC S9(10) PACKED-DECIMAL. PROCEDURE DIVISION. BEGIN-PROGRAM. OPEN INPUT IN-FILE READ IN-FILE COMPUTE E = M * (C ** 2) CLOSE IN-FILE GOBACK . END PROGRAM EINSTEIN.
Related Posts