QAEZD0001D comment chainer dessus

[BrigitteG]

Bonjour,

après avoir fait RTVDIRINF, j'obtiens deux fichiers QAEZD0001O et QAEZD0001D. Je lis en IP QAEZD0001O et je voudrais chainer sur QAEZD0001D qui a une clé QEZDIRIDX.
à l'appel du pgm en rpgle j'ai le message suivant
L'ouverture du membre QAEZD0001D du fichier QAEZD0001D dans LIBXXX a échoué.
1 -- Le format pour le fichier QAEZD0001D contient une ou plusieurs zones de type LOB. Or, la demande d'ouverture n'indiquait pas que ce type de zone pouvait être traité par l'utilisateur de l'ouverture.

Pouvez-vous me dire s'il faut mettre un mot clé au niveau des cartes F ?

Merci d'avance pour votre réponse.

[cmasse]

un BLOB ne peut être lu que par SQL (y compris Embedded SQL ou SQL dans le RPG). La pause-café n° 56 (http://www.volubis.fr/Pausecaf/PAUSECAF56.htm) expliquait comment faire en parlant des champs XML qui sont du même genre.

[BrigitteG]

Merci pour votre aide,

j'ai ajouté le code sql dans le rpg,

Code : Tout sélectionner

fQAEZD0001Dif   e           K DISK
D NAM1            s          32000A   Varying
c/Exec SQL
c+ Select QEZDIRIDX, CAST(QEZDIRNAM1 as VarChar(32000))
c+ into :QEZDIRIDX, :NAM1
c+ from QAEZD0001D where QEZDIRIDX=:QEZDIRIDX
c/End-Exec
c                   eval      CHEMIN = NAM1

mais j'ai toujours le message
ID message . . . . . . : CPF428A
Message . . . . : L'ouverture du membre QAEZD0001D du fichier QAEZD0001D dans LIBIFS a échoué.
Cause . . . . . : Le membre QAEZD0001D du fichier QAEZD0001D dans la bibliothèque LIBIFS n'a pas été ouvert. Le code d'erreur correspondant est
1. Les codes d'erreur et leur signification sont les suivants :
1 -- Le format pour le fichier QAEZD0001D contient une ou plusieurs zones de type LOB. Or, la demande d'ouverture n'indiquait pas que ce type de zone pouvait être traité par l'utilisateur de l'ouverture.

Faut-il compiler le rpg avec des conditions particulières ?


DSPFFD sur QAEZD0001D

Code : Tout sélectionner

           Type         Long  Long   Position         Usage    En-tête                         
Zone       données      zone  tampon tampon           zone     colonne                         
QEZDIRIDX  BINAIR       9  0       4         1        E-S      Path                            
                                                               Name ID                         
  Texte descriptif de la zone . . . . . . . :  Identifier of path name                         
QEZDIRNAM1 GRAPHIC      1024    2050         5        E-S      Parent Directory                
                                                               Path                            
  Texte descriptif de la zone . . . . . . . :  Parent directory path. Path length is below 1 KB
  Zone longueur variable-- Longueur allouée :     60                                           
  Accepte la valeur indéfinie                                                                  
  ID codé de jeu de caractères    . . . . . : 1200                                          
  Conversion UCS2 ou Unicode  . . . . . . . :  *CONVERT                                        
  Normaliser les données  . . . . . . . . . :  Non                                             
                      
QEZDIRNAM2 DBCLOB    1048576      42      2055        E-S      Parent Directory                
                                                               Path                            
  Texte descriptif de la zone . . . . . . . :  Parent directory path. Path length is above 1 KB
  Longueur allouée  . . . . . . . . . . . . :      0                                           
  Accepte la valeur indéfinie                                                                  
  ID codé de jeu de caractères    . . . . . :   1200                                           
  Conversion UCS2 ou Unicode  . . . . . . . :  *CONVERT                                        
  Normaliser les données  . . . . . . . . . :  Non  
           Type         Long  Long   Position         Usage    En-tête     
Zone       données      zone  tampon tampon           zone     colonne     
QEZDRCCSID BINAIR       9  0       4      2097        E-S      Directory   
                                                               CCSID       
  Texte descriptif de la zone . . . . . . . :  The directory CCSID         
QEZDREGION GRAPHIC         2       4      2101        E-S      Directory   
                                                               Region ID   
  Texte descriptif de la zone . . . . . . . :  The directory path region ID
  Valeur par défaut . . . . . . . . . . . . :  Aucun                       
  ID codé de jeu de caractères    . . . . . :   1200                       
  Conversion UCS2 ou Unicode  . . . . . . . :  *CONVERT                    
  Normaliser les données  . . . . . . . . . :  Non                         
    
QEZDLANGID GRAPHIC         3       6      2105        E-S      Directory     
                                                               Language ID   
  Texte descriptif de la zone . . . . . . . :  The directory path language ID
  Valeur par défaut . . . . . . . . . . . . :  Aucun                         
  ID codé de jeu de caractères    . . . . . :   1200                         
  Conversion UCS2 ou Unicode  . . . . . . . :  *CONVERT                      
  Normaliser les données  . . . . . . . . . :  Non 
           Type         Long  Long   Position         Usage    En-tête        
Zone       données      zone  tampon tampon           zone     colonne        
QEZDIRLEN  BINAIR       9  0       4      2111        E-S      Directory      
                                                               Length         
  Texte descriptif de la zone . . . . . . . :  Length of directory's path name
QEZDIRFID  GRAPHIC        35      70      2115        E-S      File ID        
  Texte descriptif de la zone . . . . . . . :  The file ID of the directory   
  Accepte la valeur indéfinie                                                 
  ID codé de jeu de caractères    . . . . . :   1200                          
  Conversion UCS2 ou Unicode  . . . . . . . :  *CONVERT                       
  Normaliser les données  . . . . . . . . . :  Non                            
QEZDFID    BINAIR       9  0       4      2185        E-S      Directory      
                                                               File ID        
  Texte descriptif de la zone . . . . . . . :  The file ID of the directory   
QEZDIRFSID BINAIR      18  0       8      2189        E-S      Directory                                                                     File System ID     
  Texte descriptif de la zone . . . . . . . :  The file system ID of the directory
QEZDIRGID  BINAIR      18  0       8      2197        E-S      Directory          
                                                               Generation ID      
  Texte descriptif de la zone . . . . . . . :  The generation ID                  
QEZPARDIR  BINAIR       9  0       4      2205        E-S      Parent             
                                                               Directory          
                                                               Index              
  Texte descriptif de la zone . . . . . . . :  Parent directory index             
  Accepte la valeur indéfinie                                                     

[cmasse]

C'est juste que quand vous faites vos lectures par SQL, vous n'avez plus de specif F !

[BrigitteG]

n'utilisant que très rarement le sql dans le rpg je n'ai pas percuter avec le fichier.

Merci beaucoup