System information

Sharing and maintaining SLES 10 SP2 Linux under z/VM 87
/*+------------------------------------------------------------------+*/
CleanUp: Procedure expose ro_addrs rw_addrs
/*| Detach all disks before exiting |*/
/*| parm 1: Exit code |*/
/*+------------------------------------------------------------------+*/
Parse Arg retVal
Say
Say 'Cleaning up ...'
CP DETACH ro_addrs rw_addrs
Exit retVal
/*+------------------------------------------------------------------+*/
CheckLoggedOff: Procedure
/*| Verify that a user ID is logged off |*/
/*| parm 1: User ID to check |*/
/*+------------------------------------------------------------------+*/
Parse arg virt_machine .
'CP QUERY' virt_machine
Select
When (rc = 0) Then Do /* user ID is logged on or disconnected */
Say "Error:" virt_machine "user ID must be logged off"
Exit 2
End
When (rc = 3) Then Do /* user ID does not exist */
Say "Error:" virt_machine "user ID does not exist"
Exit 3
End
When (rc = 45) Then /* user ID is logged off - this is correct */
Return 0
Otherwise Do /* unexpected */
Say "Error:" virt_machine "user ID must exist and be logged off"
Exit 4
End
End
1.11.3 CLONERW EXEC
The CLONERW EXEC clones from the S10GOLD read-write 21Bx disks to a target Linux user ID:
/* Clone read-write Linux from gold ID to target ID */
Address 'COMMAND'
source = 'S10GOLD'
Parse Upper Arg target .
If (target = '') Then Do
Say 'Target user ID is a required parameter'
Say
Say 'Syntax: CLONERW targetID'
Exit 1
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/W system from' source 'to' target 'y/n'
Parse Upper Pull answer .
If (answer \= 'Y') Then Exit 1