Source Or Nosource - S Or Nos - IBM 5280 Programmer's Manual

-
SOURCE or NOSOURCE - S or NOS
SOURCE, the default option, cause the compiler to print the following:
The COBOL source statements you write
The COBOL source statements (if any) brought in by COPY statements
The Data Definition Statements (if any) brought in by COpy
statements
The COBOL source statements generated by the Data Definition
Statements (if any)
Compiler messages (as described in Chapter 9), if any
Figure 7.8 shows a portion of the source code listed when SOURCE is
specified:
VERSION 1 LEVEL 0 IBM 5280 COBOL 5708-C81 PROGRAM-IO: 03 SEP,
1980 1.1:15
C~PY-ID STMT.. SEa.. A •••
e •••••••••
CoeOL S~URCE STAIEMENTS •••••••••••••••••••••••••••• IDE~TFCN
EMPREeo
E~PRECD
EMPRECD
EMPRECO
EJCPRECC
EMPR£CD
EMPREec
EMPRECD
EIICPRECO
EMPREec
1
2
4
5
CI
8
10
11
12
13
14
14
14
14
14
15
16
17
17
18
18
lq
20
21
22
23
24
25
26
2.7
2.8
2q
30
31
32
33
34
35
36
37
37
37
38
39
39
39
40
41
42
43
44
45
46
IDENTIFICATION OI~ISIC~.
PROG~AM-IC.
LOAOIT.
E~~IRCNME~T DIVISICN.
CChFIGURATICh
SECTIO~.
SO~RCE-COMPUTER. 18M-370 aITH OEB~GGI~G MCOE.
OE~ECT-COMPUTER.
IEM-5280.
SPECIAL-"AIICES.
CONSOLE IS SCREE".
INPUT-OUTPUT SECTION.
F
ILE-CCltH ROL.
SELECT ENPMAS-FILE ASSIGh TO DISK
DRGANIZATIO" IS HELATI~E
ACCESS NODE IS SEGUENTIAL
RELATIVE KEY IS RKEY
FILE
STAT~S
IS STATUS-KEY.
DATA
01 V
IS ION.
FILE SECTICh.
FO EMPMAS-FILE
OOOCOI 01
000002
00000"
C00006
000008
000010
000012
000016
000018
000020
LABEL RECORDS ARE
STANDA~D.
COpy
DCS-E~PRECD.
EMPRECO.
02 ACREC PIC ~(00002).
02 EMPNO Fie X(00005).
02 ENAME PIC )(00020).
02 STRAD PIC
~(00020).
02 CTYST PIC X(00020).
02 ZIPCO PIC )(00005).
02 EEGDT PIC X(00006).
02 SCSNO FIC X(00009).
02 NARST FIe )(00001).
~ORKING-STORAGE SECTICN.
77 STATUS-KEY PIC X(2).
71 RKEY Fie 9(5)
vAL~E 1.
77 OEMPNO PIC 9(5) ~ALUE
o.
PROCEDURE
OIVISIC~.
eEGI/I..
OPEN
O~TP~T c~P~AS-FILE.
MCVE SPACES Te EMPRECD.
~C~E
"F" TC
AC~E(.
CISPLAY
"E~PLCYEE
MASTER FILE
~ITH
100
~ASTER ~ECORCS
BEING CREATED."
\oPO"
SCREE~.
Flh.
PERFOH~
LOAD lCO TIMES.
CISPLAY
"MASTER FILE CREATED. READY FOR UPDATE
~ECORDS"
l.;PON SCREE".
CLOSE e_PMAS-FILE.
STOP Rli".
LOAD.
ACC RKEY 1000 GI~I"'~ DEMPNO.
~e~E OEWP~C
TC EWP/l.O.
_RITE EMPRECO
J"'~ALID
KEY
00000010
00000020
00000030
00000040
00000050
00000060
00000010
00000080
00000090
00000100
00000120
00000110
00000130
00000140
00000150
00000160
00000170
00000770
00000180
00000790
00000790
00000800
00000810
00000820
00000850
00000e40
00000960
00001000
00001010
00001020
00001030
00001040
00001060
Figure 7.8. Sample listing with SOURCE specified (source program)
7- 16 IBM 5280 COBOL PrCllgrammer's Guide