home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
o22516d1.zip
/
DSDEMO.@IP
/
DSCCIECI.CPB
< prev
next >
Wrap
Text File
|
1992-07-29
|
4KB
|
85 lines
*****************************************************************
* Data Block
*****************************************************************
01 DATA-BLOCK-VERSION-NO PIC 9(8) COMP-5
VALUE 40.
01 VERSION-NO PIC 9(2) COMP-5 VALUE 2.
01 SET-BUILD-NO PIC 9(4) COMP-5
VALUE 48.
01 DATA-BLOCK.
03 C-CODE PIC X(5).
03 C-NAME PIC X(15).
03 C-ADDR1 PIC X(15).
03 C-ADDR2 PIC X(15).
03 C-ADDR3 PIC X(15).
03 C-ADDR4 PIC X(15).
03 C-LIMIT PIC 9(4).
03 C-AREA PIC X.
03 GROUP-001.
04 GROUP-001-ITEM OCCURS 10.
05 ORD-NO PIC 9(6).
05 ORD-DATE PIC 9(6).
05 ORD-VAL PIC S9(4)V9(2).
05 PAY-VAL PIC S9(4)V9(2).
05 ORD-BAL PIC S9(4)V9(2).
03 C-BAL PIC S9(5)V9(2).
03 GROUP-002.
05 DEL-FLG PIC 9.
88 DEL-FLG-TRUE VALUE 1.
05 LOAD-FLG PIC 9.
88 LOAD-FLG-TRUE VALUE 1.
05 SAVE-FLG PIC 9.
88 SAVE-FLG-TRUE VALUE 1.
05 CLR-FLG PIC 9.
88 CLR-FLG-TRUE VALUE 1.
05 EXIT-FLG PIC 9.
88 EXIT-FLG-TRUE VALUE 1.
03 ERR-MSG PIC X(40).
03 C-ORD-NO PIC 9(6).
03 C-ORD-DT PIC 9(6).
03 C-ORD-VL PIC S9(4)V9(2).
03 C-PAY-VL PIC S9(4)V9(2).
*****************************************************************
* End of Data Block
*****************************************************************
*****************************************************************
* Field Numbers
*****************************************************************
01 FIELD-NUMBERS.
03 FLD-NO-C-CODE PIC 9(4) COMP-5 VALUE 1.
03 FLD-NO-C-NAME PIC 9(4) COMP-5 VALUE 2.
03 FLD-NO-C-ADDR1 PIC 9(4) COMP-5 VALUE 3.
03 FLD-NO-C-ADDR2 PIC 9(4) COMP-5 VALUE 4.
03 FLD-NO-C-ADDR3 PIC 9(4) COMP-5 VALUE 5.
03 FLD-NO-C-ADDR4 PIC 9(4) COMP-5 VALUE 6.
03 FLD-NO-C-LIMIT PIC 9(4) COMP-5 VALUE 7.
03 FLD-NO-C-AREA PIC 9(4) COMP-5 VALUE 8.
03 FLD-NO-ORD-NO PIC 9(4) COMP-5 VALUE 10.
03 FLD-NO-ORD-DATE PIC 9(4) COMP-5 VALUE 11.
03 FLD-NO-ORD-VAL PIC 9(4) COMP-5 VALUE 12.
03 FLD-NO-PAY-VAL PIC 9(4) COMP-5 VALUE 13.
03 FLD-NO-ORD-BAL PIC 9(4) COMP-5 VALUE 14.
03 FLD-NO-C-BAL PIC 9(4) COMP-5 VALUE 15.
03 FLD-NO-DEL-FLG PIC 9(4) COMP-5 VALUE 17.
03 FLD-NO-LOAD-FLG PIC 9(4) COMP-5 VALUE 18.
03 FLD-NO-SAVE-FLG PIC 9(4) COMP-5 VALUE 19.
03 FLD-NO-CLR-FLG PIC 9(4) COMP-5 VALUE 20.
03 FLD-NO-EXIT-FLG PIC 9(4) COMP-5 VALUE 21.
03 FLD-NO-ERR-MSG PIC 9(4) COMP-5 VALUE 22.
03 FLD-NO-C-ORD-NO PIC 9(4) COMP-5 VALUE 23.
03 FLD-NO-C-ORD-DT PIC 9(4) COMP-5 VALUE 24.
03 FLD-NO-C-ORD-VL PIC 9(4) COMP-5 VALUE 25.
03 FLD-NO-C-PAY-VL PIC 9(4) COMP-5 VALUE 26.
*****************************************************************
* End of Field Numbers
*****************************************************************