FDSPI04  CF  E                    WORKSTN
     FFICH1L0 IF  E           K        DISK
      * PGM PRINCIPAL (TRAITEMENT DU PARAMETRE RECU)
      * ============================================
     C           *ENTRY    PLIST
     C                     PARM           CLE
     C           CLE       IFNE *BLANK
     C                     WRITETITRE
     C                     EXSR TRTF1
     C                     RETRN
     C                     ELSE
     C                     EXSR BCL1
     C                     ENDIF
      * S/PGM PRINCIPAL (BOUCLE SUR IMAGE 1)
      * ==================================
     C           BCL1      BEGSR
     C                     WRITETITRE
     C                     EXFMTF1
     C           *IN03     DOWEQ*OFF
     C                     EXSR TRTF1
     C                     EXFMTF1
     C                     ENDDO
     C                     MOVE *ON       *INLR
     C                     ENDSR
      * DEBUT DES SOUS PROGRAMMES
      * =========================
     C           TRTF1     BEGSR
     C           CLE       CHAINFICH1F1              50
     C           *IN50     IFEQ *OFF
     C                     EXFMTF2
     C                     ENDIF
     C                     ENDSR