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
     C                   SETON                                        LR