ABAP Store ABAP code locally on the disk

Hello
I have a question, how download the Web dynpro ABAP code from the SAP System.
Could You give me a hint how to save code locally on the disk?
Regards
Wojtek

I started from http://code.google.com/p/saplink/ .
Then in http://code.google.com/p/saplink/wiki/pluginList I found the plug-in for ABAP Web Dynpro.
It still in ALPHA status and to be honest I got trouble installing it (in fact there is the note: But WDA plugin requires SAPlink 0.1.3 or greater).
You should get it running because I can see the nugg file.
Eventually ask navigate to the http://code.google.com/p/saplink/issues/list and the other pages of http://code.google.com/p/saplink.
Sergio

Similar Messages

Bootcamp - The disk cannot be partitioned because some files cannot be moved.

I know what you're thinking; this question has been posed before. But my circumstances are different.
Sooo I bought a brand new Macbook Pro 15" Retina, late-2014 model on Monday. After some initial setup (moving my music, downloading programs etc.) I moved onto the last thing I needed to do - set up bootcamp (primarily for gaming I admit).
Specs: 2.8GHz Quad-core Intel Core i7, Turbo Boost up to 4.0GHz
16GB 1600MHz DDR3L SDRAM
1TB PCIe-based Flash Storage - In total the files I moved onto it left me with about 890GB free on the HD.
At this point I had made sure everything was updated as far as I was aware.
I received the error message "The disk cannot be partitioned because some files cannot be moved." I was trying to make a 151GB partition but also tried going down to 40GB and received the same message. I tried several solutions I found online including booting in cmd+s and typing in some codes, I checked the disk with disk utility and it was fine.
Nothing much for it and I was feeling lazy, I backed up with Carbon Copy Cloner (I much prefer this program to time machine) and reformatted. Clean install of OSX Yosemite and the Macbook looked like it had just come out of the box. Before I even attempted to restore using CCC I started up bootcamp again: same error. With essentially a brand new Macbook Pro right out of the box, near to 1TB HD space free.
I've taken it to the local Apple store but they "Don't have any support for bootcamp in-store" and I'm out of the house for 12 hours a day with work (I'm actually at work now). Plus you know, I require food and such, so I don't get much time to get in touch with Apple support directly.
The guy at the Apple store recommended Parallels or Visualbox; note that I want to use bootcamp. I like the extra power and I have a copy of Windows 8.1 from a previous Macbook Pro that worked wonderfully through bootcamp. This should work as far as I am concerned and I don't want to accept anything less to be honest.
Any ideas?

Hi Loner T,
Thanks for your suggestion, however I did a step wrong and I am facing another bigger problem.
Step 1 was to use time machine to backup OSX, looks like I failed to do that, and only backed up the data instead. Because after I erase my internal disk, I cant restore from TM.
So now the situation is that I can't access my HD, can't reinstall Mac to that hard disk (it is not detected), Cant use DU to repartition the hard disk as well, option not selectable.
What can I do now?

Is it possible to redeem a digital copy code without using the DVD?

I have a Rambo digital copy code but no DVD rom drive. Is there was way to use the code and just download it off iTunes or not?
Also im in Canada.
Message was edited by: Mikerules868

From what I've read, the digital copy is on the bonus disk; it's not downloaded from the iTunes Store but rather copied from the disk.

Which SAP table stores the ABAP program Source Code

Hi All,
Which SAP table stores the ABAP source code .
Is it possible to retrieve the abap program code from database table
wherein it is stored .
Scenario :
In our project SAP got decommissioned and SAP database is migrated to Oracle . As SAP is decomissioned , we are not able to access the SAP frontend . But we need a program code to service a request . Is it possible to retrieve the program code from the database
which is migrated to oracle .
Thanks
Shikha

This is an interesting question as the answer is may be different depending on your version. For example, in new releases the table REPOSRC appears to hold a compress version of the course code in the DATA field, but you would need to be able to decompress it if trying to read this directly out of the DB. I would assume that it uses gZip to do the compression, and there are ABAP utilities built in to do the compress/decompress. Of course you can always read the source code by using the READ REPORT statement in any release, but of course this will not help you if you can not log on to your system. Basically, if you system is corrupt for some reason, the best option is to restore from a backup.
REgards,
Rich Heilman

Own tag in code templates of the abap editor

Hi,
i think you all know the code hints and that you can define own code templates in the abap editor (at the options screen). As an information I dont mean the code patterns.
So does somebody know how to define own tags for these code templates? Or where the logic is located for the code hints?
Bye
Richard

Hi Richard,
I know its pretty late to answer the question but just in case if you have not figured it out then see,
Regards,
Ankit.

Need ABAP Code to enhance the 0PRODORDER_ATTR?

I want to enhance the datasource 0PRODORDER_ATTR with the below JCDS Table fields like UDATE,STAT,OBJNR,INACT,CHGNR.
Can anyone please let me know the ABAP Code need to be written in the CMOD to populate the data for the above fields in the 0PRODORDER_ATTR?

Hi,
You can use below code to enhancemnt .
You need to change the table, structure and field names
Below code you have to write in tocde CMOD if you are enhancing the master data. It applies for any master data, although, I have taken 0VENDOR_ATTR as the example. I assume that You have already added/appended the fields in the extract structure of 0VENDOR_ATTR i.e. to the structure BIW_LFA1_S. ( Check this link for how to enhance the DataSource : https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/b0af763b-066e-2910-a784-dc6731660f46 )
We have enhanced the datasorce for the following two fields from table LFA1:
ERDAT- Date on which the Record Was Created
KRAUS - Credit information number.
We have also enhaced the structure for the following fields from table LFB1.
MINDK - Minority Indicators
ZTERM - Terms of payment key
CERDT - Certification date.
Now we will poulate these two fields in the code written in CMOD tcode. Here is the code:
Go to the tcode CMOD in R3 and select the component EXIT_SAPLRSAP_002. Write this code in INCLUDE ZXLOFU01.
data : l_t_data like biw_lfa1_s.
data : l_tabix like sy-tabix.
CASE i_datasource.
WHEN '0VENDOR_ATTR'.
    LOOP AT i_t_data INTO l_t_data.
      l_tabix = sy-tabix.
      CLEAR: l_t_data-yyerdat,
             l_t_data-yykraus.
      SELECT SINGLE erdat kraus FROM lfa1 INTO
          ( l_t_data-yyerdat, l_t_data-yykraus)
            WHERE lifnr EQ l_t_data-lifnr.
      SELECT SINGLE mindk zterm cerdt FROM lfb1 INTO
              (l_t_data-yymindk, l_t_data-yyzterm, l_t_data-yycerdt)
              WHERE lifnr = l_t_data-lifnr.
      MODIFY i_t_data FROM l_t_data INDEX l_tabix.
      CLEAR: l_t_data, l_tabix.
    ENDLOOP.
ENDCASE.
Labels parameters

Abap Code to Repeat the field (3nos) Values for all the fields

Hi Friends I have a Requirement to merge the Data for One of my BI - BCS model.
I have fields in one table(/BIC/AZDBBCP_040) business Num , PRCTR, REGION and RELOCAT and Field ZAUD_TYP and Audit Year Zyear also in same table.
But I want to reapeat this information Highlighted in Bold for all the Zaudtyp and ZYEAR. Please help me with the Code
Problem as below
 BUSNUM PRCTR REGION RELOCAT ZAUD_TYP ZYEAR
 101 22 ALAN MN
 101 GT(ZAUD_TYP) 1999(ZYEAR)
101 BTE 2001
102 25 CA SFO
 102 LTE 2008
Please help me with any Code to fix the problem so that the data repeat for PRCTR REGION RELOCAT where Bus Num is same.
Kindly Get me any ABAB Code . Will really be thankful to you
Regards
Soniya Kapoor
soniya kapoor
Message was edited by:
 soniya kapoor

Hi Soniya,
You can use one of the following:
IF SOURCE_FIELDS-DATETO = ' '.
RESULT = '20990101'.
ENDIF.
or
IF SOURCE_FIELDS-DATETO IS INITIAL.
RESULT = '20990101'.
ENDIF.
or
IF SOURCE_FIELDS-DATETO = '00000000'.
" THERE WAS A SPACE IN YOUR CODE.
RESULT = '20990101'.
ENDIF.
Regards,
Satya

Download/upload abap objects to/from local PC

Hi all,
 I need to download objects of a tcode (like includes, reports etc) on to PC and upload it to different server. Can anybody please send me the programs to upload and download objects.
Thanks in Advance

REPORT ZUPDOWNPROGRAMS LINE-SIZE 132 LINE-COUNT 62 NO STANDARD PAGE HEADING.
This program up / downloads from / to a local dataset
all the components of an ABAP - i.e TEXTS, the entire CUA
including statuses and menus, DYNPROS and source code.
Program documentation and variants are not handled.
INCLUDED programs are automatically handled both on upload
or download. INCLUDE selection can be excluded or generic
e.g only handle INCLUDES starting with ZIN*
INCLUDES within INCLUDES also handled.
The only restriction is on UPLOAD the INCLUDED programs must come
from the same directory as the main program.
On Download of course the ABAP must exist in the library.
 Note for LINUX and BATCH users
This program was originally designed as a one off tool for
getting ABAPS etc from a SAP R2 (IBM MVS mainframe system) into
an R3 test system minimising the need for a large amount of
mainframe sysprogs (anybody remember what they were !!) time
and support to say nothing of access problems from TSO /JES2 /
SAP R2. At that time network connections were patchy and the
transport systems largely incompatable and not very reliable.
This program was originally designed as a one off tool for
Must run on Windows front end ---- If you are running SAP with
LINUX on your work station you will have to change the WS_UPLOAD
and WS_DOWNLOAD functions to reflect the Linux file system. The
contents of the data sets themseleves do not need to be changed
Program can easily be modified to run in batch and store
the data on a UNIX host. Change the WS_UPLOAD and WS_DOWNLOAD
to read from and write to UNIX data sets (OPEN FILE etc).
You will also need to modify the parts of the program that get
the DOS directory and display the Windows file paths.
The actual abap data sets do not need to be changed.
Rel 4.0 names can now be up to 40 bytes long
 Dynpros and CUA have changed from rel 3.1
 Tabstrips now loaded and unloaded in dynpros
 Please note restriction on 4.6 systems for users who
 have ABAP names which include '/'s in their names.
Rel 4.6b, 4.6c Abap names can include the '/' in their names
e.g /CUST1/CUST2/ORDER
This causes problems when storing to a local file.
a solution is to change the name to %CUST1%CUST2%ORDER i.e / will
be changed to %. On upload the % should be changed back to /
again. This change still needs to be implemented.
If you don't use the / in the abap name then this is not a problem.
If file to be uploaded is in rel 3 format then names are only 8
bytes long.
program uses 3 datasets per abap
 1) abapname.eee source, dynpr logic, texts, CUA stuff
 2) abapname.hhh dynpr header
 3) abapname.fff dynpro fields.
because of varying lengths and contents 3 data sets are used. The
complexity of combining all these to 1 data set would make the
program far too complex.
NOTE: This version of the program can only be used on
 release 4.0 or higher. Once an ABAP has been converted
 to rel 4.0 it cannot be converted back to rel 3.0
 on a release 3/3.1 system. Release 4 CUA tables
 are different. Use release 3 version of this program
 for releases 3.0 and 3.1. Available on SAPFANS website.
Note that data to be uploaded must have been previously downloaded
by this program (any version since rel 2.0) - except for Initial
Load -- see end of these comments.
 Dynpros and CUA statuses have changed since rel 3.1
 This program will handle rel 3.1 format on upload but will
 download in rel 4.0 format. To upload 3.1 format specify an 'X'
 in the rel3 parameter.
 If you have downloaded components in rel 4.0 format and you
 want to re-load to a 3.1 system you will have to load
 the source via standard upload and re-create dynpros and the CUA
 manually.
 As names can now be longer than 8 characters you can only
 use this program if the SAP front end (SAPGUI) supports
 long file names (WIN 95/98 or WIN NT). Windows 3.x will not
 work as the underlying DOS system cannot handle long file names.
 UPLOAD function and DOS directory.
When an ABAP is selected for UPLOAD then the DOS
directory is read into a table. A file called ABAP.BAT is created,
and down loaded to the 'C' drive and executed.
This file executes a DOS DIR command and pipes the output
into a dataset which is then uploaded into an internal
table on SAP.
Note on running DOS commands from ABAP
The first time this procedure is executed you will see a DOS window
which you will have to close manually. To get round this
use windows explorer to select the file ABAP.BAT and then
right mouse click on the file name. Select the
properties window. From this click the CLOSE on EXIT box. This
will then automatically close the DOS function after it has
executed. (Windows restriction).
The DOS function has not been tested using Windows 2000 so
it might not work. OK on W95,W98,WME and Windows NT (No Thanks)
If INCLUDE programs are wanted on UPLOAD only the specified
directory is searched.
Instead of entering path name manually you can click on
the path parameter. Because of Windows restriction you will
have to select ANY file in the relevant directory.
The path will then be copied on to the selection screen.
To do still : Merge 3 files to one and compress output to .ZIP file
 fix 4.5 4.6 problem of abaps containing '/' in the name
 possibility to automatically up / download referenced
 function modules with selection criteria like INCLUDES
To load the ist time into a system.
Create program with ABAP editor and Upload the .EEE file.
Delete ist line (????SRCE) in the ABAP EDITOR --NOT THE DISK FILE
Delete all the source from the line that starts ????TEXT (towards
the end file) till the end so the last line in your source is ENDFORM.
DO NOT ALTER THE DISK FILE. DO THESE CHANGES IN THE ABAP EDITOR.
Save file and execute
Use following parameters (Note the ist time you won't get proper
text on the selection screen).
Function U
Path full dos path containing source e.g c:\abaps\
 NOTE YOU MUST ENTER THE FINAL \ as above.
REPID the program name. e.g ZZJIMHXX
 note that on the DISK you will see 3 files
 ZZJIMHXX.EEE, ZZJIMHXX.FFF, ZZJIMHXX.HHH
 just use the name before the dos qualifier - the
 program will do the rest
ignore other parameters
The program will then load itself with all the texts etc.
It should now be ready for use.
Macros
DEFINE DEFINE_TABLE.
DATA: &1 LIKE &2 OCCURS &3 WITH HEADER LINE.
END-OF-DEFINITION.
DEFINE CLS.
REFRESH &1.
CLEAR &1.
END-OF-DEFINITION.
DEFINE INIT.
IF &1 NE SPACE.
 SEARCH &1 FOR '. .'.
 IF SY-SUBRC = 0.
 WRITE '*' TO &1+SY-FDPOS(1).
 ENDIF.
 TRANSLATE &1 USING '*%'.
ELSE.
 MOVE '%' TO &1.
ENDIF.
END-OF-DEFINITION.
end of macros
/ SAP standard tables */
TABLES: D020S, "Dynpro header
 D020T, "Dynpro title
 D021T, "Screen field keyword texts
 TRDIR, "Attribute table
 TADIR, "Dev. class etc.
 EUDB, "CUA data
 TSTC, "transaction data
 TITLE, "CUA titles
 RSMPTEXTS. "Function texts (rel 4.0)
/ Work tables to hold ABAP source etc, and dynpro */
/ contents. */
DATA: BEGIN OF H. "Header
 INCLUDE STRUCTURE D020S.
DATA: END OF H.
DATA: BEGIN OF H1 OCCURS 10, "Header
 NAME(40) TYPE C, "rel 4
 NUMBER(4) TYPE N.
 INCLUDE STRUCTURE D020S.
DATA: END OF H1.
DATA: BEGIN OF H2 OCCURS 0, "Rel 3 dynp. header
 CNAME(8) TYPE C,
 CNUM(4) TYPE C,
 NNAME(8) TYPE C,
 NNUM(4) TYPE C,
 FILL(51) TYPE C,
 CDAT(6) TYPE C,
 CTIM(6) TYPE C,
 END OF H2.
DATA: BEGIN OF F OCCURS 250. "Dynpro Fields
 INCLUDE STRUCTURE D021S.
DATA: END OF F.
DATA: BEGIN OF F1 OCCURS 500, "Dynpro Fields
 NAME(40) TYPE C, "rel 4
 NUMBER(4) TYPE N.
 INCLUDE STRUCTURE D021S.
DATA: END OF F1.
DATA: BEGIN OF OLD_F1 OCCURS 0, "Dynpro Fields (rel 3)
 NAME(8) TYPE C,
 NUMBER(4) TYPE C.
 INCLUDE STRUCTURE D021SE_OLD.
DATA: END OF OLD_F1.
DATA: BEGIN OF F2 OCCURS 0, "Dynpro Fields (rel 3)
 TFIL(284) TYPE C,
 END OF F2.
DATA: BEGIN OF M OCCURS 3. "Match codes (if any)
 INCLUDE STRUCTURE D023S.
DATA: END OF M.
DATA: BEGIN OF E OCCURS 0. "Dynpro Logic
 INCLUDE STRUCTURE D022S.
DATA: END OF E.
DATA: BEGIN OF E1 OCCURS 0, "Dynpro Logic
 NAME(40) TYPE C, "rel 4
 NUMBER(4) TYPE N.
 INCLUDE STRUCTURE D022S.
DATA: END OF E1.
DATA: BEGIN OF T OCCURS 0, "prog name and dynpro nrs
 NAME(40) TYPE C, "rel 4
 NUMBER(4) TYPE N,
END OF T.
DATA: BEGIN OF R OCCURS 56, "prog name and language
 NAME(40) TYPE C, "rel 4
 LANGUAGE(1) TYPE C,
 END OF R.
DATA: BEGIN OF S OCCURS 3000,
 TXT(180) TYPE C, "rel 4 was 132
 END OF S.
DATA: BEGIN OF R1 OCCURS 50, "for include programs
 NAME(40) TYPE C, "rel 4
 INSTANCE(3) TYPE P,
 END OF R1.
DATA: BEGIN OF S1 OCCURS 3000,
 TXT(180) TYPE C, " rel 4 was 132
 END OF S1.
DATA: BEGIN OF U OCCURS 100, "Text elements
 TXT(180) TYPE C, " rel 4 was 132
 END OF U.
DATA: BEGIN OF DIR. "ABAP Attributes
 INCLUDE STRUCTURE TRDIR.
DATA: END OF DIR.
DATA: BEGIN OF DTXT. "Dynpro field keyword texts
 INCLUDE STRUCTURE D021T.
DATA: END OF DTXT.
/ This data contains all the components of the */
/ CUA such as menus, statuses, Pfkeys */
/ As from rel 4.5 Tabstrips are automatically copied as well */
/ The rel3 parameter must be set however to load the */
/ correct version of the CUA tables if uploading rel 3 */
/ data to a rel 4 system. */
/ Rel 4.0B can convert 3.1 and earlier CUA's */
/ This could change later however. */
CUA Tables.
Key of CUA tables in EUDB data set. Name is len 40 in rel 4.0
DATA BEGIN OF EU_KEY.
 INCLUDE STRUCTURE RSEU1_KEY.
DATA END OF EU_KEY.
 Status
DATA BEGIN OF STA OCCURS 0.
 INCLUDE STRUCTURE RSMPE_STAT. " rel 4
DATA END OF STA.
 Functions
DATA BEGIN OF FUN OCCURS 0.
 INCLUDE STRUCTURE RSMPE_FUNT. "rel 4
DATA END OF FUN.
 Menus
DATA BEGIN OF MEN OCCURS 0.
 INCLUDE STRUCTURE RSMPE_MEN. "rel 4.0
DATA END OF MEN.
 Menus (texts)
DATA BEGIN OF MTX OCCURS 0.
 INCLUDE STRUCTURE RSMPE_MNLT. "rel 4.0
DATA END OF MTX.
 Action Bar
DATA BEGIN OF ACT OCCURS 0.
 INCLUDE STRUCTURE RSMPE_ACT. "rel 4.0
DATA END OF ACT.
 Push Buttons
DATA BEGIN OF BUT OCCURS 0.
 INCLUDE STRUCTURE RSMPE_BUT. "rel 4.0
DATA END OF BUT.
 PF-Keys
DATA BEGIN OF PFK OCCURS 0.
 INCLUDE STRUCTURE RSMPE_PFK. "rel 4.0
DATA END OF PFK.
 Function sets
DATA BEGIN OF SET OCCURS 0.
 INCLUDE STRUCTURE RSMPE_STAF. "rel 4.0
DATA END OF SET.
 Documentation
DATA BEGIN OF DOC OCCURS 0.
 INCLUDE STRUCTURE RSMPE_ATRT. "rel 4.0
DATA END OF DOC.
 Title codes with text
DATA: BEGIN OF TIT OCCURS 0.
 INCLUDE STRUCTURE RSMPE_TITT. "rel 4.0
DATA: END OF TIT.
DATA BEGIN OF FTX OCCURS 0. "rel 4.0
 INCLUDE STRUCTURE RSMPTEXTS.
DATA END OF FTX.
 rel 3.1 CUA components.
 Status
DATA BEGIN OF OLD_STA OCCURS 0.
 INCLUDE STRUCTURE RSEU1_GEN. " rel 3.1
DATA END OF OLD_STA.
 Functions
DATA BEGIN OF OLD_FUN OCCURS 0.
 INCLUDE STRUCTURE RSEU1_FUN. "rel 3.1
DATA END OF OLD_FUN.
 Menus
DATA BEGIN OF OLD_MEN OCCURS 0.
 INCLUDE STRUCTURE RSEU1_MEN. "rel 3.1
DATA END OF OLD_MEN.
 Menus (texts)
DATA BEGIN OF OLD_MTX OCCURS 0.
 INCLUDE STRUCTURE RSEU1_TXM. "rel 3.1
DATA END OF OLD_MTX.
 Action Bar
DATA BEGIN OF OLD_ACT OCCURS 0.
 INCLUDE STRUCTURE RSEU1_ACT. "rel 3.1
DATA END OF OLD_ACT.
 Push Buttons
DATA BEGIN OF OLD_BUT OCCURS 0.
 INCLUDE STRUCTURE RSEU1_BUT. "rel 3.1
DATA END OF OLD_BUT.
 PF-Keys
DATA BEGIN OF OLD_PFK OCCURS 0.
 INCLUDE STRUCTURE RSEU1_PFK. "rel 3.1
DATA END OF OLD_PFK.
 Function sets
DATA BEGIN OF OLD_SET OCCURS 0.
 INCLUDE STRUCTURE RSEU1_SET. "rel 3.1
DATA END OF OLD_SET.
 Documentation
DATA BEGIN OF OLD_DOC OCCURS 0.
 INCLUDE STRUCTURE RSEU1_ETM. "rel 3.1
DATA END OF OLD_DOC.
 Title codes with text
DATA: BEGIN OF OLD_TIT OCCURS 0.
 INCLUDE STRUCTURE TITLE. "rel 3.1
DATA: END OF OLD_TIT.
dynamic function text
DATA BEGIN OF FDN OCCURS 1.
 INCLUDE STRUCTURE RSEU1_FDYN. "not req for rel 4.
DATA END OF FDN.
Icons
DATA BEGIN OF FIN OCCURS 1.
 INCLUDE STRUCTURE RSEU1_ICON. "not req for rel 4
DATA END OF FIN.
dynamic menu texts
DATA BEGIN OF MDN OCCURS 1.
 INCLUDE STRUCTURE RSEU1_MDYN. "not req for rel 4.
DATA END OF MDN.
 Symbol list
DATA BEGIN OF SYM OCCURS 0.
 INCLUDE STRUCTURE RSEU1_SYMB.
DATA END OF SYM.
 Status Short text
DATA BEGIN OF STX OCCURS 0.
 INCLUDE STRUCTURE RSEU1_CTX.
DATA END OF STX.
 Attributes for function key settings (menu bars) Rel 3.0
DATA BEGIN OF ATT OCCURS 0.
 INCLUDE STRUCTURE RSEU1_HAT.
DATA END OF ATT.
 Include-Menus
DATA BEGIN OF INC OCCURS 3.
 INCLUDE STRUCTURE RSEU1_INC.
DATA END OF INC.
Last used numbers
DATA BEGIN OF LAST.
 INCLUDE STRUCTURE RSEU1_LST.
DATA END OF LAST.
data for call transaction (SE41 to re-generate the CUA)
DATA: BEGIN OF T_BDC_TAB OCCURS 0.
 INCLUDE STRUCTURE BDCDATA. "BDC data
DATA: END OF T_BDC_TAB.
DATA: BEGIN OF T_MESSTAB OCCURS 0.
 INCLUDE STRUCTURE BDCDATA.
DATA: END OF T_MESSTAB.
/ Program data */
DATA: NUMBER(4) TYPE N,
 OLDNUM(4) TYPE N,
 FILESIZE TYPE I,
 NR_OF_BYTES TYPE I,
 I(3) TYPE P,
 IX(3) TYPE P,
 J(3) TYPE P,
 L(3) TYPE P,
 CUA-FLAG(1) TYPE C,
 CUA_RETURN(10) TYPE C,
 DYNPRO_MESSAGE(160) TYPE C,
 DYNPRO_LINE TYPE P,
 DYNPRO_WORD(30) TYPE C,
 NUM(3) TYPE N,
 DYNNAME(44) TYPE C,
 FN1(128) TYPE C,
 FN2(128) TYPE C,
 FN3(128) TYPE C,
 W_ITERATE(1) TYPE C,
 MAIN(1) TYPE C,
 FUNC(1) TYPE C,
 OLDNAME(40) TYPE C,
 OLD-FUNC(8) TYPE C,
 NEW-FUNC(8) TYPE C,
 FOUND(1) TYPE C,
 LANGUAGE LIKE SY-LANGU,
 FIRST-TIME(1) TYPE C VALUE 'Y',
 OK-CODE(5) TYPE C,
 NAME(40) TYPE C, "rel 4
 TXLINE(70) TYPE C,
 LINE(132) TYPE C.
DATA:
 UL_FILE(128) TYPE C,
 DL_FILE(128) TYPE C,
 DOSLINE(72) TYPE C.
DATA: BEGIN OF DOSDIR OCCURS 0,
 TEXT(72),
 END OF DOSDIR.
DATA: BEGIN OF I_PROG OCCURS 0,
 NAME(40),
 END OF I_PROG.
DATA: BEGIN OF I_PROGT OCCURS 0,
 NAME(40),
 END OF I_PROGT.
DATA: BEGIN OF I_INCLUDE OCCURS 0,
 NAME(40),
 HANDLED(1) TYPE C,
 END OF I_INCLUDE.
DATA: BEGIN OF I_INCL OCCURS 0,
 NAME(40),
 END OF I_INCL.
DATA: BUFFER(1024).
DATA: WINSYS(3).
DATA: GLOBAL_FILEMASK_MASK(20), GLOBAL_FILEMASK_TEXT(20).
DATA: GLOBAL_FILEMASK_ALL(80).
DATA: T_FILENAME(128),
 TMP_FILENAME(128),
 T_MODE(1),
 FIELDLN TYPE I.
DEFINE_TABLE I_DYNPFIELDS DYNPREAD 0. "dynpro fields to be updated
DATA: I_FLDS LIKE HELP_VALUE OCCURS 0 WITH HEADER LINE.
FIELD-SYMBOLS: <F>.
/ Parameters */
SELECTION-SCREEN BEGIN OF BLOCK A1 WITH FRAME TITLE TEXT-001.
SELECTION-SCREEN SKIP 1.
SELECT-OPTIONS REPID FOR TRDIR-NAME OBLIGATORY .
PARAMETERS:
 FUNCTION(1) TYPE C OBLIGATORY, "Function
 DSNAME(40) TYPE C, "Data set name
 INCLUDES(1) TYPE C DEFAULT 'N', "Resolve Includes
 IMASK(40) TYPE C, "Include Mask
 CLASS LIKE TRDIR-CLAS,
 AUTHOR LIKE TRDIR-CNAM, "Author
 APPL LIKE TRDIR-APPL,
 PATH(88) TYPE C DEFAULT 'A:\',
 REL3(1) TYPE C.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(70) TEXT-004.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(70) TEXT-005.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(70) TEXT-002.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(70) TEXT-003.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK A1.
/ Check users workstation is running WINDOWS, */
/ WINDOWS 95, or WINDOWS NT. OS/2 no good for */
/ this application. */
CALL FUNCTION 'WS_QUERY'
 EXPORTING
 QUERY = 'WS'
 IMPORTING
 RETURN = WINSYS.
IF WINSYS(2) NE 'WN'. "Win 3.X no good either
WRITE: / 'Windows NT or Windows 95/98 is required'.
EXIT.
ENDIF.
/ Get names of programs to be handled. */
/ Name can be a single value, many values or ranges */
/ as per standard SELECT-OPTIONS on selection screen */
/ On Download read TRDIR and store program names in a table */
/ as per selection options. */
/ On upload read the specified directory for all files of */
/ type .EEE from specified directory */
/ compare file names with selection criteria */
MOVE FUNCTION TO FUNC.
MOVE 'Y' TO MAIN.
CASE FUNC.
WHEN 'U'. "Upload required
 PERFORM READ_DOS_DIRECTORY.
 PERFORM GET_RANGE_UL. "Get list of progs to process
WHEN 'D'. "Download required
 PERFORM GET_RANGE_DL. "Get list of progs to process
WHEN OTHERS.
 WRITE: / 'Function not performed due to user request'.
 EXIT.
ENDCASE.
SORT I_PROG.
DELETE ADJACENT DUPLICATES FROM I_PROG.
For download INCLUDE handling can be resolved via function
module call.
All Includes within Includes are also resolved by the function
module call.
Note that this method does not work if program itself is of type
I (it's an include)
In this case we can still search the source.
IF FUNC = 'D'.
IF INCLUDES = 'Y'.
 PERFORM GET_INCLUDES_DL.
 PERFORM PROCESS_INCLUDES_DL.
ENDIF.
ENDIF.
Program list from selection criteria i.e excluding INCLUDES found
LOOP AT I_PROG.
MOVE I_PROG-NAME TO R1-NAME.
APPEND R1.
DESCRIBE TABLE R1 LINES I.
WHILE I NE 0.
 PERFORM EXECUTE-FUNCTION.
ENDWHILE.
REFRESH R1.
ENDLOOP.
We need to check now for INCLUDES on DOWNLOAD when the INCLUDE
program itself is of type I. In this case the function call
will not return the INCLUDES. For example we could be
downloading ZTESTTOP (an Include itself) which as an include
ZTEST01.
The process fortunately is the same as the UPLOAD function
except of course we need to read the library instead of the
DOS directory
process INCLUDE modules for Upload
On upload the procedure is more complex as Includes within
Includes can only be resolved by scanning the code and
searching if the program exists in the directory.
To get all INCLUDES within INCLUDES entries in table I_INCL
that do not exist in I_INCLUDE are copied to table I_INCLUDE
after each entire pass of table i_INCLUDE and table is then
re-looped through. Programs in table I_INCLUDE that have already
been processed have a "Y" indicator set in I_INCLUDE-AVAIL.
if func = 'U'.
IF INCLUDES = 'Y'.
DESCRIBE TABLE I_INCL LINES I.
IF I > 0.
 W_ITERATE = 'Y'.
ELSE.
 W_ITERATE = ' '.
ENDIF.
WHILE W_ITERATE = 'Y'.
 PERFORM PROCESS_INCLUDES_UL.
 PERFORM LOOP_THROUGH.
 DESCRIBE TABLE I_INCL LINES I.
 IF I > 0.
 W_ITERATE = 'Y'.
 ELSE.
 W_ITERATE = ' '.
 ENDIF.
ENDWHILE.
endif.
ENDIF.
DESCRIBE TABLE I_INCLUDE LINES I.
IF I > 0.
SKIP 1.
WRITE: / ' Included Programs found'.
SKIP 1.
LOOP AT I_INCLUDE.
 WRITE I_INCLUDE-NAME TO LINE(40).
 CONDENSE LINE.
 WRITE: / LINE(80).
ENDLOOP.
ENDIF.
/ Table R contains ABAP names to up / download. */
/ Loop through table R and perform up / download */
/ for each program. */
/ Table R1 contains INCLUDE names found (if any) */
/ As each */
FORM EXECUTE-FUNCTION.
LOOP AT R1.
 MOVE-CORRESPONDING R1 TO R.
 APPEND R.
ENDLOOP.
REFRESH R1.
LOOP AT R.
 REFRESH : T, E1, H1, F1, S, U.
 PERFORM PROCESS.
 MOVE 'N' TO MAIN.
ENDLOOP.
REFRESH R.
DESCRIBE TABLE R1 LINES I.
ENDFORM.
/ Build file names for UP/DOWNLOAD */
/ 3 files are generated per ABAP. */
/ 1) ABAP Path\PROGNAME.EEE (ABAP, Attr,Texts) */
/ Logic Path\PROGNAME.EEE (Dynpro Source Logic) */
/ CUA Path\PROGNAME.EEE (CUA components - keys etc) */
/ 2) Header Path\PROGNAME.HHH (Dynpro Header) */
/ 3) Fields Path\PROGNAME.FFF (Dynpro Field definitions )*/
/ ( If alternate file name specified -DSNAME- this will */
/ be used instead. This is only valid for the main program. */
/ INCLUDED programs will have file names as specified */
/ above). */
/ By using this scheme it saves the user from having to */
/ be prompted for 3 file names. */
/ If you want multiple copies / versions on disk either */
/ rename the old versions or specify a different directory in */
/ the path parameter. */
FORM PROCESS.
MOVE PATH TO FN1.
CASE MAIN.
 WHEN 'Y'.
 IF DSNAME NE SPACE.
 WRITE DSNAME TO FN1+66. "rel 4
 ELSE.
 WRITE R-NAME TO FN1+66. "rel 4
 ENDIF.
 WHEN OTHERS.
 WRITE R-NAME TO FN1+66. "rel 4
ENDCASE.
MOVE FN1 TO FN2.
MOVE FN1 TO FN3.
WRITE '.HHH' TO FN1+124(4). "rel 4
WRITE '.FFF' TO FN2+124(4). "rel 4
WRITE '.EEE' TO FN3+124(4). "rel 4
CONDENSE FN1 NO-GAPS.
CONDENSE FN2 NO-GAPS.
CONDENSE FN3 NO-GAPS.
NAME = R-NAME.
CASE FUNC.
 WHEN 'D'.
 PERFORM DOWNLOAD_OBJECTS.
 CLEAR LINE.
 WRITE : 'ABAP : ' TO LINE.
 WRITE R-NAME TO LINE+8.
 WRITE 'has been unloaded' TO LINE+55.
 CONDENSE LINE.
 WRITE: / LINE.
 DESCRIBE TABLE T LINES I.
 IF I = 0.
 WRITE: / 'No Dynpros were found for unload function'.
 ELSE.
 WRITE: / 'The following Dynpros have been unloaded : '.
 PERFORM LOOP_THROUGH_T.
 ENDIF.
 WHEN 'U'.
 PERFORM UPLOAD_OBJECTS.
 DESCRIBE TABLE T LINES I.
 CASE I.
 WHEN 0.
 WRITE: / 'No Dynpros were found for restore function'.
 WHEN OTHERS.
 WRITE: / 'The following Dynpros have been restored : '.
 PERFORM LOOP_THROUGH_T.
 ENDCASE.
 IF MAIN EQ 'Y'.
 CASE OLDNAME.
 WHEN SPACE.
 CLEAR LINE.
 WRITE : 'ABAP : ' TO LINE.
 WRITE R-NAME TO LINE+8.
 WRITE 'has been restored' TO LINE+55.
 CONDENSE LINE.
 WRITE: / LINE.
 WHEN OTHERS.
 CLEAR LINE.
 WRITE : 'ABAP : ' TO LINE.
 WRITE R-NAME TO LINE+8.
 WRITE 'has been restored - original name :'
 TO LINE+55.
 WRITE OLDNAME TO LINE+92.
 CONDENSE LINE.
 WRITE: / LINE.
 ENDCASE.
 ELSE.
 CLEAR LINE.
 WRITE : 'ABAP : ' TO LINE.
 WRITE R-NAME TO LINE+8.
 WRITE 'has been restored' TO LINE+55.
 CONDENSE LINE.
 WRITE: / LINE.
 ENDIF.
ENDCASE.
ENDFORM.
/ print progname + dynpro nrs that have been processed. */
FORM LOOP_THROUGH_T.
LOOP AT T.
 CLEAR LINE.
 WRITE R-NAME TO LINE.
 WRITE T-NUMBER TO LINE+50.
 CONDENSE LINE.
 WRITE: / LINE.
ENDLOOP.
ENDFORM.
/ Download Objects */
FORM DOWNLOAD_OBJECTS.
PERFORM UNLOAD_ABAP. "ABAP source, texts, attr
SELECT SINGLE * FROM TRDIR
 WHERE NAME EQ R-NAME.
IF TRDIR-SUBC = 'I'.
 CASE INCLUDES. "Included file wanted
 WHEN 'Y'.
 PERFORM SCAN4-INCLUDES.
 ENDCASE.
ENDIF.
PERFORM UNLOAD_CUA. "CUA stuff
PERFORM DOWNLOAD_DATA. "Download EEE file to PC
PERFORM BUILD_T. "Build table of all dynpros in ABAP
DESCRIBE TABLE T LINES I.
CASE I.
 WHEN 0. "if no dynpros exist then cannot download any
 PERFORM DOWNLOAD_DATA. "Download EEE file to PC
 WHEN OTHERS.
 PERFORM UNLOAD_DYNPROS. "Get Raw dynpros from SAP
 PERFORM UNLOAD_DYNPRO_COMPONENTS."Convert to table
 PERFORM DOWNLOAD_DATA. "Download ABAP etc. to PC
 PERFORM DOWNLOAD_BIN_H1. "Download dynpro header
 PERFORM DOWNLOAD_BIN_F1. "Download dynpro fields
ENDCASE.
ENDFORM.
/ Split ABAP up into its component parts */
/ A) Program source (72) */
/ B) Texts (132) */
/ C) Attributes (117) */
/ D) CUA stuff (Various) */
FORM UNLOAD_ABAP.
/ Get ABAP language. Only required on download. */
SELECT SINGLE * FROM TRDIR
 WHERE NAME EQ R-NAME.
MOVE TRDIR-RLOAD TO R-LANGUAGE.
READ REPORT R-NAME INTO S. "Get source into table S
MOVE '????SRCE' TO S-TXT.
INSERT S INDEX 1.
/ Text elements, Numbered texts, headings, selection texts */
/ Read text elements with logon language. If they don't */
/ exist read with the value taken from TRDIR. */
READ TEXTPOOL R-NAME INTO U LANGUAGE SY-LANGU.
IF SY-SUBRC NE 0.
 READ TEXTPOOL R-NAME INTO U LANGUAGE R-LANGUAGE.
ENDIF.
DESCRIBE TABLE U LINES I.
CASE I.
 WHEN 0.
 WHEN OTHERS.
 MOVE '????TEXT' TO S-TXT.
 APPEND S.
 LOOP AT U.
 MOVE U-TXT TO S-TXT.
 APPEND S.
 DELETE U.
 ENDLOOP.
ENDCASE.
/ Retrieve Attributes from TRDIR and add to table S */
/ Change language to logged on language */
MOVE '????ATTR' TO S-TXT.
APPEND S.
SELECT SINGLE * FROM TRDIR
 WHERE NAME EQ R-NAME.
MOVE SY-LANGU TO TRDIR-RLOAD.
MOVE-CORRESPONDING TRDIR TO DIR.
MOVE DIR TO S-TXT.
APPEND S.
ENDFORM.
/ retrieve CUA stuff and append to table S. */
FORM UNLOAD_CUA.
MOVE R-NAME TO EU_KEY-NAME. "Program name for CUA
MOVE 'D' TO EU_KEY-SPRSL. "CUA seems to want D as lang
MOVE R-LANGUAGE TO EU_KEY-SPRSL. "Language "rel 2.2
IMPORT STA FUN MEN MTX ACT BUT PFK SET LAST INC STX DOC "rel 2.2
IMPORT STA STX FUN MEN MTX ACT BUT PFK SET LAST INC DOC "rel 3.0
 ATT FDN MDN SYM FIN "rel 3.0
 FROM DATABASE EUDB(CU) ID EU_KEY.
IF SY-SUBRC NE 0. "No statuses
 EXIT.
ENDIF.
read titles in logged on language. If not present use
language from TRDIR.
CASE REL3.
 WHEN SPACE. "(rel 4)
 SELECT * FROM RSMPTEXTS WHERE PROGNAME EQ R-NAME
 AND SPRSL = SY-LANGU.
 MOVE-CORRESPONDING RSMPTEXTS TO FTX.
 APPEND FTX.
 ENDSELECT.
 IF SY-SUBRC NE 0.
 SELECT * FROM RSMPTEXTS WHERE PROGNAME EQ R-NAME
 AND SPRSL = R-LANGUAGE.
 MOVE-CORRESPONDING RSMPTEXTS TO FTX.
 APPEND FTX.
 ENDSELECT.
 ENDIF.
 DESCRIBE TABLE FTX LINES I.
 IF I > 0.
 MOVE '????FTXT' TO S-TXT.
 APPEND S.
 LOOP AT FTX.
 MOVE FTX TO S-TXT.
 APPEND S.
 ENDLOOP.
 ENDIF.
 WHEN OTHERS.
 SELECT * FROM TITLE WHERE PROGNAME EQ R-NAME
 AND DDLANGUAGE EQ SY-LANGU.
 MOVE-CORRESPONDING TITLE TO TIT.
 APPEND TIT.
 ENDSELECT.
 IF SY-SUBRC NE 0.
 SELECT * FROM TITLE WHERE PROGNAME EQ R-NAME
 AND DDLANGUAGE EQ R-LANGUAGE.
 MOVE-CORRESPONDING TITLE TO TIT.
 APPEND TIT.
 ENDSELECT.
 ENDIF.
ENDCASE.
DESCRIBE TABLE STA LINES I.
IF I > 0.
 MOVE '????STAT' TO S-TXT.
 APPEND S.
 LOOP AT STA.
 MOVE STA TO S-TXT.
 APPEND S.
 ENDLOOP.
ENDIF.
DESCRIBE TABLE FUN LINES I.
IF I > 0.
 MOVE '????FUNC' TO S-TXT.
 APPEND S.
 LOOP AT FUN.
 MOVE FUN TO S-TXT.
 APPEND S.
 ENDLOOP.
ENDIF.
DESCRIBE TABLE MEN LINES I.
IF I > 0.
 MOVE '????MEN1' TO S-TXT.
 APPEND S.
 LOOP AT MEN.
 MOVE MEN TO S-TXT.
 APPEND S.
 ENDLOOP.
ENDIF.
DESCRIBE TABLE MTX LINES I.
IF I > 0.
 MOVE '????MTX1' TO S-TXT.
 APPEND S.
 LOOP AT MTX.
 MOVE MTX TO S-TXT.
 APPEND S.
 ENDLOOP.
ENDIF.
DESCRIBE TABLE ACT LINES I.
IF I > 0.
 MOVE '????ACTN' TO S-TXT.
 APPEND S.
 LOOP AT ACT.
 MOVE ACT TO S-TXT.
 APPEND S.
 ENDLOOP.
ENDIF.
DESCRIBE TABLE BUT LINES I.
IF I > 0.
 MOVE '????BUTN' TO S-TXT.
 APPEND S.
 LOOP AT BUT.
 MOVE BUT TO S-TXT.
 APPEND S.
 ENDLOOP.
ENDIF.
DESCRIBE TABLE PFK LINES I.
IF I > 0.
 MOVE '????PFKY' TO S-TXT.
 APPEND S.
 LOOP AT PFK.
 MOVE PFK TO S-TXT.
 APPEND S.
 ENDLOOP.
ENDIF.
DESCRIBE TABLE SET LINES I.
IF I > 0.
 MOVE '????SETS' TO S-TXT.
 APPEND S.
 LOOP AT SET.
 MOVE SET TO S-TXT.
 APPEND S.
 ENDLOOP.
ENDIF.
IF LAST NE SPACE.
 MOVE '????LIST' TO S-TXT.
 APPEND S.
 MOVE LAST TO S-TXT.
 APPEND S.
ENDIF.
DESCRIBE TABLE INC LINES I.
IF I > 0.
 MOVE '????INCL' TO S-TXT.
 APPEND S.
 LOOP AT INC.
 MOVE INC TO S-TXT.
 APPEND S.
 ENDLOOP.
ENDIF.
DESCRIBE TABLE STX LINES I.
IF I > 0.
 MOVE '????STXT' TO S-TXT.
 APPEND S.
 LOOP AT STX.
 MOVE STX TO S-TXT.
 APPEND S.
 ENDLOOP.
ENDIF.
DESCRIBE TABLE DOC LINES I.
IF I > 0.
 MOVE '????DOCN' TO S-TXT.
 APPEND S.
 LOOP AT DOC.
 MOVE DOC TO S-TXT.
 APPEND S.
 ENDLOOP.
ENDIF.
DESCRIBE TABLE TIT LINES I.
IF I > 0.
 MOVE '????TITL' TO S-TXT.
 APPEND S.
 LOOP AT TIT.
 MOVE TIT TO S-TXT.
 APPEND S.
 ENDLOOP.
ENDIF.
Next 5 tables are rel 3.0 specific (ATT, FDN, MDN, SYM, FIN)
DESCRIBE TABLE ATT LINES I.
IF I > 0.
 MOVE '????VATT' TO S-TXT.
 APPEND S.
 LOOP AT ATT.
 MOVE ATT TO S-TXT.
 APPEND S.
 ENDLOOP.
ENDIF.
DESCRIBE TABLE FDN LINES I.
IF I > 0.
 MOVE '????VFDN' TO S-TXT.
 APPEND S.
 LOOP AT FDN.
 MOVE FDN TO S-TXT.
 APPEND S.
 ENDLOOP.
ENDIF.
DESCRIBE TABLE MDN LINES I.
IF I > 0.
 MOVE '????VMDN' TO S-TXT.
 APPEND S.
 LOOP AT MDN.
 MOVE MDN TO S-TXT.
 APPEND S.
 ENDLOOP.
ENDIF.
DESCRIBE TABLE SYM LINES I.
IF I > 0.
 MOVE '????VSYM' TO S-TXT.
 APPEND S.
 LOOP AT SYM.
 MOVE SYM TO S-TXT.
 APPEND S.
 ENDLOOP.
ENDIF.
DESCRIBE TABLE FIN LINES I.
IF I > 0.
 MOVE '????VFIN' TO S-TXT.
 APPEND S.
 LOOP AT FIN.
 MOVE FIN TO S-TXT.
 APPEND S.
 ENDLOOP.
ENDIF.
ENDFORM.
/

Download ABAP Objects to a local directory

Hi! Just want to ask if there's someone who knows any program that can download a copy of ABAP Objects to a local directory? Thanks a lot!!!

Hi Jason.
Find the Below code to download ABAP Source code to your local directory . Before downloading just create " :\source " directory.
Hope this info Helps YOU.
Reward Points If It Helps YOU.
Regards,
Raghav
[code]*
Download and Upload your ABAP program from/to your local harddisk.
Allows individual or mass transfering of ABAP program.
Before using, create a folder c:\Source
REPORT ZDOWN_UP_LOAD
 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:\Source\'.
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-LINE = MTAB_PROGRAM_TEXTS-ENTRY .
 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 serve
 OPEN DATASET F_FILENAME FOR OUTPUT IN TEXT MODE encoding default.
 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 encoding default.
 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-key = FTAB_PROGRAM_FILE-line.
 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
*TEXPZKBPROGS
IDIR File Download Options (File Selection)
IFIL File Options
IFNA Enter filename below (under File Options)
IH01 Prog Name
IH03 Program Description
ISNG Upload a single file
IUDL Upload to SAP/Download from SAP
IUPL 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
*HEADZKBPROGS
DOKU ZHRBDC54
*DOKLZKBPROGS
*--- End of Program[/code]

HT204370 My computer says "the disk Im trying to save to is full", which Im assuming is my computer. So, I tried to redeem a movie on my ipad, however, the movie code has already been redeemed so I cant redeem it again. How can I get the movie saved to

I just redeemed a movie through iTunes, however, my computer says "the disk I'm trying to save to is full", which I'm assuming means my computer is full. I tried to go on my iPad and just redeem the movie through that, but now it says the code has been redeemed, so I cant redeem it again. How can I put this movie on my iPad or iCloud?

Hello johnciti123,
Thank you for ordering a PlayStation Network currency card from Best Buy's eBay store. I am sorry to hear of the trouble you have had with it when you recently attempted to use it.
While I recognize this may not be what you were hoping to hear, I regret to inform you that Best Buy is unable to support currency cards after they have been sold. After we activate the cards for use we have no way to verify if or when they ever are, as this information is only available to the company for which the currency card is sold. In this case that is Sony and PSN. If there was anything that could be done, it would need to be from Sony. In this case it sounds like they are likewise taking the stance that they cannot verify who was authorized to use the code so they do not provide support either.
I am sorry there is not something else we can do. Please let us know if you have any additional questions in the future.
Sincerely,
Mike|Social Media Specialist | Best Buy® Corporate
Private Message

Whats the difference between ABAP stack, ABAP+Java stack and Java stack

Hello,
I have a nagging doubt about the difference between the ABAP stack, ABAP+Java stack & the Java only stack. I believe that the method of applying the kernel for all the 3 types is different.
Also can we apply the ABAP support packs through JSPM.
Please put some light on this.
Thank you

Hi Zaheer
ABAP Stack
AS ABAP is used to provide the ABAP foundation of SAP NetWeaver.
Part of AS ABAP is the Search Engine Service (SES), which enables users to search for
business objects using Search and Classification (TREX). SES accesses Search and
Classification (TREX) functions through the Search and Classification (TREX) ABAP
client. SES replicates the business objects from the ABAP application to Search and
Classification (TREX), so that it can apply Search and Classification (TREX) search
functions to them. When a user enters a search query, the Search and Classification
(TREX) system responds to it, not the database for the ABAP application. For more
information, see the document Installation Guide SAP NetWeaver TREX Single Hosts /
Multiple Host.
Java stack
AS Java is used to provide the Java foundation of SAP NetWeaver. Among the key
capabilities of AS Java are:
J2EE Engine a J2EE 1.3-compliant application server for running enterprise
applications. In addition to the pure J2EE standard technologies, the J2EE
Engine implements complementary technologies, such as Web Dynpro or Web
Services, that are targeted at supporting large-scale, real-business application
development projects.
SAP Composite Application Framework Core (CAF Core) is a service-oriented
architecture for building and deploying composite applications. It enables
modeling of different service types entity services that represent a domain
model, application services that implement business logic, and external
services that offer connectivity to back-end services by means of remote
function calls (RFCs) or Web services. Usage type AS Java comprises the CAF
Core runtime environment, while design time tools are part of the SAP
NetWeaver Developer Studio.
Web Dynpro is the user interface technology for developing professional
business applications for mobile as well as for desktop clients. Web Dynpro
applications can easily be integrated into SAP NetWeaver Enterprise Portal,
providing a unified layout for the end user as well as enhanced navigation
support. Web Dynpro also allows, for example, the development of interactive
forms using the Adobe document services.
Adobe document services is a set of runtime services that provide a range of
form and document creation and manipulation functions such as:
Converting XML form templates (created using Adobe LiveCycle Designer)
to PDF and various print formats
Setting Adobe Reader rights to enable users to fill in and annotate forms,
save and print them locally, and include digital signatures for authentication
using the free Adobe Reader software
Extracting data from SAP applications into Interactive Forms and transferring form data
back into SAP applications using XML
ABAP + Java Stack
Contains both functionalities.
I hope this helps
Regards
Chen

ABAP Dump is encountered when doing the negative subsequent adjustment

Hi Experts !!!
An ABAP Dump is encountered when doing the negative subsequent adjustment (posting a 102 movt type) on a Purchase Order via the Z function module. The dump only happens if the scenario satisfies the following conditions:
1.Material is either (but may not be limited to) 3000000234, 4000000121, 3000000210 (These are the only reported materials)
2.Order unit in Purchase Order is in MT
3.At 2nd weigh, Net Weight is less than PO Order Qty.
Note: No error occurs if same process is done via MIGO.
Initial Analysis:
An exception/error occurs when calling function u201CMB_CREATE_MATERIAL_DOCUMENT_UTu201D .
Please see below error anlysis report from after executin Zfunction module code.
Error analysis
   Short text of error message:
   Material 3000000234 / US01 Column 0001: MSEG-BPMNG not in quantity table
   /not consistent
   Long text of error message:
    Diagnosis
        Before the system posts a material document for an HPM/TDP material
        (MARA-CMETH = 1 or 2), it performs the following consistency
        checks:
        o   For each unit of measure in the Unit of Measure Group
            (MARC-UOMGR), a line item has to be present in the additional
            quantity appendix table (Table MSEGO2)
        o   For each unit of measure in the main core table MSEG that is
            not initial a line item, has to be present in the additional
            quantity appendix table (Table MSEGO2) and the corresponding
            packed format quantities have to be identical.
            This way, inconsistent stock level updates can be prevented.
    System Response
        The system stops processing.
    Procedure
        If the error is reproducible, contact your system administrator.
    Procedure for System Administration
        The inconsitency can have several reasons, for example:
        o   Incorrect postings from external systems using function module
            MB_CREATE_GOODS_MOVEMENT
        o   Handling errors
        o   Application programming errors
   Technical information about the message:
Message class....... "O3"
Number.............. 359
Variable 1.......... 3000000234
Variable 2.......... "US01"
Variable 3.......... 0001
Variable 4.......... "BPMNG"
Please let me know,if you want some other details.

Problem Issolved

Runtime error:ABAP program lines are longer than the internal table

Hi all,
Below is the code I have written,when Iam running it Iam getting
'ABAP program lines are longer than the internal table' runtime error.How can I resolve it.
REPORT ZTEST1 NO STANDARD PAGE HEADING LINE-SIZE 255.
TABLES:MARC,CDHDR,CDPOS.
TYPE-POOLS:SLIS.
DATA:HEADER TYPE SLIS_T_FIELDCAT_ALV,
 WA TYPE SLIS_FIELDCAT_ALV,
 LAYOUT TYPE SLIS_LAYOUT_ALV.
TYPES:BEGIN OF MARC_TY,
 MATNR LIKE MARC-MATNR,
 WERKS LIKE MARC-WERKS,
 EKGRP LIKE MARC-EKGRP,
 MINBE LIKE MARC-MINBE,
 EISBE LIKE MARC-EISBE,
 MABST LIKE MARC-MABST,
 END OF MARC_TY.
TYPES:BEGIN OF MATNR1_TY,
 MATNR1 LIKE CDHDR-OBJECTID,
 END OF MATNR1_TY.
TYPES:BEGIN OF CDHDR_TY,
 OBJECTCLAS LIKE CDHDR-OBJECTCLAS,
 OBJECTID LIKE CDHDR-OBJECTID,
 CHANGENR LIKE CDHDR-CHANGENR,
 USERNAME LIKE CDHDR-USERNAME,
 UDATE LIKE CDHDR-UDATE,
 END OF CDHDR_TY.
TYPES:BEGIN OF CDPOS_TY,
 OBJECTCLAS LIKE CDPOS-OBJECTCLAS,
 OBJECTID LIKE CDPOS-OBJECTID,
 CHANGENR LIKE CDPOS-CHANGENR,
 TABNAME LIKE CDPOS-TABNAME,
 FNAME LIKE CDPOS-FNAME,
 CHNGIND LIKE CDPOS-CHNGIND,
 VALUE_NEW LIKE CDPOS-VALUE_NEW,
 VALUE_OLD LIKE CDPOS-VALUE_OLD,
 END OF CDPOS_TY.
**************TABLE TYPES********************************************
TYPES: MARC_TAB TYPE TABLE OF MARC_TY,
 MATNR1_TAB TYPE TABLE OF MATNR1_TY,
 CDHDR_TAB TYPE TABLE OF CDHDR_TY,
 CDPOS_TAB TYPE TABLE OF CDPOS_TY.
*******************INTERNAL TABLES************************************
DATA:MARC_ITAB TYPE MARC_TAB,
 MATNR1_ITAB TYPE MATNR1_TAB,
 CDHDR_ITAB TYPE CDHDR_TAB,
 CDPOS_ITAB TYPE CDPOS_TAB.
****************WORK AREAS********************************************
DATA:MARC_WA TYPE MARC_TY,
 MATNR1_WA TYPE MATNR1_TY,
 CDHDR_WA TYPE CDHDR_TY,
 CDPOS_WA TYPE CDPOS_TY.
*******************SELECTION-SCREEN***********************************
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-000.
PARAMETERS:PLANT LIKE MARC-WERKS.
SELECT-OPTIONS:MATERIAL FOR MARC-MATNR.
SELECT-OPTIONS:DATE FOR CDHDR-UDATE.
SELECTION-SCREEN END OF BLOCK B1.
START-OF-SELECTION.
SELECT MATNR
 WERKS
 EKGRP
 MINBE
 EISBE
 MABST
 FROM MARC INTO TABLE MARC_ITAB
 WHERE MATNR IN MATERIAL
 AND WERKS = PLANT.
CHECK MARC_ITAB[] IS NOT INITIAL.
LOOP AT MARC_ITAB INTO MARC_WA.
 MATNR1_WA-MATNR1 = MARC_WA-MATNR.
 APPEND MATNR1_WA TO MATNR1_ITAB.
 CLEAR MATNR1_WA.
ENDLOOP.
CHECK MATNR1_ITAB[] IS NOT INITIAL.
SELECT OBJECTCLAS
 OBJECTID
 CHANGENR
 USERNAME
 UDATE
 FROM CDHDR INTO TABLE CDHDR_ITAB
 FOR ALL ENTRIES IN MATNR1_ITAB
 WHERE OBJECTCLAS = 'MATERIAL'
 AND OBJECTID = MATNR1_ITAB-MATNR1
 AND UDATE IN DATE.
CHECK CDHDR_ITAB[] IS NOT INITIAL.
SORT CDHDR_ITAB[] DESCENDING BY OBJECTID CHANGENR.
DELETE ADJACENT DUPLICATES FROM CDHDR_ITAB[] COMPARING OBJECTID.
SELECT OBJECTCLAS
 OBJECTID
 CHANGENR
 TABNAME
 FNAME
 CHNGIND
 VALUE_NEW
 VALUE_OLD
 FROM CDPOS INTO CORRESPONDING FIELDS OF TABLE CDPOS_ITAB
 FOR ALL ENTRIES IN CDHDR_ITAB
 WHERE OBJECTCLAS = CDHDR_ITAB-OBJECTCLAS
 AND OBJECTID = CDHDR_ITAB-OBJECTID
 AND CHANGENR = CDHDR_ITAB-CHANGENR
 AND TABNAME = 'MARC'
 AND FNAME IN ('MINBE','EISBE','MABST','LVORM')
 AND CHNGIND = 'U'.
CHECK CDPOS_ITAB[] IS NOT INITIAL.
*LOOP AT CDPOS_ITAB INTO CDPOS_WA.
WRITE: / CDPOS_WA-OBJECTCLAS,
 CDPOS_WA-OBJECTID,
 CDPOS_WA-CHANGENR,
 CDPOS_WA-TABNAME,
 CDPOS_WA-FNAME,
 CDPOS_WA-CHNGIND,
 CDPOS_WA-VALUE_NEW,
 CDPOS_WA-VALUE_OLD.
*ENDLOOP.
WA-SELTEXT_L = 'OBJECTCLAS'.
WA-COL_POS = '1'.
WA-FIELDNAME = 'OBJECTCLAS'.
WA-TABNAME = 'CDPOS_ITAB'.
WA-OUTPUTLEN = '15'.
APPEND WA TO HEADER.
CLEAR WA.
WA-SELTEXT_L = 'OBJECTID'.
WA-COL_POS = '2'.
WA-FIELDNAME = 'OBJECTID'.
WA-TABNAME = 'CDPOS_ITAB'.
WA-OUTPUTLEN = '20'.
APPEND WA TO HEADER.
CLEAR WA.
WA-SELTEXT_L = 'CHANGENR'.
WA-COL_POS = '3'.
WA-FIELDNAME = 'CHANGENR'.
WA-TABNAME = 'CDPOS_ITAB'.
WA-OUTPUTLEN = '8'.
APPEND WA TO HEADER.
CLEAR WA.
WA-SELTEXT_L = 'TABNAME'.
WA-COL_POS = '4'.
WA-FIELDNAME = 'TABNAME'.
WA-TABNAME = 'CDPOS_ITAB'.
WA-OUTPUTLEN = '5'.
APPEND WA TO HEADER.
CLEAR WA.
WA-SELTEXT_L = 'FNAME'.
WA-COL_POS = '5'.
WA-FIELDNAME = 'FNAME'.
WA-TABNAME = 'CDPOS_ITAB'.
WA-OUTPUTLEN = '7'.
APPEND WA TO HEADER.
CLEAR WA.
WA-SELTEXT_L = 'CHANGING'.
WA-COL_POS = '6'.
WA-FIELDNAME = 'CHANGING'.
WA-TABNAME = 'CDPOS_ITAB'.
WA-OUTPUTLEN = '1'.
APPEND WA TO HEADER.
CLEAR WA.
WA-SELTEXT_L = 'VALUE_NEW'.
WA-COL_POS = '7'.
WA-FIELDNAME = 'VALUE_NEW'.
WA-TABNAME = 'CDPOS_ITAB'.
WA-OUTPUTLEN = '5'.
APPEND WA TO HEADER.
CLEAR WA.
WA-SELTEXT_L = 'VALUE_OLD'.
WA-COL_POS = '8'.
WA-FIELDNAME = 'VALUE_OLD'.
WA-TABNAME = 'CDPOS_ITAB'.
WA-OUTPUTLEN = '5'.
APPEND WA TO HEADER.
CLEAR WA.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
 I_PROGRAM_NAME = SY-REPID
 I_INTERNAL_TABNAME = 'CDPOS_ITAB'
 I_CLIENT_NEVER_DISPLAY = 'X'
 I_INCLNAME = SY-REPID
CHANGING
 CT_FIELDCAT = HEADER[]
EXCEPTIONS
IF SY-SUBRC <> 0.
ENDIF.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
 I_CALLBACK_PROGRAM = SY-REPID
 IT_FIELDCAT = HEADER[]
TABLES
 T_OUTTAB = CDPOS_ITAB[]
IF SY-SUBRC <> 0.
ENDIF.

Your select querry on MARC is not matching with MARC_TY.
The field in the MARC table and MARC_TY should be same.
and also, when you are making select querry on CDPOS table
with all entries.
When ever you are using all entries select statement, you should check whether the internal table is having value.
you should check
if CDPOS_IT[] is not initial.
SELECT OBJECTCLAS
OBJECTID
CHANGENR
TABNAME
FNAME
CHNGIND
VALUE_NEW
VALUE_OLD
FROM CDPOS INTO CORRESPONDING FIELDS OF TABLE CDPOS_ITAB
FOR ALL ENTRIES IN CDHDR_ITAB
WHERE OBJECTCLAS = CDHDR_ITAB-OBJECTCLAS
AND OBJECTID = CDHDR_ITAB-OBJECTID
AND CHANGENR = CDHDR_ITAB-CHANGENR
AND TABNAME = 'MARC'
AND FNAME IN ('MINBE','EISBE','MABST','LVORM')
AND CHNGIND = 'U'.
endif.
Regards
Madhan D

ABAP Run time error when display the Customs Export declarations

Hi,
I'm receiving ABAP Run time error when display the Customs Exp. Declarations Under SAP Customs Processing -> Customs Processing - Import / Export -> Monitoring.
Error messaging point to Function Module - /SAPSLL/CUHD_LOAD_SELECTION.
While debugging we found that Primary Key of the below structures are not the same
lt_corpar                              type      /sapsll/corpar_t
lt_corpar_ht      type      /sapsll/corpar_k02_ht
Does anyone has the SAP Notes or solution to this issue other than changing the structures manually. I'm not sure about the impact if i change manually
Error message short details
Termination occurred in the ABAP program "/SAPSLL/SAPLCUHD_SELECTION" - in
     "/SAPSLL/CUHD_LOAD_SELECTION".
    The main program was "/SAPSLL/CULO_DISPLAY_CUS_EXP ".
    In the source code you have the termination point in line 144
    of the (Include) program "/SAPSLL/LCUHD_SELECTIONU01".
We are on GTS Release 8.0 and Support Package SAPK-80014INSAPSLL (Support pack level 14).
Regards,
Pradeep Maddi

Hi,
I have implemented SAP Note 1531799, but it hasn't resolved the current issue.
For Our GTS instance, there are 2 Feeder Systems (ECC) attached, but document transfer in one of the system has not been activated. Both having the same partner functions ( We copied the sandbox into 2 different instances for different business Testings and now these 2 instances attached to GTS for testing). These feeder systems have different Logical system names and Logical system groups.
Recently i have implemented SAP Corrections manually for one the issue, Please see below thread for the detail information
Proforma Invoice not transferred to GTS
After implementing the corrections, i have created Pro-forma invoice in ECC system. When i tried to display, i'm facing the ABAP Dump issues.
Error details
Runtime Errors         ITAB_DUPLICATE_KEY
ABAP Program           /SAPSLL/SAPLCUHD_SELECTION
Application Component SLL-LEG
You tried to insert an entry into table "\FUNCTION=/SAPSLL/CUHD_LOAD_SELECTION\DATA=LT_CORPAR_HT". However, updating the unique table key "PRIMARY_KEY" resulted in a duplicate entry. The key concerned may be either the primary key or a secondary key.
Regards,
Pradeep

Store data on local disk from extension panel

Hi,
I'm trying to write an extension to InDesign and I use the following code to store a simple string in the encrypted data store that is available in Air:
      var hostnameBytes:ByteArray = new ByteArray();
      hostnameBytes.writeUTF("http://www.google.com");
      EncryptedLocalStore.setItem("hostname", hostnameBytes);
Then, I use the following code to retrieve the data from storage:
    storedValue = EncryptedLocalStore.getItem("hostname");
    if (storedValue != null)
          serverName = storedValue.readUTFBytes(storedValue.length);
However, the above does not work within the context of the extension. Do we have access to the encrypted data store in the extensions? Is there anything else that I need to do to get this to work?
Thanks,
Bulent

Hi Jey,
Thanks for your prompt replay.
Unfortunately, Iu2019ve tried both your suggestions without success. Smartforms behaves just like in case of GUI_DOWNLOAD. There is no file saved on disk.
Do you have any other idea?
BR,
Baske

ABAP Store ABAP code locally on the disk

Similar Messages

Maybe you are looking for