Regading Scripts

Question

Hi all,
I have a requirement that i have to get the data from a Dialog Programming screen (user entries in fields) into a Script. Means I have to Print the contents of the screen. So how can i do this. Please help me out in solving the problem.
Thanks in Advance.
Murthy

Answer 1

hi ramana,
i had done a similar thing...
module user_command_0100 input.
v_ucomm = sy-ucomm.
  case v_ucomm.
    when 'BACK' or 'CANCEL'.
      leave to list-processing and return to screen 0.
when 'PRNT'.
      perform scripts.
  endcase.
endmodule.                 " USER_COMMAND_0100  INPUT
form scripts .
  select marc~matnr
         marc~werks
         t001w~name1
         marc~pstat
         marc~prctr
         marc~minls
         marc~maxls
         into corresponding fields of table it_final
         from marc inner join t001w
         on marcwerks = t001wwerks
         where marc~matnr = itab1-matnr.
  perform call_script.
endform.                    " SCRIPTS
form call_script .
  call function 'OPEN_FORM'
   exporting
  APPLICATION                       = 'TX'
  ARCHIVE_INDEX                     =
  ARCHIVE_PARAMS                    =
  DEVICE                            = 'PRINTER'
  DIALOG                            = 'X'
      form                              = 'ZPTEST'
      language                          = sy-langu
  OPTIONS                           =
  MAIL_SENDER                       =
  MAIL_RECIPIENT                    =
  MAIL_APPL_OBJECT                  =
  RAW_DATA_INTERFACE                = '*'
  SPONUMIV                          =
IMPORTING
  LANGUAGE                          =
  NEW_ARCHIVE_PARAMS                =
  RESULT                            =
   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.
  call function 'WRITE_FORM'
   exporting
      element                        = 'HEADING'
  FUNCTION                       = 'SET'
     type                           = 'BODY'
     window                         = 'MAIN'
IMPORTING
  PENDING_LINES                  =
   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.
  loop at it_final.
    call function 'WRITE_FORM'
     exporting
        element                        = 'DETAILS'
  FUNCTION                       = 'SET'
       type                           = 'BODY'
       window                         = 'MAIN'
IMPORTING
  PENDING_LINES                  =
     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.
  call function 'CLOSE_FORM'
IMPORTING
  RESULT                         =
  RDI_RESULT                     =
TABLES
  OTFDATA                        =
   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.
endform.                    " CALL_SCRIPT
hope this helps,
do reward if it helps,
priya.