Copie d'un fichier BD dans IFS

BoTTom |
 
 Copie d'un fichier BD dans IFS.
 
 
 ce posaient à nous deux problèmes
 
 + la commande CPYTOSTMF ne copie que les fichiers en interne (ou source)
 
   ==> il faut copier le fichier BD dans un fichier temporaire
       qu'il faut créer par CRTPF RCDLEN()
 
       la fonction RTVDBLEN en GAP4 retrouve la lg d'un fichier
 
 
 
 + il faut copier ce fichier dans IFS avec CCSID 1252 qui est le code page
       de Windows LATIN-1 (en ANSI et non en ASCII)
 
 
   le CLLE CPYTOSTMFC réalise cela
 
 le source compil est le pgm de mise en place (compil et liage)




©AF400