your code working well but you miss one filed name so it should be
WHEN 'Z01'.
UXPAR = USER_PAR.
CONDENSE UXPAR.
WRITE UXPAR+0(3) TO DISPO .
IF DISPO IS INITIAL.
EXIT.
ENDIF.
IF MT61D-DISPO <> DISPO .
NO_PLANNING = 'X'.
ENDIF.
ENDCASE.
your code working well but you miss one filed name so it should be
WHEN 'Z01'.
UXPAR = USER_PAR.
CONDENSE UXPAR.
WRITE UXPAR+0(3) TO DISPO .
IF DISPO IS INITIAL.
EXIT.
ENDIF.
IF MT61D-DISPO <> DISPO .
NO_PLANNING = 'X'.
ENDIF.
ENDCASE.