FDSPI04    CF   E             WORKSTN
     FFICH1L0   IF   E           K DISK
      * 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
     C     CLE           CHAIN     FICH1F1                            50
     C                   IF        not *in50
     C                   EXFMT     F2
     C                   ENDIF
     C                   ENDSR