Sample JCL for printing the 6701-MRQE diagnostic records

Sample JCL for printing 6701-MRQE records

//LOGPRNT   JOB
//JOBLIB  DD DISP=SHR,DSN=IMS610.RESLIB
//IMSLOG0 EXEC PGM=DFSERA10,REGION=512K
//SYSPRINT  DD SYSOUT=A
//SYSUT1 DD DSN=IMS610.OLDSP0,DISP=SHR
//SYSIN     DD *
CONTROL  CNTL
OPTION   PRINT O=5,V=6701,L=2,C=M,E=DFSERA30
OPTION   PRINT O=9,V=MRQE,L=4,T=C,C=E,E=DFSERA30
END
/*