problem in bdc session method for tcode FS00

[Former Member]

Hi Experts,

problem in bdc session method, when i run this program no output is shown.

Even it is not calling the transaction.

code as follows.

&----

---

*& Report Z_GL_MASTER

&----

---

*& CATEGORY = BDC.

*& DESCRIPTION = UPLOADING G/L MASTER RECORDS.

*& TECHNICAL CONST = FRANCIS REDDY.

*& FUNTIONAL CONST = FICO.

&----

---

REPORT Z_GL_MASTER.

&----

---

*& Internal Table

&----

---

DATA : BEGIN OF IT_UPLOAD OCCURS 0,

SAKNR LIKE GLACCOUNT_SCREEN_KEY-SAKNR, " ACCOUNT NUMBER.

BUKRS LIKE GLACCOUNT_SCREEN_KEY-BUKRS, " COMPANY CODE.

KTOKS LIKE GLACCOUNT_SCREEN_COA-KTOKS, " ACCOUNT GROUP.

XPLACCT LIKE GLACCOUNT_SCREEN_COA-XPLACCT, " P&L STATEMEMENT.

GVTYP LIKE GLACCOUNT_SCREEN_COA-GVTYP, " P&L STATEMENT TYPE.

XBILK LIKE GLACCOUNT_SCREEN_COA-XBILK, " BALANCE SHEET STATEMENT

SHORT LIKE GLACCOUNT_SCREEN_COA-TXT20_ML, " SHORT TEXT.

LONG LIKE GLACCOUNT_SCREEN_COA-TXT50_ML, " LONG TEXT.

WAERS LIKE GLACCOUNT_SCREEN_CCODE-WAERS, " ACCOUNT CURRENCY.

XSALH LIKE GLACCOUNT_SCREEN_CCODE-XSALH, " ONLY BALANCES IN LOCAL CURRENCY.

MITKZ LIKE GLACCOUNT_SCREEN_CCODE-MITKZ, " RECONCILATION ACCOUNT FOR ACCOUNT TYPEGLACCOUNT_SCREEN_CCODE-MITKZ

XOPVW LIKE GLACCOUNT_SCREEN_CCODE-XOPVW, " OPEN ITEM MANAGEMENT.

XKRES LIKE GLACCOUNT_SCREEN_CCODE-XKRES, " LINE ITEM DISPLAY.

ZUAWA LIKE GLACCOUNT_SCREEN_CCODE-ZUAWA, " SORT KEY.

FSTAG LIKE GLACCOUNT_SCREEN_CCODE-FSTAG, " FIELD STATUS GROUP.

XGKON LIKE GLACCOUNT_SCREEN_CCODE-XGKON, " RELAVENT CASH FLOW.

END OF IT_UPLOAD.

&----

---

*& Internal Table FOR BDC DATA.

&----

---

DATA : IT_BDCDATA TYPE BDCDATA OCCURS 0 WITH HEADER LINE.

&----

---

*& DATA DECLARATIONS.

&----

---

DATA : V_FILE LIKE RLGRAP-FILENAME.

&----

---

*& SELECTION SCREEN.

&----

---

PARAMETER : P_FILE LIKE V_FILE.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.

PERFORM GET_FILENAME.

START-OF-SELECTION.

PERFORM UPLOAD_DATA.

PERFORM BDCDATA_OPEN.

PERFORM BDC_POPULATE.

PERFORM BDC_CLOSE.

&----

---

*& Form GET_FILENAME

&----

---

form GET_FILENAME .

CALL FUNCTION 'F4_FILENAME'

EXPORTING

PROGRAM_NAME = SYST-CPROG

DYNPRO_NUMBER = SYST-DYNNR

FIELD_NAME = 'P_FILE'

IMPORTING

FILE_NAME = P_FILE.

endform. " GET_FILENAME

&----

---

*& Form UPLOAD_DATA

&----

---

form UPLOAD_DATA .

CALL FUNCTION 'WS_UPLOAD'

EXPORTING

FILENAME = P_FILE

FILETYPE = 'DAT'

TABLES

data_tab = IT_UPLOAD.

endform. " UPLOAD_DATA

&----

---

*& Form BDCDATA_OPEN

&----

---

• FORM FOR BDC_OPEN_GROUP.

----

---

form BDCDATA_OPEN .

CALL FUNCTION 'BDC_OPEN_GROUP'

EXPORTING

CLIENT = SY-MANDT

GROUP = 'GLMASTER'

HOLDDATE = SY-DATUM

KEEP = 'X'

USER = SY-UNAME.

endform. " BDCDATA_OPEN

&----

---

*& Form BDC_POPULATE

&----

---

• POPULATING BDC DATA .

----

---

form BDC_POPULATE .

loop at it_upload.

PERFORM BDC_SUB1 USING 'X' 'SAPLGL_ACCOUNT_MASTER_MAINTAIN' '2001'.

PERFORM BDC_SUB2 USING 'BDC_OKCODE' '=ACC_CRE'.

PERFORM BDC_SUB2 USING 'BDC_CURSOR' 'GLACCOUNT_SCREEN_KEY-SAKNR'.

PERFORM BDC_SUB2 USING 'GLACCOUNT_SCREEN_KEY-SAKNR' IT_UPLOAD-SAKNR.

PERFORM BDC_SUB2 USING 'GLACCOUNT_SCREEN_KEY-BUKRS' IT_UPLOAD-BUKRS.

PERFORM BDC_SUB1 USING 'X' 'SAPLGL_ACCOUNT_MASTER_MAINTAIN' '2001'.

PERFORM BDC_SUB2 USING 'BDC_OKCODE' '=2102_GROUP'.

PERFORM BDC_SUB2 USING 'BDC_CURSOR' 'GLACCOUNT_SCREEN_COA-KTOKS'.

PERFORM BDC_SUB2 USING 'GLACCOUNT_SCREEN_COA-KTOKS' IT_UPLOAD-KTOKS.

PERFORM BDC_SUB2 USING 'GLACCOUNT_SCREEN_COA-XPLACCT' IT_UPLOAD-XPLACCT.

PERFORM BDC_SUB1 USING 'X' 'SAPLGL_ACCOUNT_MASTER_MAINTAIN' '2001'.

PERFORM BDC_SUB2 USING 'BDC_OKCODE' '=2102_BS_PL'.

PERFORM BDC_SUB2 USING 'GLACCOUNT_SCREEN_COA-GVTYP' IT_UPLOAD-GVTYP.

PERFORM BDC_SUB2 USING 'GLACCOUNT_SCREEN_COA-XBILK' IT_UPLOAD-XBILK.

PERFORM BDC_SUB1 USING 'X' 'SAPLGL_ACCOUNT_MASTER_MAINTAIN' '2001'.

PERFORM BDC_SUB2 USING 'BDC_CURSOR' 'GLACCOUNT_SCREEN_COA-TXT20_ML'.

PERFORM BDC_SUB2 USING 'GLACCOUNT_SCREEN_COA-TXT20_ML' IT_UPLOAD-SHORT.

PERFORM BDC_SUB2 USING 'GLACCOUNT_SCREEN_COA-TXT50_ML' IT_UPLOAD-LONG.

PERFORM BDC_SUB1 USING 'X' 'SAPLGL_ACCOUNT_MASTER_MAINTAIN' '2001'.

PERFORM BDC_SUB2 USING 'BDC_OKCODE' '=TAB02'.

PERFORM BDC_SUB2 USING 'GLACCOUNT_SCREEN_CCODE-WAERS' IT_UPLOAD-WAERS.

PERFORM BDC_SUB2 USING 'GLACCOUNT_SCREEN_CCODE-XSALH' IT_UPLOAD-XSALH.

PERFORM BDC_SUB2 USING 'GLACCOUNT_SCREEN_CCODE-MITKZ' IT_UPLOAD-MITKZ.

PERFORM BDC_SUB2 USING 'GLACCOUNT_SCREEN_CCODE-XOPVW' IT_UPLOAD-XOPVW.

PERFORM BDC_SUB2 USING 'GLACCOUNT_SCREEN_CCODE-XKRES' IT_UPLOAD-XKRES.

PERFORM BDC_SUB2 USING 'GLACCOUNT_SCREEN_CCODE-ZUAWA' IT_UPLOAD-ZUAWA.

PERFORM BDC_SUB1 USING 'X' 'SAPLGL_ACCOUNT_MASTER_MAINTAIN' '2001'.

PERFORM BDC_SUB2 USING 'BDC_OKCODE' '=TAB03'.

PERFORM BDC_SUB2 USING 'GLACCOUNT_SCREEN_CCODE-FSTAG' IT_UPLOAD-FSTAG.

PERFORM BDC_SUB2 USING 'GLACCOUNT_SCREEN_CCODE-XGKON' IT_UPLOAD-XGKON.

CALL FUNCTION 'BDC_INSERT'

EXPORTING

TCODE = 'FS00'

TABLES

dynprotab = IT_BDCDATA.

endloop.

endform. " BDC_POPULATE

&----

---

*& Form BDC_CLOSE

&----

---

• FORM FOR CLOSING BDC_GROUP

----

---

form BDC_CLOSE .

CALL FUNCTION 'BDC_CLOSE_GROUP'.

endform. " BDC_CLOSE

&----

---

*& Form BDC_SUB1

&----

---

• FORM FOR BDCDATA.

----

---

form BDC_SUB1 USING A B C.

CLEAR IT_BDCDATA.

IT_BDCDATA-DYNBEGIN = A.

IT_BDCDATA-PROGRAM = B.

IT_BDCDATA-DYNPRO = C.

APPEND IT_BDCDATA.

endform. " BDC_SUB1

&----

---

*& Form BDC_SUB2

&----

---

• text

----

---

form BDC_SUB2 USING A B.

CLEAR IT_BDCDATA.

IT_BDCDATA-FNAM = A.

IT_BDCDATA-FVAL = B.

APPEND IT_BDCDATA.

endform. " BDC_SUB2

Points will be rewarded.

Thanks in advance.

Francis.

[Former Member]

Hi,

Once the program is executed..It will a BDC session..

THen you have to use the transaction SM35..To process the BDC session..

Thanks,

Naren

[SantoshKallem]

check in sm35, and process that session.

santhosh reddy.

[radhushankar]

HI

I executed the code which u sent regarding fs00..while executing it in sm35 it saying tat session is locked..can u plz tel me buy wat way u solved that issue???

Thanks in advance

arun.