IM52-Load Order Budget Upload Program

Hi All,
I'm Working on IM52-Load order budget Change BDC Load Program.i'm using Call Transaction for it.
here i'm getting a problem while recording(With SHDB) the tcode IM52, It showing the error like 'no measure found'.
But the same error i'm not getting while creating manually(i.e., With out SHDB).
So i developed the program by own using technical information, instead of recording in SHDB .
and i ran the program, but i'm getting the same error "No measures Found"
can any one tell me how to develope the BDC program for IM52-Load order budgets change.
should i follow in different way instead of normal BDC programm?
Thanks in advance
Ramesh

Hi Caforio Claudio,
Pls check if you have (If the Investment Measure is Internal Order)
You performed the commitment carryforward for measures belonging to the investment program - KOCF
You performed the budget carryforward for measures belonging to the investment program - KOCO
which are pre-requisites for Budget Carryforward for Investment Programs...
Pls check and revert back...
Srikanth Munnaluri

Similar Messages

Internal order Budget upload

Hi
Can one tell me which layouts i can use for internal order planning and Internal order budgeting uploads in SAP.
Thanks
Lily

Lily,
Hope you have sorted out the upload of plan data. For uploading the budgets the work around is below:
Upload the budget data as plan using the planning layout suggested by others. Then in the transaction KO22 select the budget column and use the copy view option under Edit menu and select Planned total.
Once the Budget details are uploaded you can upload the plan values later.
Hope this Helps
Cheers
Sreenivas

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

Creation of Investment program and budget upload

Hi,
I need to create a investment program using th data in a excel file. Once the structure is uploaded, I need to do the budget upload. Is there any BAPI for achieving this functionality. Kindly share your valuable inputs if you have worked on similar kind of requirement.
Regards,
Mamta

To find out bapis , go to BAPI transaction - take the alphabetical order tab - find your business object ( budget ) - on the right side you will see the tools option - create bapi select and click the search button.
This will give you all the bapis associated with that business object.
Also searching SE37 with BAPI_EXPENDITURE* will be good idea.
Mathews

Code for UpLoad program to load Custom PA infotype

I need to develope UpLoad program to load Custom PA infotype which I created with 9001.
Can you please give the complete code to Write upload program using standard available FM .
Points will be awarded........
Thanks
Raj

As this is a custom Infotype and no code is readily available, I would suugest that you try transction SHDB and record loading data into this Infotype. This interm can be converted to a program which you can then tweek. If I get stuck writting a BDC upload program then this is where I start.
Regards
J

Upload program to load Custom PA infotype

I need to develope UpLoad program to load Custom PA infotype which I created with 9001.
Can you please give the steps to Write upload program.
Thanks
Raj

This is an example of the HR_INFOTYPE_OPERATION use, in this case for a custom infotype as well.
LOOP AT IT_9129.
    clear : W_PERNR, W_RETCODE, i9129, t_output.
* Primeiro vamos buscar o número de empregado associado ao número do sistema anterior
    PERFORM GET_NEW_PERNR USING    IT_9129-PERNR
                                   IT_9129-BEGDA
                          CHANGING W_PERNR
                                   W_RETCODE.
    CHECK W_RETCODE = 0.
* Aqui assignamos os valores
    MOVE-CORRESPONDING it_9129 to i9129.
    i9129-pernr = w_pernr.
    i9129-endda = w_endda.
*   Bloquear o Empregado
    perform ENQUEUE_EPPRELE using W_PERNR .
* Executar PA30
    CALL FUNCTION 'HR_INFOTYPE_OPERATION'
      EXPORTING
        INFTY         = '9129'
        NUMBER        = i9129-pernr
        VALIDITYEND   = i9129-endda
        VALIDITYBEGIN = i9129-begda
        RECORD        = i9129
        OPERATION     = 'INS'
        TCLAS         = 'A'
        DIALOG_MODE   = P_MODO
      IMPORTING
        RETURN        = return.
    if not return is initial.
      perform fill_error using return .
    else.
      t_output-mensagem = 'Infotipo 9129 criado com sucesso'.
    endif.
* Output
    t_output-PERNR = w_pernr.
    t_output-PNALT = it_9129-PERNR.
    append t_output.
ENDLOOP.

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

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.

Internal Order budgeting not checking at the time of FB60

Dear All Experts,
Very Good Morning !
I have configured IO budgeting with Overall Planning ticked budget profile. I have assigned budger profile to Order type also.
In KO23 I have given limit also of Rs.10,000 /- for overall and yearly 2011 Rs,5,000 /-. In define tolerance I have maintained two entries as below : 1 is with 01 Group wich will check PO's and 2nd one is 04 Group which will check Financial account document. ( I hope this correct, If not please rectify me ). In tolerance limit I have given 3 as a error should throw.
I refer this thread [Internal Order Budget - Availability Control|Internal Order Budget - Availability Control; from our SDN forum. I activated budget control from KO23 and referring KO30 now system is showing GREEN Availability control is active.
Now when I am running FB60 with assignment IO, system is not throwing any error, warning , it remains normal posting is happening.
If anybody has gone through the same issue, experts inputs / guidance will be very helpfull.
Regards,
Revati Joshi.

Your tolerance limits are fine
Let me put you some points here.
Creating IO
   1. Investment Profile is mandatory for Capital projects
   2. If you are using Investment management, then check IM32, & IM52
   3. KO02 - Check - Investments tab - IM Program and Position ID assinged or not
   4. Need to assign the budget in both Controlling area currecny and object currency (KO12, & KO22)
   5. Availability control should be Active - KO30
   6. Planner plofile - KP04 - Just press F4 and check - if there are any created for your controlling area
   7. Check if you have any line itesm already posted to the IO - KOB1, KOB2, KOB3
Now, the actual plan is - KPF6 and KDF6
Here you need to input the below details
Version                    0
From Period               01
To Period                      12
Fiscal Year          2011
Order                                           input the order
                  to
         or group
Cost Element                              which Cost elemtn you are going to post in FB60
                  to
         or group
Enter those details and in next screen - give the amount for that cost element.
Now o and post in FB60
Hope it helps
Thanks

Create Purchase Order via Upload.

Hi,
Our company have lost 4 months data due to some hardware problem. After hardware issue resolved we have to post all lost data. Therefore in MM module can it is possible that I can create PO order via BAPI program? We have four type of PO (Inventory, Assets, Changed off and IO). I got a BAPI function "BAPI_PO_CREATE1" can any body tell me how can I you this BAPI to create PO or Upload it?
Thanks
Syed Tayab Shah

Hi
[Sample Code|Re: BAPI-PO;
[Explanation About BAPI|http://abap.wikiprog.com/wiki/BAPI_PO_CREATE1]
Re: BAPI_PO_CREATE1-Runtime error
BAPI_PO_CREATE1
Regards
Pavan

SWF Load order.

Hello all,
I have a group of FC outputs that I have used to create a virtual tour of my client's showroom here:
electronic-lifestyle.com
But the SWF files I have linked in the FXP are loading from back to front. The last Page is loading first and the first loads last creating some issues. I have one more pass I need to maker to fix some glitches with the vertical scroll bar and several other points but I need to know if I can adjust the order in which the SWF files load into the page. I would prefer they load when called for but if that is not possible I would like to load from the first page to the last.
On an associated thought, is it possible to create a progress bar in FC or Flash that will give the viewer some feed back on the SWF files loading in. Right now the area is blank until they arrive.
I have a feeling that this level of control is something achieved in Flash Builder, not in FC. That is fine, I am planning on importing the file into FB to enable deep linking anyway but since there is no round trip function I figured I would get all of the FC work finished first, then go into FB and make whatever changes need to happen there.
It is starting to seem silly that the two programs were separated to begin with. It seems a natural evolution that Catalyst and Builder be joined into the same application sometime in the near future. Once the round trip issue is taken care of, why not just work toward combining the two apps?
Anyway, if someone could give me a pointer on the load order issue that would be wonderful.
Thanks,
Brett

dmcdonald wrote:
> Is there a way to dictate load order of html page?
No.
David Powers, Adobe Community Expert
Author, "Foundation PHP for Dreamweaver 8" (friends of ED)
Author, "PHP Solutions" (friends of ED)
http://foundationphp.com/

Load the Budget value at cost center level only

Hello All,
Can we load the budget value at the cost center level only with out using cost element . I have seen that we can from actual to budget in Kp98 at the cost Center level.
Thanks ,
Krishna

Hi
There is a work around...
You can create one Statistical IO for each cost center and upload your budget in it...
Keep the same nomenclature for IO as the Cost center i.e. If cost center name is 123456, have the same name for IO as well
In Substitution OKC9, you can use a Field to Field Mapping and populate same IO as the Cost center no in the posting or you can also use exit RGGBS000
br, Ajay M

Copy Internal Order between Investment Programs

We have a investment program in approval year 2014 which has 1 Internal Order assigned to it and the budget has been fully allocated. We want to budget against this internal
Now we have created a new investment program in approval year 2015 and want to the use the internal order(measure from the invesment program in 2014. We have tried the following:
IM22 Change program - assignments add internal order get error message "There is already an existing assignment to program position 2014"
IMCAOV Budget Carryfoward - No impact on the measure as there is no budge to carry forward.
Can anyone advise how we can budget on the same Internal Order in the new fiscal year ?
thanks
Joe

Hello,
the little late answer to your question is the table IMZO. It links the investment program / positions to internal orders. I found this thread while searching for my own problem which is quite the same:
In my WebDynpro for ABAP investment planning tool I'm using the FM BAPI_INTERNALORDER_CREATE to create internal orders as a result of the planning process. This BAPI is similiar to the transaction ko01 except that I can't assign an investment program / position to my internal order (this is also pointed out in the help to the BAPI/FM).
But how can I assign an investment program / position to my internal order NOT using an ABAP insert/update statement on the table IMZO (which links the internal orders and investment programs/positions).
Does anybody know a FM or BAPI I could use? I really don't like the idea of a self made insert/update into a sap table...
Thank you in advance,
Christian Bracht

Excel extractor produces error "Error 8 when compiling the upload program"

I am trying to test a new Excel extractor I've created but when I do so I get the following error:
RSAR233
Error 8 when compiling the upload program: row 446, message: A newer version of data type /BIC/B0000788000 was
I've tried reactivating transfer structures and transfer rules but with no success. When I activate the transfer structures I can see in the status bar briefly a message refering "Activating Structure /BIC/B0000788000". I am assuming it's the technical name of the structure which supports the extraction.
Any ideas?
Thanks for the help.

OK, I can see your point. The Communication structure fields have data types, CHAR, CURR and DATS (those are the data types for the info-objects I am trying to load).
But if I try to assign the same data types to the objects of the transfer structure which match the flat file I get errors like "Invalid data type (DATS) for source systems of type Ext. System.". What I understand this means is that I cannot use data types other than CHAR in the flat file structure so how can I assign data from a CHAR flat file to a DATS destination object? Do I need some kind of conversion? How? Do I really need a routine in the transfer rules?

Error 8 when compiling the upload program: row

Error 8 when compiling the upload program: row
248, message: Data type /BIC/CCAWSAI_CID_TEXT was
found in a new
kindly help me out pls

Hi Raghu,
Error 8 Implies
The last words should be read as "was found in a newer version".
The system says that the active version of your Infosource is older then another version.
I'd recommend to delete Infosource - Source system assignment (with PSA tables etc.).
Then save (activate) the Infosource (communication structure). Then assign source system, create infopackage and load data again.
else..
Goto se38 and Run the program RS_TRANSTRU_ACTIVATE_ALL and relogin..
Plz look the link.
[Error when compiling the upload program (Message no. RSAR233) ]
Hope this helps...
Regards,
NR
Assign points if helpful...

IM52-Load Order Budget Upload Program

Similar Messages

Maybe you are looking for