Reg:How to add fields to the scripts in detail

Question

How to add fields to the scripts in detail.
Plz give me one example help me out.

Answer 1

Hi
add fields to the scripts by sending that field between  two &s.
for example if u want to add lifnr of lfa1 table then pass field like this.
&wa_lfa1-lifnr&.here wa_lfa1 is work area for internal table it_lfa1.
if name1 then &wa_lfa1-name1&
in this way you can add fields to the script under any window.
i am sending one example program for scripts.
&--structure declaration--
TYPES:BEGIN OF ST_LFA1,
      LIFNR TYPE LFA1-LIFNR,
      NAME1 TYPE LFA1-NAME1,
      LAND1 TYPE LFA1-LAND1,
      ORT01 TYPE ORT01,
      REGIO TYPE REGIO,
      END OF ST_LFA1.
TYPES:BEGIN OF ST_EKKO,
      EBELN TYPE EKKO-EBELN,
      BUKRS TYPE EKKO-BUKRS,
      AEDAT TYPE EKKO-AEDAT,
      ERNAM TYPE EKKO-ERNAM,
      BSTYP TYPE EKKO-BSTYP,
      LIFNR TYPE EKKO-LIFNR,
      END OF ST_EKKO.
TYPES:BEGIN OF ST_EKPO,
      EBELN TYPE EKPO-EBELN,
      EBELP TYPE EKPO-EBELP,
      LOEKZ TYPE EKPO-LOEKZ,
      AEDAT TYPE EKPO-AEDAT,
      MATNR TYPE EKPO-MATNR,
      NETWR TYPE EKPO-NETWR,
      END OF ST_EKPO.
&--internal table,work area declaration--
DATA:WA_LFA1 TYPE ST_LFA1,
     IT_LFA1 TYPE STANDARD TABLE OF ST_LFA1,
     WA_EKKO TYPE ST_EKKO,
     IT_EKKO TYPE STANDARD TABLE OF ST_EKKO,
     WA_EKPO TYPE ST_EKPO,
     IT_EKPO TYPE STANDARD TABLE OF ST_EKPO.
&--data declaration--
DATA:TOTAL TYPE EKPO-NETWR,
      V_EBELN TYPE EKKO-EBELN.
data: v_item(20) type c.
&--parameter for purchase document number--
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETERS P_PURDOC LIKE V_EBELN.
SELECTION-SCREEN END OF BLOCK B1.
START-OF-SELECTION.
  PERFORM GET_DATA_FROM_EKKO.
  PERFORM GET_DATA_FROM_LFA1.
  PERFORM GET_DATA_FROM_EKPO.
&--grand total--
  LOOP AT IT_EKPO INTO WA_EKPO.
    TOTAL = TOTAL + WA_EKPO-NETWR.
    CLEAR WA_EKPO.
  ENDLOOP.
&--open form--
  CALL FUNCTION 'OPEN_FORM'
   EXPORTING
    DEVICE                            = 'PRINTER'
    FORM                              = 'Z_50886_VENDOR'
    LANGUAGE                          = SY-LANGU
   EXCEPTIONS
     CANCELED                          = 1
     DEVICE                            = 2
     FORM                              = 3
     OPTIONS                           = 4
     UNCLOSED                          = 5
     MAIL_OPTIONS                      = 6
     ARCHIVE_ERROR                     = 7
     INVALID_FAX_NUMBER                = 8
     MORE_PARAMS_NEEDED_IN_BATCH       = 9
     SPOOL_ERROR                       = 10
     CODEPAGE                          = 11
     OTHERS                            = 12
  IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
&--write form for header details--
  READ TABLE IT_EKKO INTO WA_EKKO INDEX 1.
  CALL FUNCTION 'WRITE_FORM'
   EXPORTING
     ELEMENT                        = 'HEAD'
     WINDOW                         = 'HEADER'
   EXCEPTIONS
     ELEMENT                        = 1
     FUNCTION                       = 2
     TYPE                           = 3
     UNOPENED                       = 4
     UNSTARTED                      = 5
     WINDOW                         = 6
     BAD_PAGEFORMAT_FOR_PRINT       = 7
     SPOOL_ERROR                    = 8
     CODEPAGE                       = 9
     OTHERS                         = 10
  IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
&--write form for item details--
  LOOP AT IT_EKPO INTO WA_EKPO.
  concatenate wa_ekko-ebeln wa_ekpo-ebelp into v_item.
    CALL FUNCTION 'WRITE_FORM'
     EXPORTING
       ELEMENT                        = 'ITEM'
       WINDOW                         = 'MAIN'
EXCEPTIONS
   ELEMENT                        = 1
   FUNCTION                       = 2
   TYPE                           = 3
   UNOPENED                       = 4
   UNSTARTED                      = 5
   WINDOW                         = 6
   BAD_PAGEFORMAT_FOR_PRINT       = 7
   SPOOL_ERROR                    = 8
   CODEPAGE                       = 9
   OTHERS                         = 10
    IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
  ENDLOOP.
&--write form for vendor details--
  READ TABLE IT_LFA1 INTO WA_LFA1 INDEX 1.
  CALL FUNCTION 'WRITE_FORM'
   EXPORTING
     ELEMENT                        = 'VENDOR'
     WINDOW                         = 'ADDRESS'
   EXCEPTIONS
     ELEMENT                        = 1
     FUNCTION                       = 2
     TYPE                           = 3
     UNOPENED                       = 4
     UNSTARTED                      = 5
     WINDOW                         = 6
     BAD_PAGEFORMAT_FOR_PRINT       = 7
     SPOOL_ERROR                    = 8
     CODEPAGE                       = 9
     OTHERS                         = 10.
  IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
&--write form for grand total--
CALL FUNCTION 'WRITE_FORM'
EXPORTING
    WINDOW                         = 'TOTAL'
EXCEPTIONS
   ELEMENT                        = 1
   FUNCTION                       = 2
   TYPE                           = 3
   UNOPENED                       = 4
   UNSTARTED                      = 5
   WINDOW                         = 6
   BAD_PAGEFORMAT_FOR_PRINT       = 7
   SPOOL_ERROR                    = 8
   CODEPAGE                       = 9
   OTHERS                         = 10
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
&--close form--
  CALL FUNCTION 'CLOSE_FORM'
   EXCEPTIONS
     UNOPENED                       = 1
     BAD_PAGEFORMAT_FOR_PRINT       = 2
     SEND_ERROR                     = 3
     SPOOL_ERROR                    = 4
     CODEPAGE                       = 5
     OTHERS                         = 6
  IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
*&      Form  get_data_from_ekko
FORM GET_DATA_FROM_EKKO .
  SELECT EBELN
         BUKRS
         AEDAT
         ERNAM
         BSTYP
         LIFNR
      FROM EKKO INTO TABLE IT_EKKO WHERE EBELN = P_PURDOC.
ENDFORM.                    " get_data_from_ekko
*&      Form  get_data_from_lfa1
FORM GET_DATA_FROM_LFA1 .
  IF NOT IT_EKKO[] IS INITIAL.
    SELECT LIFNR
           NAME1
           LAND1
           ORT01
           REGIO
           FROM LFA1 INTO TABLE IT_LFA1 FOR ALL ENTRIES IN IT_EKKO WHERE
                LIFNR = IT_EKKO-LIFNR.
  ENDIF.
ENDFORM.                    " get_data_from_lfa1
*&      Form  get_data_from_ekpo
FORM GET_DATA_FROM_EKPO .
  IF NOT IT_EKKO[] IS INITIAL.
    SELECT EBELN
           EBELP
           LOEKZ
           AEDAT
           MATNR
           NETWR
           FROM EKPO INTO TABLE IT_EKPO
           WHERE EBELN = P_PURDOC.
  ENDIF.
ENDFORM.                    " get_data_from_ekpo