System information

Sharing and maintaining SLES 10 SP2 Linux under z/VM 85
򐂰 “RO2GOLD2 EXEC” on page 94
򐂰 “TST2MNT EXEC” on page 95
򐂰 “SAMPLE PARM-S10 file” on page 96
򐂰 “SLES10S2 EXEC” on page 96
As these files are not supported, all of them start with the following disclaimer:
/*------------------------------------------------------------------
THE PROGRAM IS PROVIDED ON AN "AS IS" BASIS, WITHOUT WARRANTIES OR
CONDITIONS OF ANY KIND, EITHER EXPRESS OR IMPLIED INCLUDING, WITHOUT
LIMITATION, ANY WARRANTIES OR CONDITIONS OF TITLE, NON-INFRINGEMENT,
MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.
NEITHER RECIPIENT NOR ANY CONTRIBUTORS SHALL HAVE ANY LIABILITY FOR
ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
DAMAGES (INCLUDING WITHOUT LIMITATION LOST PROFITS), HOWEVER CAUSED
AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF
THE USE OR DISTRIBUTION OF THE PROGRAM OR THE EXERCISE OF ANY RIGHTS
GRANTED HEREUNDER, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGES
-------------------------------------------------------------------*/
This disclaimer is not shown in each of the following sections.
1.11.1 COPYMDSK EXEC
The COPYMDSK EXEC tries to copy a file with FLASHCOPY. If that fails, it falls back to DDR.
/* COPYMDSK EXEC - copy minidisk w/FLASHCOPY, if it fails, try DDR */
/* Parm 1: vaddr of source minidisk */
/* Parm 2: vaddr of target minidisk */
Address 'COMMAND'
Parse Arg source target .
Say
Say 'Copying minidisk' source 'to' target '...'
'CP FLASHCOPY' source '0 END' target '0 END'
If (rc \= 0) Then Do /* Fallback to DDR */
Say 'FLASHCOPY failed, falling back to DDR ...'
/* Queue up DDR commands */
Queue 'SYSPRINT CONS' /* Don't print to file */
Queue 'PROMPTS OFF' /* Don't ask 'Are you sure?' */
Queue 'IN' source '3390' /* Input minidisk */
Queue 'OUT' target '3390' /* Output minidisk */
Queue 'COPY ALL' /* Copy all contents */
Queue ' ' /* Empty record ends DDR */
'DDR'
retVal = rc
End
Else retVal = rc
Say 'Return value =' retVal
Return retVal
1.11.2 CLONERO EXEC
The CLONERO EXEC clones from the S10GOLD read-only 1xxx disks to a target Linux user ID:
/* Clone read-write Linux from gold ID to target ID */
Address 'COMMAND'
Parse Upper Arg target .
If (target = '') Then Do