IBM Mainframe Forum

/* rexx */                                                        
 parse arg prm /* i.e. 'DSN1;-TERM UTILITY (AI.AIZ040)' */        
 do n=1 to 99 while prm<>''                                        
   parse var prm line.n';'prm                                      
 end                                                              
 line.0=n-1                                                        
 "execio" line.0 "diskw parm (stem line. finis)"  

//SP       EXEC PGM=IKJEFT1B,                                      
// PARM='%SPLITP &DB2ID;&CMD'                                      
//SYSEXEC  DD DISP=SHR,DSN=SYSA.EXEC                              
//SYSTSPRT DD DUMMY                                                
//SYSTSIN  DD DUMMY                                                
//PARM     DD UNIT=SYSDA,DISP=(,PASS),DSN=&&PARMS,                
//            RECFM=FB,LRECL=80,BLKSIZE=4080,                      
//            SPACE=(TRK,(5,5))                                    
//GO       EXEC PGM=IEBGENER                                      
//SYSPRINT DD SYSOUT=*                                            
//SYSIN    DD DUMMY                                                
//SYSUT1   DD DISP=SHR,DSN=&&PARMS                                
//SYSUT2   DD SYSOUT=*                                            
//*