GNP avec DL1 [Résolu]

[bigjeff]

Bonjour,

Je travaille sur Zos sous IMS DB v9 et j'utilise Easytrieve comme langage version 6.3, voici mon problème :

Le segment A a un fils le segment B qui a deux fils les segments C et D

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
                +-----+
                |  A  |
                +-----+
                   |
                +-----+
                |  B  |
                +-----+
                 |   |
              +--+   +--+
              |         |
           +-----+   +-----+
           |  C  |   |  D  |
           +-----+   +-----+

Voici mon traitement :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Pour chaque données du segment A (GN A SSA-UQ-A)
   Pour chaque données du segment B (GNP B SSA-UQ-B)

      Pour chaque données du segment C (GNP C SSA-UQ-C)
         TRT
      Fin-Pour

      (1)

      Pour chaque données du segment D (GNP D SSA-UQ-D)
         TRT
      Fin-Pour

   Fin-Pour
Fin-Pour

Après le traitement sur le segment C il me dit qu'il n'y a pas de donneés dans D alors qu'il y en a ...
J'ai essayé GNP D SSA-UQ-B SSA-UQ-D et même GNP D SSA-UQ-A SSA-UQ-B SSA-UQ-D cela ne change rien.

J'ai pensé qu'après le traitement du segment C il avait perdu la position du segment supérieur donc j'ai ajouté où se trouve (1) un GU B SSA-UQ-A SSA-UQ-B, là il trouve les données dans D mais lors de l'appel suivant du segment B il me renvoie le status-code GP (No parentage etablished).

Que faire ????

PS : SSA-UQ signifie un SSA non qualifié.

Merci

[bigjeff]

J'ai trouvé une solution à mon problème depuis un petit bout de temps et j'avais oublié que j'avais posté cette question

En fait lors de l'interrogation dans la première branche il faut indiquer par quel segment il faut passer ainsi quand on interroge la deuxiême branche il ne se perd pas. Donc le code est :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Pour chaque données du segment A (GN A SSA-UQ-A)
   Pour chaque données du segment B (GNP B SSA-UQ-A SSA-UQ-B)

      Pour chaque données du segment C (GNP C SSA-UQ-A SSA-UQ-B SSA-UQ-C)
         TRT
      Fin-Pour

      (1)

      Pour chaque données du segment D (GNP D SSA-UQ-A SSA-UQ-B SSA-UQ-D)
         TRT
      Fin-Pour

   Fin-Pour
Fin-Pour

Ainsi ça marche, en espérant que cela serve encore à quelqu'un ...