Bull DPS 7000 Guide De L'utilisateur page 161

SCHEMA NAME IS SCH-CLIENTS.
AREA NAME IS A-CLIENT
ORGANIZATION IS INDEXED USING KEY-CLIENT.
AREA NAME IS A-COMM
ORGANIZATION IS INDEXED USING KEY-COMM.
AREA NAME IS A-PROD
ORGANIZATION IS INDEXED USING KEY-PROD.
RECORD NAME IS CLIENTS
KEY KEY-CLIENT IS ASCENDING CL-CODE DUPLICATES NOT
KEY KEY-VILLE IS ASCENDING CL-VILLE DUPLICATES LAST
WITHIN A-CLIENT.
02
02
02
02
RECORD NAME IS COMMANDES
KEY KEY-COMM IS ASCENDING COM-CODE, COM-FILLER DUPLICATES NOT
KEY KEY-CL-CODE IS ASCENDING COM-CL-CODE DUPLICATES LAST
KEY KEY-PR-CODE IS ASCENDING COM-FILLER DUPLICATES LAST
RECORD-TYPE DEFINED BY CHECK ON COM-TYPE
WITHIN A-COMM.
02
02
02
02
02
RECORD NAME IS LIGNES-DE-COMMANDE
KEY KEY-COMM IS ASCENDING LI-COM-CODE, LI-PR-CODE DUPLICATES NOT
KEY KEY-CL-CODE IS ASCENDING LI-CL-CODE DUPLICATES LAST
KEY KEY-PR-CODE IS ASCENDING LI-PR-CODE DUPLICATES LAST
RECORD-TYPE DEFINED BY CHECK ON LI-TYPE
WITHIN A-COMM.
02
02
02
02
02
RECORD NAME IS PRODUITS
KEY KEY-PROD IS ASCENDING PR-CODE DUPLICATES NOT
WITHIN A-PROD.
02
02
02
02
SET NAME IS COMM-TO-LIGNE
OWNER IS COMMANDES.
MEMBER IS LIGNES-DE-COMMANDE.
END-SCHEMA.
47 F2 76UD Rev00
Schéma SCH-CLIENTS
CL-CODE TYPE IS CHARACTER 6.
CL-NOM TYPE IS CHARACTER 15.
CL-RUE TYPE IS CHARACTER 20.
CL-VILLE TYPE IS CHARACTER 15.
COM-TYPE TYPE IS CHARACTER 1 CHECK IS VALUE "O".
COM-CODE TYPE IS CHARACTER 7.
COM-FILLER TYPE IS CHARACTER 4 CHECK IS VALUE " ".
COM-CL-CODE TYPE IS CHARACTER 6.
COM-DATE TYPE IS CHARACTER 6.
LI-TYPE TYPE IS CHARACTER 1 CHECK IS VALUE "L".
LI-COM-CODE TYPE IS CHARACTER 7.
LI-PR-CODE TYPE IS CHARACTER 4.
LI-CL-CODE TYPE IS CHARACTER 6.
LI-QTE TYPE IS UNSIGNED UNPACKED DECIMAL 5.
PR-CODE TYPE IS CHARACTER 4.
PR-NOM TYPE IS CHARACTER 20.
PR-STOCK TYPE IS UNSIGNED UNPACKED DECIMAL 5.
PR-PRIX TYPE IS UNSIGNED UNPACKED DECIMAL 6 2.
Figure A-2. Schéma SCH-CLIENTS UFAS séquentiel indexé
A-3