Did_ds            ds
     D   idlen                       10I 0 inz(%len(id))
     D   idccsid                     10I 0 inz(297)
     D   id                          20
 
      * variables pour envoi de message
     DCODERR           DS
     D  LGCOD                        10I 0 INZ(16)
     D  LGUTIL                       10I 0
     D  MSGID                         7
     D  RESERV                        1
 
     dtypemsg          DS
     D  infom                        10    inz('*INFO')
     D  comp                         10    inz('*COMP')
     D  diag                         10    inz('*DIAG')
     D  escape                       10    inz('*ESCAPE')
     Dnbtyp                          10I 0 inz(4)
     Dpgmq                           10    inz('*PGMBDY')
     Dstack                          10I 0 inz(1)
 
 
     C     *entry        PLIST
     C                   PARM                    vldl             20
     C                   PARM                    id_p             20
 
     c                   eval      id = id_p
     c                   eval      idlen = %len(%trimr(id))
     c                   eval      lgcod = 0
     C                   call      'QSYRMVLE'                           50
      * nom de la vldl
     C                   parm                    vldl
      * clef à supprimer
     C                   parm                    id_ds
     c                   parm                    coderr
 
     c                   eval      lgcod = 16
     c                   call      'QMHMOVPM'
     c                   parm                    cle               4
     c                   parm                    typemsg
     c                   parm                    nbtyp
     c                   parm                    pgmq
     c                   parm                    stack
     c                   parm                    coderr

     c                   eval      *inlr = *on