Discussion :

[Yan302]

Hello tout le monde,

Je travaille sur une platform windows XP avec une base de données DB/2 and je rencontre un problème lorsque j'essaye d'insérer (à travers un programme COBOL) a champ qui contient la valeur COBOL "HIGH-VALUE".

Voici mon problème illustré avec ce petit example :

Ma table est crée avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
CREATE TABLE PERS (
  RID INTEGER NOT NULL,
  "LAST_NAME"  VARCHAR(30),
  "FIRST_NAME"  VARCHAR(20),
  "AGE"  NUMERIC(3,0),
CONSTRAINT PERS_PK PRIMARY KEY (RID));

et mon programme COBOL (avant précompilation avec le précompilateur DB2) est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
       IDENTIFICATION DIVISION.
       PROGRAM-ID. INSER.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
           EXEC SQL INCLUDE SQLCA END-EXEC.
           EXEC SQL BEGIN DECLARE SECTION END-EXEC.
       01 WORK-VARS.
         05 HOST-RID PIC S9(9) COMP-5.
         05 HOST-LAST-NAME PIC X(30).
         05 HOST-FIRST-NAME PIC X(20).
         05 HOST-AGE PIC S9(4) COMP-5.
         EXEC SQL END DECLARE SECTION END-EXEC.
         EXEC SQL WHENEVER NOT FOUND CONTINUE END-EXEC.
         EXEC SQL WHENEVER SQLERROR CONTINUE END-EXEC.
         EXEC SQL WHENEVER SQLWARNING CONTINUE END-EXEC.
 
       PROCEDURE DIVISION.
           EXEC SQL
              CONNECT TO sample user db2admin using ******
           END-EXEC.
           MOVE 1 TO HOST-RID.
           MOVE HIGH-VALUES TO HOST-LAST-NAME.
           MOVE "Jean" TO HOST-FIRST-NAME.
           MOVE 33 TO HOST-AGE.
           EXEC SQL
      ****************************************
              INSERT INTO PERS
              (
                "RID", "LAST_NAME", "FIRST_NAME","AGE"
              )
              VALUES
              (
                :HOST-RID, :HOST-LAST-NAME, :HOST-FIRST-NAME, :HOST-AGE
              )
 
           END-EXEC.
           IF NOT SQLCODE = 0 THEN
             DISPLAY "ERROR : SQLCODE " SQLCODE UPON CONSOLE
           ELSE
             EXEC SQL COMMIT END-EXEC
           END-IF.
           STOP RUN.

L'erreur retournée est -302 :THE VALUE OF INPUT VARIABLE OR PARAMETER NUMBER position-number IS INVALID OR TOO LARGE FOR THE TARGET COLUMN OR THE TARGET VALUE

Mais si je remplaceMOVE HIGH-VALUES TO HOST-LAST-NAME. par MOVE "Dupond" TO HOST-LAST-NAME. ou même MOVE HIGH-VALUE TO HOST-LAST-NAME(1:15).
l'insertion se passe correctement. Ce qui me fait donc arrivé à la conclusion que DB/2 interprète un COBOL PIC X(30) contenant des HIGH-VALUE comme un VARCHAR(60). Est-Quelqu'un sait-il pourquoi ? Est-il possible de changer cela ? Bref... toute information concernant cette transformation étrange est la bienvenue !

Merci d'avance pour vos réponses.

Bien à vous,

Yan302

[Luc Orient]

En DB2 z/OS, lorsqu'on travaille avec du VARCHAR, il a y a forcément une information supplémentaire qui donne la longueur de la chaîne de caractère.

Le problème vient peut être de là. COBOL, à la différence du C ou de Java, n'est pas très à l'aise avec les chaînes de caractère de longueur variable.

Et si vous utilisiez une chaîne fixe dans votre table, CHAR au lieu de VARCHAR ?

Par ailleurs, pourquoi vouloir valoriser la colonne de la table à HIGH-VALUE COBOL ?

[Yan302]

Merci pour votre réponse,

En effet, pour un VARCHAR il faut normalement 2 champs, un pour la longueur et un pour la valeur. Mais il semble que DB/2 soit assez permissif et accepte la syntaxe d'un seul champ contenant uniquement la valeur.

J'ai également essayé avec une colone CHAR au lieux de VARCAHR, le problème persiste.

Mais il semble que j'ai identifé le problème. Ma DB est en UTF-8 et alors il semble que DB/2 fasse une conversion du carachter 0xFF en 0xC3BF, alors codé sur 2 bytes ce qui explique le comporment que j'ai remarqué.

Bien à vous,