*
      *  modèle de liste via sous fichier (chargement statique)
      *
     FDSPI07  CF  E                    WORKSTN
     F                                        RANG  KSFILE SFL
     FFICH1L1 IF  E           K        DISK
     FFICH2P1 IF  E           K        DISK
      * PGM PRINCIPAL (BOUCLE SUR IMAGE 1)
      * ==================================
     C                     WRITETITRE
     C                     EXFMTF1
     C           *IN03     DOWEQ*OFF
     C                     EXSR TRTF1
     C                     EXFMTF1
     C                     ENDDO
     C                     MOVE *ON       *INLR
      * DEBUT DES SOUS PROGRAMMES
      * =========================
     C           TRTF1     BEGSR
     C           CODE      CHAINFICH1F1              50
     C           *IN50     IFEQ *OFF
     C           CODE      CHAINFICH2F1              51
     C                     EXSR RAZSF
     C           *IN90     DOUEQ*ON
     C                     EXSR ECRSF
     C           CODE      READEFICH1F1                  90
     C                     ENDDO
     C                     WRITEPIED
     C                     EXFMTCTL
     C                     ENDIF
     C                     ENDSR
      *
     C           RAZSF     BEGSR
     C                     MOVEA'00'      *IN,30
     C                     WRITECTL
     C                     MOVE *ON       *IN31
     C                     Z-ADD0         RANG    40
     C                     ENDSR
      *
     C           ECRSF     BEGSR
     C                     ADD  1         RANG
     C                     WRITESFL
     C                     MOVE *ON       *IN30
     C                     ENDSR