All About Programming

  REPORT  zfindexits . TABLES  :  tstc ,  tadir ,  modsapt ,  modact ,  trdir ,  tfdir ,  enlfdir ,  tstct . DATA  :  jtab  LIKE  tadir  OCCURS  0  WITH  HEADER  LINE . DATA  :  field1 ( 30 ) . DATA  :  v_devclass  LIKE  tadir - devclass . PARAMETERS  :  p_tcode  LIKE  tstc - tcode OBLIGATORY . START-OF-SELECTION . SELECT  SINGLE  *  FROM  tstc  WHERE  tcode  EQ  p_tcode . IF  sy - subrc  EQ  0 .    SELECT  SINGLE  *  FROM  tadir      WHERE  pgmid  =  'R3TR'  AND  object  =  'PROG'  AND  obj_name  =  tstc - pgmna .    MOVE  :  tadir - devclass  TO  v_devclass .    IF  sy - subrc  NE  0 .      SELECT  SINGLE  *  FROM  trdir  WHERE  name  =  tstc - pgmna .      IF  trdir - subc  EQ  'F' .        SELECT  SINGLE  *  FROM  tfdir  WHERE  pname  =  tstc - pgmna .        SELECT  SINGLE  *  FROM  enlfdir  WHERE  funcname  =  tfdir - funcname .        SELECT  SINGLE  *  FROM  tadir  WHERE         pgmid  =  'R3TR'  AND  object  =  'FUGR'  AND  obj_name  EQ 

  1. Create BAdI MB_MIGO_BADI Implementation from tcode SE19 2. Enter Implementation Name 3. Create Enhancement Implementation 4. Open Implementing Class 5. Create variable declaration on class attribute 6. Append custom structure to GOHEAD structure from SE11 save & activate structure. 7. Create custom table to store custom field data 8. Create custom ABAP program in SE38 9. create 2 sub screen for input and display   All source code custom ABAP program *&---------------------------------------------------------------------* *& Report ZMIGO_CUSTOMFIELD *&---------------------------------------------------------------------* *& *&---------------------------------------------------------------------* REPORT  zmigo_customfield . TABLES  :  gohead . DATA  cs_goitem  TYPE  goitem . *&---------------------------------------------------------------------* *& Module STATUS_8000 OUTPUT *&---------------------------------------------------------------------*