FDSPI06  CF  E                    WORKSTN
     FFICH1L0 UF  E           K        DISK                      A
     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           CLE       CHAINFICH1F1              45
     C           *IN06     CASEQ*ON       TRTADD
     C           *IN23     CASEQ*ON       TRTDLT
     C                     CAS            TRTUPD
     C                     ENDCS
     C                     ENDSR
      *
     C           TRTADD    BEGSR
     C           *IN45     IFEQ *OFF
     C                     MOVE *ON       *IN55
     C                     ELSE
     C           *NOKEY    CLEARFICH1F1
     C                     EXSR TRTF2
     C                     ENDIF
     C                     ENDSR
      *
     C           TRTDLT    BEGSR
     C           *IN45     IFEQ *ON
     C                     MOVE *ON       *IN50
     C                     ELSE
     C                     WRITEF2
     C           *IN23     DOUEQ*ON
     C                     EXFMTF3
     C                     SELEC
     C           *IN12     WHEQ *ON
     C                     LEAVE
     C           *IN23     WHEQ *ON
     C                     DELETFICH1F1
     C                     ENDSL

     C                     ENDDO
     C                     ENDIF
     C                     ENDSR
      *
     C           TRTUPD    BEGSR
     C           *IN45     IFEQ *ON
     C                     MOVE *ON       *IN50
     C                     ELSE
     C                     EXSR TRTF2
     C                     ENDIF
     C                     ENDSR
      *
     C           TRTF2     BEGSR
     C           ERROR     DOUEQ'NON'
     C                     EXFMTF2
     C                     SELEC
     C           *IN12     WHEQ *ON
     C                     LEAVE
     C                     OTHER
     C                     EXSR CTLF2
     C           ERROR     IFEQ 'NON'
      * CTL ==> OK
     C           *IN06     IFEQ *ON
     C                     WRITEFICH1F1
     C                     ELSE
     C                     UPDATFICH1F1
     C                     ENDIF
      *
     C                     ENDIF
     C                     ENDSL
     C                     ENDDO
     C                     ENDSR
      *
     C           CTLF2     BEGSR
     C                     MOVE 'NON'     ERROR   3
      * CONTROLE DU CODE
     C           CODE      CHAINFICH2F1              51
     C           *IN51     IFEQ *ON
     C                     MOVE 'OUI'     ERROR
     C                     ENDIF
      * AUTRES CONTROLES DE VALIDITE
     C*          .....     IF.. .....
     C*                    MOVE 'OUI'     ERROR
     C*                    MOVE *ON       *IN..

     C*                    ENDIF
     C                     ENDSR