//******************************************************************    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                         00110000
//S1   EXEC PGM=EQQEVPGM                                                00120000
//EQQMLIB DD DSN=OPC.V8R1M0.SEQQMSG0,DISP=SHR                           00121000
//EQQMLOG DD SYSOUT=A                                                   00122000
//SYSIN   DD  DSN=MCMOLE.SOMIVP.OBJECTS(CQS8ON),DISP=SHR                00123000
//IEFPROC  EXEC PGM=CQSINIT0,                                           00130000
//         REGION=0M,                                                   00140000
//         PARM='BPECFG=&BPECFG,CQSINIT=P88'                            00150000
//STEPLIB  DD   DISP=SHR,DSN=IMS1010.&IMSVAR..SDFSRESL                  00151001
//PROCLIB  DD   DISP=SHR,DSN=D10.PETDSW4.PROCLIB                        00170000
//SYSPRINT DD   SYSOUT=H                                                00180000
//SYSUDUMP DD   DUMMY                                                   00190000
//S3   EXEC PGM=EQQEVPGM,COND=(0,EQ,IEFPROC)                            00200000
//EQQMLIB DD DSN=OPC.V8R1M0.SEQQMSG0,DISP=SHR                           00210000
//EQQMLOG DD SYSOUT=A                                                   00220000
//SYSIN   DD  DSN=MCMOLE.SOMIVP.OBJECTS(CQS8OFF),DISP=SHR               00230000
//*                                                                     00250000