FCDEDETP1  O    E             DISK
     C                   Z-ADD     454545        NOCDE             6 0
     C                   Z-ADD     1             NOLIG             3 0
     C                   MOVEL     'UN'          CODART           10
     C                   Z-ADD     1             QTECDE            7 2
     C                   WRITE     CDEDETF1                             50
     C   50              CALL      'DB2ERRC'
     C                   PARM                    CST              78
      * FACTEUR 1 DE DSPLY LIMITÉ À 52C.
     C                   MOVEL     CST           MSG              52
     C     MSG           DSPLY     '*EXT'
     C                   SETON                                        LR