Announcement:
wanna exchange links? contact me at sapchatroom@gmail.com.
Posted by
Admin at
Question from ramya on Apr 24 at 8:22 AM I try to retrieve data from data dictionary but run time error appears
(The current program requested storage space from the SAP paging area,
but this request could not be fulfilled.
of this area in the SAP system profile.)
this is code
Data:progname TYPE sy-repid,
dynnum TYPE sy-dynnr.
TYPES: BEGIN of branch_line ,
BRNCH TYPE BNKA-BRNCH,
END OF branch_line.
TYPES: BEGIN of Wage_line ,
LGART TYPE T512T-LGART,
END OF wage_line.
DATA branch_list TYPE STANDARD TABLE OF branch_line WITH HEADER LINE.
DATA Wage_list TYPE STANDARD TABLE OF Wage_line .
****
* CALLING SCREEN.
*****
CALL SCREEN 100.
*&---------*
*& Module STATUS_0100 OUTPUT
*&---------*
* text
*-----------*
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'SCREEN_100'.
* SET TITLEBAR 'xxx'.
progname = sy-repid.
dynnum = sy-dynnr.
CLEAR AMOT_WRD.
ENDMODULE. " STATUS_0100 OUTPUT
*&--------*
*& Module USER_COMMAND_0100 INPUT
*&---------*
* text
*-----------*
MODULE USER_COMMAND_0100 INPUT.
CASE sy-ucomm.
WHEN 'EXIT'.
LEAVE PROGRAM.
WHEN 'RADIO'.
IF RADIO_1 = 'X'.
SAR_TOTAL = 'ka'.
ELSEIF RADIO_2 = 'X'.
SAR_TOTAL = 'kb'.
ELSEIF RADIO_3 = 'X'.
SAR_TOTAL = 'kc'.
ELSEIF RADIO_4 = 'X'.
SAR_TOTAL = 'kd'.
ENDIF.
ENDCASE.
TRANS_AMOT = AMOT_WRD.
SAR_TOTAL = BRNCH .
ENDMODULE. " USER_COMMAND_0100 INPUT
*&---------*
*& Module CREATE_DROPDOWN_BOX1 INPUT
*&----------*
* text
*----------------------------------------------------------------------*
MODULE CREATE_DROPDOWN_BOX1 INPUT.
SELECT BRNCH
from BNKA
into table branch_list
WHERE BANKA = 'NCB'.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'BRNCH'
dynpprog = progname
dynpnr = dynnum
dynprofield = 'BRANCH'
value_org = 'S'
TABLES
value_tab = branch_list
EXCEPTIONS
parameter_error = 1
no_values_found = 2
OTHERS = 3.
IF sy-subrc <> 0.
ENDIF.
*===
ENDMODULE.
MODULE CREATE_DROPDOWN_BOX2 INPUT.
SELECT LGART
from T512T
into table Wage_list.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'LGART'
dynpprog = progname
dynpnr = dynnum
dynprofield = 'LGART1'
value_org = 'S'
TABLES
value_tab = Wage_list
EXCEPTIONS
parameter_error = 1
no_values_found = 2
OTHERS = 3.
IF sy-subrc <> 0.
ENDIF.
ENDMODULE. " CREATE_DROPDOWN_BOX2 INPUT
| Reply to this email to post your response. __.____._ | In the Spotlight Become a blogger at Toolbox.com and share your expertise with the community. Start today.   _.____.__ |
