*
      *  modèle de liste via sous fichier (chargement statique)
      *
     FDSPI07    CF   E             WORKSTN
     F                                     SFILE(SFL:RANG)
     FFICH1L1   IF   E           K DISK
     FFICH2P1   IF   E           K DISK
     D  rang           S              4  0
      * PGM PRINCIPAL (BOUCLE SUR IMAGE 1)
      * ==================================
     C                   WRITE     TITRE
     C                   EXFMT     F1
     C                   DOW       not *in03
     C                   EXSR      TRTF1
     C                   EXFMT     F1
     C                   ENDDO
     C                   MOVE      *ON           *INLR
      * DEBUT DES SOUS PROGRAMMES
      * =========================
     C     TRTF1         BEGSR
      * fichier principal
     C     CODE          CHAIN     FICH1F1                            50
     C                   IF        not *in50
      * fichier paramètre pour recup. libellé
     C     CODE          CHAIN     FICH2F1                            51
     C                   EXSR      RAZSF
 
     C                   DOU       %eof
     C                   EXSR      ECRSF
     C     CODE          READE     FICH1F1
     C                   ENDDO
 
     C                   WRITE     PIED
     C                   EXFMT     CTL
     C                   ENDIF
     C                   ENDSR
      *
     C     RAZSF         BEGSR
     C                   eval      *in30 = *off
     C                   eval      *in31 = *off
     C                   WRITE     CTL
     C                   eval      *in31 = *on
     C                   eval      rang  = 0
     C                   ENDSR

      *
     C     ECRSF         BEGSR
     C                   eval      rang = rang + 1
     C                   WRITE     SFL
     C                   eval      *IN30 = *on
     C                   ENDSR