How to make long text disabled in me51n ?

Question

hello friends,
my requirement is, for tcode ME51N the CMP Remarks long text field should be mandatory. please check the picture.
best regards,
santanu nayek

Answer 1

no sir not working
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(1) Form MODIFY_SCREEN, Start                                                                                                                         A
*$*$-Start: (1)---------------------------------------------------------------------------------$*$*
ENHANCEMENT 2  ZPO_SHORTTEXT.    "active version
BREAK-POINT.
DATA: L_TEXTTYPE1 LIKE MMPUR_TEXTTYPES.
IF SY-TCODE EQ 'ME52N'.
   CLEAR L_TEXTTYPE1.
LOOP AT GT_CONTROL-TEXTTYPES INTO L_TEXTTYPE1 .
IF L_TEXTTYPE1-TDID = 'B05'.
L_TEXTTYPE1-DISPLAYMODE  = ''.
MODIFY GT_CONTROL-TEXTTYPES FROM L_TEXTTYPE1 TRANSPORTING DISPLAYMODE.
ENDIF.
   CLEAR L_TEXTTYPE1.
ENDLOOP.
ENDIF.
ENDENHANCEMENT.
*$*$-End:   (1)---------------------------------------------------------------------------------$*$*
   DATA: L_TDID LIKE TTXID-TDID,
         L_TEXTTYPE LIKE MMPUR_TEXTTYPES.
   READ TABLE GT_CONTROL WITH KEY OBJECT = G_TEXTOBJECT.
   CHECK SY-SUBRC EQ 0.
   L_TDID = GT_CONTROL-CURRENT_NODE(4).
   READ TABLE GT_CONTROL-TEXTTYPES INTO L_TEXTTYPE
                                   WITH KEY TDID = L_TDID.
   CHECK SY-SUBRC EQ 0.
   LOOP AT SCREEN.
     CASE SCREEN-GROUP1.
       WHEN 'DEL'.
         IF L_TEXTTYPE-TEXTFLAG    IS INITIAL OR
            L_TEXTTYPE-FIXIE       EQ '*'     OR
            L_TEXTTYPE-FIXIE       EQ 'N'     OR
            L_TEXTTYPE-DISPLAYMODE EQ 'X'.
           SCREEN-ACTIVE = '0'.
           MODIFY SCREEN.
         ENDIF.
       WHEN 'COP'.
         IF L_TEXTTYPE-TEXTFLAG    IS INITIAL OR
            L_TEXTTYPE-FIXIE       NE '*'     OR
            L_TEXTTYPE-DISPLAYMODE EQ 'X'.
           SCREEN-ACTIVE = '0'.
           MODIFY SCREEN.
         ENDIF.
       WHEN 'TC'.
         IF L_TEXTTYPE-DISPLAYMODE EQ 'X'.
           SCREEN-INPUT = '0'.
           MODIFY SCREEN.
         ENDIF.
     ENDCASE.
   ENDLOOP.
ENDFORM.                               " MODIFY_SCREEN