)ATTR  DEFAULT(%+_)
  _  JUST(ASIS) PAD(' ')
  @  TYPE(OUTPUT) INTENS(HIGH) JUST(ASIS)
  #  TYPE(INPUT) INTENS(HIGH) JUST(ASIS)
  $  TYPE(OUTPUT) INTENS(HIGH) JUST(ASIS)
  -  TYPE(TEXT) INTENS(LOW) SKIP(ON)
  }  AREA(SCRL) EXTEND(ON)
)BODY               /* ISPPLIB( GDOLDASD )
+-------- DASD RECOVERY ASSISTANT -----------------
%OPTION  ===>#ZCMD
@MSGDSN
+ $DEV +IS VOLSER $VOLSER +AND IS AN $SDvty +DEVICE,  STOGRP NAME= $SMSSTAT
   $D1MSG1
+CCA=$CCA1 +DDC=$DDC1  +CACHING= $CAC1 +DASDFW= $DFW1 +OTHER DEVICE DDC= $OCC1
+
+ THE DEVICE SHARES AN HDA WITH $SHRVOL+($sdv+).      STOGRP NAME = $SMSSTATS
   $D2MSG1
+CCA=$CCA2 +DDC= $DDC2  +CACHING= $CAC2 +DASDFW= $DFW2 +OTHER DEVICE DDC= $OCC2
+
+   The JOBS currently allocated to these devices follows:
}J1                                                                            }
}                                                                              }
}                                                                              }
}                                                                              }
}                                                                              }
}                                                                              }
}                                                                              }
}                                                                              }
+   Would you like me to submit the EREP REPORT #E +(Y/N)
+ After responding to the above question, depress ENTER to continue
+  $SCROLL + Enter END to exit
)AREA J1
   $D1JOB1
   $D1JOB2
   $D1JOB3
   $D1JOB4
   $D1JOB5
   $D1JOB6
   $D1JOB7
   $D1JOB8
   $D1JOB9
   $D1JOB10
   $D1JOB11
   $D1JOB12
   $D1JOB13
   $D1JOB14
   $D1JOB15
   $D1JOB16
   $D1JOB17
   $D1JOB18
   $D1JOB19
   $D1JOB20
   $D1JOB21
   $D1JOB22
   $D1JOB23
   $D1JOB24
   $D1JOB25
   $D1JOB26
   $D1JOB27
   $D1JOB28
   $D1JOB29
   $D1JOB30
   $D1JOB31
   $D1JOB32
   $D1JOB33
   $D1JOB34
   $D1JOB35
   $D1JOB36
   $D1JOB37
   $D1JOB38
   $D1JOB39
   $D1JOB40
   $D1JOB41
   $D1JOB42
   $D1JOB43
   $D1JOB44
   $D1JOB45
   $D1JOB46
   $D1JOB47
   $D1JOB48
   $D1JOB49
   $D1JOB50
)INIT
)PROC
IF(.RESP = END)
  &NOGO = 'N'
  goto bypass
VER(&E,NONBLANK,LIST,'Y','N',MSG=RECV010)
BYPASS:
)END
/* 07/07/94 - TRL/GDOL -