PGM
             DCL &DTA *CHAR 260
             DCL &ID *CHAR 7
             DCL &MDP *CHAR 10
             RCVMSG     PGMQ(*EXT) MSGTYPE(*NEXT) MSGKEY(*TOP) +
                          RMV(*NO) MSGDTA(&DTA) MSGID(&ID)
             IF         COND(&ID *EQ 'CPF1124') THEN(DO)
             CHGVAR &MDP (%SST(&DTA 133 10))
  /* TRAITEMENT .....                              */
             ENDPGM