求助：关于QUSCRTUS API的使用

ccpcd

正在学习API编程，参照例子写了个程序，是在QTEMP下生成一个用户空间，名称为SPCNAME，编译通过，但执行无结果，源码和相关信息如下。
源码：
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.                  
执行后没有结果。
哪位高手能看看是什么问题吗？