5.12 Réclamations de garantie d'interface

Avec le fichier X81, les demandes de garantie peuvent être rendues neutres
être.
Pour plus de détails sur cette fonction, voir le chapitre «Échange de données II».

5.12.1 CONSTRUCTION DU FICHIER X81

Le fichier X81 est un fichier séquentiel avec une longueur d’enregistrement de 128. Il suit:
une définition des champs individuels, selon la norme COBOL:
0015 *
0016 FD X81
0017 RECORD D'ÉTIQUETAGE EST STANDARD.
0018 *
0019 01 X81-SET-1.
0020 * ***** CASQUE *****
0021 03 X81-SATZART PIC X.
0022 * :: P (0001)
0023 * SATZART = K
0024 03 X81-ANTR-NR PIC 9 (6).
0025 * :: P (0002)
0026 * NUMÉRO DE DEMANDE
0027 03 X81-BEGIN PIC 9 (6).
0028 * :: P (0008)
0029 * GARANTIE DE LA DATE DE DEBUT
0030 03 X81-NEHM-DATUM PIC 9 (6).
0031 * :: P (0014)
0032 * DATE D'ACCEPTATION / RÉPARATION
0033 03 X81-KM PIC 9 (7).
0034 * :: P (0020)
0035 * KM PERFORMANCE
0036 03 X81-ANTR-ART PIC X.
0037 * :: P (0027)
0038 * TYPE DE GARANTIE
0039 03 X81-KDNR PIC X (15).
0040 * :: P (0028)
0041 * NUMÉRO DE REVENDEUR PAR IMPORTATEUR
0042 03 X81-FGST PIC X (20).
0043 * :: P (0043)
0044 * NUMÉRO DE CHÂSSIS
0045 03 X81 PIC PIC MOTEUR (20).
0046 * :: P (0063)
0047 * NUMÉRO DE MOTEUR
0048 03 X81-FABRNR PIC X (10).
0049 * :: P (0083)
0050 * NUMÉRO DE FABRICATION
0051 03 X81-TYPE PIC X (20).
0052 * :: P (0093)
0053 * TYPE DE VÉHICULE
0054 03 X81-AUFNR PIC 9 (6).
0055 * :: P (0113)
0056 * NUMÉRO DE COMMANDE
0057 03 FILLER PIC X (10).
0058 * :: P (0119)
0059 *
0060
0061 *
0062 01 X81-SET-2.
0063 * ***** AW-POSITION *****
0064 03 FILLER PIC X (7).
0065 * :: P (0001)
0066 * SATZART = UN BZW. e
0067 * NUMÉRO DE DEMANDE
0068 03 PIC X X-EXTERNAL-NR (20).
0069 * :: P (0008)
0070 * NUMERO EXTERNE AW / ET
0071 03 X81-TEXT1 PIC X (30).
0072 * :: P (0028)
0073 * TEXT
0074 03 X81-KZ-WZ PIC X.
0075 * :: P (0058)
0076 * MARK W / Z AT AW
0077 03 X81-MNG PIC S9 (5) V99.
0078 * :: P (0059)
0079 * NUMÉRO TOTAL AW OU AZ
0080 * BZW. MONTANT À ET
0081 03 X81-REQUEST-PRS PIC S9 (7) V99.
0082 * :: P (0066)
0083 * PRIX D'APPLICATION À ET
0084 03 PIC X81-VP S9 (7) V99.
0085 * :: P (0075)
0086 * APPROACH BZW. SIMPLE VP
0087 03 X81-PIC BRUT S9 (7) V99.
0088 * :: P (0084)
0089 * POSITION VALEUR BRUT
0090 03 X81-INTERN-PROZ PIC 999.
0091 * :: P (0093)
0092 * INTERNE EN%
0093 03 X81-NET PIC S9 (7) V99.
0094 * :: P (0096)
0095 * POSITION VALEUR MOINS INTERN
0096 03 X81-MWS PIC 9.
0097 * :: P (0105)
0098 * CODE TVA 0-8
0099 03 X81-SERIES-NR PIC X (20).
0100 * :: P (0106)
0101 * N ° DE SÉRIE VIEILLE PARTIE À ET
0102 03 X81-SV PIC X.
0103 * :: P (0126)
0104 * INTERVENANTS EN DOMMAGES KZ
0105 * À HE
0106 * '' = NON
0107 * '1' = OUI
0108 03 X81-PIC ÉTRANGER X.
0109 * :: P (0127)
0110 * IDENTIFICATION DE LA POSITION ÉTRANGÈRE
0111 * '' = NON
0112 * '1' = OUI
0113 03 FILLER PIC X (1).
0114 * :: P (0128)
0115 *
0116
0117 *
0118 01 X81-SET-3.
0119 * ***** TE-POSITION *****
0120 03 FILLER PIC X (7).
0121 * :: P (0001)
0122 * SATZART = T
0123 * NUMÉRO DE DEMANDE
0124 03 X81-TE-TEXT1 PIC X (30).
0125 * :: P (0008)
0126 03 X81-TE-TEXT2 PIC X (30).
0127 * :: P (0038)
0128 03 X81-TE-TEXT3 PIC X (30).
0129 * :: P (0068)
0130 * TEXT
0131 03 FILLER PIC X (31).
0132 * :: P (0098)
0133 /