Re: Writing multiple CD volumes for the AS/400?

[Jan Megannon <jmegannon@xxxxxxxxxxxxx>]

Hi there,

Maybe this can help!

Cheers.

Jan.

http://www-1.ibm.com/servers/eserver/iseries/optical/cdrom/lodrunrst.htm

Creating a LODRUN CD for iSeries 400 Objects

                           This example shows the process to create a
LODRUN-capable install image for objects that are not a part of a Licensed
Program. If you are
                           creating a Licensed Program (where the application
is restored using the RSTLICPGM command), see our other example
                           Lodrun Method for Licensed Program

                           Under the covers, the LODRUN command restores and
calls a CL program you provide on the CD-ROM which must be called QINSTAPP and
                           located in library QTEMP. This program can either do
the work for your install, or restore and call other programs that you have
prepared.
                           Objects to be saved in this example:

                                  MYPROD - A Product library containing your
product and the install program QINSTAPP
                                  /PRODDIR - An IFS Product directory
containing several stream file (*STMF) objects: filea, fileb, filec and filed.

                           The Product library and a copy of the install
program QINSTAPP need to be first saved to a tape in order to create the
correct format for the
                           restore. The IFS stream file objects do not. Part 1:
Creating the tape images

                           Initialize the tape:

                           INZTAP DEV(TAP01) NEWVOL(MYVOL) NEWOWNID(NEWOWNER)
CHECK(*NO)

                           Copy your QINSTAPP CL program into the QTEMP Library

                           CPY OBJ('/QSYS.LIB/MYPROD.LIB/QINSTAPP.PGM')
TODIR('/QSYS.LIB/QTEMP.LIB')

                           Change the owner to QSYS.

                           CHGOBJOWN OBJ(QTEMP/QINSTAPP) OBJTYPE(*PGM)
NEWOWN(QSYS)

                           Turn on CD mastering state.
                           To simplify calling the QlpHandleCdState() API (or
calling the QLPCDRST program), we created a command CDRST that calls the API.
Using
                           the command
                           CDRST REQSTATE(1), turn on CD mastering state.

                           Save the objects for the application
                           First save the QINSTAPP program.

                           SAVOBJ OBJ(QINSTAPP) LIB(QTEMP) DEV(TAP01)
ENDOPT(*LEAVE) DTACPR(*NO)

                           Next save the library.

                           SAVLIB LIB(MYLIB) DEV(TAP01) DTACPR(*NO)

                           Turn off CD mastering state
                           Use the same user-defined command explained above.

                           CDRST REQSTATE(0)

                           Part 2: Copy tape files back to iSeries 400 files
Create a physical file to receive the tape files

                           CRTPF FILE(MYTEMP/MYPFILE) RCDLEN(28672) MBR(*NONE)
                                 TEXT('My Product Mastering File')
MAXMBRS(*NOMAX)

                           Copy the files on tape back to the iSeries 400 into
physical file members

                           Get QINSTAPP: (Sequence #1 because we saved it
first)

                           CPYFRMTAP FROMFILE(QTAPE) TOFILE(MYTEMP/MYPFILE)
FROMSEQNBR(1)
                                     TOMBR(QTEMP) FROMDEV(TAP01) FROMREELS(*SL)
FROMRCDLEN(28672)
                                     FROMENDOPT(*LEAVE) MBROPT(*REPLACE)
FROMBLKLEN(28672)

                           Get MYPROD Library:

                           CPYFRMTAP FROMFILE(QTAPE) TOFILE(MYTEMP/MYPFILE)
FROMSEQNBR(2)
                                     TOMBR(MYPROD) FROMDEV(TAP01)
FROMREELS(*SL) FROMRCDLEN(28672)
                                     FROMENDOPT(*LEAVE) MBROPT(*REPLACE)
FROMBLKLEN(28672)

                           Part 3: Transfer the files to a PC
                           You can use either FTP or a mapped network drive
using iSeries 400 Support for Windows Network Neighborhood (AS/400 NetServer)
to
                           transfer the files. Do not use the .MBR extension in
the target file names on the PC.

                           The FTP method: FTP the saved files to the PC in
binary mode so that they become stream files. The following files need to be
transferred in
                           this example:
                           (NOTE: The install program must be QTEMP on the CD)

                           /QSYS.LIB/MYTEMP.LIB/MYPFILE.FILE/QTEMP.MBR
                           /QSYS.LIB/MYTEMP.LIB/MYPFILE.FILE/MYPROD.MBR

                           FTP the IFS product directory stream files:
                           /PRODDIR/filea
                           /PRODDIR/fileb
                           /PRODDIR/filec
                           /PRODDIR/filed

                           The mapped drive method: This will not automatically
convert the files to stream files, so you have to perform these copy commands
before
                           transferring the files.

                           CPYTOSTMF

FROMMBR('QSYS.LIB/MYTEMP.LIB/MYPFILE.FILE/QTEMP.MBR')
                                  TOSTMF('/cdftpsrc/qtemp') STMFOPT(*REPLACE)
                                  CVTDTA(*NONE) ENDLINFMT(*FIXED)

                           CPYTOSTMF

FROMMBR('QSYS.LIB/MYTEMP.LIB/MYPFILE.FILE/MYPROD.MBR')
                                  TOSTMF('/cdftpsrc/myprod') STMFOPT(*REPLACE)
                                  CVTDTA(*NONE) ENDLINFMT(*FIXED)


                           Step 4: Create the CD
                           At this point the files are on the PC so it just a
matter of writing them to the CD using your premastering software, or,
providing the images to a
                           vendor who prepares your CDs.

                           Part 5: Restore from the CD
                           For this example, the library and files would be
restored from the CD device opt01 using the following command:

                           LODRUN DEV(OPT01)


                           More Examples
                           iSeries 400 Optical Storage Home Page