Figure 2.3 Data Definition Statements Coding Example; Figure 2.4 Data Definition Statements As Compiled By The Cobol Compiler - IBM 5280 Programmer's Manual

IB~
Internationel BUlineu Mechlne-s Corporation
IBM 5280 DATA DESCRIPTION SPECIFICATIONS
G>
PTlnte4
Job No
Operator
Sequence
;h
£
1 2 3 4 5 6 17
9 1~
olllA
13 A
1016
A
1017
jA
1
0 ,8 A
115
A
lit
A
l~ A
IA
Data~~t
I
Sowce Document
of
Date
II
D III
~
Location
iii
Oleck,=CHECK (code ,,)
II
Edit~ng
Reserved
~
~
Datasetl R ecordl
FieldfTable Name
.~ ~
"
~i ~
Length
1 t2131415~
1920 21 22 23 :1425 26272829 pO 3132 33
I~ ~F,1I
2
"ID
t~
0
Itlll~ I
i.1.1 I\; U
I
ZIIA
2tl~
51D
IX
u
o
.0
v
' 0
Auto Oup ~AO ~~Ofy Entfv ~ME
Auto Skip AS Mend_tory Fill 2MF
Blank OWek -BC RtAdI-Bt.""
FlU
-RS
ByPiftl "'BY
R'rt
10
lJof1 '"Rl
8yp'\~
0:.1"
IIt"f" 8V '11
Adl-l~o
F,II 'RI
Line Pos
~ta
ReQlmed .. OR Self Owek ""u
Oup
Dlsa~e
-DO O"M/G
i~k(G!-"J
Field EXII Requlf!d -FE
~Jt
.. ModuluI
Lo_fease
-lC
Functions
AUXOUPINlmel
AUXSTI".mel
COMP(lteltfldl l •
fldn
'hter~' !,,,d'Ulor))
OSPATR (lam I
EOTCOE6cock'tIOllt')
ERROR (code ('mftU9!'}I
EXSR (subroutine)
INSERT Ifld1
l
• . . .
fldn 'II!!!"'I')
LOOKltabie (index! I
itestcEo.GE,GT.LE.lT,NE
lanr-eL.CA.CS.HI.NO.RI.UL
)".,-.-,/
4,hitt-A,O,H.N,V,W.X. Y
PMT (promptl
RANGEUowh.
RANGEl Itabte I,
RESET(I"TOTnl
SEQI'tal1l
SETOFCindl
SETOI\I.,ndl
SHIFT r"uftJ
SUB ("""1
SUeST Itabl .. , ut
TADOWTOTn)
TSU8 WTOTn! I
XCHKftabhindl:
'11,.,,1'
44 46 47 48 495051 52535455565758 5960 61 6263 64 65 66 67 68 69 70 7172 73 74 75 76
i e
1
1111
,
\/'
1'5
1
\
\
'fHI
i
:\
/\
I~ ~
ItA)
8Y)
PI
In
E
R R
~
oilll'l
t:. ~ ~II
R
It: i J :: 1\
Ie
R
i'l'l"
I
~ c
Ie
Q
F)
1::1
I'
FIE~
II 1
I~
IU Hllt<l
IV
I~
I ..,
1 2 3 4 5 6 7 8 9 1011121314151617181920 21 22 23 2425 26 27 28 2930 31 32 33l<' 35 36 37 38 3940 41424344 45 46 4748 49505152535455565758 5960 616263646566 67 68 69707172 73 747571
"Number of sheets per pad may vary slightly,
Figure 2.3 Data Definition Statements Coding Example
The statements in figure 2.4 show what the Data Definition Statements in
figure 2.3 look like after they are copied and compiled.
COPY-ID
STMT.* SEQ.*
A ... B . . . . . . . . . COBOL SOURCE STATEMENTS ...
"" COpy DDS-EMPRECD.
~~
EMPRECD 22 000001 01 EMPRECD.
EMPRECD 23 000002 02 ACREC PIC X(00002).
EMPRECD 24 000004
02 EMPNO PIC X( 00005) .
EMPRECD 25 000006 02 ENAME PIC X( 00020) .
EMPRECD 26
000008 02 STRAD PIC X(00020).
EMPRECD 27 000010 02 CTYST PIC X( 00020) .
EMPRECD 28 000012
02 ZIPCD
PIC X(00005).
EMPRECD 29 000014 02 BEGDT PIC X(00006).
EMPRECD
30 000016 02 SOSNO
PIC X( 00009) .
EMPRECD 31 000018 02 MARST PIC X(OOool).
Figure 2.4 Data Definition Statements as compiled by the COBOL compiler
2- 4 IBM 5280 COBOL Programmer's Guide