SAP ABAP

BREAK ROHINIK . DATA  :  it_ekpo  TYPE  TABLE  OF  ekpo  WITH  HEADER  LINE . DATA  :  it_ekko  TYPE  ekko . DATA  :  lv_banfn  TYPE  banfn ,        lv_aedat  TYPE  ekko - aedat . it_ekko  =  i_ekko . it_ekpo[]  =  tekpo[] . LOOP  AT  it_ekpo .    IF  it_ekpo - banfn  IS  NOT  INITIAL .      SELECT  SINGLE  badat        FROM  eban        INTO  lv_aedat       WHERE  banfn  =  it_ekpo - banfn .      IF  it_ekko - bedat < lv_aedat .        MESSAGE  'Pur. Doc. Date should not be before Pur. Req. Date'  TYPE  'E' . ...

*&---------------------------------------------------------------------* *& Report  ZUSER_EXIT *& *&---------------------------------------------------------------------* REPORT   zuser_exit . TABLES  :  tstc ,          tadir ,          modsapt ,          modact ,          trdir ,          tfdir ,          enlfdir ,          sxs_attrt ,          tstct . DATA  :  jtab  LIKE  tadir  OCCURS  0  WITH  HEADER  LINE . DATA  :  field1 ( 30 ) . DATA  :  v_devclass  LIKE  tadir - devclass . PARAM...

  ABOVE CODE AND INCLUDE PROGRAM WORK T-CODE VL02N AND INCLUDE PROGRAM NAME LV70TFT3  MAKE TEXT TO EDIT OR NON EDIT MODE go to t-code vl02n and change select any delevery and press enter butoon then click on  goto and text select any text here fales and true make text edit or non edit mode      BREAK ROHINIK .      IF  SY - UNAME  =  'ROHINIK'  AND  SY - TCODE  =  'VL02N'  OR  SY - TCODE  =  'VL03N' .    CALL  METHOD  GV_TEXT_EDITOR -> SET_READONLY_MODE    EXPORTING     READONLY_MODE  =  GV_TEXT_EDITOR -> FALSE      EXCEPTIONS               ERROR_CNTL_CALL_METHOD  =  1               INVALID_PARAMETER     ...

*&---------------------------------------------------------------------* *&  Include           ZXM02U12 *&---------------------------------------------------------------------*    DATA  : gs_im_t_eban   TYPE   eban ,         messages  TYPE  bapiret2 .    READ  TABLE  im_t_eban  INTO  gs_im_t_eban  INDEX  1 .    IF  gs_im_t_eban - frgdt < sy - datum .    CLEAR  :  messages .    CALL  FUNCTION  'BALW_BAPIRETURN_GET2'      EXPORTING        type    =  'E'       cl      =  'ZRKMSG'        number  =  '008'       par...

*&---------------------------------------------------------------------* *&  Include           ZXM02U01 *&---------------------------------------------------------------------* *break anju_d. * *TABLES ci_ebandb. * *DATA : lv_name TYPE name1_gp, *       lv_mob TYPE num10, *       l_item TYPE mereq_item, *       l_obj_item TYPE REF TO if_purchase_requisition_item, *       eban TYPE eban. * *IF im_req_item IS NOT INITIAL. *  l_item = im_req_item->get_data( ). * *  IMPORT lv_name TO l_item-zzname1 FROM MEMORY ID 'NAME'. *  IMPORT lv_mob TO l_item-zzcontact F...

*$*$-Start: (4)---------------------------------------------------------------------------------$*$* ENHANCEMENT  1   ZBILLININVOICE .     "active version     break rohinik .      TYPES :  BEGIN  OF  ty_likp ,       vbeln  TYPE  vbeln_vl ,       lfdat  TYPE  lfdat_v ,      END  OF  ty_likp .      DATA :   gs_likp  TYPE  ty_likp .      SELECT  SINGLE  vbeln lfdat      FROM  likp      INTO  gs_likp      WHERE  vbeln  =  vbrp - vgbel .      IF  vbrk - fkdat < gs_likp - lfdat .          MESSAGE  'Billing date Less...