le forum IBM i

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

FFICHIER1   IF   E           K Disk    Rename&#40;FICHIER1&#58;FICHIER1F&#41;

une sous-procédure de PROGR1 :

Code : Tout sélectionner

 xml-into&#40;e&#41; %Handler&#40;&#91;b&#93;Proc_Hand &#91;/b&#93;&#58; TotNotif&#41;  %xml&#40;chemin &#58; Opt&#41; ;
...
PProc_Hand        b
DProc_Hand        pi            10i 0
D Total                         10i 0
D Result                              likeds&#40;ntfctn&#41; dim&#40;1&#41; const
D NB                            10u 0 value      
...

appelle une sous-procédure EXTERNE dans un programme de service:

Code : Tout sélectionner

C                   Callp     PROGR2SP&#40;G_NumPiece&#58;G_NomFicRv&#58;
C                                          FgCoRejPre&#58;G_Retour&#41;

dans lequel le fichier est déclaré :

Code : Tout sélectionner

FFICHIER1   UF A E           K Disk    Rename&#40;FICHIER1&#58;FICHIER1F&#41;
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 ?

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...

Un éclaircissement qui tombe à point

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

Merci

le forum IBM i

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

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

erreur sur OPEN

(sans texte)