在REXX中如何定义DSNAME?

你好，想用rexx定义一个dsname,格式是FB类型，用RECFM(FB)报错了，请大家帮忙看看要怎么定义？谢谢！ --------------------编程问答-------------------- /* REXX */                                                                      
TRACE R                                                                         
PARSE UPPER ARG DSNAME                                                          
IF DSNAME='' THEN                                                               
  CALL ERROR                                                                    
"ALLOC FI(SYSIN) SPACE(1,1) TRACK LRECL(80) RECFM(F) BLKSIZE(80) REUSE"         
IF SYSDSN(xxxxxxx.JCL.OUTPUT)<>'OK' THEN                                        
"ALLOC FILE(SYSPRINT) DATASET(xxxxxxx.JCL.OUTPUT) RECFM(F,B,A)                  
LRECL(121) BLKSIZE(12947) SPACE(1,1) TRACK REUSE"                               
ELSE                                                                            
"ALLOCATE FILE(SYSPRINT) DATASET(xxxxxxx.JCL.OUTPUT) SHR REUSE"                 
"ALLOCATE FILE(SYSUT3) UNIT(SYSDA) SPACE(1,1) CYLINDERS REU"                    
"ALLOCATE FILE(SYSUT4) UNIT(SYSDA) SPACE(1,1) CYLINDERS REU"                    
"ALLOCATE FILE(COMDS) DATASET("DSNAME") OLD REU"                                
                                                                                
QUEUE "     COPY INDD=COMDS,OUTDD=COMDS"                                        
QUEUE "" /* ADD A NULL LINE TO INDICATE THE END OF THE INFORMATION */           
"EXECIO * DISKW SYSIN (FINIS"                                                   
"TSOEXEC CALL 'SYS1.LINKLIB(IEBCOPY)' 'SIZE=512'"                               
SAY RC                                                                          
"FREE FI(SYSIN,SYSPRINT,SYSUT3,SYSUT4,COMDS)"                                   
EXIT                                                                            
ERROR:                                                                          
SAY AAA                                                                         
"FREE FI(SYSIN,SYSPRINT,SYSUT3,SYSUT4,COMDS)"                                   
--------------------编程问答-------------------- 强,其实和用JCL生成DS差不多,都是调用IEBCOPY,设置DS参数,谢谢maco_wang.

补充：企业软件 ,  其他