topic Re: bdc in Function Module in Application Development and Automation Discussions

topic Re: bdc in Function Module in Application Development and Automation Discussions https://community.sap.com/t5/application-development-and-automation-discussions/bdc-in-function-module/m-p/2302710#M503419 <HTML><HEAD></HEAD><BODY><P>Hi</P><P></P><P>It is advisable to look for any BAPI's/FMs to accomplish your task in your Funtion Module.</P><P></P><P>Regards,</P><P>Rajasekhar</P></BODY></HTML> Wed, 23 May 2007 09:09:00 GMT Former Member 2007-05-23T09:09:00Z bdc in Function Module https://community.sap.com/t5/application-development-and-automation-discussions/bdc-in-function-module/m-p/2302709#M503418 <HTML><HEAD></HEAD><BODY><P>Hi Friends,</P><P></P><P> I want to write a function Module which will include a bdc code ,,, how i should write ..please guide in steps. i have tried but its not giving data to bdc</P><P>,though data is coming in internal table.</P><P></P><P> please help.</P><P></P><P>regards</P><P>shekhar</P></BODY></HTML> Wed, 23 May 2007 09:07:04 GMT https://community.sap.com/t5/application-development-and-automation-discussions/bdc-in-function-module/m-p/2302709#M503418 Former Member 2007-05-23T09:07:04Z Re: bdc in Function Module https://community.sap.com/t5/application-development-and-automation-discussions/bdc-in-function-module/m-p/2302710#M503419 <HTML><HEAD></HEAD><BODY><P>Hi</P><P></P><P>It is advisable to look for any BAPI's/FMs to accomplish your task in your Funtion Module.</P><P></P><P>Regards,</P><P>Rajasekhar</P></BODY></HTML> Wed, 23 May 2007 09:09:00 GMT https://community.sap.com/t5/application-development-and-automation-discussions/bdc-in-function-module/m-p/2302710#M503419 Former Member 2007-05-23T09:09:00Z Re: bdc in Function Module https://community.sap.com/t5/application-development-and-automation-discussions/bdc-in-function-module/m-p/2302711#M503420 <HTML><HEAD></HEAD><BODY><P>Hi,</P><P></P><P>pls check this code</P><P></P><P></P><P>***INCLUDE ZBDCRECX1. </P><UL><LI level="1" type="ul"><P> When you generate the program using SHDB, you can replace it </P></LI><LI level="1" type="ul"><P> with this if you want to execute it immediately without having </P></LI><LI level="1" type="ul"><P> to process it using SM35. </P></LI><LI level="1" type="ul"></LI><LI level="1" type="ul"><P> During testing you can used the original include. </P></LI><LI level="1" type="ul"></LI><LI level="1" type="ul"><P> For example, </P></LI><LI level="1" type="ul"><P> include zbdcrecx1. "After test </P></LI><LI level="1" type="ul"><P> include bdcrecx. "Before test </P></LI><LI level="1" type="ul"><P> ------------------------------------- </P></LI><LI level="1" type="ul"><P> Declare your internal table as RECORD </P></LI><LI level="1" type="ul"><P> ------------------------------------- </P></LI><LI level="1" type="ul"><P> for programs doing a data transfer by creating a batch-input session </P></LI><LI level="1" type="ul"><P> and </P></LI><LI level="1" type="ul"><P> for programs doing a data transfer by CALL TRANSACTION USING </P></LI></UL><P></P><P>*SELECTION-SCREEN BEGIN OF LINE. </P><UL><LI level="1" type="ul"><P> PARAMETERS SESSION RADIOBUTTON GROUP CTU. "create session </P></LI><LI level="1" type="ul"><P> SELECTION-SCREEN COMMENT 3(20) TEXT-S07 FOR FIELD SESSION. </P></LI><LI level="1" type="ul"><P> selection-screen position 45. </P></LI><LI level="1" type="ul"><P> PARAMETERS CTU RADIOBUTTON GROUP CTU DEFAULT 'X'. "call transaction </P></LI><LI level="1" type="ul"><P> SELECTION-SCREEN COMMENT 48(20) TEXT-S08 FOR FIELD CTU. </P></LI></UL><P>*SELECTION-SCREEN END OF LINE. </P><P>PARAMETERS: SESSION NO-DISPLAY, </P><P> CTU NO-DISPLAY DEFAULT 'X'. </P><P></P><P>*SELECTION-SCREEN BEGIN OF LINE. </P><UL><LI level="1" type="ul"><P> SELECTION-SCREEN COMMENT 3(20) TEXT-S01 FOR FIELD GROUP. </P></LI><LI level="1" type="ul"><P> selection-screen position 25. </P></LI><LI level="1" type="ul"><P> PARAMETERS GROUP(12). "group name of session </P></LI><LI level="1" type="ul"><P> SELECTION-SCREEN COMMENT 48(20) TEXT-S05 FOR FIELD CTUMODE. </P></LI><LI level="1" type="ul"><P> selection-screen position 70. </P></LI><LI level="1" type="ul"><P> PARAMETERS CTUMODE LIKE CTU_PARAMS-DISMODE DEFAULT 'N'. </P></LI><LI level="1" type="ul"><P> "A: show all dynpros </P></LI><LI level="1" type="ul"><P> "E: show dynpro on error only </P></LI><LI level="1" type="ul"><P> "N: do not display dynpro </P></LI></UL><P>*SELECTION-SCREEN END OF LINE. </P><P>PARAMETERS: GROUP(12) NO-DISPLAY, </P><P> CTUMODE NO-DISPLAY DEFAULT 'N'. </P><P></P><P>*SELECTION-SCREEN BEGIN OF LINE. </P><UL><LI level="1" type="ul"><P> SELECTION-SCREEN COMMENT 3(20) TEXT-S02 FOR FIELD USER. </P></LI><LI level="1" type="ul"><P> selection-screen position 25. </P></LI><LI level="1" type="ul"><P> PARAMETERS: USER(12) DEFAULT SY-UNAME. "user for session in batch </P></LI><LI level="1" type="ul"><P> SELECTION-SCREEN COMMENT 48(20) TEXT-S06 FOR FIELD CUPDATE. </P></LI><LI level="1" type="ul"><P> selection-screen position 70. </P></LI><LI level="1" type="ul"><P> PARAMETERS CUPDATE LIKE CTU_PARAMS-UPDMODE DEFAULT 'L'. </P></LI><LI level="1" type="ul"><P> "S: synchronously </P></LI><LI level="1" type="ul"><P> "A: asynchronously </P></LI><LI level="1" type="ul"><P> "L: local </P></LI></UL><P>*SELECTION-SCREEN END OF LINE. </P><P>PARAMETERS: USER(12) NO-DISPLAY DEFAULT SY-UNAME, </P><P> CUPDATE LIKE CTU_PARAMS-UPDMODE DEFAULT 'L' NO-DISPLAY. </P><P></P><P>*SELECTION-SCREEN BEGIN OF LINE. </P><UL><LI level="1" type="ul"><P> SELECTION-SCREEN COMMENT 3(20) TEXT-S03 FOR FIELD KEEP. </P></LI><LI level="1" type="ul"><P> selection-screen position 25. </P></LI><LI level="1" type="ul"><P> PARAMETERS: KEEP AS CHECKBOX. "' ' = delete session if finished </P></LI><LI level="1" type="ul"><P> "'X' = keep session if finished </P></LI><LI level="1" type="ul"><P> SELECTION-SCREEN COMMENT 48(20) TEXT-S09 FOR FIELD E_GROUP. </P></LI><LI level="1" type="ul"><P> selection-screen position 70. </P></LI><LI level="1" type="ul"><P> parameters E_GROUP(12). "group name of error-session </P></LI></UL><P>*SELECTION-SCREEN END OF LINE. </P><P>PARAMETERS: KEEP NO-DISPLAY, </P><P> E_GROUP(12) NO-DISPLAY. </P><P></P><P>*SELECTION-SCREEN BEGIN OF LINE. </P><UL><LI level="1" type="ul"><P> SELECTION-SCREEN COMMENT 3(20) TEXT-S04 FOR FIELD HOLDDATE. </P></LI><LI level="1" type="ul"><P> selection-screen position 25. </P></LI><LI level="1" type="ul"><P> PARAMETERS: HOLDDATE LIKE SY-DATUM. </P></LI><LI level="1" type="ul"><P> SELECTION-SCREEN COMMENT 51(17) TEXT-S02 FOR FIELD E_USER. </P></LI><LI level="1" type="ul"><P> selection-screen position 70. </P></LI><LI level="1" type="ul"><P> PARAMETERS: E_USER(12) DEFAULT SY-UNAME. "user for error-session </P></LI></UL><P>*SELECTION-SCREEN END OF LINE. </P><P>PARAMETERS: HOLDDATE LIKE SY-DATUM NO-DISPLAY, </P><P> E_USER(12) DEFAULT SY-UNAME NO-DISPLAY. </P><P></P><P>*SELECTION-SCREEN BEGIN OF LINE. </P><UL><LI level="1" type="ul"><P> SELECTION-SCREEN COMMENT 51(17) TEXT-S03 FOR FIELD E_KEEP. </P></LI><LI level="1" type="ul"><P> selection-screen position 70. </P></LI><LI level="1" type="ul"><P> PARAMETERS: E_KEEP AS CHECKBOX. "' ' = delete session if finished </P></LI><LI level="1" type="ul"><P> "'X' = keep session if finished </P></LI></UL><P>*SELECTION-SCREEN END OF LINE. </P><P>PARAMETERS: E_KEEP NO-DISPLAY. </P><P></P><P>*SELECTION-SCREEN BEGIN OF LINE. </P><UL><LI level="1" type="ul"><P> SELECTION-SCREEN COMMENT 51(17) TEXT-S04 FOR FIELD E_HDATE. </P></LI><LI level="1" type="ul"><P> selection-screen position 70. </P></LI><LI level="1" type="ul"><P> PARAMETERS: E_HDATE LIKE SY-DATUM. </P></LI></UL><P>*SELECTION-SCREEN END OF LINE. </P><UL><LI level="1" type="ul"></LI></UL><P>*SELECTION-SCREEN SKIP. </P><P>PARAMETERS: E_HDATE LIKE SY-DATUM NO-DISPLAY. </P><P></P><P>*SELECTION-SCREEN BEGIN OF LINE. </P><UL><LI level="1" type="ul"><P> SELECTION-SCREEN COMMENT 1(33) TEXT-S10 FOR FIELD NODATA. </P></LI><LI level="1" type="ul"><P> PARAMETERS: NODATA DEFAULT '/' LOWER CASE. "nodata </P></LI></UL><P>*SELECTION-SCREEN END OF LINE. </P><P>PARAMETERS: NODATA DEFAULT '/' LOWER CASE NO-DISPLAY. </P><P></P><P>*SELECTION-SCREEN BEGIN OF LINE. </P><UL><LI level="1" type="ul"><P> SELECTION-SCREEN COMMENT 1(33) FOR FIELD SMALLLOG. </P></LI><LI level="1" type="ul"><P> PARAMETERS: SMALLLOG as checkbox. "' ' = log all transactions </P></LI><LI level="1" type="ul"><P> "'X' = no transaction logging </P></LI></UL><P>*SELECTION-SCREEN END OF LINE. </P><P>PARAMETERS: SMALLLOG NO-DISPLAY. </P><P></P><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /> <P></P><UL><LI level="1" type="ul"><P> data definition </P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /> <P></P><UL><LI level="1" type="ul"><P> Batchinputdata of single transaction </P></LI></UL><P>DATA: BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE. </P><UL><LI level="1" type="ul"><P> messages of call transaction </P></LI></UL><P>DATA: MESSTAB LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE. </P><UL><LI level="1" type="ul"><P> error session opened (' ' or 'X') </P></LI></UL><P>DATA: E_GROUP_OPENED. </P><UL><LI level="1" type="ul"><P> message texts </P></LI></UL><P>TABLES: T100. </P><P> </P><P></P><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /> <P></P><UL><LI level="1" type="ul"><P> at selection screen * </P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /> <P></P><P>AT SELECTION-SCREEN. </P><UL><LI level="1" type="ul"><P>group and user must be filled for create session </P></LI></UL><P> IF SESSION = 'X' AND </P><P> GROUP = SPACE OR USER = SPACE. </P><P> MESSAGE E613(MS). </P><P> ENDIF. </P><P></P><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /> <P></P><UL><LI level="1" type="ul"><P> open dataset * </P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /> <P></P><P>FORM OPEN_DATASET USING P_DATASET. </P><P> OPEN DATASET P_DATASET IN TEXT MODE. </P><P> IF SY-SUBRC <> 0. </P><P> WRITE: / TEXT-E00, SY-SUBRC. </P><P> STOP. </P><P> ENDIF. </P><P>ENDFORM. </P><P></P><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /> <P></P><UL><LI level="1" type="ul"><P> close dataset * </P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /> <P></P><P>FORM CLOSE_DATASET USING P_DATASET. </P><P> CLOSE DATASET P_DATASET. </P><P>ENDFORM. </P><P></P><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /> <P></P><UL><LI level="1" type="ul"><P> create batchinput session * </P></LI><LI level="1" type="ul"><P> (not for call transaction using...) * </P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /> <P></P><P>FORM OPEN_GROUP. </P><P> IF SESSION = 'X'. </P><P> SKIP. </P><P> WRITE: /(20) 'Create group'(I01), GROUP. </P><P> SKIP. </P><UL><LI level="1" type="ul"><P> open batchinput group </P></LI></UL><P> CALL FUNCTION 'BDC_OPEN_GROUP' </P><P> EXPORTING CLIENT = SY-MANDT </P><P> GROUP = GROUP </P><P> USER = USER </P><P> KEEP = KEEP </P><P> HOLDDATE = HOLDDATE. </P><P> WRITE: /(30) 'BDC_OPEN_GROUP'(I02), </P><P> (12) 'returncode:'(I05), </P><P> SY-SUBRC. </P><P> ENDIF. </P><P>ENDFORM. </P><P></P><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /> <P></P><UL><LI level="1" type="ul"><P> end batchinput session * </P></LI><LI level="1" type="ul"><P> (call transaction using...: error session) * </P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /> <P></P><P>FORM CLOSE_GROUP. </P><P> IF SESSION = 'X'. </P><UL><LI level="1" type="ul"><P> close batchinput group </P></LI></UL><P> CALL FUNCTION 'BDC_CLOSE_GROUP'. </P><P> WRITE: /(30) 'BDC_CLOSE_GROUP'(I04), </P><P> (12) 'returncode:'(I05), </P><P> SY-SUBRC. </P><P> ELSE. </P><P> IF E_GROUP_OPENED = 'X'. </P><P> CALL FUNCTION 'BDC_CLOSE_GROUP'. </P><P> WRITE: /. </P><P> WRITE: /(30) 'Fehlermappe wurde erzeugt'(I06). </P><P> ENDIF. </P><P> ENDIF. </P><P>ENDFORM. </P><P></P><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /> <P></P><UL><LI level="1" type="ul"><P> Start new transaction according to parameters * </P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /> <P></P><P>FORM BDC_TRANSACTION USING TCODE. </P><P> DATA: L_MSTRING(480). </P><P> DATA: L_SUBRC LIKE SY-SUBRC. </P><UL><LI level="1" type="ul"><P>batch input session </P></LI></UL><P> IF SESSION = 'X'. </P><P> CALL FUNCTION 'BDC_INSERT' </P><P> EXPORTING TCODE = TCODE </P><P> TABLES DYNPROTAB = BDCDATA. </P><P> IF SMALLLOG <> 'X'. </P><P> WRITE: / 'BDC_INSERT'(I03), </P><P> TCODE, </P><P> 'returncode:'(I05), </P><P> SY-SUBRC, </P><P> 'RECORD:', </P><P> SY-INDEX. </P><P> ENDIF. </P><UL><LI level="1" type="ul"><P>call transaction using </P></LI></UL><P> ELSE. </P><P> REFRESH MESSTAB. </P><P> CALL TRANSACTION TCODE USING BDCDATA </P><P> MODE CTUMODE </P><P> UPDATE CUPDATE </P><P> MESSAGES INTO MESSTAB. </P><P> L_SUBRC = SY-SUBRC. </P><P> IF SMALLLOG <> 'X'. </P><UL><LI level="1" type="ul"><P> WRITE: / 'CALL_TRANSACTION', </P></LI><LI level="1" type="ul"><P> TCODE, </P></LI><LI level="1" type="ul"><P> 'returncode:'(I05), </P></LI><LI level="1" type="ul"><P> L_SUBRC, </P></LI><LI level="1" type="ul"><P> 'RECORD:', </P></LI><LI level="1" type="ul"><P> SY-INDEX. </P></LI></UL><P> IF SY-SUBRC = 0. </P><P> FORMAT COLOR OFF. </P><P> WRITE:/ 'Successfully Process ', MESSTAB, RECORD. </P><P> ELSE. </P><P> FORMAT COLOR COL_NEGATIVE. </P><P> WRITE:/ 'Failed Process ', MESSTAB, RECORD. </P><P> ENDIF. </P><P> LOOP AT MESSTAB. </P><P> SELECT SINGLE * FROM T100 WHERE SPRSL = MESSTAB-MSGSPRA </P><P> AND ARBGB = MESSTAB-MSGID </P><P> AND MSGNR = MESSTAB-MSGNR. </P><P> IF SY-SUBRC = 0. </P><P> L_MSTRING = T100-TEXT. </P><P> IF L_MSTRING CS '&1'. </P><P> REPLACE '&1' WITH MESSTAB-MSGV1 INTO L_MSTRING. </P><P> REPLACE '&2' WITH MESSTAB-MSGV2 INTO L_MSTRING. </P><P> REPLACE '&3' WITH MESSTAB-MSGV3 INTO L_MSTRING. </P><P> REPLACE '&4' WITH MESSTAB-MSGV4 INTO L_MSTRING. </P><P> ELSE. </P><P> REPLACE '&' WITH MESSTAB-MSGV1 INTO L_MSTRING. </P><P> REPLACE '&' WITH MESSTAB-MSGV2 INTO L_MSTRING. </P><P> REPLACE '&' WITH MESSTAB-MSGV3 INTO L_MSTRING. </P><P> REPLACE '&' WITH MESSTAB-MSGV4 INTO L_MSTRING. </P><P> ENDIF. </P><P> CONDENSE L_MSTRING. </P><P> WRITE: / MESSTAB-MSGTYP, L_MSTRING(250). </P><P> ELSE. </P><P> WRITE: / MESSTAB. </P><P> ENDIF. </P><P> ENDLOOP. </P><P> SKIP. </P><P> ENDIF. </P><UL><UL><LI level="2" type="ul"><P>Erzeugen fehlermappe ************************************************ </P></LI></UL></UL><P> IF L_SUBRC <> 0 AND E_GROUP <> SPACE. </P><P> IF E_GROUP_OPENED = ' '. </P><P> CALL FUNCTION 'BDC_OPEN_GROUP' </P><P> EXPORTING CLIENT = SY-MANDT </P><P> GROUP = E_GROUP </P><P> USER = E_USER </P><P> KEEP = E_KEEP </P><P> HOLDDATE = E_HDATE. </P><P> E_GROUP_OPENED = 'X'. </P><P> ENDIF. </P><P> CALL FUNCTION 'BDC_INSERT' </P><P> EXPORTING TCODE = TCODE </P><P> TABLES DYNPROTAB = BDCDATA. </P><P> ENDIF. </P><P> ENDIF. </P><P> REFRESH BDCDATA. </P><P>ENDFORM. </P><P></P><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /> <P></P><UL><LI level="1" type="ul"><P> Start new screen * </P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /> <P></P><P>FORM BDC_DYNPRO USING PROGRAM DYNPRO. </P><P> CLEAR BDCDATA. </P><P> BDCDATA-PROGRAM = PROGRAM. </P><P> BDCDATA-DYNPRO = DYNPRO. </P><P> BDCDATA-DYNBEGIN = 'X'. </P><P> APPEND BDCDATA. </P><P>ENDFORM. </P><P></P><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /> <P></P><UL><LI level="1" type="ul"><P> Insert field * </P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /> <P></P><P>FORM BDC_FIELD USING FNAM FVAL. </P><P> IF FVAL <> NODATA. </P><P> CLEAR BDCDATA. </P><P> BDCDATA-FNAM = FNAM. </P><P> BDCDATA-FVAL = FVAL. </P><P> APPEND BDCDATA. </P><P> ENDIF. </P><P>ENDFORM. </P><P></P><P>pls give reward if it helpful</P><P></P><P>thnaks</P><P>Vana</P></BODY></HTML> Wed, 23 May 2007 09:15:37 GMT https://community.sap.com/t5/application-development-and-automation-discussions/bdc-in-function-module/m-p/2302711#M503420 Former Member 2007-05-23T09:15:37Z