Home · Browse · COBOL

COBOL

1 program Added 2025-10-22T09:36:43Z Model: meta-llama/llama-3.1-70b-instructTemp: 0.4 Evidence Report issue View issues

Aliases: COBOL-85, COBOL 2002

Provenance: commit 4c937ac6fa · authored 2025-10-22T11:36:43+02:00 · model meta-llama/llama-3.1-70b-instruct

Sources mentioning this language

9 sources · pl_id: pl/cobol

LLM (this repo) · 1 Pldb Linguist Pygments Wikipedia Esolang Hyperpolyglot Rosettacode Wikidata · Q131140

Wikipedia infobox ↗

Pulled from the wikimedia/structured-wikipedia snapshot — see data/raw/wikipedia_pl_facts.*.jsonl and pl_fact.csv for the long-table provenance.

Paradigms	procedural · imperative · object-oriented · generic
Typing	weak, static
Designed by	CODASYL · ANSI · ISO / IEC · Howard Bromberg · Norman Discount · Vernon Reeves · Jean E. Sammet · William Selden · Gertrude Tierney · with indirect influence from Grace Hopper
First appeared	1960
Influenced by	Initial: AIMACO · COMTRAN · FACT · FLOW-MATIC COBOL 2002: C++ · Eiffel · Smalltalk

Extensions claimed by this language

10 claims. Each row is one upstream assertion with its strength. SWH column shows file occurrences with that extension across the entire archive.

Extension	Source	Strength	SWH
`.cbl`	wikidata	primary	249.4K files
`.cob`	linguist	primary	55.1K files
`.cob`	pygments	primary	55.1K files
`.cob`	wikidata	primary	55.1K files
`.cpy`	wikidata	primary	30.8K files
`.cbl`	linguist	secondary	249.4K files
`.ccp`	linguist	secondary	11.3K files
`.cobol`	linguist	secondary	42.7K files
`.cpy`	linguist	secondary	30.8K files
`.cpy`	pygments	secondary	30.8K files

Related languages

CobolScript (0.19)BabyCobol (0.15)COOL (0.14)CGOL (0.13)GnuCOBOL (0.13)

LLM-contributed programs

COBOL Hello World

Origin · Download · manifest.json · Report

Provenance: commit 4c937ac6fa · authored 2025-10-22T11:36:43+02:00 · model meta-llama/llama-3.1-70b-instruct · Temp 0.4

code.cob · added: 2025-10-22T09:36:43Z

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
PROCEDURE DIVISION.
MAIN-PROGRAM.
    DISPLAY "Hello, World!".
    STOP RUN.

Real programs from Software Heritage

2 samples mined from derived_datasets/<date>/contents/*.parquet, byte-verified against the SWH archive. Citation-grade qualified SWHIDs preserved.

IF108A.CBL · 39783 B · ext .cbl · seen 7× in SWH

via fallback

swh:1:cnt:3319c582b9bb2d580d6832c1fb2cd08c8c2d72ee;origin=https://github.com/krisds/koopa;anchor=swh:1:rev:34ced67d50536b4dea31b540ad7a145c6b2144bd;path=/testsuite/cobol85/IF108A.CBL

Open in SWH · Raw bytes (SWH) · GitHub raw

Show source

      *HEADER,COBOL,IF108A                                                            
000100 IDENTIFICATION DIVISION.                                         IF1084.2
000200 PROGRAM-ID.                                                      IF1084.2
000300     IF108A.                                                      IF1084.2
000400                                                                  IF1084.2
000500***********************************************************       IF1084.2
000600*                                                         *       IF1084.2
000700* This program forms part of the CCVS85 COBOL Test Suite. *       IF1084.2
000800* It contains tests for the Intrinsic Function            *       IF1084.2
000900* DATE-OF-INTEGER.                                        *       IF1084.2
001000*                                                         *       IF1084.2
001100***********************************************************       IF1084.2
001200 ENVIRONMENT DIVISION.                                            IF1084.2
001300 CONFIGURATION SECTION.                                           IF1084.2
001400 SOURCE-COMPUTER.                                                 IF1084.2
001500     XXXXX082.                                                    IF1084.2
001600 OBJECT-COMPUTER.                                                 IF1084.2
001700     XXXXX083.                                                    IF1084.2
001800 INPUT-OUTPUT SECTION.                                            IF1084.2
001900 FILE-CONTROL.                                                    IF1084.2
002000     SELECT PRINT-FILE ASSIGN TO                                  IF1084.2
002100     XXXXX055.                                                    IF1084.2
002200 DATA DIVISION.                                                   IF1084.2
002300 FILE SECTION.                                                    IF1084.2
002400 FD  PRINT-FILE.                                                  IF1084.2
002500 01  PRINT-REC PICTURE X(120).                                    IF1084.2
002600 01  DUMMY-RECORD PICTURE X(120).                                 IF1084.2
002700 WORKING-STORAGE SECTION.                                         IF1084.2
002800***********************************************************       IF1084.2
002900* Variables specific to the Intrinsic Function Test IF108A*       IF1084.2
003000***********************************************************       IF1084.2
003100 01  A                   PIC S9(10)     VALUE 400.                IF1084.2
003200 01  C                   PIC S9(10)     VALUE 300.                IF1084.2
003300 01  D                   PIC S9(10)     VALUE 1.                  IF1084.2
003400 01  ARG1                PIC S9(10)     VALUE 1.                  IF1084.2
003500 01  ARR                                VALUE "40537".            IF1084.2
003600     02 IND OCCURS 5 TIMES PIC 9.                                 IF1084.2
003700 01  TEMP                PIC S9(5)V9(5).                          IF1084.2
003800 01  WS-DATE             PIC 9(8).                                IF1084.2
003900*                                                                 IF1084.2
004000**********************************************************        IF1084.2
004100*                                                                 IF1084.2
004200 01  TEST-RESULTS.                                                IF1084.2
004300     02 FILLER                   PIC X      VALUE SPACE.          IF1084.2
004400     02 FEATURE                  PIC X(20)  VALUE SPACE.          IF1084.2
004500     02 FILLER                   PIC X      VALUE SPACE.          IF1084.2
004600     02 P-OR-F                   PIC X(5)   VALUE SPACE.          IF1084.2
004700     02 FILLER                   PIC X      VALUE SPACE.          IF1084.2
004800     02  PAR-NAME.                                                IF1084.2
004900       03 FILLER                 PIC X(19)  VALUE SPACE.          IF1084.2
005000       03  PARDOT-X              PIC X      VALUE SPACE.          IF1084.2
005100       03 DOTVALUE               PIC 99     VALUE ZERO.           IF1084.2
005200     02 FILLER                   PIC X(8)   VALUE SPACE.          IF1084.2
005300     02 RE-MARK                  PIC X(61).                       IF1084.2
005400 01  TEST-COMPUTED.                                               IF1084.2
005500     02 FILLER                   PIC X(30)  VALUE SPACE.          IF1084.2
005600     02 FILLER                   PIC X(17)  VALUE                 IF1084.2
005700            "       COMPUTED=".                                   IF1084.2
005800     02 COMPUTED-X.                                               IF1084.2
005900     03 COMPUTED-A               PIC X(20)  VALUE SPACE.          IF1084.2
006000     03 COMPUTED-N               REDEFINES COMPUTED-A             IF1084.2
006100                                 PIC -9(9).9(9).                  IF1084.2
006200     03 COMPUTED-0V18 REDEFINES COMPUTED-A   PIC -.9(18).         IF1084.2
006300     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     IF1084.2
006400     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(14).9(4).     IF1084.2
006500     03       CM-18V0 REDEFINES COMPUTED-A.                       IF1084.2
006600         04 COMPUTED-18V0                    PIC -9(18).          IF1084.2
006700         04 FILLER                           PIC X.               IF1084.2
006800     03 FILLER PIC X(50) VALUE SPACE.                             IF1084.2
006900 01  TEST-CORRECT.                                                IF1084.2
007000     02 FILLER PIC X(30) VALUE SPACE.                             IF1084.2
007100     02 FILLER PIC X(17) VALUE "       CORRECT =".                IF1084.2
007200     02 CORRECT-X.                                                IF1084.2
007300     03 CORRECT-A                  PIC X(20) VALUE SPACE.         IF1084.2
007400     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9(9).      IF1084.2
007500     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         IF1084.2
007600     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     IF1084.2
007700     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     IF1084.2
007800     03      CR-18V0 REDEFINES CORRECT-A.                         IF1084.2
007900         04 CORRECT-18V0                     PIC -9(18).          IF1084.2
008000         04 FILLER                           PIC X.               IF1084.2
008100     03 FILLER PIC X(2) VALUE SPACE.                              IF1084.2
008200     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     IF1084.2
008300 01  CCVS-C-1.                                                    IF1084.2
008400     02 FILLER  PIC IS X(99)    VALUE IS " FEATURE              PAIF1084.2
008500-    "SS  PARAGRAPH-NAME                                          IF1084.2
008600-    "       REMARKS".                                            IF1084.2
008700     02 FILLER                     PIC X(20)    VALUE SPACE.      IF1084.2
008800 01  CCVS-C-2.                                                    IF1084.2
008900     02 FILLER                     PIC X        VALUE SPACE.      IF1084.2
009000     02 FILLER                     PIC X(6)     VALUE "TESTED".   IF1084.2
009100     02 FILLER                     PIC X(15)    VALUE SPACE.      IF1084.2
009200     02 FILLER                     PIC X(4)     VALUE "FAIL".     IF1084.2
009300     02 FILLER                     PIC X(94)    VALUE SPACE.      IF1084.2
009400 01  REC-SKL-SUB                   PIC 9(2)     VALUE ZERO.       IF1084.2
009500 01  REC-CT                        PIC 99       VALUE ZERO.       IF1084.2
009600 01  DELETE-COUNTER                PIC 999      VALUE ZERO.       IF1084.2
009700 01  ERROR-COUNTER                 PIC 999      VALUE ZERO.       IF1084.2
009800 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.       IF1084.2
009900 01  PASS-COUNTER                  PIC 999      VALUE ZERO.       IF1084.2
010000 01  TOTAL-ERROR                   PIC 999      VALUE ZERO.       IF1084.2
010100 01  ERROR-HOLD                    PIC 999      VALUE ZERO.       IF1084.2
010200 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE.      IF1084.2
010300 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO.       IF1084.2
010400 01  ANSI-REFERENCE                PIC X(48)    VALUE SPACES.     IF1084.2
010500 01  CCVS-H-1.                                                    IF1084.2
010600     02  FILLER                    PIC X(39)    VALUE SPACES.     IF1084.2
010700     02  FILLER                    PIC X(42)    VALUE             IF1084.2
010800     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 IF1084.2
010900     02  FILLER                    PIC X(39)    VALUE SPACES.     IF1084.2
011000 01  CCVS-H-2A.                                                   IF1084.2
011100   02  FILLER                        PIC X(40)  VALUE SPACE.      IF1084.2
011200   02  FILLER                        PIC X(7)   VALUE "CCVS85 ".  IF1084.2
011300   02  FILLER                        PIC XXXX   VALUE             IF1084.2
011400     "4.2 ".                                                      IF1084.2
011500   02  FILLER                        PIC X(28)  VALUE             IF1084.2
011600            " COPY - NOT FOR DISTRIBUTION".                       IF1084.2
011700   02  FILLER                        PIC X(41)  VALUE SPACE.      IF1084.2
011800                                                                  IF1084.2
011900 01  CCVS-H-2B.                                                   IF1084.2
012000   02  FILLER                        PIC X(15)  VALUE             IF1084.2
012100            "TEST RESULT OF ".                                    IF1084.2
012200   02  TEST-ID                       PIC X(9).                    IF1084.2
012300   02  FILLER                        PIC X(4)   VALUE             IF1084.2
012400            " IN ".                                               IF1084.2
012500   02  FILLER                        PIC X(12)  VALUE             IF1084.2
012600     " HIGH       ".                                              IF1084.2
012700   02  FILLER                        PIC X(22)  VALUE             IF1084.2
012800            " LEVEL VALIDATION FOR ".                             IF1084.2
012900   02  FILLER                        PIC X(58)  VALUE             IF1084.2
013000     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".IF1084.2
013100 01  CCVS-H-3.                                                    IF1084.2
013200     02  FILLER                      PIC X(34)  VALUE             IF1084.2
013300            " FOR OFFICIAL USE ONLY    ".                         IF1084.2
013400     02  FILLER                      PIC X(58)  VALUE             IF1084.2
013500     "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".IF1084.2
013600     02  FILLER                      PIC X(28)  VALUE             IF1084.2
013700            "  COPYRIGHT   1985 ".                                IF1084.2
013800 01  CCVS-E-1.                                                    IF1084.2
013900     02 FILLER                       PIC X(52)  VALUE SPACE.      IF1084.2
014000     02 FILLER  PIC X(14) VALUE IS "END OF TEST-  ".              IF1084.2
014100     02 ID-AGAIN                     PIC X(9).                    IF1084.2
014200     02 FILLER                       PIC X(45)  VALUE SPACES.     IF1084.2
014300 01  CCVS-E-2.                                                    IF1084.2
014400     02  FILLER                      PIC X(31)  VALUE SPACE.      IF1084.2
014500     02  FILLER                      PIC X(21)  VALUE SPACE.      IF1084.2
014600     02 CCVS-E-2-2.                                               IF1084.2
014700         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      IF1084.2
014800         03 FILLER                   PIC X      VALUE SPACE.      IF1084.2
014900         03 ENDER-DESC               PIC X(44)  VALUE             IF1084.2
015000            "ERRORS ENCOUNTERED".                                 IF1084.2
015100 01  CCVS-E-3.                                                    IF1084.2
015200     02  FILLER                      PIC X(22)  VALUE             IF1084.2
015300            " FOR OFFICIAL USE ONLY".                             IF1084.2
015400     02  FILLER                      PIC X(12)  VALUE SPACE.      IF1084.2
015500     02  FILLER                      PIC X(58)  VALUE             IF1084.2
015600     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".IF1084.2
015700     02  FILLER                      PIC X(13)  VALUE SPACE.      IF1084.2
015800     02 FILLER                       PIC X(15)  VALUE             IF1084.2
015900             " COPYRIGHT 1985".                                   IF1084.2
016000 01  CCVS-E-4.                                                    IF1084.2
016100     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE.      IF1084.2
016200     02 FILLER                       PIC X(4)   VALUE " OF ".     IF1084.2
016300     02 CCVS-E-4-2                   PIC XXX    VALUE SPACE.      IF1084.2
016400     02 FILLER                       PIC X(40)  VALUE             IF1084.2
016500      "  TESTS WERE EXECUTED SUCCESSFULLY".                       IF1084.2
016600 01  XXINFO.                                                      IF1084.2
016700     02 FILLER                       PIC X(19)  VALUE             IF1084.2
016800            "*** INFORMATION ***".                                IF1084.2
016900     02 INFO-TEXT.                                                IF1084.2
017000       04 FILLER                     PIC X(8)   VALUE SPACE.      IF1084.2
017100       04 XXCOMPUTED                 PIC X(20).                   IF1084.2
017200       04 FILLER                     PIC X(5)   VALUE SPACE.      IF1084.2
017300       04 XXCORRECT                  PIC X(20).                   IF1084.2
017400     02 INF-ANSI-REFERENCE           PIC X(48).                   IF1084.2
017500 01  HYPHEN-LINE.                                                 IF1084.2
017600     02 FILLER  PIC IS X VALUE IS SPACE.                          IF1084.2
017700     02 FILLER  PIC IS X(65)    VALUE IS "************************IF1084.2
017800-    "*****************************************".                 IF1084.2
017900     02 FILLER  PIC IS X(54)    VALUE IS "************************IF1084.2
018000-    "******************************".                            IF1084.2
018100 01  CCVS-PGM-ID                     PIC X(9)   VALUE             IF1084.2
018200     "IF108A".                                                    IF1084.2
018300 PROCEDURE DIVISION.                                              IF1084.2
018400 CCVS1 SECTION.                                                   IF1084.2
018500 OPEN-FILES.                                                      IF1084.2
018600     OPEN     OUTPUT PRINT-FILE.                                  IF1084.2
018700     MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN.   IF1084.2
018800     MOVE    SPACE TO TEST-RESULTS.                               IF1084.2
018900     PERFORM  HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.             IF1084.2
019000     GO TO CCVS1-EXIT.                                            IF1084.2
019100 CLOSE-FILES.                                                     IF1084.2
019200     PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE.   IF1084.2
019300 TERMINATE-CCVS.                                                  IF1084.2
019400     STOP     RUN.                                                IF1084.2
019500 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER.         IF1084.2
019600 PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER.           IF1084.2
019700 FAIL.  MOVE "FAIL*" TO P-OR-F.
…(truncated)…

IF138A.CBL · 53553 B · ext .cbl · seen 7× in SWH

via fallback

swh:1:cnt:fd982154388e0121ed98ad1cfcdabaccd484b627;origin=https://github.com/krisds/koopa;anchor=swh:1:rev:34ced67d50536b4dea31b540ad7a145c6b2144bd;path=/testsuite/cobol85/IF138A.CBL

Open in SWH · Raw bytes (SWH) · GitHub raw

Show source

      *HEADER,COBOL,IF138A                                                            
000100 IDENTIFICATION DIVISION.                                         IF1384.2
000200 PROGRAM-ID.                                                      IF1384.2
000300     IF138A.                                                      IF1384.2
000400                                                                  IF1384.2
000500***********************************************************       IF1384.2
000600*                                                         *       IF1384.2
000700* This program forms part of the CCVS85 COBOL Test Suite. *       IF1384.2
000800* It contains tests for the Intrinsic Function SUM .      *       IF1384.2
000900*                                                         *       IF1384.2
001000***********************************************************       IF1384.2
001100 ENVIRONMENT DIVISION.                                            IF1384.2
001200 CONFIGURATION SECTION.                                           IF1384.2
001300 SOURCE-COMPUTER.                                                 IF1384.2
001400     XXXXX082.                                                    IF1384.2
001500 OBJECT-COMPUTER.                                                 IF1384.2
001600     XXXXX083.                                                    IF1384.2
001700 INPUT-OUTPUT SECTION.                                            IF1384.2
001800 FILE-CONTROL.                                                    IF1384.2
001900     SELECT PRINT-FILE ASSIGN TO                                  IF1384.2
002000     XXXXX055.                                                    IF1384.2
002100 DATA DIVISION.                                                   IF1384.2
002200 FILE SECTION.                                                    IF1384.2
002300 FD  PRINT-FILE.                                                  IF1384.2
002400 01  PRINT-REC PICTURE X(120).                                    IF1384.2
002500 01  DUMMY-RECORD PICTURE X(120).                                 IF1384.2
002600 WORKING-STORAGE SECTION.                                         IF1384.2
002700***********************************************************       IF1384.2
002800* Variables specific to the Intrinsic Function Test IF138A*       IF1384.2
002900***********************************************************       IF1384.2
003000 01  A                   PIC S9(10)          VALUE 5.             IF1384.2
003100 01  B                   PIC S9(10)          VALUE 7.             IF1384.2
003200 01  C                   PIC S9(10)          VALUE -4.            IF1384.2
003300 01  D                   PIC S9(10)          VALUE 10.            IF1384.2
003400 01  E                   PIC S9(5)V9(5)      VALUE 34.26.         IF1384.2
003500 01  F                   PIC S9(5)V9(5)      VALUE -8.32.         IF1384.2
003600 01  G                   PIC S9(5)V9(5)      VALUE 4.08.          IF1384.2
003700 01  H                   PIC S9(5)V9(5)      VALUE -5.3.          IF1384.2
003800 01  M                   PIC S9(10)          VALUE 320000.        IF1384.2
003900 01  N                   PIC S9(10)          VALUE 650000.        IF1384.2
004000 01  O                   PIC S9(10)          VALUE -430000.       IF1384.2
004100 01  P                   PIC S9(10)          VALUE 1.             IF1384.2
004200 01  Q                   PIC S9(10)          VALUE 3.             IF1384.2
004300 01  R                   PIC S9(10)          VALUE 5.             IF1384.2
004400 01  ARG1                PIC S9(10)          VALUE 1.             IF1384.2
004500 01  ARR                                     VALUE "40537".       IF1384.2
004600     02  IND OCCURS 5 TIMES PIC 9.                                IF1384.2
004700 01  TEMP                PIC S9(10)V9(5).                         IF1384.2
004800 01  WS-NUM              PIC S9(6)V9(7).                          IF1384.2
004900 01  MIN-RANGE           PIC S9(5)V9(7).                          IF1384.2
005000 01  MAX-RANGE           PIC S9(5)V9(7).                          IF1384.2
005100*                                                                 IF1384.2
005200**********************************************************        IF1384.2
005300*                                                                 IF1384.2
005400 01  TEST-RESULTS.                                                IF1384.2
005500     02 FILLER                   PIC X      VALUE SPACE.          IF1384.2
005600     02 FEATURE                  PIC X(20)  VALUE SPACE.          IF1384.2
005700     02 FILLER                   PIC X      VALUE SPACE.          IF1384.2
005800     02 P-OR-F                   PIC X(5)   VALUE SPACE.          IF1384.2
005900     02 FILLER                   PIC X      VALUE SPACE.          IF1384.2
006000     02  PAR-NAME.                                                IF1384.2
006100       03 FILLER                 PIC X(19)  VALUE SPACE.          IF1384.2
006200       03  PARDOT-X              PIC X      VALUE SPACE.          IF1384.2
006300       03 DOTVALUE               PIC 99     VALUE ZERO.           IF1384.2
006400     02 FILLER                   PIC X(8)   VALUE SPACE.          IF1384.2
006500     02 RE-MARK                  PIC X(61).                       IF1384.2
006600 01  TEST-COMPUTED.                                               IF1384.2
006700     02 FILLER                   PIC X(30)  VALUE SPACE.          IF1384.2
006800     02 FILLER                   PIC X(17)  VALUE                 IF1384.2
006900            "       COMPUTED=".                                   IF1384.2
007000     02 COMPUTED-X.                                               IF1384.2
007100     03 COMPUTED-A               PIC X(20)  VALUE SPACE.          IF1384.2
007200     03 COMPUTED-N               REDEFINES COMPUTED-A             IF1384.2
007300                                 PIC -9(9).9(9).                  IF1384.2
007400     03 COMPUTED-0V18 REDEFINES COMPUTED-A   PIC -.9(18).         IF1384.2
007500     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     IF1384.2
007600     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(14).9(4).     IF1384.2
007700     03       CM-18V0 REDEFINES COMPUTED-A.                       IF1384.2
007800         04 COMPUTED-18V0                    PIC -9(18).          IF1384.2
007900         04 FILLER                           PIC X.               IF1384.2
008000     03 FILLER PIC X(50) VALUE SPACE.                             IF1384.2
008100 01  TEST-CORRECT.                                                IF1384.2
008200     02 FILLER PIC X(30) VALUE SPACE.                             IF1384.2
008300     02 FILLER PIC X(17) VALUE "       CORRECT =".                IF1384.2
008400     02 CORRECT-X.                                                IF1384.2
008500     03 CORRECT-A                  PIC X(20) VALUE SPACE.         IF1384.2
008600     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9(9).      IF1384.2
008700     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         IF1384.2
008800     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     IF1384.2
008900     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     IF1384.2
009000     03      CR-18V0 REDEFINES CORRECT-A.                         IF1384.2
009100         04 CORRECT-18V0                     PIC -9(18).          IF1384.2
009200         04 FILLER                           PIC X.               IF1384.2
009300     03 FILLER PIC X(2) VALUE SPACE.                              IF1384.2
009400     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     IF1384.2
009500 01  TEST-CORRECT-MIN.                                            IF1384.2
009600     02 FILLER PIC X(30) VALUE SPACE.                             IF1384.2
009700     02 FILLER PIC X(17) VALUE "     MIN VALUE =".                IF1384.2
009800     02 CORRECTMI-X.                                              IF1384.2
009900     03 CORRECTMI-A                 PIC X(20) VALUE SPACE.        IF1384.2
010000     03 CORRECT-MIN    REDEFINES CORRECTMI-A     PIC -9(9).9(9).  IF1384.2
010100     03 CORRECTMI-0V18 REDEFINES CORRECTMI-A     PIC -.9(18).     IF1384.2
010200     03 CORRECTMI-4V14 REDEFINES CORRECTMI-A     PIC -9(4).9(14). IF1384.2
010300     03 CORRECTMI-14V4 REDEFINES CORRECTMI-A     PIC -9(14).9(4). IF1384.2
010400     03      CR-18V0 REDEFINES CORRECTMI-A.                       IF1384.2
010500         04 CORRECTMI-18V0                     PIC -9(18).        IF1384.2
010600         04 FILLER                           PIC X.               IF1384.2
010700     03 FILLER PIC X(2) VALUE SPACE.                              IF1384.2
010800     03 FILLER                           PIC X(48) VALUE SPACE.   IF1384.2
010900 01  TEST-CORRECT-MAX.                                            IF1384.2
011000     02 FILLER PIC X(30) VALUE SPACE.                             IF1384.2
011100     02 FILLER PIC X(17) VALUE "     MAX VALUE =".                IF1384.2
011200     02 CORRECTMA-X.                                              IF1384.2
011300     03 CORRECTMA-A                  PIC X(20) VALUE SPACE.       IF1384.2
011400     03 CORRECT-MAX    REDEFINES CORRECTMA-A     PIC -9(9).9(9).  IF1384.2
011500     03 CORRECTMA-0V18 REDEFINES CORRECTMA-A     PIC -.9(18).     IF1384.2
011600     03 CORRECTMA-4V14 REDEFINES CORRECTMA-A     PIC -9(4).9(14). IF1384.2
011700     03 CORRECTMA-14V4 REDEFINES CORRECTMA-A     PIC -9(14).9(4). IF1384.2
011800     03      CR-18V0 REDEFINES CORRECTMA-A.                       IF1384.2
011900         04 CORRECTMA-18V0                     PIC -9(18).        IF1384.2
012000         04 FILLER                           PIC X.               IF1384.2
012100     03 FILLER PIC X(2) VALUE SPACE.                              IF1384.2
012200     03 CORMA-ANSI-REFERENCE             PIC X(48) VALUE SPACE.   IF1384.2
012300 01  CCVS-C-1.                                                    IF1384.2
012400     02 FILLER  PIC IS X(99)    VALUE IS " FEATURE              PAIF1384.2
012500-    "SS  PARAGRAPH-NAME                                          IF1384.2
012600-    "       REMARKS".                                            IF1384.2
012700     02 FILLER                     PIC X(20)    VALUE SPACE.      IF1384.2
012800 01  CCVS-C-2.                                                    IF1384.2
012900     02 FILLER                     PIC X        VALUE SPACE.      IF1384.2
013000     02 FILLER                     PIC X(6)     VALUE "TESTED".   IF1384.2
013100     02 FILLER                     PIC X(15)    VALUE SPACE.      IF1384.2
013200     02 FILLER                     PIC X(4)     VALUE "FAIL".     IF1384.2
013300     02 FILLER                     PIC X(94)    VALUE SPACE.      IF1384.2
013400 01  REC-SKL-SUB                   PIC 9(2)     VALUE ZERO.       IF1384.2
013500 01  REC-CT                        PIC 99       VALUE ZERO.       IF1384.2
013600 01  DELETE-COUNTER                PIC 999      VALUE ZERO.       IF1384.2
013700 01  ERROR-COUNTER                 PIC 999      VALUE ZERO.       IF1384.2
013800 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.       IF1384.2
013900 01  PASS-COUNTER                  PIC 999      VALUE ZERO.       IF1384.2
014000 01  TOTAL-ERROR                   PIC 999      VALUE ZERO.       IF1384.2
014100 01  ERROR-HOLD                    PIC 999      VALUE ZERO.       IF1384.2
014200 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE.      IF1384.2
014300 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO.       IF1384.2
014400 01  ANSI-REFERENCE                PIC X(48)    VALUE SPACES.     IF1384.2
014500 01  CCVS-H-1.                                                    IF1384.2
014600     02  FILLER                    PIC X(39)    VALUE SPACES.     IF1384.2
014700     02  FILLER                    PIC X(42)    VALUE             IF1384.2
014800     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 IF1384.2
014900     02  FILLER                    PIC X(39)    VALUE SPACES.     IF1384.2
015000 01  CCVS-H-2A.                                                   IF1384.2
015100   02  FILLER                        PIC X(40)  VALUE SPACE.      IF1384.2
015200   02  FILLER                        PIC X(7)   VALUE "CCVS85 ".  IF1384.2
015300   02  FILLER                        PIC XXXX   VALUE             IF1384.2
015400     "4.2 ".                                                      IF1384.2
015500   02  FILLER                        PIC X(28)  VALUE             IF1384.2
015600            " COPY - NOT FOR DISTRIBUTION".                       IF1384.2
015700   02  FILLER                        PIC X(41)  VALUE SPACE.      IF1384.2
015800                                                                  IF1384.2
015900 01  CCVS-H-2B.                                                   IF1384.2
016000   02  FILLER                        PIC X(15)  VALUE             IF1384.2
016100            "TEST RESULT OF ".                                    IF1384.2
016200   02  TEST-ID                       PIC X(9).                    IF1384.2
016300   02  FILLER                        PIC X(4)   VALUE             IF1384.2
016400            " IN ".                                               IF1384.2
016500   02  FILLER                        PIC X(12)  VALUE             IF1384.2
016600     " HIGH       ".                                              IF1384.2
016700   02  FILLER                        PIC X(22)  VALUE             IF1384.2
016800            " LEVEL VALIDATION FOR ".                             IF1384.2
016900   02  FILLER                        PIC X(58)  VALUE             IF1384.2
017000     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".IF1384.2
017100 01  CCVS-H-3.                                                    IF1384.2
017200     02  FILLER                      PIC X(34)  VALUE             IF1384.2
017300            " FOR OFFICIAL USE ONLY    ".                         IF1384.2
017400     02  FILLER                      PIC X(58)  VALUE             IF1384.2
017500     "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".IF1384.2
017600     02  FILLER                      PIC X(28)  VALUE             IF1384.2
017700            "  COPYRIGHT   1985 ".                                IF1384.2
017800 01  CCVS-E-1.                                                    IF1384.2
017900     02 FILLER                       PIC X(52)  VALUE SPACE.      IF1384.2
018000     02 FILLER  PIC X(14) VALUE IS "END OF TEST-  ".              IF1384.2
018100     02 ID-AGAIN                     PIC X(9).                    IF1384.2
018200     02 FILLER                       PIC X(45)  VALUE SPACES.     IF1384.2
018300 01  CCVS-E-2.                                                    IF1384.2
018400     02  FILLER                      PIC X(31)  VALUE SPACE.      IF1384.2
018500     02  FILLER                      PIC X(21)  VALUE SPACE.      IF1384.2
018600     02 CCVS-E-2-2.                                               IF1384.2
018700         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      IF1384.2
018800         03 FILLER                   PIC X      VALUE SPACE.      IF1384.2
018900         03 ENDER-DESC               PIC X(44)  VALUE             IF1384.2
019000            "ERRORS ENCOUNTERED".                                 IF1384.2
019100 01  CCVS-E-3.                                                    IF1384.2
019200     02  FILLER                      PIC X(22)  VALUE             IF1384.2
019300            " FOR OFFICIAL USE ONLY".                             IF1384.2
019400     02  FILLER                      PIC X(12)  VALUE SPACE.      IF1384.2
019500     02  FILLER                      PIC X(58)  VALUE             IF1384.2
019600     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".IF1384.2
019700     02  FILLER                
…(truncated)…

Contribute — propose a file extension

Tell us where to find evidence about COBOL (mapped to pl/cobol). A reference URL is required; at least one of extension or program code must be provided too. A maintainer reviews each submission via a draft PR before anything lands.

File extension (optional) — e.g. .oak. Some PLs (e.g. esolangs) have no convention; leave empty if so. Friendly name (optional)

Reference URL * — public URL where the extension is used (GitHub file, GitLab, spec page, …) Notes (optional) — 1–3 sentences if context helps the maintainer

Optional: attach a program from that URL

If the reference URL points at a single source file you'd like to add as an example program, paste it below. The workflow will write it under languages/COBOL/programs/<sha>/. Keep under ~200 lines.

Title (optional) — e.g. "Factorial", "Quicksort" License guess (optional) — MIT, GPL-2.0, …

Code (optional) — paste verbatim bytes from the reference URL

(or open the pre-filled issue directly)