le forum IBM i

Sans message d'erreur, impossible d’écrire dans un fichier texte.
Le fichier est bien créé mais reste vide.
Voici le code que j'utilise.

Code : Tout sélectionner

      **free
       ctl-opt option&#40;*srcstmt&#41; dftactgrp&#40;*no&#41;;

       dcl-pr OpenFile pointer extproc&#40;'_C_IFS_fopen'&#41;;
         *n pointer value; // file name
         *n pointer value; // file mode
       END-PR;

       dcl-pr WriteFile pointer extproc&#40;'_C_IFS_fputs'&#41;;
         *n pointer value; // string to write
         *n pointer value; // open mode
       END-PR;

       dcl-pr CloseFile extproc&#40;'_C_IFS_fclose'&#41; ;
         *n pointer value ;  // Misc pointer
       end-pr ;

       dcl-s PathFile char&#40;50&#41; ;
       dcl-s OpenMode char&#40;100&#41;;
       dcl-s FilePtr pointer inz;
       dcl-s SndData char&#40;25&#41;;
       dcl-s i packed&#40;3&#41;;

       PathFile = '/test_write.txt' + x'00';
       OpenMode = 'w,o_ccsid=1252' + x'00';

       FilePtr = OpenFile&#40;%addr&#40;PathFile&#41;&#58;%addr&#40;OpenMode&#41;&#41;;
       if &#40;FilePtr = *null&#41; ;
         dsply &#40;'Unable to open file &#40;1&#41;'&#41;;
         return;
       endif;

       CloseFile&#40;%addr&#40;PathFile&#41;&#41;;

       OpenMode = 'a,o_ccsid=1252' + x'00'; 
       FilePtr = OpenFile&#40;%addr&#40;PathFile&#41;&#58;%addr&#40;OpenMode&#41;&#41;;
       if &#40;FilePtr = *null&#41;;
        dsply &#40;'Unable to open file &#40;2&#41;'&#41;;
        return;
       endif;

       for i = 1 to 10;
        SndData = 'Write No. '+ %char&#40;i&#41;+x'0D'+x'0A';
        WriteFile&#40;%addr&#40;SndData&#41;&#58;FilePtr&#41;;
       endfor;

       CloseFile&#40;%addr&#40;PathFile&#41;&#41;;

       *inlr=*on;
      **end-free

Cordialement

Remplacez

Code : Tout sélectionner

CloseFile&#40;%addr&#40;PathFile&#41;&#41;;

par

Code : Tout sélectionner

CloseFile&#40;FilePtr&#41;;

Pour infos, OPTIONS(*STRING) évite d'ajouter X'00' et de passer %ADDR()

Code : Tout sélectionner

**free
ctl-opt option&#40;*srcstmt&#41; dftactgrp&#40;*no&#41;;

dcl-pr OpenFile pointer extproc&#40;'_C_IFS_fopen'&#41;;
  *n pointer value options&#40;*string&#41;; // file name
  *n pointer value options&#40;*string&#41;; // file mode
END-PR;

dcl-pr WriteFile pointer extproc&#40;'_C_IFS_fputs'&#41;;
  *n pointer value options&#40;*string&#41;; // string to write
  *n pointer value; // open mode
END-PR;

dcl-pr CloseFile extproc&#40;'_C_IFS_fclose'&#41; ;
  *n pointer value ;  // Misc pointer
end-pr ;

dcl-s PathFile char&#40;50&#41; ;
dcl-s OpenMode char&#40;100&#41;;
dcl-s FilePtr pointer inz;
dcl-s SndData char&#40;25&#41;;
dcl-s i packed&#40;3&#41;;

PathFile = '/formation/test_write.txt';
OpenMode = 'w, o_ccsid=1252';

FilePtr = OpenFile&#40;PathFile&#58;OpenMode&#41;;
if &#40;FilePtr = *null&#41; ;
  dsply &#40;'Unable to open file &#40;1&#41;'&#41;;
  return;
endif;

CloseFile&#40;FilePtr&#41;;

OpenMode = 'w';
FilePtr = OpenFile&#40;PathFile&#58;OpenMode&#41;;
if &#40;FilePtr = *null&#41;;
  dsply &#40;'Unable to open file &#40;2&#41;'&#41;;
  return;
endif;

for i = 1 to 10;
  SndData = 'Write No. '+ %char&#40;i&#41;+x'0D'+x'0A';
  WriteFile&#40;SndData&#58;FilePtr&#41;;
endfor;

CloseFile&#40;FilePtr&#41;;

*inlr=*on;

Merci pour votre réponse.

Cordialement

Bonjour,

j'ai fait les modifs que vous préconisez.
Aprés un essai je constate un effet bizarre sur le nom des fichiers dans l'ifs

Opt Lien objet Type Attribut Texte
__ test_write.txt STMF
__ test_write.txt > STMF

Si dans le code je mets PathFile = '/marc/test_write.txt'+x'00'; j'ai la première ligne
Si je mets PathFile = '/marc/test_write.txt'; j'obtiens la 2éme ligne avec un >

Je pense que le x'00' reste utile pour la fin du nom de fichier.
Qu'en pensez-vous ?

Cordialement
[/code]

Code : Tout sélectionner

options&#40;*string&#41;

doit ajouter un X'00 ou zéro héxa (obligatoire pour les chaines en C) automatiquement.

donc je dirais, non pas de concaténation de x'00'

ensuite WRKLNK ajoute un > à chaque fois que le nom de fichier ne s'affiche pas entièrement, F22 permet de voir le nom en entier....

le forum IBM i

Ecriture dans fichier texte de l'IFS

Ecriture dans fichier texte de l'IFS

close

options(*string)

option(*string)