-
-
Notifications
You must be signed in to change notification settings - Fork 2
/
DTAR020.cbl
16 lines (15 loc) · 1.2 KB
/
DTAR020.cbl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
000100*
000200* DTAR020 IS THE OUTPUT FROM DTAB020 FROM THE IML
000300* CENTRAL REPORTING SYSTEM
000400*
000500* CREATED BY BRUCE ARTHUR 19/12/90
000600*
000700* RECORD LENGTH IS 27.
000800*
000900 03 DTAR020-KCODE-STORE-KEY.
001000 05 DTAR020-KEYCODE-NO PIC X(08).
001100 05 DTAR020-STORE-NO PIC S9(03) COMP-3.
001200 03 DTAR020-DATE PIC S9(07) COMP-3.
001300 03 DTAR020-DEPT-NO PIC S9(03) COMP-3.
001400 03 DTAR020-QTY-SOLD PIC S9(9) COMP-3.
001500 03 DTAR020-SALE-PRICE PIC S9(9)V99 COMP-3.