Chicago-Soft
ATTN: TSO Times
One Maple Street
Hanover, NH 03755
(603) 643-4002
information
@tsotimes.com

Discovering DASD Volume Serial Numbers

by Todd Lary

Editor's Note: Some very creative and interesting submissions to the TSO Times are just too long to include in this printed format. Our solution is to post these programs on our TSO web site: http://www.quickref.com. You can download the programs directly from there, saving time for all of us.
The two long programs (a REXX recover CLIST that displays panel GDOLDA01 to get the device address, issues various operator commands to find the volser, etc... and formats the pertinent information and displays it back on the GDOLDA03 panel, and a second DASD recovery assistant that identifies jobs assigned to various devices) accompanying this article by Todd Lary's are perfect examples.
Please let us know how this format works for you.

I wrote the following REXX program to help operators and systems programmers in discovering DASD volume serial numbers and 3990 dual copy status when an error occurs in our DASD environment. It first asks the user to enter the device address of the unit which is reporting the errors, or it might be passed as an argument. It then issues several operator command and IDCAMS reports and formats a screen back which contains information which would be necessary to know to assist with recovery. Information consists of the volume serial number, the device's HDA partner, the duplex status and any jobs which currently have the devices allocated. It will then submit an EREP job, or indicated PDS member, if requested to do so.

Download the "REXX Recovery Program" in text format (REXXREC.TXT)

Download the "DASD Recovery Assistant Program" in text format (DASDREC.TXT)

Fig. 1 DASD Recovery Assistant

)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)
)BODY /* ISPPLIB( GDOLDASD )
+          DASD RECOVERY ASSISTANT (Initial screen)         
%OPTION  ===>#ZCMD
@MSGDSN
+
+  THIS FACILITY IS PROVIDED TO ASSIST IN RECOVERING FROM DASD FAILURES.
+  RECOVERY PROCEDURES ARE BASED ON THE TYPE OF DEVICE WHICH HAS FAILED.
+  EACH HDA FAILURE INVOLVES THE LOSS OF TWO (2) VOLUMES, ONLY ONE OF WHICH
+  MAY BE REPORTING ERRORS. THIS FACILITY WILL DIRECT YOU AS TO WHAT VOLUME
+  SERIAL NUMBER IS EXPERINECING THE ERRORS, AND WHICH IS IT'S HDA PARTNER.
+
+
+ ENTER THE DEVICE ADDRESS OF THE VOLUME EXPERIENCING THE ERRORS
+    #DEV+
+
+

+  $SCROLL + Enter END to exit
)INIT
)PROC
IF(.RESP = END)
  &NOGO = 'N'
BYPASS:
)END
/* 03/07/94 - TRL/GDOL -

Todd Lary, Georgia Department of Labor, Atlanta, Georgia.

home · current articles · archives · forums ·
· subscribe · about us · contact us · links