bdc program for internal orders

[Former Member]

Write a BDC program to upload internal order master data (Item # 712 in DLC work plan). Use controlling area 5000 and existing cost centers as test data. can any one give me some idea about this one ? like what sort of fields i have to use and etc.

[Former Member]

hi this is my program .iam unable to upload dates properly in my table .ts uploading like this 19/96/0802.

can any one guide me how to rectify this problem/

REPORT ZDESKCODE_DLC .

TABLES :ZDESKCODE_DLC.

DATA: BEGIN OF IT_USER OCCURS 0,

MANDT LIKE ZDESKCODE_DLC-MANDT,

DESK_CODE LIKE ZDESKCODE_DLC-DESK_CODE,

LAST_NAME LIKE ZDESKCODE_DLC-LAST_NAME,

FIRST_NAME LIKE ZDESKCODE_DLC-FIRST_NAME,

DEPARTMENT LIKE ZDESKCODE_DLC-DEPARTMENT,

ADMIN_SYSTEM LIKE ZDESKCODE_DLC-ADMIN_SYSTEM,

SR_MANAGEMENT LIKE ZDESKCODE_DLC-SR_MANAGEMENT,

USER_ID LIKE ZDESKCODE_DLC-USER_ID,

OPEN_DATE LIKE ZDESKCODE_DLC-OPEN_DATE,

CLOSE_DATE LIKE ZDESKCODE_DLC-CLOSE_DATE,

END OF IT_USER.

DATA: BEGIN OF Z_USER OCCURS 100.

INCLUDE STRUCTURE ZDESKCODE_DLC.

DATA: END OF Z_USER.

DATA: W_DATASET(70) TYPE C,

W_MESSAGE(90).

*************************************************

*****************SELECTION SCREEN**************

*************************************************

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE B1_TXT.

PARAMETERS : P_FILE(70) OBLIGATORY LOWER CASE.

SELECTION-SCREEN END OF BLOCK B1.

MOVE P_FILE TO W_DATASET.

BREAK NVADLAMUDI.

PERFORM GETFILE TABLES Z_USER USING W_DATASET.

&----

---

*& Form GETFILE

&----

---

• text

----

---

• -->P_ ZDESKCODE_DLC text

• -->P_W_DATASET text

----

---

FORM GETFILE TABLES Z_USER STRUCTURE ZDESKCODE_DLC USING W_DATASET.

OPEN DATASET W_DATASET FOR INPUT IN TEXT MODE ENCODING DEFAULT.

IF SY-SUBRC <> 0.

WRITE W_MESSAGE.

EXIT.

ENDIF.

DO.

READ DATASET W_DATASET INTO Z_USER.

IF SY-SUBRC NE 0.

WRITE : / 'NO. OF RECORDS FOUND = ', SY-TABIX.

CLOSE DATASET W_DATASET.

EXIT.

ENDIF.

DATA: TOTAL_RECS LIKE SY-TABIX.

SPLIT Z_USER AT ',' INTO

IT_USER-DESK_CODE

IT_USER-LAST_NAME

IT_USER-FIRST_NAME

IT_USER-DEPARTMENT

IT_USER-ADMIN_SYSTEM

IT_USER-SR_MANAGEMENT

IT_USER-USER_ID

IT_USER-OPEN_DATE

IT_USER-CLOSE_DATE.

IT_USER-MANDT = SY-MANDT. "to set the current client

APPEND IT_USER.

ENDDO.

LOOP AT IT_USER.

REFRESH Z_USER.

MOVE IT_USER-MANDT TO ZDESKCODE_DLC-MANDT.

MOVE IT_USER-DESK_CODE TO ZDESKCODE_DLC-DESK_CODE.

MOVE IT_USER-LAST_NAME TO ZDESKCODE_DLC-LAST_NAME.

MOVE IT_USER-FIRST_NAME TO ZDESKCODE_DLC-FIRST_NAME.

MOVE IT_USER-DEPARTMENT TO ZDESKCODE_DLC-DEPARTMENT.

MOVE IT_USER-ADMIN_SYSTEM TO ZDESKCODE_DLC-ADMIN_SYSTEM.

MOVE IT_USER-SR_MANAGEMENT TO ZDESKCODE_DLC-SR_MANAGEMENT.

MOVE IT_USER-USER_ID TO ZDESKCODE_DLC-USER_ID.

MOVE IT_USER-OPEN_DATE TO ZDESKCODE_DLC-OPEN_DATE.

MOVE IT_USER-CLOSE_DATE TO ZDESKCODE_DLC-CLOSE_DATE.

IF SY-SUBRC = 0.

INSERT ZDESKCODE_DLC from IT_USER.

WRITE : / 'NO. OF RECORDS INSERTED INTO ZDESKCODE_DLC = ',SY-TABIX.

ENDIF.

ENDLOOP.

ENDFORM. " GETFILE