//* JOBCARD HERE
//*********************************************                                 
//*  DEMO PASSING PARM DATA FROM JCL TO SAS.  *                                 
//*  BY BILL QUALLS, 02-MAY-2005.             *                                 
//*********************************************                                 
//*                                                                             
//   SET GREETING='HELLO SAS'                                                   
//   SET NUMBER=123.45                                                          
//*                                                                             
//*********************************************                                 
//*  GET PARM, PARSE AND PRINT                *                                 
//*********************************************                                 
//STEP010 EXEC SAS,PARM='SYSPARM="&GREETING,&NUMBER"'                           
//SYSIN    DD *                                                                 
OPTIONS LS=80 ;                                                                 
                                                                                
* PARSE PARM ;                                                                  
DATA _NULL_;                                                                    
   COMMA = INDEX("&SYSPARM",',');                                               
   GREETING = SUBSTR("&SYSPARM",1,COMMA-1);                                     
   NUMBER = SUBSTR("&SYSPARM",COMMA+1);                                         
   CALL SYMPUT('GREETING', TRIM(GREETING));                                     
   CALL SYMPUT('NUMBER', TRIM(NUMBER));                                         
   RUN;                                                                         
                                                                                
* SHOW THE PARSED PARM;                                                         
%PUT GREETING=&GREETING, NUMBER=&NUMBER;                                        
//