//******************************************************************    00010000
//*  PARMS :                                                       *    00020000
//*  BPECFG   - NAME OF BPE MEMBER                                 *    00030000
//*  CQSINIT  - CQSIPXXX SUFFIX                                    *    00040000
//*  PARM1    - OTHER OVERRIDE PARMS                               *    00050000
//*             SSN    - CQS SUBSYSTEM NAME                        *    00060000
//*             STRDEFG- CQSSGXXX SUFFIX                           *    00070000
//*             STRDEFL- CQSSLXXX SUFFIX                           *    00080000
//******************************************************************    00100000
//CQS8       PROC BPECFG=BPEPARM,IMSVAR=&IMSVAR            
//S1   EXEC PGM=EQQEVPGM                                   
//EQQMLIB DD DSN=OPC.V8R1M0.SEQQMSG0,DISP=SHR              
//EQQMLOG DD SYSOUT=A                                      
//SYSIN   DD  DSN=MCMOLE.SOMIVP.OBJECTS(CQS8ON),DISP=SHR   
//IEFPROC  EXEC PGM=CQSINIT0,                              
//         REGION=0M,                                      
//         PARM='BPECFG=&BPECFG,CQSINIT=P88'               
//STEPLIB  DD   DISP=SHR,DSN=IMS1110.&IMSVAR..SDFSRESL     
//PROCLIB  DD   DISP=SHR,DSN=D10.PETDSW4.PROCLIB           
//SYSPRINT DD   SYSOUT=H                                   
//SYSUDUMP DD   DUMMY                                      
//S3   EXEC PGM=EQQEVPGM,COND=(0,EQ,IEFPROC)               
//EQQMLIB DD DSN=OPC.V8R1M0.SEQQMSG0,DISP=SHR              
//EQQMLOG DD SYSOUT=A                                      
//SYSIN   DD  DSN=MCMOLE.SOMIVP.OBJECTS(CQS8OFF),DISP=SHR  
//*