Central Planning Format upload program- UPP_MASTER_CHECKIN

Hi all,
Does someone know what Central Planning Format upload program- UPP_MASTER_CHECKIN is for SEM-BPS? Any special features I need to know? Thank you.
J.

John
This program is used to make sure the changes made to central layout template applies to all planning layouts in the company. Please read the followin link.
http://help.sap.com/saphelp_nw04/helpdata/en/24/9ffa0b783d11d4b2fd0050dadfb23f/frameset.htm.
Hope this helps
Thanks
Sat
PS: Hope your API is is resolved as your previous post if not let us know

Similar Messages

Existing Function modules or Standard upload Programs

Hi,
Can any one tell, Are there any Function modules or Standard upload programs exists for following transactions:
Creating production version(C223)
Creating Master recipe(C201)
Creation Apportionment Structure(C202)
Creation BOM Allocation(CS08)
(This all tcodes comes under Production planning.)
Thanks in advance.

Hi Vanitha,
Check this
for C223
CM_FV_PROD_VERS_MAINTAIN
CM_FV_PROD_VERS_SAVE
CM_FV_PROD_VERS_SAVE_ALL
CY01_ORDER_MODIFY_PROD_VERSION
For C201
C2_CU_RECIPE_EXCLUDE_CREATE
CONTROL_RECIPE_CREATE
For C202
APPOINTMENT_GRP_CREATE
APPOINTMENT_CREATE
APPOINTMENT_GENERATE
APPOINTMENT_GENERATE_2
For CS08
CSAP_MAT_BOM_ALLOC_CREATE
Hope it helps...
Lokesh
pls. reward appropriate points
Message was edited by: Lokesh Aggarwal

HCP tcode PA40 Upload program failing to move to next record.

Dear All
I have written and upload program for HCM tcode PA40 and the program is fine but only inserting one record and is failing to pick the next records in a loop. I dont know whats the problem i know the process have many screens, please help me, i have tried to research not yet found the answer yet.
Thank you for your assistance
Here is my Upload program
*& Report ZUPLOADEMPHIRING
REPORT ZUPLOADEMPHIRING.
include bdcrecx1.
PARAMETERS: p_file TYPE rlgrap-filename.
 x_endrow TYPE i .
DATA: xdate(10).
DATA: Fullname type string.
DATA: x_begrow TYPE i VALUE 2,
 x_begcol TYPE i VALUE 1,
 x_endcol TYPE i VALUE 17,
 x_endrow TYPE i VALUE 3.
TYPES: BEGIN OF t_datatab ,
 FromDate(10),
 Reasonforaction(2),
 Position(8),
 PersonalArea(4),
 EmployeeGroup(1),
 EmployeeSubGroup(2),
 SubArea(4),
 PayrolArea(2),
 Title(5),
 Lastname(40),
 Firstname(40),
 BirtDate(10),
 Nationality(3),
 Group(1),
 Level(1),
 BankKey(15),
 BankAccount(18),
 END OF t_datatab.
DATA: BEGIN OF t_datatabfinal OCCURS 0,
 FromDate(10),
 Reasonforaction(2),
 Position(8),
 PersonalArea(4),
 EmployeeGroup(1),
 EmployeeSubGroup(2),
 SubArea(4),
 PayrolArea(2),
 Title(5),
 Lastname(40),
 Firstname(40),
 BirtDate(10),
 Nationality(3),
 Group(1),
 Level(1),
 BankKey(15),
 BankAccount(18),
 END OF t_datatabfinal.
DATA: BEGIN OF it_record OCCURS 0,
 FromDate(10),
 Reasonforaction(2),
 Position(8),
 PersonalArea(4),
 EmployeeGroup(1),
 EmployeeSubGroup(2),
 SubArea(4),
 PayrolArea(2),
 Title(5),
 Lastname(40),
 Firstname(40),
 BirtDate(10),
 Nationality(3),
 Group(1),
 Level(1),
 BankKey(15),
 BankAccount(18),
 END OF it_record.
DATA: itab LIKE alsmex_tabline OCCURS 0 WITH HEADER LINE,
gd_currentrow TYPE i,
it_datatab TYPE STANDARD TABLE OF t_datatab,
wa_datatab TYPE t_datatab.
AT SELECTION-SCREEN on VALUE-REQUEST FOR p_file.
CALL FUNCTION 'F4_FILENAME' "
 EXPORTING
 FIELD_NAME = 'P_FILE '
 IMPORTING
 FILE_NAME = p_file.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
EXPORTING
 PROGRAM_NAME = SYST-REPID
 DYNPRO_NUMBER = SYST-DYNNR
 FIELD_NAME = ' '
 STATIC = ' '
 MASK = ' '
 CHANGING
 FILE_NAME =
EXCEPTIONS
 MASK_TOO_LONG = 1
 OTHERS = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
START-OF-SELECTION.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
 EXPORTING
 filename = p_file
 i_begin_col = x_begcol
 i_begin_row = x_begrow "Column header not required
 i_end_col = x_endcol
 i_end_row = x_endrow
 TABLES
 intern = itab.
Sort table by rows and colums
SORT itab BY row col.
Get first row retrieved
READ TABLE itab INDEX 1.
Set first row retrieved to current row
gd_currentrow = itab-row.
clear: t_datatabfinal.
refresh t_datatabfinal.
LOOP AT itab.
Reset values for next row
 IF itab-row NE gd_currentrow.
 APPEND wa_datatab TO t_datatabfinal.
 CLEAR wa_datatab.
 gd_currentrow = itab-row.
 ENDIF.
 concatenate sy-datum6(2)'.' sy-datum4(2)'.' sy-datum+2(4) into xdate .
 CASE itab-col.
 WHEN '0001'.
 wa_datatab-FromDate = itab-value.
 concatenate wa_datatab-DocumentDate6(2)'.' wa_datatab-DocumentDate4(2)'.' wa_datatab-DocumentDate+2(4) into wa_datatab-DocumentDate.
 WHEN '0002'.
 wa_datatab-Reasonforaction = itab-value.
 WHEN '0003'.
 wa_datatab-Position = itab-value.
 WHEN '0004'.
 wa_datatab-PersonalArea = itab-value.
 WHEN '0005'.
 wa_datatab-EmployeeGroup = itab-value.
 WHEN '0006'.
 wa_datatab-EmployeeSubGroup = itab-value.
 WHEN '0007'.
 wa_datatab-SubArea = itab-value.
 WHEN '0008'.
 wa_datatab-PayrolArea = itab-value.
 WHEN '0009'.
 wa_datatab-Title = itab-value.
 WHEN '0010'.
 wa_datatab-Lastname = itab-value.
 WHEN '0011'.
 wa_datatab-Firstname = itab-value.
 WHEN '0012'.
 wa_datatab-BirtDate = itab-value.
 WHEN '0013'.
 wa_datatab-Nationality = itab-value.
 WHEN '0014'.
 wa_datatab-Group = itab-value.
 WHEN '0015'.
 wa_datatab-Level = itab-value.
 WHEN '0016'.
 wa_datatab-BankKey = itab-value.
 WHEN '0017'.
 wa_datatab-BankAccount = itab-value.
 WHEN OTHERS.
 ENDCASE.
 APPEND wa_datatab to t_datatabfinal.
ENDLOOP.
clear: it_record.
refresh it_record.
loop at t_datatabfinal into it_record.
 append it_record.
endloop.
perform open_group.
loop at it_record.
 concatenate it_record-Firstname it_record-Lastname into Fullname separated by space.
 perform bdc_dynpro using 'SAPMP50A' '2000'.
 perform bdc_field using 'BDC_CURSOR'
 'T529T-MNTXT(02)'.
 perform bdc_field using 'BDC_OKCODE'
 '=PICK'.
 perform bdc_field using 'RP50G-EINDA'
 it_record-FromDate. "" '01012012'.
 perform bdc_field using 'RP50G-SELEC(02)'
 'X'.
 perform bdc_dynpro using 'MP000000' '2000'.
 perform bdc_field using 'BDC_CURSOR'
 'PSPAR-PERSG'.
 perform bdc_field using 'BDC_OKCODE'
 '=UPD'.
 perform bdc_field using 'P0000-BEGDA'
 it_record-FromDate. "" '01.01.2012'.
 perform bdc_field using 'P0000-ENDDA'
 '31.12.9999'.
 perform bdc_field using 'P0000-MASSN'
 'ZB'.
 perform bdc_field using 'P0000-MASSG'
 it_record-Reasonforaction. "" '01'.
 perform bdc_field using 'PSPAR-PLANS'
 it_record-Position. "" '99999999'.
 perform bdc_field using 'PSPAR-WERKS'
 it_record-PersonalArea. " 'm003'.
 perform bdc_field using 'PSPAR-PERSG'
 it_record-EmployeeGroup. "" 'a'.
 perform bdc_field using 'PSPAR-PERSK'
 it_record-EmployeeSubGroup. "" '02'.
 perform bdc_dynpro using 'MP000100' '2000'.
 perform bdc_field using 'BDC_CURSOR'
 'P0001-BTRTL'.
 perform bdc_field using 'BDC_OKCODE'
 '=UPD'.
 perform bdc_field using 'P0001-BEGDA'
 it_record-FromDate. ""'01.01.2012'.
 perform bdc_field using 'P0001-ENDDA'
 '31.12.9999'.
 perform bdc_field using 'P0001-BTRTL'
 it_record-SubArea. "" 'mm01'.
 perform bdc_field using 'P0001-ABKRS'
 it_record-PayrolArea. "" 'Z2'.
 perform bdc_field using 'P0001-PLANS'
 it_record-Position. ""'99999999'.
 perform bdc_dynpro using 'MP000200' '2000'.
 perform bdc_field using 'BDC_CURSOR'
 'P0002-NATIO'.
 perform bdc_field using 'BDC_OKCODE'
 '=UPD'.
 perform bdc_field using 'P0002-BEGDA'
 it_record-FromDate. ""'01.01.2012'.
 perform bdc_field using 'P0002-ENDDA'
 '31.12.9999'.
 perform bdc_field using 'Q0002-ANREX'
 it_record-Title. "" 'Mr'.
 perform bdc_field using 'P0002-NACHN'
 it_record-Lastname. " 'maxwel'.
 perform bdc_field using 'P0002-VORNA'
 it_record-Firstname. "" 'razaro'.
 perform bdc_field using 'P0002-GBDAT'
 it_record-BirtDate. "" '01011970'.
 perform bdc_field using 'P0002-SPRSL'
 'EN'.
 perform bdc_field using 'P0002-NATIO'
 it_record-Nationality. "" 'ZW'.
 perform bdc_dynpro using 'MP000700' '2000'.
 perform bdc_field using 'BDC_CURSOR'
 'P0007-BEGDA'.
 perform bdc_field using 'BDC_OKCODE'
 '/00'.
 perform bdc_field using 'P0007-BEGDA'
 it_record-FromDate."" '01.01.2012'.
 perform bdc_field using 'P0007-ENDDA'
 '31.12.9999'.
 perform bdc_field using 'P0007-SCHKZ'
 'MANORM'.
 perform bdc_field using 'P0007-ZTERF'
 '9'.
 perform bdc_field using 'P0007-EMPCT'
 ' 100,00'.
 perform bdc_dynpro using 'MP000700' '2000'.
 perform bdc_field using 'BDC_CURSOR'
 'P0007-BEGDA'.
 perform bdc_field using 'BDC_OKCODE'
 '=UPD'.
 perform bdc_field using 'P0007-BEGDA'
 it_record-FromDate.""'01.01.2012'.
 perform bdc_field using 'P0007-ENDDA'
 '31.12.9999'.
 perform bdc_field using 'P0007-SCHKZ'
 'MANORM'.
 perform bdc_field using 'P0007-ZTERF'
 '9'.
 perform bdc_field using 'P0007-EMPCT'
 ' 100,00'.
 perform bdc_field using 'P0007-ARBST'
 ' 8,00'.
 perform bdc_field using 'P0007-WKWDY'
 ' 5,00'.
 perform bdc_dynpro using 'MP000800' '2000'.
 perform bdc_field using 'BDC_CURSOR'
 'P0008-TRFST'.
 perform bdc_field using 'BDC_OKCODE'
 '=UPD'.
 perform bdc_field using 'P0008-BEGDA'
 it_record-FromDate. "" '01.01.2012'.
 perform bdc_field using 'P0008-ENDDA'
 '31.12.9999'.
 perform bdc_field using 'P0008-TRFAR'
 '01'.
 perform bdc_field using 'P0008-BSGRD'
 '100,00'.
 perform bdc_field using 'P0008-TRFGB'
 '01'.
 perform bdc_field using 'P0008-TRFGR'
 it_record-Group. ""'a'.
 perform bdc_field using 'P0008-TRFST'
 it_record-Level. "" '1'.
 perform bdc_field using 'P0008-DIVGV'
 '173,00'.
 perform bdc_field using 'P0008-ANCUR'
 'USD'.
 perform bdc_field using 'Q0008-IBBEG'
 xdate.""'12.01.2012'.
 perform bdc_field using 'P0008-WAERS'
 'USD'.
 perform bdc_dynpro using 'MP000900' '2000'.
 perform bdc_field using 'BDC_CURSOR'
 'P0009-ZLSCH'.
 perform bdc_field using 'BDC_OKCODE'
 '=UPD'.
 perform bdc_field using 'P0009-BEGDA'
 it_record-FromDate. ""'01.01.2012'.
 perform bdc_field using 'P0009-ENDDA'
 '31.12.9999'.
 perform bdc_field using 'P0009-BNKSA'
 '0'.
 perform bdc_field using 'Q0009-EMFTX'
 Fullname. "" 'maxwel razaro'.
 perform bdc_field using 'P0009-BANKS'
 'ZW'.
 perform bdc_field using 'P0009-BANKL'
 it_record-BankKey. ""'10351'.
 perform bdc_field using 'P0009-BANKN'
 it_record-BankAccount. "" '543234667778'.
 perform bdc_field using 'P0009-ZLSCH'
 'b'.
 perform bdc_field using 'P0009-WAERS'
 'USD'.
 perform bdc_dynpro using 'SAPMP50A' '2000'.
 perform bdc_field using 'BDC_OKCODE'
 '/EBCK'.
 perform bdc_field using 'BDC_CURSOR'
 'RP50G-PERNR'.
 perform bdc_transaction using 'PA40'.
endloop.
perform close_group.
Regards
William

Hi,
It seems like you are uploading data to a screen that contains table control.just check the link below for your reference
[http://wiki.sdn.sap.com/wiki/display/ABAP/bdcontable+control]
Regards,
Vamshi
Edited by: vamshi reddy . ch on Jan 13, 2012 7:38 AM
Edited by: vamshi reddy . ch on Jan 13, 2012 7:39 AM

How to Upload Program Source Code

Hello,
i have a program which downloads the source code into text files.
I need to create all these into another server.
so i need a program to upload these programs.
Any idea how to it? Thanks in advance.
Thanks&Regards,
Sayanna Damerla

Try this custom code:
Upload and Download ABAP Source Code
Source Code Listing
Report: ZKBPROGS *
Function : Up/Download ABAP reports complete with texts *
 - this program does not update TRDIR with the *
 TRDIR entries that are in the program uploaded. Instead, *
 current users stats are used. *
 - this program allows selection of reports from a list or *
 a single report can be tuped in and uploaded *
 - this program also updates TADIR so that a development class*
 is assigned to the program *
 - this program checks to see if the program already has a *
 TRDIR entry, and if it does, warns the user *
 - this program will save/restore the program documenation too*
REPORT ZKBPROGS
 NO STANDARD PAGE HEADING
 LINE-SIZE 255.
Declare Database Objects *
tables:
DOKIL,
TRDIR.
Constants*
CONSTANTS:
MC_TRDIR_IDENTIFIER(72) TYPE C VALUE '%&%& RDIR',
MC_REPORT_IDENTIFIER(72) TYPE C VALUE '%&%& REPO',
MC_TEXT_IDENTIFIER(72) TYPE C VALUE '%&%& TEXP',
MC_THEAD_IDENTIFIER(72) TYPE C VALUE '%&%& HEAD',
MC_DOC_IDENTIFIER(72) TYPE C VALUE '%&%& DOKL',
MC_TRDIR_SHORT(4) TYPE C VALUE 'RDIR',
MC_REPORT_SHORT(4) TYPE C VALUE 'REPO',
MC_TEXT_SHORT(4) TYPE C VALUE 'TEXP',
MC_THEAD_SHORT(4) TYPE C VALUE 'HEAD',
MC_DOC_SHORT(4) TYPE C VALUE 'DOKP'.
Declare Module level data structures *
DATA: BEGIN OF MTAB_PROGRAM_SOURCE OCCURS 0,
 LINE(72) TYPE C,
 END OF MTAB_PROGRAM_SOURCE.
DATA: MTAB_PROGRAM_TRDIR LIKE TRDIR OCCURS 0 WITH HEADER LINE.
DATA: MTAB_PROGRAM_TEXTS LIKE TEXTPOOL OCCURS 0 WITH HEADER LINE.
DATA: MSTR_THEAD LIKE THEAD.
DATA: BEGIN OF MTAB_PROGRAM_FILE OCCURS 0,
 LINE(275) TYPE C,
 END OF MTAB_PROGRAM_FILE.
DATA: BEGIN OF MTAB_DIRECTORY OCCURS 0,
 NAME LIKE TRDIR-NAME,
 DESC(72) TYPE C,
 SAVENAME LIKE RLGRAP-FILENAME,
 END OF MTAB_DIRECTORY.
DATA: BEGIN OF MTAB_PROGRAM_DOCUMENTATION OCCURS 0,
 LINE(255) TYPE C,
 END OF MTAB_PROGRAM_DOCUMENTATION.
Selection Screen *
*-- Options for upload/download of programs
SELECTION-SCREEN BEGIN OF BLOCK FRM_OPTIONS WITH FRAME TITLE TEXT-UDL.
PARAMETERS:
RB_DOWN RADIOBUTTON GROUP UDL DEFAULT 'X'. " Download reports
SELECTION-SCREEN BEGIN OF BLOCK FRM_TRDIR WITH FRAME TITLE TEXT-DIR.
SELECT-OPTIONS:
S_NAME FOR TRDIR-NAME, " Program Name
S_SUBC FOR TRDIR-SUBC " Program Type
 DEFAULT 'F' OPTION EQ SIGN E," Exclude Functions by default
S_CNAM FOR TRDIR-CNAM " Created by
 DEFAULT SY-UNAME,
S_UNAM FOR TRDIR-UNAM, " Last Changed by
S_CDAT FOR TRDIR-CDAT, " Creation date
S_UDAT FOR TRDIR-UDAT. " Last update date
SELECTION-SCREEN END OF BLOCK FRM_TRDIR.
*-- Options for uploading programs
PARAMETERS:
RB_UP RADIOBUTTON GROUP UDL. " Upload reports
SELECTION-SCREEN BEGIN OF BLOCK FRM_UPLOAD WITH FRAME TITLE TEXT-UPL.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(29) TEXT-SNG.
PARAMETERS:
RB_FILE RADIOBUTTON GROUP HOW DEFAULT 'X'.
SELECTION-SCREEN COMMENT 33(42) TEXT-FNA.
SELECTION-SCREEN END OF LINE.
PARAMETERS:
RB_LIST RADIOBUTTON GROUP HOW.
SELECTION-SCREEN END OF BLOCK FRM_UPLOAD.
SELECTION-SCREEN END OF BLOCK FRM_OPTIONS.
*-- Options for up/downloading programs
SELECTION-SCREEN BEGIN OF BLOCK FRM_FILEN WITH FRAME TITLE TEXT-FIL.
PARAMETERS:
RB_DOS RADIOBUTTON GROUP FIL DEFAULT 'X', " Save to local
RB_UNIX RADIOBUTTON GROUP FIL, " Save to UNIX
P_PATH LIKE RLGRAP-FILENAME " Path to save files to
 DEFAULT 'c:\temp\'.
SELECTION-SCREEN END OF BLOCK FRM_FILEN.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_NAME-LOW.
CALL FUNCTION 'F4_PROGRAM'
 EXPORTING
 OBJECT = S_NAME-LOW
 SUPPRESS_SELECTION = 'X'
 IMPORTING
 RESULT = S_NAME-LOW
 EXCEPTIONS
 OTHERS = 1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_NAME-HIGH.
CALL FUNCTION 'F4_PROGRAM'
 EXPORTING
 OBJECT = S_NAME-HIGH
 SUPPRESS_SELECTION = 'X'
 IMPORTING
 RESULT = S_NAME-HIGH
 EXCEPTIONS
 OTHERS = 1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_UNAM-LOW.
PERFORM GET_NAME USING 'S_UNAM-LOW'
 CHANGING S_UNAM-LOW.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_UNAM-HIGH.
PERFORM GET_NAME USING 'S_UNAM-HIGH'
 CHANGING S_UNAM-HIGH.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_CNAM-LOW.
PERFORM GET_NAME USING 'S_CNAM-LOW'
 CHANGING S_CNAM-LOW.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_CNAM-HIGH.
PERFORM GET_NAME USING 'S_CNAM-HIGH'
 CHANGING S_CNAM-HIGH.
TOP-OF-PAGE.
IF RB_LIST = 'X'.
 FORMAT COLOR COL_HEADING.
 NEW-LINE.
 WRITE: AT 3 TEXT-H01,
 AT 15 TEXT-H03.
 FORMAT COLOR OFF.
ENDIF.
AT LINE-SELECTION.
CHECK RB_LIST = 'X'. " only do in list mode
READ LINE SY-CUROW FIELD VALUE MTAB_DIRECTORY-SAVENAME.
*-- Read file into an internal table
PERFORM READ_REPORT_FROM_DISK TABLES MTAB_PROGRAM_FILE
 USING MTAB_DIRECTORY-SAVENAME.
*-- Split table into TADIR entry, report lines, and report text
PERFORM SPLIT_INCOMING_FILE TABLES MTAB_PROGRAM_FILE
 MTAB_PROGRAM_SOURCE
 MTAB_PROGRAM_TEXTS
 MTAB_PROGRAM_DOCUMENTATION
 CHANGING TRDIR
 MSTR_THEAD.
*-- Save all of the data
PERFORM INSERT_NEW_REPORT TABLES MTAB_PROGRAM_SOURCE
 MTAB_PROGRAM_TEXTS
 MTAB_PROGRAM_DOCUMENTATION
 USING TRDIR
 MSTR_THEAD.
Start of processing *
START-OF-SELECTION.
FORMAT COLOR COL_NORMAL.
IF RB_DOWN = 'X'.
 PERFORM DOWNLOAD_REPORTS.
ELSEIF RB_UP = 'X'.
 PERFORM UPLOAD_REPORTS.
ENDIF.
END-OF-SELECTION.
IF RB_DOWN = 'X'.
 CONCATENATE P_PATH
 'directory.txt'
 INTO P_PATH.
 PERFORM SAVE_TABLE_TO_FILE TABLES MTAB_DIRECTORY
 USING P_PATH.
ENDIF.
 FORM UPLOAD_REPORTS *
FORM UPLOAD_REPORTS.
*-- Can upload a reports entered in selection criteria or
*-- select from a list. List can be from index.txt in same directory
*-- (created by the download) or by reading the first line of each file
*-- in the directory.
IF RB_FILE = 'X'. " Upload single program from a file
*-- Read file into an internal table
 PERFORM READ_REPORT_FROM_DISK TABLES MTAB_PROGRAM_FILE
 USING P_PATH.
*-- Split table into TADIR entry, report lines, and report text
 PERFORM SPLIT_INCOMING_FILE TABLES MTAB_PROGRAM_FILE
 MTAB_PROGRAM_SOURCE
 MTAB_PROGRAM_TEXTS
 MTAB_PROGRAM_DOCUMENTATION
 CHANGING TRDIR
 MSTR_THEAD.
*-- Save all of the data
 PERFORM INSERT_NEW_REPORT TABLES MTAB_PROGRAM_SOURCE
 MTAB_PROGRAM_TEXTS
 MTAB_PROGRAM_DOCUMENTATION
 USING TRDIR
 MSTR_THEAD.
ELSEIF RB_LIST = 'X'. " Show list for user to choose from
*-- get list of report names/descriptions from directory text
 CONCATENATE P_PATH
 'directory.txt'
 INTO P_PATH.
 PERFORM READ_REPORT_FROM_DISK TABLES MTAB_DIRECTORY
 USING P_PATH.
 SORT MTAB_DIRECTORY.
*-- Write out list of report names/descriptions
 LOOP AT MTAB_DIRECTORY.
 WRITE:
 / MTAB_DIRECTORY-NAME UNDER TEXT-H01,
 MTAB_DIRECTORY-DESC UNDER TEXT-H03,
 MTAB_DIRECTORY-SAVENAME.
 ENDLOOP.
*-- Process user selections for reports to upload.
ENDIF.
ENDFORM. " upload_reports
 FORM DOWNLOAD_REPORTS *
 From the user selections, get all programs that meet the *
 criteria, and save them in ftab_program_directory. *
 Also save the report to disk. *
FORM DOWNLOAD_REPORTS.
DATA:
 LC_FULL_FILENAME LIKE RLGRAP-FILENAME.
*-- The table is put into an internal table because the program will
*-- abend if multiple transfers to a dataset occur within a SELECT/
*-- ENDSELCT (tested on 3.1H)
SELECT * FROM TRDIR
 INTO TABLE MTAB_PROGRAM_TRDIR
 WHERE NAME IN S_NAME
 AND SUBC IN S_SUBC
 AND CNAM IN S_CNAM
 AND UNAM IN S_UNAM
 AND CDAT IN S_CDAT
 AND UDAT IN S_UDAT.
LOOP AT MTAB_PROGRAM_TRDIR.
*-- Clear out text and source code tables
 CLEAR:
 MTAB_PROGRAM_FILE,
 MTAB_PROGRAM_SOURCE,
 MTAB_PROGRAM_TEXTS,
 MTAB_PROGRAM_DOCUMENTATION.
 REFRESH:
 MTAB_PROGRAM_FILE,
 MTAB_PROGRAM_SOURCE,
 MTAB_PROGRAM_TEXTS,
 MTAB_PROGRAM_DOCUMENTATION.
*-- Get the report
 READ REPORT MTAB_PROGRAM_TRDIR-NAME INTO MTAB_PROGRAM_SOURCE.
*-- Get the text for the report
 READ TEXTPOOL MTAB_PROGRAM_TRDIR-NAME INTO MTAB_PROGRAM_TEXTS.
*-- Get the documentation for the report
 CLEAR DOKIL.
 SELECT * UP TO 1 ROWS FROM DOKIL
 WHERE ID = 'RE'
 AND OBJECT = MTAB_PROGRAM_TRDIR-NAME
 AND LANGU = SY-LANGU
 AND TYP = 'E'
 ORDER BY VERSION DESCENDING.
 ENDSELECT.
*-- Documentation exists for this object
 IF SY-SUBRC = 0.
 CALL FUNCTION 'DOCU_READ'
 EXPORTING
 ID = DOKIL-ID
 LANGU = DOKIL-LANGU
 OBJECT = DOKIL-OBJECT
 TYP = DOKIL-TYP
 VERSION = DOKIL-VERSION
 IMPORTING
 HEAD = MSTR_THEAD
 TABLES
 LINE = MTAB_PROGRAM_DOCUMENTATION
 EXCEPTIONS
 OTHERS = 1.
 ENDIF.
*-- Put the report code and texts into a single file
*-- Put the identifier line in so that the start of the TRDIR line
*-- is marked
 CONCATENATE MC_TRDIR_IDENTIFIER
 MTAB_PROGRAM_TRDIR-NAME
 INTO MTAB_PROGRAM_FILE-LINE.
 APPEND MTAB_PROGRAM_FILE.
*-- Add the TRDIR line
 MTAB_PROGRAM_FILE-LINE = MTAB_PROGRAM_TRDIR.
 APPEND MTAB_PROGRAM_FILE.
*-- Put the identifier line in so that the start of the report code
*-- is marked
 CONCATENATE MC_REPORT_IDENTIFIER
 MTAB_PROGRAM_TRDIR-NAME
 INTO MTAB_PROGRAM_FILE-LINE.
 APPEND MTAB_PROGRAM_FILE.
*-- Add the report code
 LOOP AT MTAB_PROGRAM_SOURCE.
 MTAB_PROGRAM_FILE = MTAB_PROGRAM_SOURCE.
 APPEND MTAB_PROGRAM_FILE.
 ENDLOOP.
*-- Put the identifier line in so that the start of the report text
*-- is marked
 CONCATENATE MC_TEXT_IDENTIFIER
 MTAB_PROGRAM_TRDIR-NAME
 INTO MTAB_PROGRAM_FILE-LINE.
 APPEND MTAB_PROGRAM_FILE.
*-- Add the report texts
 LOOP AT MTAB_PROGRAM_TEXTS.
 MTAB_PROGRAM_FILE = MTAB_PROGRAM_TEXTS.
 APPEND MTAB_PROGRAM_FILE.
 ENDLOOP.
*-- Put the identifier line in so that the start of the THEAD record
*-- is marked
 CONCATENATE MC_THEAD_IDENTIFIER
 MTAB_PROGRAM_TRDIR-NAME
 INTO MTAB_PROGRAM_FILE-LINE.
 APPEND MTAB_PROGRAM_FILE.
 MTAB_PROGRAM_FILE = MSTR_THEAD.
 APPEND MTAB_PROGRAM_FILE.
*-- Put the identifier line in so that the start of the report
*-- documentation is marked
 CONCATENATE MC_DOC_IDENTIFIER
 MTAB_PROGRAM_TRDIR-NAME
 INTO MTAB_PROGRAM_FILE-LINE.
 APPEND MTAB_PROGRAM_FILE.
*-- Add the report documentation
 LOOP AT MTAB_PROGRAM_DOCUMENTATION.
 MTAB_PROGRAM_FILE = MTAB_PROGRAM_DOCUMENTATION.
 APPEND MTAB_PROGRAM_FILE.
 ENDLOOP.
*-- Make the fully pathed filename that report will be saved to
 CONCATENATE P_PATH
 MTAB_PROGRAM_TRDIR-NAME
 '.txt'
 INTO LC_FULL_FILENAME.
 PERFORM SAVE_TABLE_TO_FILE TABLES MTAB_PROGRAM_FILE
 USING LC_FULL_FILENAME.
*-- Write out message with Program Name/Description
 READ TABLE MTAB_PROGRAM_TEXTS WITH KEY ID = 'R'.
 IF SY-SUBRC = 0.
 MTAB_DIRECTORY-NAME = MTAB_PROGRAM_TRDIR-NAME.
 MTAB_DIRECTORY-DESC = MTAB_PROGRAM_TEXTS-ENTRY.
 MTAB_DIRECTORY-SAVENAME = LC_FULL_FILENAME.
 APPEND MTAB_DIRECTORY.
 WRITE: / MTAB_PROGRAM_TRDIR-NAME,
 MTAB_PROGRAM_TEXTS-ENTRY(65) COLOR COL_HEADING.
 ELSE.
 MTAB_DIRECTORY-NAME = MTAB_PROGRAM_TRDIR-NAME.
 MTAB_DIRECTORY-DESC = 'No description available'.
 MTAB_DIRECTORY-SAVENAME = LC_FULL_FILENAME.
 APPEND MTAB_DIRECTORY.
 WRITE: / MTAB_PROGRAM_TRDIR-NAME.
 ENDIF.
ENDLOOP.
ENDFORM. " BUILD_PROGRAM_DIRECTORY
 FORM SAVE_TABLE_TO_FILE *
--> FTAB_TABLE *
--> F_FILENAME *
FORM SAVE_TABLE_TO_FILE TABLES FTAB_TABLE
 USING F_FILENAME.
IF RB_DOS = 'X'. " Save file to presentation server
 CALL FUNCTION 'WS_DOWNLOAD'
 EXPORTING
 FILENAME = F_FILENAME
 FILETYPE = 'ASC'
 TABLES
 DATA_TAB = FTAB_TABLE
 EXCEPTIONS
 OTHERS = 4.
 IF SY-SUBRC NE 0.
 WRITE: / 'Error opening dataset' COLOR COL_NEGATIVE,
 F_FILENAME COLOR COL_NEGATIVE.
 ENDIF.
ELSE. " Save file to application server
 OPEN DATASET F_FILENAME FOR OUTPUT IN TEXT MODE.
 IF SY-SUBRC = 0.
 LOOP AT FTAB_TABLE.
 TRANSFER FTAB_TABLE TO F_FILENAME.
 IF SY-SUBRC NE 0.
 WRITE: / 'Error writing record to file;' COLOR COL_NEGATIVE,
 F_FILENAME COLOR COL_NEGATIVE.
 ENDIF.
 ENDLOOP.
 ELSE.
 WRITE: / 'Error opening dataset' COLOR COL_NEGATIVE,
 F_FILENAME COLOR COL_NEGATIVE.
 ENDIF.
ENDIF. " End RB_DOS
ENDFORM. " SAVE_PROGRAM
 FORM READ_REPORT_FROM_DISK *
 Read report into internal table. Can read from local or *
 remote computer *
FORM READ_REPORT_FROM_DISK TABLES FTAB_TABLE
 USING F_FILENAME.
DATA:
 LC_MESSAGE(128) TYPE C.
CLEAR FTAB_TABLE.
REFRESH FTAB_TABLE.
IF RB_DOS = 'X'.
 TRANSLATE F_FILENAME USING '/\'. " correct slash for Dos PC file
 CALL FUNCTION 'WS_UPLOAD'
 EXPORTING
 FILENAME = F_FILENAME
 FILETYPE = 'ASC'
 TABLES
 DATA_TAB = FTAB_TABLE
 EXCEPTIONS
 CONVERSION_ERROR = 1
 FILE_OPEN_ERROR = 2
 FILE_READ_ERROR = 3
 INVALID_TABLE_WIDTH = 4
 INVALID_TYPE = 5
 NO_BATCH = 6
 UNKNOWN_ERROR = 7
 OTHERS = 8.
 IF SY-SUBRC >< 0.
 WRITE: / 'Error reading file from local PC' COLOR COL_NEGATIVE.
 ENDIF.
ELSEIF RB_UNIX = 'X'.
 TRANSLATE F_FILENAME USING '\/'. " correct slash for unix
 OPEN DATASET F_FILENAME FOR INPUT MESSAGE LC_MESSAGE IN TEXT MODE.
 IF SY-SUBRC = 0.
 DO.
 READ DATASET F_FILENAME INTO FTAB_TABLE.
 IF SY-SUBRC = 0.
 APPEND FTAB_TABLE.
 ELSE.
 EXIT.
 ENDIF.
 ENDDO.
 CLOSE DATASET F_FILENAME.
 ELSE.
 WRITE: / 'Error reading file from remote computer'
COLOR COL_NEGATIVE,
 / LC_MESSAGE,
 / F_FILENAME.
 SY-SUBRC = 4.
 ENDIF.
ENDIF.
ENDFORM. " READ_REPORT_FROM_DISK
 FORM SPLIT_INCOMING_FILE *
--> FTAB_PROGRAM_FILE *
--> FTAB_PROGRAM_SOURCE *
--> ` *
--> FTAB_PROGRAM_TEXTS *
FORM SPLIT_INCOMING_FILE TABLES FTAB_PROGRAM_FILE
 STRUCTURE MTAB_PROGRAM_FILE
 FTAB_PROGRAM_SOURCE
 STRUCTURE MTAB_PROGRAM_SOURCE
 FTAB_PROGRAM_TEXTS
 STRUCTURE MTAB_PROGRAM_TEXTS
 FTAB_PROGRAM_DOCUMENTATION
 STRUCTURE MTAB_PROGRAM_DOCUMENTATION
 CHANGING FSTR_TRDIR
 FSTR_THEAD.
DATA:
 LC_DATATYPE(4) TYPE C, " Type of data, REPO, TEXP, RDIR
 LC_PROGRAM_FILE LIKE MTAB_PROGRAM_FILE.
LOOP AT FTAB_PROGRAM_FILE.
 LC_PROGRAM_FILE = FTAB_PROGRAM_FILE.
 CASE LC_PROGRAM_FILE(9).
 WHEN MC_TRDIR_IDENTIFIER.
 LC_DATATYPE = MC_TRDIR_SHORT.
 WHEN MC_REPORT_IDENTIFIER.
 LC_DATATYPE = MC_REPORT_SHORT.
 WHEN MC_TEXT_IDENTIFIER.
 LC_DATATYPE = MC_TEXT_SHORT.
 WHEN MC_DOC_IDENTIFIER.
 LC_DATATYPE = MC_DOC_SHORT.
 WHEN MC_THEAD_IDENTIFIER.
 LC_DATATYPE = MC_THEAD_SHORT.
 WHEN OTHERS. " Actual contents of report, trdir, or text
 CASE LC_DATATYPE.
 WHEN MC_TRDIR_SHORT.
 FSTR_TRDIR = FTAB_PROGRAM_FILE.
 WHEN MC_REPORT_SHORT.
 FTAB_PROGRAM_SOURCE = FTAB_PROGRAM_FILE.
 APPEND FTAB_PROGRAM_SOURCE.
 WHEN MC_TEXT_SHORT.
 FTAB_PROGRAM_TEXTS = FTAB_PROGRAM_FILE.
 APPEND FTAB_PROGRAM_TEXTS.
 WHEN MC_THEAD_SHORT.
 FSTR_THEAD = FTAB_PROGRAM_FILE.
 WHEN MC_DOC_SHORT.
 FTAB_PROGRAM_DOCUMENTATION = FTAB_PROGRAM_FILE.
 APPEND FTAB_PROGRAM_DOCUMENTATION.
 ENDCASE.
 ENDCASE.
ENDLOOP.
ENDFORM. " SPLIT_INCOMING_FILE
 FORM INSERT_NEW_REPORT*
--> FTAB_PROGRAM_SOURCE *
--> FTAB_PROGRAM_TEXTS *
--> F_TRDIR *
FORM INSERT_NEW_REPORT TABLES FTAB_PROGRAM_SOURCE
 STRUCTURE MTAB_PROGRAM_SOURCE
 FTAB_PROGRAM_TEXTS
 STRUCTURE MTAB_PROGRAM_TEXTS
 FTAB_PROGRAM_DOCUMENTATION
 STRUCTURE MTAB_PROGRAM_DOCUMENTATION
 USING FSTR_TRDIR LIKE TRDIR
 FSTR_THEAD LIKE MSTR_THEAD.
DATA:
 LC_OBJ_NAME LIKE E071-OBJ_NAME,
 LC_LINE2(40) TYPE C,
 LC_ANSWER(1) TYPE C.
*-- read trdir to see if the report already exists, if it does, prompt
*-- user to overwrite or abort.
SELECT SINGLE * FROM TRDIR WHERE NAME = FSTR_TRDIR-NAME.
IF SY-SUBRC = 0. " Already exists
 CONCATENATE 'want to overwrite report'
 FSTR_TRDIR-NAME
 INTO LC_LINE2 SEPARATED BY SPACE.
 CONCATENATE LC_LINE2
 INTO LC_LINE2.
 CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
 EXPORTING
 DEFAULTOPTION = 'N'
 TEXTLINE1 = 'The selected report already exists, do you'
 TEXTLINE2 = LC_LINE2
 TITEL = 'Report already exists'
 CANCEL_DISPLAY = SPACE
 IMPORTING
 ANSWER = LC_ANSWER
 EXCEPTIONS
 OTHERS = 1.
ELSE.
 LC_ANSWER = 'J'.
ENDIF.
IF LC_ANSWER = 'J'.
*-- Create the TADIR entry. (TRDIR entry created by INSERT REPORT)
 LC_OBJ_NAME = TRDIR-NAME.
 CALL FUNCTION 'TR_TADIR_POPUP_ENTRY_E071'
 EXPORTING
 WI_E071_PGMID = 'R3TR'
 WI_E071_OBJECT = 'PROG'
 WI_E071_OBJ_NAME = LC_OBJ_NAME
 WI_TADIR_DEVCLASS = '$TMP'
 EXCEPTIONS
 EXIT = 3
 OTHERS = 4.
 IF SY-SUBRC = 0.
*-- Create Report
 INSERT REPORT FSTR_TRDIR-NAME FROM FTAB_PROGRAM_SOURCE.
*-- Create Texts
 INSERT TEXTPOOL FSTR_TRDIR-NAME FROM FTAB_PROGRAM_TEXTS
 LANGUAGE SY-LANGU.
*-- Save Documentation
 CALL FUNCTION 'DOCU_UPDATE'
 EXPORTING
 HEAD = FSTR_THEAD
 STATE = 'A'
 TYP = 'E'
 VERSION = '1'
 TABLES
 LINE = FTAB_PROGRAM_DOCUMENTATION
 EXCEPTIONS
 OTHERS = 1.
 ELSE.
 WRITE: / 'Error updating the TADIR entry' COLOR COL_NEGATIVE,
 'Program' COLOR COL_NEGATIVE INTENSIFIED OFF,
 FSTR_TRDIR-NAME, 'was not loaded into SAP.'
 COLOR COL_NEGATIVE INTENSIFIED OFF.
 ENDIF.
ELSE.
 WRITE: / FSTR_TRDIR-NAME COLOR COL_NEGATIVE,
 'was not uploaded into SAP. Action cancelled by user'
 COLOR COL_NEGATIVE INTENSIFIED OFF.
ENDIF.
ENDFORM. " INSERT_NEW_REPORT
 FORM GET_NAME *
--> VALUE(F_FIELD) *
--> F_NAME *
FORM GET_NAME USING VALUE(F_FIELD)
 CHANGING F_NAME.
DATA: LTAB_FIELDS LIKE DYNPREAD OCCURS 0 WITH HEADER LINE,
 LC_PROG LIKE D020S-PROG,
 LC_DNUM LIKE D020S-DNUM.
TRANSLATE F_FIELD TO UPPER CASE.
refresh ltab_fields.
LTAB_FIELDS-FIELDNAME = F_FIELD.
append ltab_fields.
LC_PROG = SY-REPID .
LC_DNUM = SY-DYNNR .
CALL FUNCTION 'DYNP_VALUES_READ'
 EXPORTING
 DYNAME = LC_PROG
 DYNUMB = LC_DNUM
 TABLES
 dynpfields = ltab_fields
 EXCEPTIONS
 OTHERS = 01.
read table ltab_fields index 1.
IF SY-SUBRC EQ 0.
 F_NAME = LTAB_FIELDS-FIELDVALUE.
 refresh ltab_fields.
ENDIF.
CALL FUNCTION 'F4_USER'
 EXPORTING
 OBJECT = F_NAME
 IMPORTING
 RESULT = F_NAME.
ENDFORM. " GET_NAME
Program Texts
DIR File Download Options (File Selection)
FIL File Options
FNA Enter filename below (under File Options)
H01 Prog Name
H03 Program Description
SNG Upload a single file
UDL Upload to SAP/Download from SAP
UPL File Upload Options
R Backup/Restore program source code with texts
P_PATH Path to save programs to
RB_DOS Files on local computer
RB_DOWN Download Programs
RB_FILE Upload a single file
RB_LIST Select program(s) from a list
RB_UNIX Files on remote computer
RB_UP Upload Programs to SAP
S_CDAT Date Created
S_CNAM Created by UserID
S_NAME Program Name
S_SUBC Program Type
S_UDAT Date Changed
S_UNAM Last Changed by UserID
Regards,
Joy.

CTM ending at planning version Upload

Hi all
i am facing a problem of CTM run ending at planning version upload. My doubt is it is because of the Large amount of Logs in OPT 11. Can anyone tell me how to delete the logs through a background job or change the obselete date of the log. I specifically want a background job, not able to delete it from the menu path by entering RFC destination and File name.
Regards
Virender

You can get rid of all application logs including CTM jobs through SBAL_DELETE program. use options that do not refer to expiry dates.
If the deletion option does not work, it might be useful to put the trace file ON and make sure that the size of the trace file is below the SAP recommended limit. Check SAP help on this.

Problem with catalog upload program !!

Hi GURUs,
Using CCM upload program we are trying to upload a file for deleting/adding/changing supplier catalog items.
- Some times it work fine.
- But some times supplier catalog is going into error.
- The display log on CCM screen is all green with no errors.
- When checked in SLG1 we are getting error "Error when deleting item XXXXXXX (ID)",though the item is present in supplier catalog.
Kindly help.
Note: We are at CCM2.0
Thanks in Adv. !!
Vivek

Hi Serguei,
Thanks for your reply.
our content file format is XLS (Excel sheet). We are having customized program to load the data into CCM. The program inturn convert the .XLS file into XML format. This program is directly submitting the jobs in background to load the data into CCM.
Due to this I am not sure how to debug this and capture the defect.
Kindly help.
Thanks in Adv. !!
Vivek

Budget Upload Program(GLPLUP)

Hi Gurus,
Please provide me the solution for uploading the Budget Data.
The current upload program (TCode GLPLUP) only allows one cost center per month to be uploaded.
Is there any way to extend the current GLPLUP to allow one upload execution for all 12 month planning data.
Or
Is there any way to customize option that we can extend / Change the Layout the current layout.
I would appreciate If any one could provide me the solution to mass upload the Budget data.
Thanks,
Chidanand

Hi ,
Is there any way to customize option that we can extend / Change the Layout the current layout.
I would appreciate If any one could provide me the solution to mass upload the Budget data.--> I think u cannt have multiple CC options for Budget Uploads .
Is there any way to extend the current GLPLUP to allow one upload execution for all 12 month planning data.-->I think u can do this one , so whats the probs doing so ?
regards
prabhu

Want to know the file path for application server in upload program

Iam doing upload program(i,e)uploading from application server,iam getting run time error while executing the following piece of code
"OPEN DATASET '/usr/sap/SPE/DVEBMGS00/work/ZPSPAR35_PERS_UP.txt' FOR OUTPUT
 IN TEXT MODE
 ENCODING DEFAULT."
if the above code is wrong can u mention the correct one.

hi,
Note: 699267
Symptom
a) When downloading to the application server a short dump occurs with the error 'UC_OBJECTS_NOT_CHARLIKE'.
b) When downloading to a presentation server from an SAP system running on Unicode, only half the data is actually transferred to the downloaded file.
or
*)When downloading from an SAP system running on an application server with an EBCDIC-type code page, an incorrect code '0A' is written for the LINE FEED character

Pre-requisite
a) The output file is opened 'in text mode' which does not allow to write non-character-like structures to the file via the TRANSFER command.
b) The file is downloaded in the internal representation which uses two bytes per character in a Unicode system. The number of bytes to download is determined from the number of characters in the SAP system, however.
or
*)The code of the LINE FEED character is incorrectly programmed.

Solution:
You need to put some support packs attached with this note. For that you definitely need to ask YOUR FRIENDS WHO HAVE AN S-USER id at your WORK PLACE.
Note: 879598
Reason and Prerequisites
The file is downloaded in the internal representation which uses two bytes per character in a Unicode system. The number of bytes to download is determined from the number of characters in the SAP system. Hence when the download happens the data has to be converted to the required format.
Solution
Apply the corresponding support package or manually implement the changes described in the correction instructions.
Hope this helps.
Regards
ak.
PS: Reward useful answers with points.

BOM is not getting displayed in case of centralized planning plant.

Dear All,
there are 2 plants for which we have centralized planning. the users have created Equipment BOM for the two plants. but in case of the second plant for which the planning plant is different from the maintenance plant, the BOM is not getting displayed in the Maintenance Order (i.e. in the components tab).
kindly through some light on it. whether i have to do some settings for it.
Regards,
Ritesh Kapoor

Hi,
Yes while using IH01, i have ticked the BOM explosion option, but when i am giving the plant there then only it is displaying the BOM of that equipment.
Also when i am creating an order for the same equipment, then it does not displays the BOm & shows the message which i have written in my previous mail.
Ritesh

Plant for PR in case of Centralized planning plant

Dear All,
In case of centralized planning, if a Service PR is created then it is taking the plant as the planning plant & not the maintenance plant.
For example: Maintenance pLant A & Maintenance Plant B have a common planning plant as "A" & if a PR is created for maintenance plant "B" then it is taking the plant as "A" & not the other.
please suggest where we can change the plant in case of service pr created through the maintenance order.
Regards,
Ritesh

Hi,
The planning plant will always be passed to the purchase requisition as you have found. Only alternative is to use a user exit
For components use exit COZF0002 (EXIT_SAPLCOZF_002). The exit is called on creating purchase requisitions for components from PM/CS orders. Customer exit COZF0001 can be used for external operations.
This exit allows change of fields in structure EBAN_ORD_CUST. Field WERKS is not included in this structure but you can append this field to the structure. After that you have to add a line into your exit (example):
... move afvgd-werks to EBAN_ORD_CUST-WERKS...
Through this method it should be possible to change the plant on the requisition.
-Paul
Use the forum Enterprise Asset Management (EAM) for PM/CS specific topics
Enterprise Asset Management (SAP EAM)

Fail safe logic needed for purchase order upload program

Hello all,
i am working on creating PO's by reading data from a text file. I need to implement fail safe logic in it, which is to make sure this program uploads all the records in the text file successfully. For example, i have 1000 records in my text file and while running the upload program if the program times out while creating the 500th PO or if SAP is down at that time, then we have 499 PO's created and 501 yet to be created. But if we run the same program again, we will generate duplicate PO's for 499 again. I want to avoid this kind of problem.
How do i implement this idea?
Kindly guide me on this.
Thanks.

Ok ..
Then I would suggest you use Application Log to keep the success and error messages of PO processing.
You can check trsnaction SLG0 and create your own application log object.
Then you need to use FMs BAL_LOG_* to crate and add messages to it.
This way you will have a facility to check as which of your records are converted to PO for a run.
In case SAP gets down in between , still you can find the details using Xn SLG1 and then accordingly remove the records from your file which are already converted to PO.
Thanks,
Ram

Download and upload program

Hello to everybody,
I'm looking for a standard program that can download and upload program' source codes. I found the program REPTRAN (in SAP release 6.0) that can only download the source code (with the include as well), but i didn't find the upload one.
So, does anyone knows if exist a standard program that can download source codes (comprensive of include) and upload it as well?
Thanks and bye..

Hi,
Here is code which read the Programs & download:
Here Just pass the itab "SOURCE" into WS_DOWNLOAD.
function zuplt01f_tr.
*"*"Local interface:
*" IMPORTING
*"     REFERENCE(PROGRAM_NAME) TYPE SYREPID
*" TABLES
*"      SOURCE
data: f(240) type c,
        g type i,
        h(72) type c,
        low type i   .
read report program_name into source . " state 'A'.
describe table source lines count.
endfunction.
Raja T

HI Masters , I need information for file upload program in web dynpro java

Hi masters,
i need some inforamtion and documentation on file upload program in web dynpro java

Hi surya,
You can follow this procedure to upload the file
i) Take One Context Attribute named as "D1" of Type "binary".
ii) Take one FileUpload UI Element in the Layout Tab.
iii) Bind FileUpload UI Element's data Property to the taken Context Attribute. Here it is "D1".
iv) Take one Button UI Element in the Layout Tab named "Upload" and in the Action of that Button write the following Code.
v) The following code Generates one Folder in the Server & inside that Folder given file is Uploaded.
File ff=new File("FolderXYZ"); // Creates One Folder with the given Name ( Here Folder name is "FolderXYZ")
ff.mkdir();
try
byte b[]=null;
IWDAttributeInfo objAttinfo=null;
IWDModifiableBinaryType binType=null;
File f=null;
FileOutputStream fos=null;
if(wdContext.currentContextElement().getD1()!=null)
b=wdContext.currentContextElement().getD1();
objAttinfo=wdContext.getNodeInfo().getAttribute(IPrivateAttachView.IContextElement.D1);
binType=(IWDModifiableBinaryType)objAttinfo.getModifiableSimpleType();
f=new File(ff.getName()+"
"+binType.getFileName());
fos=new FileOutputStream(f);
fos.write(b);
fos.flush();
fos.close();
objMessageManager.reportSuccess("File uploaded to server");
} catch (Exception e)
objMessageManager.reportException("Unable to upload file to server, error is:"+e,false);
return;
The Uploaded file is stored in the folder & that folder is stored in the Server's following Path.
<Your Server>\c$\usr\sap\J2E\JC00\j2ee\cluster\server0
You can access your Uploaded file from the following Path
<Your Server>\c$\usr\sap\J2E\JC00\j2ee\cluster\server0\FolderXYZ
Regards
Sagar Ingalwar

Automating Cash Journal Posting using inbound proxy interface and upload program

Hi Experts,
I have a requirement where in cash journal posting needs to be carried out automatically by an inbound interface on a periodic basis and at the start during cut over an upload program needs to be used to upload beg balance data . For this purpose I have used BAPI_CASHJOURNALDOC_CREATE to save cash journal entries along with BAPI TRANSACTION COMMIT.
Once the Data is successfully saved I am using FM FCJ_GET_DATA_FOR_SCREEN to get prerequisite data for the FM FCJ_POST_ALL which is used by the Standard cash journal program internally to post the saved data. ( I got this by debugging the standard transaction and both FMs are not yet released )
The issues I am facing is that the the FM FCJ_POST_ALL does not always post the data it behaves in random fashion i.e some times it posts the entries where as sometimes it does not post the entries.
I have tried using commit work after the FM but that also does not result in consistent behavior of the program. One more issue is the i am not allowed to use commit work in a an inbound proxy so how do i proceed ?
I am attaching the code for further analysis:
DATA: LIT_TCJ_TRANS_NAMES TYPE TABLE OF TCJ_TRANS_NAMES,
 LWA_TCJ_TRANS_NAMES TYPE TCJ_TRANS_NAMES,
 LV_WAIT TYPE BAPITA-WAIT VALUE '1',
 LV_RECORD_NO TYPE SY-TABIX.
 DATA : LIT_POSTING TYPE STANDARD TABLE OF ISCJ_POSTINGS,
 LIT_WTAX_ITEMS TYPE STANDARD TABLE OF TCJ_WTAX_ITEMS,
 LIT_SPLIT_POSTINGS TYPE STANDARD TABLE OF ISCJ_POSTINGS,
 LIT_CPD TYPE STANDARD TABLE OF TCJ_CPD.
 DATA: LV_BEG_BALANCE TYPE CJAMOUNT,
 LV_TOTAL_RECEIPTS TYPE CJAMOUNT,
 LV_TOTAL_PAYMENTS TYPE CJAMOUNT,
 LV_TOTAL_CHECKS TYPE CJAMOUNT,
 LV_RUN_BALANCE TYPE CJAMOUNT,
 LV_RUN_CASH_BALANCE TYPE CJAMOUNT,
 LV_NUMB_OF_REC TYPE I,
 LV_NUMB_OF_PAYM TYPE I,
 LV_NUMB_OF_CHECKS TYPE I.
 DESCRIBE TABLE GIT_CJ LINES GV_TOTAL_RECORDS.
 SELECT MANDT COMP_CODE TRANSACT_NUMBER LANGU TRANSACT_NAME LONG_TEXT
 FROM TCJ_TRANS_NAMES
 INTO TABLE LIT_TCJ_TRANS_NAMES
 WHERE LANGU = GC_EN.
 IF SY-SUBRC <> 0.
 MESSAGE 'No Business Transaction maintained for Company Code in this client'(016) TYPE GC_I.
 LEAVE LIST-PROCESSING.
 ENDIF.
 DESCRIBE TABLE GIT_CJ LINES GV_TOTAL_RECORDS.
 LOOP AT GIT_CJ INTO GWA_CJ.
 LV_RECORD_NO = SY-TABIX.
 CLEAR: GS_HEADER_BAPI,
 GS_CJ_KEY,
 GWA_ITEMS.
 REFRESH: GIT_ITEMS,
 GIT_RETURN.
 GS_HEADER_BAPI-COMP_CODE = GWA_CJ-BUKRS.
 GS_HEADER_BAPI-CAJO_NUMBER = GWA_CJ-CJNR.
 GS_HEADER_BAPI-CURRENCY = GC_PHP.
 CLEAR LWA_TCJ_TRANS_NAMES.
 READ TABLE LIT_TCJ_TRANS_NAMES INTO LWA_TCJ_TRANS_NAMES WITH KEY COMP_CODE = GWA_CJ-BUKRS
 LANGU = GC_EN
 TRANSACT_NAME = GWA_CJ-BTNAM.
 IF SY-SUBRC = 0.
 GWA_ITEMS-TRANSACT_NUMBER = LWA_TCJ_TRANS_NAMES-TRANSACT_NUMBER.
 GWA_ITEMS-P_RECEIPTS = GWA_CJ-CJRAT.
 GWA_ITEMS-TAX_CODE = GWA_CJ-TXCOD.
 GS_HEADER_BAPI-BP_NAME = GWA_CJ-BPNAM.
 GWA_ITEMS-POSITION_TEXT = GWA_CJ-POTXT.
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
 EXPORTING
 INPUT = GWA_CJ-LIFNR
 IMPORTING
 OUTPUT = GWA_ITEMS-VENDOR_NO.
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
 EXPORTING
 INPUT = GWA_CJ-KUNNR
 IMPORTING
 OUTPUT = GWA_ITEMS-CUSTOMER.
 PERFORM SUB_DATE_FROMAT_BAPI CHANGING GWA_CJ-BLDAT
 GS_HEADER_BAPI-DOC_DATE.
 PERFORM SUB_DATE_FROMAT_BAPI CHANGING GWA_CJ-BUDAT
 GS_HEADER_BAPI-PSTNG_DATE.
 GS_HEADER_BAPI-REF_DOC_NO = GWA_CJ-XBLNR.
 GS_HEADER_BAPI-ALLOC_NMBR = GWA_CJ-ALLNO.
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
 EXPORTING
 INPUT = GWA_CJ-KOSTL
 IMPORTING
 OUTPUT = GWA_ITEMS-COSTCENTER.
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
 EXPORTING
 INPUT = GWA_CJ-PRCTR
 IMPORTING
 OUTPUT = GWA_ITEMS-PROFIT_CTR.
 APPEND GWA_ITEMS TO GIT_ITEMS.
 CALL FUNCTION 'BAPI_CASHJOURNALDOC_CREATE'
 EXPORTING
 HEADER = GS_HEADER_BAPI
 IMPORTING
 COMPANY_CODE = GS_CJ_KEY-COMP_CODE
 CASH_JOURNAL_NUMBER = GS_CJ_KEY-CAJO_NUMBER
 FISCAL_YEAR = GS_CJ_KEY-FISC_YEAR
 CASH_JOURNAL_DOC_NO = GS_CJ_KEY-POSTING_NUMBER
 TABLES
 ITEMS = GIT_ITEMS
 RETURN = GIT_RETURN.
 IF GIT_RETURN IS NOT INITIAL.
 READ TABLE GIT_RETURN INTO GWA_RETURN WITH KEY TYPE = GC_E.
 IF SY-SUBRC <> 0.
 CLEAR GWA_CJ_S.
 MOVE-CORRESPONDING GS_CJ_KEY TO GWA_CJ_S.
 CLEAR GWA_RETURN.
 READ TABLE GIT_RETURN INTO GWA_RETURN WITH KEY TYPE = GC_S.
 IF SY-SUBRC = 0.
 MOVE GWA_RETURN-MESSAGE TO GWA_CJ_S-MSG.
 CLEAR GWA_RETURN.
 READ TABLE GIT_RETURN INTO GWA_RETURN WITH KEY TYPE = GC_I.
 IF SY-SUBRC = 0.
 CLEAR GWA_CJ_E.
 CONCATENATE GWA_RETURN-MESSAGE GWA_CJ_S-MSG INTO GWA_CJ_E-MSG SEPARATED BY GC_PIPE_FORMAT.
 MOVE-CORRESPONDING GS_HEADER_BAPI TO GWA_CJ_E.
 GWA_CJ_E-POSTING_NUMBER = LV_RECORD_NO.
 APPEND GWA_CJ_E TO GIT_CJ_E.
 GV_ERROR_RECORDS = GV_ERROR_RECORDS + GC_1.
 ELSE.
 IF P_TEST NE GC_X.
 CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
 EXPORTING
 WAIT = LV_WAIT.
 REFRESH:LIT_POSTING ,
 LIT_WTAX_ITEMS ,
 LIT_SPLIT_POSTINGS ,
 LIT_CPD .
 CLEAR: LV_BEG_BALANCE ,
 LV_TOTAL_RECEIPTS ,
 LV_TOTAL_PAYMENTS ,
 LV_TOTAL_CHECKS ,
 LV_RUN_BALANCE ,
 LV_RUN_CASH_BALANCE ,
 LV_NUMB_OF_REC ,
 LV_NUMB_OF_PAYM ,
 LV_NUMB_OF_CHECKS .
 CALL FUNCTION 'FCJ_GET_DATA_FOR_SCREEN'
 EXPORTING
 I_COMP_CODE = GS_CJ_KEY-COMP_CODE
 I_CAJO_NUMBER = GS_CJ_KEY-CAJO_NUMBER
 I_DISPLAY_PERIOD_LO = GS_HEADER_BAPI-PSTNG_DATE
 I_DISPLAY_PERIOD_HI = GS_HEADER_BAPI-PSTNG_DATE
 IMPORTING
 E_BEGINNING_BALANCE = LV_BEG_BALANCE
 E_RUNNING_BALANCE = LV_RUN_BALANCE
 E_RUNNING_CASH_BALANCE = LV_RUN_CASH_BALANCE
 E_TOTAL_RECEIPTS = LV_TOTAL_RECEIPTS
 E_TOTAL_REC_NUMBER = LV_NUMB_OF_REC
 E_TOTAL_PAYMENTS = LV_TOTAL_PAYMENTS
 E_TOTAL_PAYM_NUMBER = LV_NUMB_OF_PAYM
 E_TOTAL_CHECKS = LV_TOTAL_CHECKS
 E_TOTAL_CHECKS_NUMBER = LV_NUMB_OF_CHECKS
 TABLES
 E_POSTINGS = LIT_POSTING
 E_WTAX_ITEMS = LIT_WTAX_ITEMS
 E_SPLIT_POSTINGS = LIT_SPLIT_POSTINGS
 E_CPD = LIT_CPD.
 CALL FUNCTION 'FCJ_POST_ALL'
 EXPORTING
 I_COMP_CODE = GS_CJ_KEY-COMP_CODE
 I_CAJO_NUMBER = GS_CJ_KEY-CAJO_NUMBER
 I_CURRENCY = GS_HEADER_BAPI-CURRENCY
 I_TYP = 'R'
 I_DISPLAY_PERIOD_LO = GS_HEADER_BAPI-PSTNG_DATE
 I_DISPLAY_PERIOD_HI = GS_HEADER_BAPI-PSTNG_DATE
* IMPORTING
* E_ERROR_NUMBER =
 TABLES
 ITCJ_POSTINGS = LIT_POSTING
 ITCJ_WTAX_ITEMS = LIT_WTAX_ITEMS
 ITCJ_SPLIT_POSTINGS = LIT_SPLIT_POSTINGS
 ITCJ_CPD = LIT_CPD
 CHANGING
 P_BEG_BALANCE = LV_BEG_BALANCE
 P_TOTAL_RECEIPTS = LV_TOTAL_RECEIPTS
 P_TOTAL_PAYMENTS = LV_TOTAL_PAYMENTS
 P_TOTAL_CHECKS = LV_TOTAL_CHECKS
 P_RUN_BALANCE = LV_RUN_BALANCE
 P_RUN_CASH_BALANCE = LV_RUN_CASH_BALANCE
 P_NUMB_OF_REC = LV_NUMB_OF_REC
 P_NUMB_OF_PAYM = LV_NUMB_OF_PAYM
 P_NUMB_OF_CHECKS = LV_NUMB_OF_CHECKS.
 COMMIT WORK.
 ENDIF.
 APPEND GWA_CJ_S TO GIT_CJ_S.
 GV_SUCCESS_RECORDS = GV_SUCCESS_RECORDS + GC_1.
 CLEAR GWA_CJ_S.
 ENDIF.
 ENDIF.
 ELSE.
 CLEAR GWA_CJ_E.
 MOVE-CORRESPONDING GS_HEADER_BAPI TO GWA_CJ_E.
 MOVE GWA_RETURN-MESSAGE TO GWA_CJ_E-MSG.
 GWA_CJ_E-POSTING_NUMBER = LV_RECORD_NO.
 APPEND GWA_CJ_E TO GIT_CJ_E.
 GV_ERROR_RECORDS = GV_ERROR_RECORDS + GC_1.
 ENDIF.
 ENDIF.
 ELSE.
 GWA_RETURN-MESSAGE = 'Transaction Name does not correspond to any Transaction Number'(017).
 CLEAR GWA_CJ_E.
 MOVE-CORRESPONDING GS_HEADER_BAPI TO GWA_CJ_E.
 MOVE GWA_RETURN-MESSAGE TO GWA_CJ_E-MSG.
 GWA_CJ_E-POSTING_NUMBER = LV_RECORD_NO.
 APPEND GWA_CJ_E TO GIT_CJ_E.
 GV_ERROR_RECORDS = GV_ERROR_RECORDS + GC_1.
 ENDIF.
 ENDLOOP.
ENDFORM. " SUB_BAPI_CALL

Hi Experts,
I have a requirement where in cash journal posting needs to be carried out automatically by an inbound interface on a periodic basis and at the start during cut over an upload program needs to be used to upload beg balance data . For this purpose I have used BAPI_CASHJOURNALDOC_CREATE to save cash journal entries along with BAPI TRANSACTION COMMIT.
Once the Data is successfully saved I am using FM FCJ_GET_DATA_FOR_SCREEN to get prerequisite data for the FM FCJ_POST_ALL which is used by the Standard cash journal program internally to post the saved data. ( I got this by debugging the standard transaction and both FMs are not yet released )
The issues I am facing is that the the FM FCJ_POST_ALL does not always post the data it behaves in random fashion i.e some times it posts the entries where as sometimes it does not post the entries.
I have tried using commit work after the FM but that also does not result in consistent behavior of the program. One more issue is the i am not allowed to use commit work in a an inbound proxy so how do i proceed ?
I am attaching the code for further analysis:
DATA: LIT_TCJ_TRANS_NAMES TYPE TABLE OF TCJ_TRANS_NAMES,
 LWA_TCJ_TRANS_NAMES TYPE TCJ_TRANS_NAMES,
 LV_WAIT TYPE BAPITA-WAIT VALUE '1',
 LV_RECORD_NO TYPE SY-TABIX.
 DATA : LIT_POSTING TYPE STANDARD TABLE OF ISCJ_POSTINGS,
 LIT_WTAX_ITEMS TYPE STANDARD TABLE OF TCJ_WTAX_ITEMS,
 LIT_SPLIT_POSTINGS TYPE STANDARD TABLE OF ISCJ_POSTINGS,
 LIT_CPD TYPE STANDARD TABLE OF TCJ_CPD.
 DATA: LV_BEG_BALANCE TYPE CJAMOUNT,
 LV_TOTAL_RECEIPTS TYPE CJAMOUNT,
 LV_TOTAL_PAYMENTS TYPE CJAMOUNT,
 LV_TOTAL_CHECKS TYPE CJAMOUNT,
 LV_RUN_BALANCE TYPE CJAMOUNT,
 LV_RUN_CASH_BALANCE TYPE CJAMOUNT,
 LV_NUMB_OF_REC TYPE I,
 LV_NUMB_OF_PAYM TYPE I,
 LV_NUMB_OF_CHECKS TYPE I.
 DESCRIBE TABLE GIT_CJ LINES GV_TOTAL_RECORDS.
 SELECT MANDT COMP_CODE TRANSACT_NUMBER LANGU TRANSACT_NAME LONG_TEXT
 FROM TCJ_TRANS_NAMES
 INTO TABLE LIT_TCJ_TRANS_NAMES
 WHERE LANGU = GC_EN.
 IF SY-SUBRC <> 0.
 MESSAGE 'No Business Transaction maintained for Company Code in this client'(016) TYPE GC_I.
 LEAVE LIST-PROCESSING.
 ENDIF.
 DESCRIBE TABLE GIT_CJ LINES GV_TOTAL_RECORDS.
 LOOP AT GIT_CJ INTO GWA_CJ.
 LV_RECORD_NO = SY-TABIX.
 CLEAR: GS_HEADER_BAPI,
 GS_CJ_KEY,
 GWA_ITEMS.
 REFRESH: GIT_ITEMS,
 GIT_RETURN.
 GS_HEADER_BAPI-COMP_CODE = GWA_CJ-BUKRS.
 GS_HEADER_BAPI-CAJO_NUMBER = GWA_CJ-CJNR.
 GS_HEADER_BAPI-CURRENCY = GC_PHP.
 CLEAR LWA_TCJ_TRANS_NAMES.
 READ TABLE LIT_TCJ_TRANS_NAMES INTO LWA_TCJ_TRANS_NAMES WITH KEY COMP_CODE = GWA_CJ-BUKRS
 LANGU = GC_EN
 TRANSACT_NAME = GWA_CJ-BTNAM.
 IF SY-SUBRC = 0.
 GWA_ITEMS-TRANSACT_NUMBER = LWA_TCJ_TRANS_NAMES-TRANSACT_NUMBER.
 GWA_ITEMS-P_RECEIPTS = GWA_CJ-CJRAT.
 GWA_ITEMS-TAX_CODE = GWA_CJ-TXCOD.
 GS_HEADER_BAPI-BP_NAME = GWA_CJ-BPNAM.
 GWA_ITEMS-POSITION_TEXT = GWA_CJ-POTXT.
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
 EXPORTING
 INPUT = GWA_CJ-LIFNR
 IMPORTING
 OUTPUT = GWA_ITEMS-VENDOR_NO.
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
 EXPORTING
 INPUT = GWA_CJ-KUNNR
 IMPORTING
 OUTPUT = GWA_ITEMS-CUSTOMER.
 PERFORM SUB_DATE_FROMAT_BAPI CHANGING GWA_CJ-BLDAT
 GS_HEADER_BAPI-DOC_DATE.
 PERFORM SUB_DATE_FROMAT_BAPI CHANGING GWA_CJ-BUDAT
 GS_HEADER_BAPI-PSTNG_DATE.
 GS_HEADER_BAPI-REF_DOC_NO = GWA_CJ-XBLNR.
 GS_HEADER_BAPI-ALLOC_NMBR = GWA_CJ-ALLNO.
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
 EXPORTING
 INPUT = GWA_CJ-KOSTL
 IMPORTING
 OUTPUT = GWA_ITEMS-COSTCENTER.
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
 EXPORTING
 INPUT = GWA_CJ-PRCTR
 IMPORTING
 OUTPUT = GWA_ITEMS-PROFIT_CTR.
 APPEND GWA_ITEMS TO GIT_ITEMS.
 CALL FUNCTION 'BAPI_CASHJOURNALDOC_CREATE'
 EXPORTING
 HEADER = GS_HEADER_BAPI
 IMPORTING
 COMPANY_CODE = GS_CJ_KEY-COMP_CODE
 CASH_JOURNAL_NUMBER = GS_CJ_KEY-CAJO_NUMBER
 FISCAL_YEAR = GS_CJ_KEY-FISC_YEAR
 CASH_JOURNAL_DOC_NO = GS_CJ_KEY-POSTING_NUMBER
 TABLES
 ITEMS = GIT_ITEMS
 RETURN = GIT_RETURN.
 IF GIT_RETURN IS NOT INITIAL.
 READ TABLE GIT_RETURN INTO GWA_RETURN WITH KEY TYPE = GC_E.
 IF SY-SUBRC <> 0.
 CLEAR GWA_CJ_S.
 MOVE-CORRESPONDING GS_CJ_KEY TO GWA_CJ_S.
 CLEAR GWA_RETURN.
 READ TABLE GIT_RETURN INTO GWA_RETURN WITH KEY TYPE = GC_S.
 IF SY-SUBRC = 0.
 MOVE GWA_RETURN-MESSAGE TO GWA_CJ_S-MSG.
 CLEAR GWA_RETURN.
 READ TABLE GIT_RETURN INTO GWA_RETURN WITH KEY TYPE = GC_I.
 IF SY-SUBRC = 0.
 CLEAR GWA_CJ_E.
 CONCATENATE GWA_RETURN-MESSAGE GWA_CJ_S-MSG INTO GWA_CJ_E-MSG SEPARATED BY GC_PIPE_FORMAT.
 MOVE-CORRESPONDING GS_HEADER_BAPI TO GWA_CJ_E.
 GWA_CJ_E-POSTING_NUMBER = LV_RECORD_NO.
 APPEND GWA_CJ_E TO GIT_CJ_E.
 GV_ERROR_RECORDS = GV_ERROR_RECORDS + GC_1.
 ELSE.
 IF P_TEST NE GC_X.
 CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
 EXPORTING
 WAIT = LV_WAIT.
 REFRESH:LIT_POSTING ,
 LIT_WTAX_ITEMS ,
 LIT_SPLIT_POSTINGS ,
 LIT_CPD .
 CLEAR: LV_BEG_BALANCE ,
 LV_TOTAL_RECEIPTS ,
 LV_TOTAL_PAYMENTS ,
 LV_TOTAL_CHECKS ,
 LV_RUN_BALANCE ,
 LV_RUN_CASH_BALANCE ,
 LV_NUMB_OF_REC ,
 LV_NUMB_OF_PAYM ,
 LV_NUMB_OF_CHECKS .
 CALL FUNCTION 'FCJ_GET_DATA_FOR_SCREEN'
 EXPORTING
 I_COMP_CODE = GS_CJ_KEY-COMP_CODE
 I_CAJO_NUMBER = GS_CJ_KEY-CAJO_NUMBER
 I_DISPLAY_PERIOD_LO = GS_HEADER_BAPI-PSTNG_DATE
 I_DISPLAY_PERIOD_HI = GS_HEADER_BAPI-PSTNG_DATE
 IMPORTING
 E_BEGINNING_BALANCE = LV_BEG_BALANCE
 E_RUNNING_BALANCE = LV_RUN_BALANCE
 E_RUNNING_CASH_BALANCE = LV_RUN_CASH_BALANCE
 E_TOTAL_RECEIPTS = LV_TOTAL_RECEIPTS
 E_TOTAL_REC_NUMBER = LV_NUMB_OF_REC
 E_TOTAL_PAYMENTS = LV_TOTAL_PAYMENTS
 E_TOTAL_PAYM_NUMBER = LV_NUMB_OF_PAYM
 E_TOTAL_CHECKS = LV_TOTAL_CHECKS
 E_TOTAL_CHECKS_NUMBER = LV_NUMB_OF_CHECKS
 TABLES
 E_POSTINGS = LIT_POSTING
 E_WTAX_ITEMS = LIT_WTAX_ITEMS
 E_SPLIT_POSTINGS = LIT_SPLIT_POSTINGS
 E_CPD = LIT_CPD.
 CALL FUNCTION 'FCJ_POST_ALL'
 EXPORTING
 I_COMP_CODE = GS_CJ_KEY-COMP_CODE
 I_CAJO_NUMBER = GS_CJ_KEY-CAJO_NUMBER
 I_CURRENCY = GS_HEADER_BAPI-CURRENCY
 I_TYP = 'R'
 I_DISPLAY_PERIOD_LO = GS_HEADER_BAPI-PSTNG_DATE
 I_DISPLAY_PERIOD_HI = GS_HEADER_BAPI-PSTNG_DATE
* IMPORTING
* E_ERROR_NUMBER =
 TABLES
 ITCJ_POSTINGS = LIT_POSTING
 ITCJ_WTAX_ITEMS = LIT_WTAX_ITEMS
 ITCJ_SPLIT_POSTINGS = LIT_SPLIT_POSTINGS
 ITCJ_CPD = LIT_CPD
 CHANGING
 P_BEG_BALANCE = LV_BEG_BALANCE
 P_TOTAL_RECEIPTS = LV_TOTAL_RECEIPTS
 P_TOTAL_PAYMENTS = LV_TOTAL_PAYMENTS
 P_TOTAL_CHECKS = LV_TOTAL_CHECKS
 P_RUN_BALANCE = LV_RUN_BALANCE
 P_RUN_CASH_BALANCE = LV_RUN_CASH_BALANCE
 P_NUMB_OF_REC = LV_NUMB_OF_REC
 P_NUMB_OF_PAYM = LV_NUMB_OF_PAYM
 P_NUMB_OF_CHECKS = LV_NUMB_OF_CHECKS.
 COMMIT WORK.
 ENDIF.
 APPEND GWA_CJ_S TO GIT_CJ_S.
 GV_SUCCESS_RECORDS = GV_SUCCESS_RECORDS + GC_1.
 CLEAR GWA_CJ_S.
 ENDIF.
 ENDIF.
 ELSE.
 CLEAR GWA_CJ_E.
 MOVE-CORRESPONDING GS_HEADER_BAPI TO GWA_CJ_E.
 MOVE GWA_RETURN-MESSAGE TO GWA_CJ_E-MSG.
 GWA_CJ_E-POSTING_NUMBER = LV_RECORD_NO.
 APPEND GWA_CJ_E TO GIT_CJ_E.
 GV_ERROR_RECORDS = GV_ERROR_RECORDS + GC_1.
 ENDIF.
 ENDIF.
 ELSE.
 GWA_RETURN-MESSAGE = 'Transaction Name does not correspond to any Transaction Number'(017).
 CLEAR GWA_CJ_E.
 MOVE-CORRESPONDING GS_HEADER_BAPI TO GWA_CJ_E.
 MOVE GWA_RETURN-MESSAGE TO GWA_CJ_E-MSG.
 GWA_CJ_E-POSTING_NUMBER = LV_RECORD_NO.
 APPEND GWA_CJ_E TO GIT_CJ_E.
 GV_ERROR_RECORDS = GV_ERROR_RECORDS + GC_1.
 ENDIF.
 ENDLOOP.
ENDFORM. " SUB_BAPI_CALL

Shopping Cart needs to be Held Status when created from Upload Program

Hi All,
Shopping Cart is created from Custom Upload Program. In Upload Program, we used BBP_PD_SC_CREATE, BBP_PD_SC_UPDATE, BBP_PD_SC_SAVE and BBP_PD_SC_COMMIT.
Once the Shopping Cart is created from this upload program, I want ot put Shopping Cart as Helad Status.
I exported the parameter I_PARK as 'X' in BBP_PD_SC_CREATE and BBP_PD_SC_UPDATE. But it is not working i.e., the SRM system is not keeping the Shopping Cart as Held Status.
Scenario:
I am uploading the Shopping Cart Items (Shopping Cart creation) on behalf of my manager. My manager has to approve Shopping Cart.
If shopping cart is created maually and Shopping cart value is within the spending limit, work flow is not triggered approval proceess. If I am creating shopping cart behalf of some one, I am adding the approver manually while creating.
When ever we create shopping cart through custom upload program, the shopping cart needs to be approved by the Requestor (my manager, to cross check shopping cart items). So I want to park the Shopping Cart and I want to add Approver as my manager.
Please suggest me or guide me to get the solution for my issue.
Thanks,
Sudarsan
Edited by: KOYYA SUDARSANA NAIDU on Nov 14, 2008 9:12 PM

Completed

Central Planning Format upload program- UPP_MASTER_CHECKIN

Similar Messages

Maybe you are looking for