******************************************************************************************
MODULE LIST_BOX OUTPUT. "in PBO
DATA:ld_field TYPE VRM_ID ,
it_listbox TYPE VRM_VALUES,
wa_listbox LIKELINEOF it_listbox.
REFRESH it_listbox.
wa_listbox-key = '1'.
wa_listbox-text = '. Employees Retired Before 01-02-1999'.
append wa_listbox to it_listbox.
clear wa_listbox.
wa_listbox-key = '2'.
wa_listbox-text = '. Employees Retired After 31-01-1999'.
append wa_listbox to it_listbox.
clear wa_listbox.
ld_field = 'LIST_BOX'.
CALLFUNCTION'VRM_SET_VALUES'
EXPORTING
id = ld_field
values = it_listbox
EXCEPTIONS
ID_ILLEGAL_NAME = 1
OTHERS = 2.
*** to disable and enable required fields ******************
if flag = '1'.
LOOPATSCREEN.
ifscreen-group1 = 'GR2'.
screen-active = '0'.
MODIFYSCREEN.
endif.
ENDLOOP.
else.
endif.
************************************************************
ENDMODULE. " LIST_BOX OUTPUT
**********************************************************************
MODULE USER_COMMAND_9000 INPUT. "PAI Code
if ok_code isNOTINITIAL.
save_ok = ok_code.
clear ok_code.
endif.
if ok_code isNOTINITIAL.
save_ok = ok_code.
clear ok_code.
endif.
case save_ok.
when'ZLIST'.
if LIST_BOX = '1'.
flag = '1'.
ELSE.
flag = '2'.
endif.
when'BACK'or'EXIT'or'CANCEL'.
leavetoscreen0.
when'CLEAR'.
clear : zfi_pension-zpay_unit,zfi_pension-zdate, zfi_pension-ZNO_PEN,zfi_pension-ZNO_FAM_PEN,zfi_pension-ZTO_PEN,zfi_pension-ZPEN_AMT,
zfi_pension-ZFAM_PEN_AMT,zfi_pension-ZTOT_PEN_AMT,zfi_pension-ZCOMMUTATION,zfi_pension-ZGRATUITY,zfi_pension-ZCURR_KEY.
when'DISPLAY'.
SELECTsingle * from zfi_pension WHERE zpay_unit eq zfi_pension-zpay_unit.
when'SAVE'.
wa_zfi_pension-zpay_unit = zfi_pension-zpay_unit. "business area
ENDCASE.
ENDMODULE. " USER_COMMAND_9000 INPUT