//***********************************************************@SCPYRT** 
//*                                                                    
//*    Licensed Materials - Property of IBM                            
//*                                                                    
//*    Restricted Materials of IBM                                     
//*                                                                    
//*    5655-C56                                                        
//*                                                                    
//*    (C) Copyright IBM Corp. 2000                                    
//*                                                                    
//***********************************************************@ECPYRT** 
//*                                                                    
//CSLOM    PROC RGN=3000K,SOUT=A,                                      
//             IMSVAR=&IMSVAR,                                         
//             BPECFG=BPECFG00,                                        
//             OMINIT=000,                                             
//           PARM1=(OMNAME=&OMNAME)                                    
//*                                                                    
//OMPROC   EXEC PGM=BPEINI00,REGION=&RGN,  
//  PARM='BPECFG=&BPECFG,BPEINIT=CSLOINI0,OMINIT=&OMINIT,&PARM1'    
//*                                                                 
//STEPLIB  DD  DSN=IMS1110.&IMSVAR..SDFSRESL,DISP=SHR               
//         DD  DSN=SYS1.CSSLIB,DISP=SHR                             
//PROCLIB  DD  DSN=D10.PETDSW4.PROCLIB,DISP=SHR                     
//SYSPRINT DD  SYSOUT=&SOUT                                         
//SYSUDUMP DD  SYSOUT=&SOUT                                         
//*