System information

Sharing and maintaining SLES 10 SP2 Linux under z/VM 91
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
/*+------------------------------------------------------------------+*/
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
/*+------------------------------------------------------------------+*/
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
1.11.6 PROFILE EXEC
The PROFILE EXEC is a sample logon profile that will be on the Linux user ID’s 191 disk
/* PROFILE EXEC for Linux virtual servers */
Address 'COMMAND'
'CP SET RUN ON'
'CP SET PF11 RETRIEVE FORWARD'
'CP SET PF12 RETRIEVE'
'ACCESS 592 C'
'EXEC SWAPGEN 1B2 131072' /* create a 64M VDISK disk swap space */
'EXEC SWAPGEN 1B3 131072' /* create a 64M VDISK disk swap space */
'PIPE CP QUERY' Userid() '| VAR USER'
Parse Value user With id . dsc .
iplDisk = 1B0 /* /boot/ is 1B0 */
If (dsc = 'DSC') Then /* user is disconnected */