Page 1 sur 1

Service Web et DS

Posté : lun. 30 mai 2016, 10:45:39
par florian67
Bonjour à tous,

Je vous explique mon problème.

J'expose un service depuis mon IBM I qui un 4 paramètres.
1 alpha, 2 numériques et 1 structure de données.
Jusqu'ici tout va bien, ma DS est en qualified template...

Maintenant j'aimerais que ma DS ai la même structure qu'un fichier.
Du coup je me dis que je peux faire une DS à description externe avec un extname.

Malheureusement à la compilation ça ne passe.
J'ai l'erreur suivante :
Des erreurs ont été détectées pendant la génération des informations programme à placer dans le module.

Code : Tout sélectionner

d LEPGM           pi
     d  prm_typop                     3a
     d  prm_dtcon                     8s 0
     d  prm_nucon                     5s 0
     d  i_testds                           likeds(lads)

d ladse         E ds                  qualified template
     d                                     EXTNAME('BIB/FICHIER':FORMAT)
Juste pour information, lorsque que je compile sans h PGMINFO(*PCML:*MODULE), ça passe.

Est-ce que je veux faire quelque chose qui n'est pas encore autorisé? :)

Merci d'avance.
Florian

Posté : lun. 30 mai 2016, 11:05:44
par cmasse
Ce code fonctionne chez moi (en version 7.2)

Code : Tout sélectionner

**free
ctl-opt PGMINFO(*PCML:*MODULE);
dcl-pi *n;
  p1 int(5);
  p2 char(25);
  p3 likeds(vinds);
END-PI;
dcl-ds vinds ext extname('BDVIN1/VINS') template end-ds;
p3.vin_nom = 'test';
*INLR = *ON; 
Quelle est votre version ?

Posté : lun. 30 mai 2016, 11:24:14
par florian67
Nous sommes en V7R1 et pour la TR il me semble que c'est la 10.

Posté : lun. 30 mai 2016, 11:30:54
par florian67
en fait j'ai trouvé....mon fichier a des zones timestamp.
Et c'est ça qu'il n'accepte pas.

Merci pour votre réponse.