FCDEDETP1O   E                    DISK
     C                     Z-ADD454545    NOCDE   60
     C                     Z-ADD1         NOLIG   30
     C                     MOVEL'UN'      CODART 10
     C                     Z-ADD1         QTECDE  72
     C                     WRITECDEDETF1               50
     C   50                CALL 'DB2ERRC'
     C                     PARM           CST    78
      * FACTEUR 1 DE DSPLY LIMITÉ À 52C.
     C                     MOVELCST       MSG    52
     C           MSG       DSPLY'*EXT'
     C                     SETON                     LR