Fdb_openF  o    E             disk
     Dreponse          S             10I 0
     Dds_parm          DS
     D taille_entete                 10I 0
     D format                         8
     D offset_liste                  10I 0
     D nbr_fichiers                  10I 0
     D taille_liste                  10I 0
     D job                           10
     D profil                        10
     D jobnbr                         6
     D cur_profil                    10
     D reste                       1024
 
 
     Dliste            DS                  qualified
     D  fichier                      10
     D  biblio                       10
     D  membre                       10
     D   filler                       2
     D  typefichier                  10I 0
     D  sous_jacent                  10I 0
     D  access                        4
     D  read                           n   overlay(access)
     D  write                          n   overlay(access : *next)
     D  update                         n   overlay(access : *next)
     D  delete                         n   overlay(access : *next)
 
     D i               S             10I 0
 
 
     C     *entry        plist
     C                   parm                    ds_parm
     C                   parm                    reponse
 
      /free
        offset_liste += 1;
 
        FOR i = 1 to nbr_fichiers;
 
        liste = %subst(ds_parm : offset_liste :
                          taille_liste);
 
          IF    liste.fichier = 'HTTPLOG'

           and  liste.biblio = 'AF4W'
           and  liste.delete = *on;
             reponse = 0;
             return;
          ELSE;
             offset_liste += taille_liste;
          ENDIF;
 
          fichier = liste.fichier;
          biblio = liste.biblio;
          membre = liste.membre;
          access = liste.access;
 
          write db_openfmt;
 
        ENDFOR;
 
        *inlr = *on;
      /end-free