ABAP程序调用job

1. form sub_bgdjob_process using   i_damiid type char18 
2.                      changing   e_rc     type i. 
3.  
4.   data l_jobname  type tbtcjob-jobname. 
5.   data l_jobcount type tbtcjob-jobcount. 
6.   concatenate 'ZSAP' i_damiid  into l_jobname. 
7.   condense    l_jobname no-gaps. 
8.  
9.   " Create background id 
10.   call function 'JOB_OPEN' 
11.     exporting 
12.       jobname          = l_jobname 
13.       jobclass         = 'A' 
14.     importing 
15.       jobcount         = l_jobcount 
16.     exceptions 
17.       cant_create_job  = 1 
18.       invalid_job_data = 2 
19.       jobname_missing  = 3 
20.       others           = 4. 
21.  
22.   if sy-subrc <> 0. 
23.     e_rc = 1. 
24.   else. 
25.  
26.     data: number           type tbtcjob-jobcount, 
27.           print_parameters type pri_params. 
28.  
29.     " Run background job immediately 
30.     submit z06pmi0001 to sap-spool 
31.     destination   space 
32.     immediately   'X' 
33.     keep in spool space 
34.     without spool dynpro 
35.     user          sy-uname 
36.     via job       l_jobname 
37.     number        l_jobcount 
38.     and return. 
39.  
40.     " Close the background job 
41.     call function 'JOB_CLOSE' 
42.       exporting 
43.         jobcount             = l_jobcount 
44.         jobname              = l_jobname 
45.         strtimmed            = 'X' 
46.       exceptions 
47.         cant_start_immediate = 1 
48.         invalid_startdate    = 2 
49.         jobname_missing      = 3 
50.         job_close_failed     = 4 
51.         job_nosteps          = 5 
52.         job_notex            = 6 
53.         lock_failed          = 7 
54.         others               = 8. 
55.  
56.     if sy-subrc <> 0. 
57.  
58.     endif. 
59.  
60.   endif. 
61.  
62. endform.                    " SUB_BGDJOB_PROCESS