Hi,
While creating rate routing for one of the product, we are getting dumps
Source Code Extract
Line SourceCde
81
82 * Daten aus Dynpro-Workareas auf Exportparameter schieben
83 *=======================================================================
84 MOVE:
85 PLKOD TO PLKOD_EXP,
86 RC27S-FLG_ESC TO FLG_ESC,
87 OK-CODE TO OK_CODE.
88
89 ENDFUNCTION.
90
91 *----
*
92 * FORM DYNP_CALL *
93 *----
*
94 * Dynpronummer über TCA36 ermitteln und aufrufen *
95 *----
*
96 * --> BLDGR_IMP Bildgruppe *
97 * --> PANEL_IMP Panel
98 * --> PLNAW_imp Plananwendung
99 * --> PlNTY_IMP Plantyp
100 *----
*
101 FORM DYNP_CALL USING BLDGR_IMP
102 PANEL_IMP
103 PLNAW_IMP
104 PLNTY_IMP.
105 DATA BEGIN OF TCA36_TMP.
106 INCLUDE STRUCTURE TCA36.
107 DATA END OF TCA36_TMP.
108 DATA: MPOOL LIKE SY-REPID.
109
110 MPOOL = SY-REPID.
>>>>> CALL FUNCTION 'TCA36_READ'
112 EXPORTING
113 BLDGR_IMP = BLDGR_IMP
114 PANEL_IMP = PANEL_IMP
115 MPOOL_IMP = MPOOL
116 PLNAW_IMP = PLNAW_IMP
117 PLNTY_IMP = PLNTY_IMP
118 IMPORTING
119 TCA36_EXP = TCA36_TMP.
120 IF TCA36_TMP-WINX1 IS INITIAL AND
121 TCA36_TMP-WINX2 IS INITIAL AND
122 TCA36_TMP-WINY1 IS INITIAL AND
123 TCA36_TMP-WINY2 IS INITIAL.
124 CALL SCREEN TCA36_TMP-DYNPRO.
125 ELSE.
126 CALL SCREEN TCA36_TMP-DYNPRO
127 STARTING AT TCA36_TMP-WINX1 TCA36_TMP-WINY1
128 ENDING AT TCA36_TMP-WINX2 TCA36_TMP-WINY2.
129 ENDIF.
130 ENDFORM.
Can anyone provide inputs?
Regards
ND
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.