求助：關(guān)于QUSCRTUS API的使用

ccpcd

正在學(xué)習(xí)API編程，參照例子寫了個(gè)程序，是在QTEMP下生成一個(gè)用戶空間，名稱為SPCNAME，編譯通過，但執(zhí)行無(wú)結(jié)果，源碼和相關(guān)信息如下。
源碼：
D/COPY QSYSINC/QRPGLESRC,QUSGEN                          
D/COPY QSYSINC/QRPGLESRC,QUSEC                           
                                                         
DQUSCRTUS         PR                  EXTPGM('QUSCRTUS')
D SPCNAM                        20A                     
D EXTATR                        10A                     
D SIZ                            4B 0                    
D INTVAL                         1A                     
D PUBAUT                        10A                     
D TXTDSC                        50A                     
D REPLAC                        10A                     
D QUSEC                       8000A   options(*varsize)
                                                      
D INTVAL          S              1A   INZ(X'00')      
                                                      
D START           S              4B 0                  
D LENDTA          S              4B 0                  
D EXTATR          S             10A                    
D PUBAUT          S             10A                    
D TXTDSC          S             50A                    
D REPLAC          S             10A            
D SIZ             S              4B 0 INZ(2000)
D SPCNAM          S             20A            
                                               
/Free                                         
   SPCNAM = 'SPCNAME   QTEMP     ' ;           
   EXTATR = 'QUSCRTUS' ;                       
   PUBAUT = '*ALL    ' ;                       
   REPLAC = '*YES    ' ;                       
                                                
   callp QUSCRTUS(SPCNAM:EXTATR:SIZ:INTVALUBAUT
                  :TXTDSC:REPLACUSEC) ;        
                                                
   *inlr = *on ;                                 
   return ;                                      
                                                
/End-free                                       
編譯后JOB信息：
Ownership of object LSTABC in QTEMP type *MODULE changed.                 
Ownership of object LSTABC in TFXYZLIB type PGM changed.                  
AUT and USRPRF parameter values were ignored.                             
Replaced object LSTABC type *PGM was added to library QRPLOBJ.            
Program LSTABC placed in library TFXYZLIB. 00 highest severity. Created on
  04/07/08 at 23:16:50.                  
執(zhí)行后沒有結(jié)果。
哪位高手能看看是什么問題嗎？