Error sur "implicit open" dans l'appel de sous-pro

RPG (3 et 4, free), CL, SQL, etc...
Répondre
germor
Messages : 75
Enregistré le : lun. 06 juin 2011, 08:01:43

Error sur "implicit open" dans l'appel de sous-pro

Message par germor »

Bonjour,
En V5R4, un RPG PROGR1 déclare un fichier :

Code : Tout sélectionner

FFICHIER1   IF   E           K Disk    Rename(FICHIER1:FICHIER1F)   
une sous-procédure de PROGR1 :

Code : Tout sélectionner

 xml-into(e) %Handler([b]Proc_Hand [/b]: TotNotif)  %xml(chemin : Opt) ;
...
PProc_Hand        b
DProc_Hand        pi            10i 0
D Total                         10i 0
D Result                              likeds(ntfctn) dim(1) const
D NB                            10u 0 value      
...
appelle une sous-procédure EXTERNE dans un programme de service:

Code : Tout sélectionner

C                   Callp     PROGR2SP(G_NumPiece:G_NomFicRv:
C                                          FgCoRejPre:G_Retour)        
dans lequel le fichier est déclaré :

Code : Tout sélectionner

FFICHIER1   UF A E           K Disk    Rename(FICHIER1:FICHIER1F)
F                                     Commit      
A l'éxécution de PROGR1 le "Callp PROGR2SP..." renvoie un status 1216 qui correspond à "error on an implicit open or close", car le FICHIER1 est TENU.
L'ouverture/fermeture n'est elle pas implicite ?

cmasse
Site Admin
Messages : 764
Enregistré le : mer. 14 févr. 2007, 18:00:03
Localisation : Nantes
Contact :

erreur sur OPEN

Message par cmasse »

Effectivement les open sont bien implicites (d'ailleurs c'est ce que dit RPG "error on an implicit open"), sauf à utiliser USROPN en spécif F.

la question est pourquoi ne peut-il ouvrir le fichier ? Je pense qu'il doit y avoir un code erreur système (CPFxxxx) dans la lOG (DSPJOBLOG) qui doit nous éclairer sur ce point...
Christian Massé (Volubis.fr)

germor
Messages : 75
Enregistré le : lun. 06 juin 2011, 08:01:43

(sans texte)

Message par germor »

Un éclaircissement qui tombe à point :wink:
Il y a bien
Erreur de niveau sur fichier FICHIER1 de BIBLIO, membre FICHIER1
Message CPF4131 reçu pendant OPEN sur fichier FICHIER1.
dans la log du job :oops:
Merci

Répondre