Example

CBDIPPDS    PUSH,DIAG=DIAGDATA,REQ=UIM
     .
     .
     .
CBDIPPDS    POP,DIAG=DIAGDATA,REQ=UIM
     .
     .
     .
DIAGDATA   CBDZDIAG MODNAME=CBDUC255,        *
           CSECT=CBDUC255,COMP=SC1XL,        *
           DESC=='UIM FOR DASD 33UU, 93UU',  *
           MODCAT=UIM