The following sample shows part of the listing of a COBOL program. If this COBOL program were compiled with the ADATA option, the records produced in the associated data file would be in the sequence shown in the table below.
000001 IDENTIFICATION DIVISION. AD000020 000002 PROGRAM-ID. AD04202. AD000030 000003 ENVIRONMENT DIVISION. AD000040 000004 DATA DIVISION. AD000050 000005 WORKING-STORAGE SECTION. AD000060 000006 77 COMP3-FLD2 pic S9(3)v9. AD000070 000007 PROCEDURE DIVISION. AD000080 000008 STOP RUN.
| Type | Description |
|---|---|
| X'0120' | EVENTS Timestamp record |
| X'0120' | EVENTS Processor record |
| X'0120' | EVENTS File-ID record |
| X'0120' | EVENTS Program record |
| X'0001' | ADATA Identification record |
| X'0000' | Job Identification record |
| X'0010' | Options record |
| X'0038' | Source record for statement 1 |
| X'0038' | Source record for statement 2 |
| X'0038' | Source record for statement 3 |
| X'0038' | Source record for statement 4 |
| X'0038' | Source record for statement 5 |
| X'0038' | Source record for statement 6 |
| X'0038' | Source record for statement 7 |
| X'0038' | Source record for statement 8 |
| X'0020' | External Symbol record for AD04202 |
| X'0044' | Symbol Cross Reference record for STOP |
| X'0044' | Symbol Cross Reference record for COMP3-FLD2 |
| X'0044' | Symbol Cross Reference record for AD04202 |
| X'0042' | Symbol record for AD04202 |
| X'0042' | Symbol record for COMP3-FLD2 |
| X'0090' | Statistics record |
| X'0120' | EVENTS FileEnd record |
related references
SYSADATA record descriptions