//YOURJOB JOB (ZOS),'PPRC QCUERY',
//             CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1)
//*
//*
//* Store PPRC STATUS DATA into a GDG
//* USE ISPF OPT 6 - PPRCSTAT
//* TO VIEW RESULTS
//*
//*
//JS001    EXEC PGM=IKJEFT01,DYNAMNBR=30
//SYSPRINT DD  SYSOUT=*
//SYSTSPRT DD  DSN=Your.DataSet.GDG.CQUERY.ALLDASD(+1),
//             DISP=(NEW,CATLG),UNIT=SYSDA,
//             SPACE=(CYL,(10,2),RLSE),
//             DCB=(LRECL=133,RECFM=FB,BLKSIZE=0)
//SYSTSIN  DD  DISP=SHR,
//             DSN=Your.DataSet.CMDS(CQUERY)
/*
//