On Fri, 23 May 2008 14:11:40 -0500, Mark L. Wheeler <[EMAIL PROTECTED]> wrote:
>Mark Zelden wrote on 05/23/2008 02:00:25 PM:
>
>
>>
>> BTW, make sure you check out the BPXWH2Z migration tool.
>> You can also run it interactively: TSO %BPXWH2Z
>>
>
>I agree. BPXWH2Z takes care of a lot of things for you, and is very easy to
>use. There have been a number of problems associated with it so make sure
>you pull down all maintenamce against it.
>
>I had one recent situation where pax (used internally for the file copies)
>didn't copy all the files. The underlying problem is fixed by APAR OA09086,
>but not until z/OS 1.8. The circumvention for z/OS 1.7 doesn't work for
>BPXWH2Z (the subject of a PMR I currently have open).
>
>Best regards,
>
So how did you migrate the HFS? Copytree?
The only thing I didn't like about BPXWH2Z was the fact that it wanted to
unmount my source HFS and replace it with the new zFS (unless there was
an option I missed when I did it). I did use it when I converted all my
user HFS files to zFS.
But prior to BPX2H2Z, I rolled my own quick rexx to convert file systems
from HFS to zFS. I've been using zFS for some stuff since z/OS 1.4.
Nothing fancy, but here is the job stream and rexx exec. This let me
stage some of my misc. file systems to go in with IPLs when I used it after
I migrated to z/OS 1.8 from z/OS 1.6. SMFID changed to zzzz in the
example below.
/*JOBPARM S=nnnn
//*-------------------------------------------------------------------
//* Define the zFS
//*-------------------------------------------------------------------
//DEFINE EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//AMSDUMP DD SYSOUT=*
//SYSIN DD *
DEFINE CLUSTER (NAME(SYSO.zzzz.TMP.ZFS) -
STORCLAS(SCHFS) -
LINEAR CYL(200 20) SHAREOPTIONS(2))
/*
//*-------------------------------------------------------------------
//* Format the zFS
//*-------------------------------------------------------------------
//FORMAT EXEC PGM=IOEAGFMT,REGION=0M,COND=(0,NE),
// PARM=('-aggregate SYSO.zzzz.TMP.ZFS -compat')
//SYSPRINT DD SYSOUT=*
//STDOUT DD SYSOUT=*
//STDERR DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//*
//*-------------------------------------------------------------------
//* Mount the zFS at /service
//*-------------------------------------------------------------------
//MOUNT EXEC PGM=IKJEFT1B,COND=(0,NE)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
PROF MSGID WTPMSG
MOUNT FILESYSTEM('SYSO.zzzz.TMP.ZFS') +
MOUNTPOINT('/service') TYPE(ZFS) MODE(RDWR)
//*-------------------------------------------------------------------
//* Copy rexx exec to tmp PDS:
//*-------------------------------------------------------------------
//GENEXEC EXEC PGM=IEBGENER,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//SYSUT2 DD DSN=&&PDS(H2Z),DISP=(NEW,PASS,DELETE),
// UNIT=SYSALLDA,SPACE=(TRK,(1,1,1)),
// DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB)
//SYSIN DD DUMMY
//SYSUT1 DD DATA,DLM=##
/* rexx */
/*=================================*/
fromdir = '/tmp/'
todir = '/service/'
/*=================================*/
call syscalls 'ON'
address syscall 'geteuid'
uidval = retval
say 'Current UID = 'uidval
if uidval <> 0 then do
say 'Attempting to set to UID=0'
address syscall 'setreuid 0 0'
uidval2 = retval
if uidval2 <> 0 then do
say 'Unable to set to UID=0'
exit 12
end
Else say 'New UID = 'uidval2
end
address syscall 'chdir' fromdir
say 'Copying files from' fromdir 'to' todir
call bpxwunix 'pax -rwvCMX -p eW . ' todir
##
//*-------------------------------------------------------------------
//* Copy the HFS to zFS at /service via UID 0 and rexx exec
//*-------------------------------------------------------------------
//COPY EXEC PGM=IKJEFT1B,COND=(0,NE),PARM='%H2Z'
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSEXEC DD DSN=&&PDS,DISP=(OLD,DELETE)
//*-------------------------------------------------------------------
//* Unmount the zFS at /service
//*-------------------------------------------------------------------
//UNMOUNT EXEC PGM=IKJEFT1B,COND=(99,NE)
//*UNMOUNT EXEC PGM=IKJEFT1B,COND=(0,NE)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
PROF MSGID WTPMSG
UNMOUNT FILESYSTEM('SYSO.zzzz.TMP.ZFS') +
IMMEDIATE
--
Mark Zelden
Sr. Software and Systems Architect - z/OS Team Lead
Zurich North America / Farmers Insurance Group - ZFUS G-ITO
mailto:[EMAIL PROTECTED]
z/OS Systems Programming expert at http://expertanswercenter.techtarget.com/
Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
