The following depicts the most basic COBOL program allowed by the operating system.
[codesyntax lang=”cobol”]
000100 IDENTIFICATION DIVISION. 00010000 000200 PROGRAM-ID. BCSCOB01. 00020000 000300 AUTHOR. ARCH BROOKS. 00030000 000400 INSTALLATION BROOKS COMPUTING SYSTEMS, LLC. 00040000 000500 DATE-WRITTEN. 09/15/2014. 00050000 000600 DATE-COMPILED. 09/15/2014. 00060000 000700 ENVIRONMENT DIVISION. 00070000 000800 CONFIGURATION SECTION. 00080000 000900 SOURCE-COMPUTER. IBM-Z-OS. 00090000 001000 OBJECT-COMPUTER. IBM-Z-OS. 00100000 001100 DATA DIVISION. 00110000 001200 WORKING-STORAGE SECTION. 00120000 001300 PROCEDURE DIVISION. 00130000 001400 GOBACK. 00140000
[/codesyntax]
The following provides the compiler listing for the above COBOL program.
[codesyntax lang=”text”]
1PP 5655-S71 IBM Enterprise COBOL for z/OS 4.1.0 Date 09/15/2014 Time 10:10:53 Page 1
0Invocation parameters:
VBREF
0Options in effect:
NOADATA
ADV
QUOTE
ARITH(COMPAT)
NOAWO
BUFSIZE(4096)
NOCICS
CODEPAGE(1140)
NOCOMPILE(S)
NOCURRENCY
DATA(31)
NODATEPROC
DBCS
NODECK
NODIAGTRUNC
NODLL
NODUMP
NODYNAM
NOEXIT
NOEXPORTALL
NOFASTSRT
FLAG(I,I)
NOFLAGSTD
INTDATE(ANSI)
LANGUAGE(EN)
NOLIB
LINECOUNT(60)
NOLIST
NOMAP
NOMDECK
NONAME
NSYMBOL(NATIONAL)
NONUMBER
NUMPROC(NOPFD)
OBJECT
NOOFFSET
NOOPTIMIZE
OUTDD(SYSOUT)
PGMNAME(COMPAT)
RENT
RMODE(AUTO)
SEQUENCE
SIZE(MAX)
SOURCE
SPACE(1)
NOSQL
SQLCCSID
NOSSRANGE
NOTERM
NOTEST
NOTHREAD
TRUNC(STD)
VBREF
NOWORD
1PP 5655-S71 IBM Enterprise COBOL for z/OS 4.1.0 Date 09/15/2014 Time 10:10:53 Page 2
0 XMLPARSE(XMLSS)
XREF(FULL)
YEARWINDOW(1900)
ZWB
1PP 5655-S71 IBM Enterprise COBOL for z/OS 4.1.0 BCSCOB01 Date 09/15/2014 Time 10:10:53 Page 3
LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
0 000001 000100 IDENTIFICATION DIVISION. 00010000
000002 000200 PROGRAM-ID. BCSCOB01. 00020000
000003 000300 AUTHOR. ARCH BROOKS. 00030000
000004 000400 INSTALLATION BROOKS COMPUTING SYSTEMS, LLC. 00040000
000005 000500 DATE-WRITTEN. 09/15/2014. 00050000
000006 000600 DATE-COMPILED. 09/15/14. 00060000
000007 000700 ENVIRONMENT DIVISION. 00070000
000008 000800 CONFIGURATION SECTION. 00080000
000009 000900 SOURCE-COMPUTER. IBM-Z-OS. 00090000
000010 001000 OBJECT-COMPUTER. IBM-Z-OS. 00100000
000011 001100 DATA DIVISION. 00110000
000012 001200 WORKING-STORAGE SECTION. 00120000
000013 001300 PROCEDURE DIVISION. 00130000
000014 001400 GOBACK. 00140000
1PP 5655-S71 IBM Enterprise COBOL for z/OS 4.1.0 BCSCOB01 Date 09/15/2014 Time 10:10:53 Page 4
0 Count Cross-reference of verbs References
1 GOBACK . . . . . . . . . . . . 14
1PP 5655-S71 IBM Enterprise COBOL for z/OS 4.1.0 BCSCOB01 Date 09/15/2014 Time 10:10:53 Page 5
0An "M" preceding a data-name reference indicates that the data-name is modified by this reference.
Defined Cross-reference of data names References
1PP 5655-S71 IBM Enterprise COBOL for z/OS 4.1.0 BCSCOB01 Date 09/15/2014 Time 10:10:53 Page 6
0 Defined Cross-reference of programs References
2 BCSCOB01
-* Statistics for COBOL program BCSCOB01:
* Source records = 14
* Data Division statements = 0
* Procedure Division statements = 1
0End of compilation 1, program BCSCOB01, no statements flagged.
0Return code 0
[/codesyntax]
As you can see no errors were generated and the Return Code for the compile is zero.
Mr. Arch Brooks, Software Engineer, Brooks Computing Systems, LLC authored this article.