SUBMIT 的使用方法...

SUBMIT的使用方法...

----原文转自网络

1、最普通的用法

*Codeusedtoexecuteareport
SUBMITZreport.

2、带select-options程序的Submit的用法

*Codeusedtopopulate'select-options'&executereport
DATA:seltabtypetableofrsparams,
seltab_walikelineofseltab.

seltab_wa-selname='PNPPERNR'.
seltab_wa-sign='I'.
seltab_wa-option='EQ'.

*loadeachpersonnelnumberaccessedfromthestructureinto
*parameterstobeusedinthereport
loopatpnppernr.
seltab_wa-low=pnppernr-low.
appendseltab_watoseltab.
endloop.
SUBMITzreportwithselection-tableseltab
viaselection-screen.

3、带parameters程序的Submit的用法

*Codeusedtopopulate'parameters'&executereport

SUBMITzreportwithp_param1='value'

withp_param2='value'.

4、其他情况

*Submitreportandreturntocurrentprogramafterwards

SUBMITzreportANDRETURN.

*Submitreportviaitsownselectionscreen

SUBMITzreportVIASELECTION-SCREEN.

*Submitreportusingselectionscreenvariant

SUBMITzreportUSINGSELECTION-SET'VARIANT1'.

*Submitreportbutexportresultantlisttomemory,ratherthan

*itbeingdisplayedonscreen

SUBMITzreportEXPORTINGLISTTOMEMORY.

*Oncereporthasfinishedandcontrolhasreturnedtocalling

*program,usefunctionmodulesLIST_FROM_MEMORY,WRITE_LISTand

*DISPLAY_LISTtoretrieveanddisplayreport.

*ExampleCode(Retrievinglistfrommemory)

DATABEGINOFitab_listOCCURS0.

INCLUDESTRUCTUREabaplist.

DATAENDOFitab_list.

DATA:BEGINOFvlistOCCURS0,

filler1(01)TYPEc,

field1(06)TYPEc,

filler(08)TYPEc,

field2(10)TYPEc,

filler3(01)TYPEc,

field3(10)TYPEc,

filler4(01)TYPEc,

field4(3)TYPEc,

filler5(02)TYPEc,

field5(15)TYPEc,

filler6(02)TYPEc,

field6(30)TYPEc,

filler7(43)TYPEc,

field7(10)TYPEc,

ENDOFvlist.

SUBMITzreportEXPORTINGLISTTOMEMORY.

CALLFUNCTION'LIST_FROM_MEMORY'

TABLES

listobject=itab_list

EXCEPTIONS

not_found=4

OTHERS=8.

CALLFUNCTION'LIST_TO_ASCI'

EXPORTING

list_index=-1

TABLES

listasci=vlist

listobject=itab_list

EXCEPTIONS

empty_list=1

list_index_invalid=2

OTHERS=3.

IFsy-subrcNE'0'.

WRITE:/'LIST_TO_ASCIerror!!',sy-subrc.

ENDIF.

5、Submit为后台执行

*Submitreportasjob(i.e.inbackground)

data:jobnameliketbtcjob-jobnamevalue

'TRANSFERTRANSLATION'.

data:jobcountliketbtcjob-jobcount,

hostlikemsxxlist-host.

data:beginofstarttime.

includestructuretbtcstrt.

data:endofstarttime.

data:starttimeimmediatelikebtch0000-char1.

*Jobopen

callfunction'JOB_OPEN'

exporting

delanfrep=''

jobgroup=''

jobname=jobname

sdlstrtdt=sy-datum

sdlstrttm=sy-uzeit

importing

jobcount=jobcount

exceptions

cant_create_job=01

invalid_job_data=02

jobname_missing=03.

ifsy-subrcne0.

"errorprocessing

endif.

*Insertprocessintojob

SUBMITzreportandreturn

withp_param1='value'

withp_param2='value'

usersy-uname

viajobjobname

numberjobcount.

ifsy-subrc>0.

"errorprocessing

endif.

*Closejob

starttime-sdlstrtdt=sy-datum+1.

starttime-sdlstrttm='220000'.

callfunction'JOB_CLOSE'

exporting

event_id=starttime-eventid

event_param=starttime-eventparm

event_periodic=starttime-periodic

jobcount=jobcount

jobname=jobname

laststrtdt=starttime-laststrtdt

laststrttm=starttime-laststrttm

prddays=1

prdhours=0

prdmins=0

prdmonths=0

prdweeks=0

sdlstrtdt=starttime-sdlstrtdt

sdlstrttm=starttime-sdlstrttm

strtimmed=starttimeimmediate

targetsystem=host

exceptions

cant_start_immediate=01

invalid_startdate=02

jobname_missing=03

job_close_failed=04

job_nosteps=05

job_notex=06

lock_failed=07

others=99.

ifsy-subrceq0.

"errorprocessing

endif.