System information

86 Sharing and maintaining SLES 10 SP2 Linux under z/VM
Say 'Target user ID is a required parameter'
Say
Say 'Syntax: CLONERO targetID'
Exit 1
End
/* Kyle Black March 26, 2009 */
/* Grab gold disk variable from file */
SAY 'Setting current Gold Disk Variable ...'
file = 'CURGOLD FILE A'
parse value stream(file,'C','OPEN READ') with ok handle
say stream(handle,'C','QUERY FORMAT')
source = LINEIN(file)
IF source == 'S10GOLD' THEN DO
Say 'USING GOLD DISK 1'
END
IF source == 'S10GOLD2' THEN DO
Say 'USING GOLD DISK 2'
END
Say 'Checking that source and target user IDs are logged off'
Call CheckLoggedOff source
Call CheckLoggedOff target
Say ' '
Say 'Do you want to copy R/O system from' source 'to' target 'y/n'
Parse Upper Pull answer .
If (answer \= 'Y') Then Exit 1
rw_addrs = '01B4 01B5 01B6'
ro_addrs = '21B4 21B5 21B6'
/* link target disks R/W */
Do a = 1 to Words(rw_addrs)
addr = Word(rw_addrs,a)
'CP LINK' target addr addr 'MR'
If (rc \= 0) Then Call CleanUp 100+a
End
/* link source disks R/O */
Do a = 1 to Words(ro_addrs)
addr = Word(ro_addrs,a)
'CP LINK' source addr addr 'RR'
If (rc \= 0) Then Call CleanUp 200+a
End
/* copy disks */
Do a = 1 to Words(ro_addrs)
source_addr = Word(ro_addrs,a)
target_addr = Word(rw_addrs,a)
'EXEC COPYMDSK' source_addr target_addr
If (rc \= 0) Then Call CleanUp 300+a
End
/* cleanup */
Call CleanUp 0