Mark Di Marco

@markmarkoh.bsky.social

36 Followers 64 Following

Early stage startup engineer and engineering leader, currently VP of Eng at Buildforce. Recording episodes of a new show called Commit History, which explores interesting commit on interesting open source projects https://markmarkoh.com

Screenshot of code Preamble in COBOL:
IDENTIFICATION DIVISION.
PROGRAM-ID. NUMBER-PAIRING.

ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT INPUT-FILE ASSIGN TO "INPUT.TXT"
ORGANIZATION IS LINE SEQUENTIAL.

DATA DIVISION.
FILE SECTION.
FD INPUT-FILE.
01 INPUT-LINE.
05 LEFT-NUM PIC X(5).
05 FILLER PIC X(3).
05 RIGHT-NUM PIC X(5).

WORKING-STORAGE SECTION.
01 WS-ARRAYS.
05 LEFT-ARRAY OCCURS 1000 TIMES PIC S9(5).
05 RIGHT-ARRAY OCCURS 1000 TIMES PIC S9(5).

01 WS-VARIABLES.
05 EOF-FLAG PIC X VALUE 'N'.
05 ARRAY-SIZE PIC 9(4) VALUE 0.
05 TOTAL-DIST PIC 9(8) VALUE 0.
05 TEMP-NUM PIC S9(5).
05 I PIC 9(4).
05 J PIC 9(4).
05 DIFF PIC S9(5).

PROCEDURE DIVISION.
MAIN-PROCEDURE.
DISPLAY "=== STARTING PROGRAM ==="
OPEN INPUT INPUT-FILE
PERFORM READ-NUMBERS UNTIL EOF-FLAG = 'Y'
CLOSE INPUT-FILE

DISPLAY "=== SORTING ARRAYS ==="
PERFORM SORT-ARRAYS

DISPLAY "=== CALCULATING DISTANCES ==="
PERFORM CALCULATE-DISTANCE

DISPLAY "=== FINAL RESULT ==="
DISPLAY "TOTAL DISTANCE: " TOTAL-DIST
STOP RUN.