home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
o22516d1.zip
/
DSDEMO.@IP
/
COMMAREA.CBL
< prev
next >
Wrap
Text File
|
1992-07-29
|
1KB
|
29 lines
01 COMM-AREA.
05 COMM-FLAGS.
10 COMM-REQUEST PIC 9.
10 COMM-RETURN PIC 9.
10 COMM-DELETE-FLAG PIC 9.
88 COMM-DELETE-FLAG-TRUE VALUE 1.
10 COMM-LOAD-FLAG PIC 9.
88 COMM-LOAD-FLAG-TRUE VALUE 1.
10 COMM-SAVE-FLAG PIC 9.
88 COMM-SAVE-FLAG-TRUE VALUE 1.
10 COMM-MESSAGE PIC X(40).
05 CUSTOMER-RECORD.
10 FILE-C-CODE PIC X(5).
10 FILE-C-NAME PIC X(15).
10 FILE-C-ADDR1 PIC X(15).
10 FILE-C-ADDR2 PIC X(15).
10 FILE-C-ADDR3 PIC X(15).
10 FILE-C-ADDR4 PIC X(15).
10 FILE-C-LIMIT PIC 9(4) COMP-3.
10 FILE-C-AREA PIC X.
10 FILE-C-ORDER-ENTRY OCCURS 10 TIMES.
15 FILE-ORD-NO PIC 9(6).
15 FILE-ORD-DATE.
20 FILE-ORD-MM PIC 99.
20 FILE-ORD-DD PIC 99.
20 FILE-ORD-YY PIC 99.
15 FILE-ORD-VAL PIC 9(4)V99 COMP-3.
15 FILE-PAY-VAL PIC 9(4)V99 COMP-3.