I wouldn't think that you would not have to CPFMTXA every volume. Only
the CPOWNED volumes need to be CMFMTXA'd.
Anyway, here is an EXEC that I used to initialize a large batch of
DASD when we installed out FLEX-ES system. I'm sure it could be
modified to fit your needs.
/Fran Hensler at Slippery Rock University of Pennsylvania USA for 44 years
[EMAIL PROTECTED] +1.724.738.2153
"Yes, Virginia, there is a Slippery Rock"
--------------------------------------------------------------------------
/** INITDASD EXEC
**
**
** Write a volume label on all dasd NOT attached to SYSTEM or CP OWNED
**
** Author: [EMAIL PROTECTED]
** Date: May 6; 2003
**
**/
i=0
i=i+1;dasd.i="0680 VSESAM"
i=i+1;dasd.i="0681 DOSRES"
i=i+1;dasd.i="0682 SYSWK1"
i=i+1;dasd.i="0683 CUFS90"
i=i+1;dasd.i="0684 STAFF0"
i=i+1;dasd.i="0685 ADVAN5"
i=i+1;dasd.i="0686 NEW686"
i=i+1;dasd.i="0687 ADVAN1"
i=i+1;dasd.i="0688 NEW688"
i=i+1;dasd.i="0689 POWER1"
i=i+1;dasd.i="068A NEW68A"
i=i+1;dasd.i="068B VSE002"
i=i+1;dasd.i="068C VMSYS1"
i=i+1;dasd.i="068D VSE001"
i=i+1;dasd.i="068E 230RES"
i=i+1;dasd.i="068F VSELIB"
i=i+1;dasd.i="0690 STUDNT"
i=i+1;dasd.i="0691 NEW691"
i=i+1;dasd.i="0692 TEMP01"
i=i+1;dasd.i="0693 SRULIB"
i=i+1;dasd.i="0694 CICSUC"
i=i+1;dasd.i="0695 TEMP02"
i=i+1;dasd.i="0696 ZVM001"
i=i+1;dasd.i="0697 ZVM002"
i=i+1;dasd.i="0698 NEW698"
i=i+1;dasd.i="0699 NEW699"
i=i+1;dasd.i="06A0 VSAM90"
i=i+1;dasd.i="06A1 VSAM93"
i=i+1;dasd.i="06A2 VSAM91"
i=i+1;dasd.i="06A3 COPY01"
i=i+1;dasd.i="06A4 VSAM92"
i=i+1;dasd.i="06A5 COPY00"
i=i+1;dasd.i="06A6 PAGER2"
i=i+1;dasd.i="06A7 SPOOL1"
i=i+1;dasd.i="06A8 ADABAS"
i=i+1;dasd.i="06A9 PAGER1"
i=i+1;dasd.i="06AA DBMS01"
i=i+1;dasd.i="06AB 230W01"
i=i+1;dasd.i="06AC STAFF1"
i=i+1;dasd.i="06AD ADVAN4"
i=i+1;dasd.i="06AE ADVAN2"
i=i+1;dasd.i="06AF ADVAN3"
i=i+1;dasd.i="06B0 OSCAR0"
i=i+1;dasd.i="06B1 ADVAN6"
i=i+1;dasd.i="06B2 VM2VSE"
i=i+1;dasd.i="06B3 CNEW01"
i=i+1;dasd.i="06B4 NEW6B4"
i=i+1;dasd.i="06B5 NEW6B5"
i=i+1;dasd.i="06B6 ZVM003"
i=i+1;dasd.i="06B7 ZVM004"
i=i+1;dasd.i="06B8 NEW6B8"
i=i+1;dasd.i="06B9 NEW6B9"
dasd.0=i
Do i = 1 to dasd.0
Parse Var dasd.i cuu volid
'PIPE CP QUERY' cuu '| VAR RESPONSE | CONSOLE'
If Word(response,3) = 'CP' Then Iterate
Call initialize
'CP DETACH' cuu
End i
Exit
initialize:
'CP ATTACH' cuu '*'
If Rc /= 0 Then Return
j=0
j=j+1;init.j=' INIT UNITADDRESS('cuu') -'
j=j+1;init.j=' DEVTYPE(3390) -'
j=j+1;init.j=' NOVERIFY -'
j=j+1;init.j=' NOCONTINUE -'
j=j+1;init.j=' DOSVTOC(0,1,1) -'
j=j+1;init.j=' NOVALIDATE -'
j=j+1;init.j=' VOLID('volid') -'
j=j+1;init.j=' PURGE -'
j=j+1;init.j=' MAP '
init.0=j
'PIPE STEM INIT. | PAD 80 | > INITVM DSF A F 80'
'VMFCLEAR'
Say 'Ready to initialize' cuu 'to' volid 'Press <ENTER> or type HX'
Parse Upper Pull response
If response /= '' Then Exit
Queue 'INITVM DSF A' /* File containing parameters */
Queue 'CONSOLE' /* Output device */
'ICKDSF' /* Do the initialize */
Return
