
Chapter 2. System enhancements 41
OUTBUF Output Line Buffer Loc: 00000000
---- -------- -------- -------- -------- ----------------
Storage unavailable
Example 2-2 shows the sample JCL to extract these DIAG records with DFSERA10 and print
them with exit DFSERA30.
Example 2-2 JCL for printing DIAG records with exit DFSERA30
//P010 EXEC PGM=DFSERA10
//STEPLIB DD DISP=SHR,DSN=IMS12Q.SDFSRESL
//SYSUT1 DD DISP=SHR,DSN=IMS12Q.IMS12A.OLP05
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
CONTROL CNTL
OPTION PRINT O=5,V=6701,L=2,C=M,E=DFSERA30
OPTION PRINT O=9,V=DIAG,L=4,T=C,C=E,E=DFSERA30
END
/*
2.4.6 Considerations for the /DIAGNOSE command
To capture data ...