//******************************************************************    00010000
//* CQS PROC. THERE IS A SEPARATE MEMBER FOR EACH CQS IN THE PET   *    00011005
//* PLEX. THIS PROC IS FOR CQS8                                    *    00012005
//******************************************************************    00013005
//*  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                                        00110001
//IEFPROC  EXEC PGM=CQSINIT0,                                           00130000
//         REGION=0M,                                                   00140000
//         PARM='BPECFG=&BPECFG,CQSINIT=PE8'                            00150003
//STEPLIB  DD   DISP=SHR,DSN=IMS610.RESLIB                              00160002
//PROCLIB  DD   DISP=SHR,DSN=D10.PETDSW4.PROCLIB                        00170004
//SYSPRINT DD   SYSOUT=H                                                00180000
//SYSUDUMP DD   DUMMY                                                   00190000