Hello everyone!
I am developing an app in WDA already created in "traditional ABAP" (And now i have to pass all the programs developed to WDA),
My problem is that I have several Functions module that were created, which performs "call screen"(not support) and they are quite long to create the dynpro 's in WDA all over again.
Is there any possibility to reuse them, whether by performing a submit to a Z Prgrm from WDA and executing it from there? or something?
I have attached the FM and the dynpro just as information.
*********
function zsci_acdc_show_remarks.
*"----------------------------------------------------------------------
*"*"Interface locale :
*" IMPORTING
*" VALUE(P_USER) TYPE SCI_USER
*" VALUE(P_NAME) TYPE SCI_NAME
*" VALUE(P_VERS) TYPE SCI_VERS
*" VALUE(P_INSPEXECDATE) TYPE DATS
*" VALUE(P_INSPUSERNAME) TYPE ZSCI_INSPNAME
*" VALUE(P_BUSUNIT) TYPE ZSCI_BUSUNIT
*" VALUE(P_PRJNAME) TYPE ZSCI_PRJNAME
*" VALUE(P_PRJLEAD) TYPE ZSCI_PRJLEAD
*" VALUE(P_MACNAME) TYPE ZSCI_MACNAME
*" VALUE(P_SYSID) TYPE ZSCI_SYSID
*" VALUE(P_CLIENT) TYPE ZSCI_CLIENT
*" VALUE(P_TOTAL_LINES) TYPE INT4
*" VALUE(P_COMMENT_LINES) TYPE INT4
*" VALUE(P_RATE_COMMENT) TYPE INT4
*" VALUE(P_NOTATION_ICON) TYPE CHAR5 OPTIONAL
*" VALUE(P_TENDENCY_ICON) TYPE CHAR5 OPTIONAL
*" VALUE(P_TESTS_TAB) TYPE ZSCI_TESTS_TAB OPTIONAL
*" VALUE(P_DEVUSERMOD) TYPE CHAR12 OPTIONAL
*" VALUE(P_PKGNAME) TYPE CHAR30 OPTIONAL
*" VALUE(P_INSPID) TYPE NUMC3 OPTIONAL
*" VALUE(P_INSPVER2) TYPE NUMC3 OPTIONAL
*" VALUE(P_INSPNAME) TYPE CHAR30 OPTIONAL
*" VALUE(P_OBJTYPE) TYPE CHAR4 OPTIONAL
*" VALUE(P_OBJNAME) TYPE CHAR40 OPTIONAL
*" EXCEPTIONS
*" EXC_RS_TOOL_ACCESS
*" INVALID_OBJECT_TYPE
*"----------------------------------------------------------------------
clear: v_index,
v_row_no.
* 1º block: System
v_dyn_busunit = p_busunit. "BU
v_dyn_prjname = p_prjname. "Projet
v_dyn_prjlead = p_prjlead. "Chef de Projet
v_usr_prjl = p_prjlead.
v_dyn_macname = p_macname. "Machine
v_dyn_sysid = p_sysid. "System ID
v_dyn_client = p_client. "Client
* 2º block: Inspection
v_dyn_inspname = p_inspname."name
* v_dyn_inspnotexist = p_inspnotexist.
v_dyn_inspid = p_inspid."id
v_dyn_inspexecdate = p_inspexecdate."date
v_dyn_inspver2 = p_inspver2."version
v_dyn_inspusername = p_inspusername.
v_dyn_objname = p_objname.
v_dyn_objtype = p_objtype.
* 3º block: Remarks types
v_dyn_nota_icon = p_notation_icon.
v_dyn_tend_icon = p_tendency_icon.
* 4º block: Remarks Status
v_total_lines = p_total_lines.
v_comment_lines = p_comment_lines.
v_dyn_rate_comment_sci = p_rate_comment.
v_devusermod = p_devusermod.
v_pkgname = p_pkgname.
v_user = p_user.
i_tests[] = p_tests_tab[].
* Recover the logged developer user
get parameter id 'PUSR' field v_usr_dev.
if v_usr_dev is initial.
v_usr_dev = sy-uname.
endif.
* Calling ALV with detected remarks data list
call screen 0100 .
*********
Thank you all!.
best regards
Nicolas.