‎2008 Jun 11 11:29 AM
Hi experts,
I need to load a file from the PC to a folder in SAP application server.How can I do this?
Also could you suggest me some materials to gain some knowledge on uploading /downloading files to application server,and browsing within application server.
Regards
Ankit
‎2008 Jun 11 11:31 AM
Use OPEN DATASET, TRANSFER and CLOSE DATASET commands to transfer a file to app server.
Regards,
Kiran Bobbala
‎2008 Jun 11 11:32 AM
See the verbs
OPEN DATASET
READ DATASET
TRANSFER
CLOSE DATASET
These are used to access the application server
‎2008 Jun 11 11:33 AM
Hi ,
There are 2 SAP Transactions where you can up/download files to the Apps server (file system) .
CG3Y = Download
CG3Z = Upload
Regards,
Vishvesh
‎2008 Jun 11 11:34 AM
‎2008 Jun 11 11:34 AM
hi,
first select data from pc to ur internal table using GUI_UPLOAD func module then using dataset statements like OPEN DATASET, READ DATASET,
CLOSE DATASET...... send the data into application server file which is stored in AL11.
reward points if hlpful.
‎2008 Jun 11 11:45 AM
hi,
this program is to fetch file from application server to presentation server
REPORT ZTQ1_EXT_FILE_FRM_APP_SERVER NO STANDARD PAGE HEADING MESSAGE-ID SY.
.
*******************************************************
PROGRAM FETCHES FILE FROM APPLICATION SERVER *
AND DOWNLOAD THE DATA IN TO FILE ON DESK TOP *
DEV : PRASAD. *
*******************************************************
data : begin of gi_sales_p occurs 0,
matnr like mara-matnr," Mterial No.
maktx like makt-maktx," Material Description
vkorg like mvke-vkorg,"Sales Organ.
spart like mara-spart,"Division
vtweg like mvke-vtweg,"Distribution Ch
mtart like mara-mtart,"material type
werks type marc-werks,"Plant
mtvfp type marc-mtvfp,"Checking Group for Availability Check
ladgr type marc-ladgr,"Loading grp
vbamg type marc-vbamg,"Base qty
sernp type marc-sernp,"Serial Number Profile
vrvez type marc-vrvez,"Set up time
vbeaz type marc-vbeaz,"Proc. Time
mfrgr type marc-mfrgr,"Material freight group
xchpf type marc-xchpf,"Batch management requirement indicator
xmcng type marc-xmcng,"Negative stocks allowed in plant
loggr type marc-loggr,"Logistics handling group for workload calcn
fprfm type marc-fprfm,"Distribution profile of material in plant
prctr type marc-prctr,"Profit Center
eprio type marc-eprio,"Stock determination group
stawn type marc-stawn,"Commodity Cd/Import Cd No for Foreign Trade
mtver type marc-mtver,"Export/import material group
casnr type marc-casnr,"CAS No for pharma. prod in foreign trade
gpnum type marc-gpnum,"Prodocom No
herkl type marc-herkl,"Country of Origin
herkr type marc-herkr,"Religion of origin
prenc type marc-prenc,"Exemption certificate
preno type marc-preno,"Exemption certificate No
prend type marc-prend,"Issue date of exemption certificate
itark type marc-itark,"Military goods
mownr type marc-mownr," CAP product list no
mogru type marc-mogru," CAP products group - Foreign trade
meins like mara-meins,"Base Unit of Meas.
matkl like mara-matkl,"Material group
vrkme like mvke-vrkme,"Sales Unit
vavme like mvke-vavme,"Variable Sales Unit Not Allowed
megru like mvke-megru,"Unit of Measure Group
mstav like mara-mstav,"Cross-distribution-chain material status
mstdv like mara-mstdv,"Date from X-distr-chain mat. status is valid
vmsta like mvke-vmsta,"Distribution-chain-specific material status
vmstd like mvke-vmstd,"Date from distr-chain-spec mat status is valid
dwerk like mvke-dwerk,"Delivering Plant (Own or External)
sktof like mvke-sktof,"Cash discount indicator
versg like mvke-versg,"Material statistics group
bonus like mvke-bonus,"Volume rebate group
provg like mvke-provg,"Commission group
pmatn like mvke-pmatn,"Pricing Reference Material
kondm like mvke-kondm,"Material Pricing Group
prodh like mvke-prodh,"Product hierarchy
ktgrm like mvke-ktgrm,"Account assignment group for this material
mtpos like mvke-mtpos,"Item category group from material master
mtpos_mara like mara-mtpos_mara,"General item category group
tatyp like tstl-tatyp, "Tax catgry (sales tax, federal sales tax,)
taxkm(1), "Tax classification
aumng like mvke-aumng,"Minimum order quantity in base unit of measure
lfmng like mvke-lfmng,"Min delivery qty in delivery note processing
scmng like mvke-scmng,"Delivery unit
schme like mvke-schme,"Unit of measure of delivery unit
rdprf like mvke-rdprf,"Rounding Profile
mvgr1 like mvke-mvgr1,"Material group 1
mvgr2 like mvke-mvgr2,"Material group 2
mvgr3 like mvke-mvgr3,"Material group 3
mvgr4 like mvke-mvgr4,"Material group 4
mvgr5 like mvke-mvgr5,"Material group 5
prat1 like mvke-prat1,"ID for product attribute 1
prat2 like mvke-prat2,"ID for product attribute 2
prat3 like mvke-prat3,"ID for product attribute 3
prat4 like mvke-prat4,"ID for product attribute 4
prat5 like mvke-prat5,"ID for product attribute 5
prat6 like mvke-prat6,"ID for product attribute 6
prat7 like mvke-prat7,"ID for product attribute 7
prat8 like mvke-prat8,"ID for product attribute 8
prat9 like mvke-prat9,"ID for product attribute 8
prata like mvke-prata,"ID for product attribute 10
brgew like mara-brgew,"Gross Weight
gewei like mara-gewei,"Weight Unit
nrfhg like mara-nrfhg,"Material qualifies for discount in kind
ntgew like mara-ntgew,"Net Weight
xgchp like mara-xgchp,"Indicator: Approved batch record required
tragr like mara-tragr,"Transportation Group
magrv like mara-magrv,"Material Group: Packaging Materials
spras like makt-spras," Langs maintained
end of gi_sales_p.
DATA : COUNT TYPE I.
SELECTION-SCREEN: BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-110 .
SELECTION-SCREEN: SKIP.
PARAMETER : PFNAME LIKE RLGRAP-FILENAME OBLIGATORY.
PARAMETER : V_FILE LIKE RLGRAP-FILENAME OBLIGATORY.
SELECTION-SCREEN : SKIP.
SELECTION-SCREEN : END OF BLOCK B1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR PFNAME.
PERFORM SEARCH.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR v_file.
PERFORM SEARCH1.
START-OF-SELECTION.
PERFORM FETCH_FROM_APP_INTTABLE.
PERFORM DOWNLOAD.
FORM FETCH_FROM_APP_INTTABLE.
*COUNT = 0.
OPEN DATASET V_FILE FOR INPUT IN BINARY MODE." ENCODING DEFAULT.
IF SY-SUBRC NE 0.
MESSAGE E002(SY) WITH 'Error while opening File'.
EXIT.
ENDIF.
DO.
COUNT = COUNT + 1.
READ DATASET V_FILE INTO GI_SALES_P.
APPEND GI_SALES_P.
CLEAR GI_SALES_P.
*
IF SY-SUBRC NE 0.
EXIT.
ENDIF.
IF COUNT = '9150'.
*
CALL FUNCTION 'PROGRESS_INDICATOR'
EXPORTING
I_TEXT = 'processing'
.
*
*
*
COUNT = 0.
*
ENDIF.
ENDDO.
*--Close the Application server file (Mandatory).
CLOSE DATASET V_FILE.
ENDFORM.
FORM DOWNLOAD.
DATA : PFNAME1 TYPE STRING.
PFNAME1 = PFNAME.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
BIN_FILESIZE =
FILENAME = PFNAME1
FILETYPE = 'DAT'
TABLES
DATA_TAB = GI_SALES_P
FIELDNAMES =
.
IF SY-SUBRC = 0.
MESSAGE I002(SY) WITH 'FILE DOWNLOADED SUCCESFULLY'.
ENDIF.
ENDFORM.
form search.
call function 'KD_GET_FILENAME_ON_F4'
exporting
static = 'X'
changing
file_name = pfname.
endform. "SEARCH
form search1.
call function 'KD_GET_FILENAME_ON_F4'
exporting
static = 'X'
changing
file_name = v_file.
endform. "SEARCH
this is the code to fetch data from app server file to internal table
form fetch_from_appl.
open dataset p_fnam for input in binary mode." ENCODING DEFAULT.
if sy-subrc ne 0.
message e002(sy) with 'Error while opening File'.
exit.
endif.
do.
COUNT = COUNT + 1.
clear st_mara.
read dataset p_fnam into st_mara.
append st_mara to t_mara.
*
if sy-subrc ne 0.
exit.
endif.
enddo.
*--Close the Application server file (Mandatory).
close dataset p_fnam.
endform.
regards
siva