Example: SYSADATA
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 |