Quantcast
Channel: SCN: Message List
Viewing all articles
Browse latest Browse all 3510

Re: Accessing the output of transaction SCU3 in a z program

$
0
0

Hi Mike,

 

please refer below code.

 

*&---------------------------------------------------------------------*

*& Report  ZTEMP_SCU3

*&

*&---------------------------------------------------------------------*

*&

*&

*&---------------------------------------------------------------------*

 

REPORT  ztemp_scu3.

 

 

DATA: lr_pay_conf_data TYPEREFTOdata,

       lr_pay_conf_data1 TYPEREFTOdata.

 

FIELD-SYMBOLS: <gtab>  TYPEtable.

FIELD-SYMBOLS: <lt_pay_conf_data> TYPESTANDARDTABLE,

                <ls_pay_conf_data> TYPEANY,

                <lv_field>         TYPEANY.

 

CLEAR : lr_pay_conf_data.

 

cl_salv_bs_runtime_info=>set( EXPORTING display  = abap_false

                                         metadata = abap_false

                                         data     = abap_true ).

 

SUBMIT rsvtprot  USING SELECTION-SCREEN1010

        WITH cusobj   EQ'ZFTP_CONN'"Table Name

        WITH dbeg     EQ''

        WITH tbeg     EQ'000000'

        WITH dend     EQ''

        WITH tend     EQ'235959'

        WITH objfirst EQ''

        WITH tabfirst EQ'X'

        WITH alv_grid = 'X'ANDRETURN.

 

cl_salv_bs_runtime_info=>get_data_ref( IMPORTING r_data = lr_pay_conf_data ).

ASSIGN lr_pay_conf_data->* TO<lt_pay_conf_data>.

 

IF sy-subrc <> 0.

   CLEAR : sy-ucomm.

   MESSAGE i009(zhundi) WITH'NO data found'.

ELSE.

   LOOPAT<lt_pay_conf_data> ASSIGNING<ls_pay_conf_data>.

     DO.

       ASSIGNCOMPONENT sy-indexOFSTRUCTURE<ls_pay_conf_data> TO

       <lv_field>.

       IF sy-subrc <> 0.

         EXIT.

       ELSE.

          "Do some validation

       ENDIF.

     ENDDO.

   ENDLOOP.

 

"Through this line you can transfer content from  <lt_pay_conf_data> TO  GIT_DATA. 

*  APPEND LINES OF <lt_pay_conf_data> TO  GIT_DATA.

ENDIF.

cl_salv_bs_runtime_info=>clear_all( ).

 

You will get your data in <lt_pay_conf_data>  table .

 

please reward if this is useful.

 

Regards,

Sagar Pambhar.


Viewing all articles
Browse latest Browse all 3510

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>