This step provides sample JCL for unloading FOCUS from the tape. The normal distribution media for FOCUS is either two 3480 cartridges or one 3490 or 3590 cartridge. The volume serial number appears on the external tape label.

Insert the actual VOLSER into DD statements I1 through I60 in the IEBCOPY JCL that follows, and modify DD statements O1 through O60 to reflect the actual data set names selected in Allocate Disk Space for FOCUS Libraries.

If your system has TMS (Tape Management System), change the LABEL keywords to LABEL=(n,SL,EXPDT=98000).

The following JCL unloads FOCUS from a single 3490 cartridge. It assumes you will not run, and it does not unload the automated ISETUP installation procedure described in Refreshing or Upgrading FOCUS With ISETUP. To unload FOCUS from two 3480 cartridges, see the file numbers listed in File Numbers on the Distribution Cartridge:

//FOCLOAD EXEC PGM=IEBCOPY
//SYSPRINT DD  SYSOUT=*
//I1    DD  DSN=FOCLIB.LOAD,DISP=(OLD,PASS),UNIT=TAPE,
//        VOL=SER=volid,LABEL=(2,SL)
//I2    DD  DSN=FUSELIB.LOAD,DISP=(OLD,PASS),UNIT=TAPE,
//        VOL=SER=volid,LABEL=(3,SL)
//I3    DD  DSN=ERRORS.DATA,DISP=(OLD,PASS),UNIT=TAPE,
//        VOL=SER=volid,LABEL=(4,SL)
//I4    DD  DSN=FOCCTL.DATA,DISP=(OLD,PASS),UNIT=TAPE,
//        VOL=SER=volid,LABEL=(5,SL)
//I5    DD  DSN=FOCEXEC.DATA,DISP=(OLD,PASS),UNIT=TAPE,
//        VOL=SER=volid,LABEL=(6,SL)
//I6    DD  DSN=MASTER.DATA,DISP=(OLD,PASS),UNIT=TAPE,
//        VOL=SER=volid,LABEL=(7,SL)
//I55   DD  DSN=WINFORMS.DATA,DISP=(OLD,PASS),UNIT=TAPE,
//        VOL=SER=volid,LABEL=(56,SL)
//I60   DD  DSN=FUSELIB.DATA,DISP=(OLD,PASS),UNIT=TAPE,
//        VOL=SER=volid,LABEL=(61,SL)
//I7    DD  DSN=FOCSTYLE.DATA,DISP=(OLD,PASS),UNIT=TAPE,
//        VOL=SER=volid,LABEL=(73,SL)

//O1    DD  DSN=prefix.FOCLIB.LOAD,DISP=OLD
//O2    DD  DSN=prefix.FUSELIB.LOAD,DISP=OLD
//O3    DD  DSN=prefix.ERRORS.DATA,DISP=OLD
//O4    DD  DSN=prefix.FOCCTL.DATA,DISP=OLD
//O5    DD  DSN=prefix.FOCEXEC.DATA,DISP=OLD
//O6    DD  DSN=prefix.MASTER.DATA,DISP=OLD
//O7    DD  DSN=prefix.FOCSTYLE.DATA,DISP=OLD
//O55   DD  DSN=prefix.WINFORMS.DATA,DISP=OLD
//O60   DD  DSN=prefix.FUSELIB.DATA,DISP=OLD
 
//SYSIN DD  *
 COPY   INDD=I1,OUTDD=O1
 COPY   INDD=I2,OUTDD=O2
 COPY   INDD=I3,OUTDD=O3
 COPY   INDD=I4,OUTDD=O4
 COPY   INDD=I5,OUTDD=O5
 COPY   INDD=I6,OUTDD=O6
 COPY   INDD=I7,OUTDD=O7
 COPY   INDD=I55,OUTDD=O55
 COPY   INDD=I60,OUTDD=O60

where:

prefix

Is the high-level qualifier for your FOCUS production data sets.

The following JCL unloads FOCUS from a single 3490 cartridge. It assumes you will not run the automated ISETUP procedure described in Refreshing or Upgrading FOCUS With ISETUP, and it does not unload ISETUP. To unload FOCUS from two 3480 cartridges, see the file numbers listed in File Numbers on the Distribution Cartridge:

//JOBNAME JOB (ACCOUNTING INFOR),'FOCUS BASE LOAD',MSGCLASS=A,
//      REGION=1024K,MSGLEVEL=(1,1)
//***************************************************************
//STEP1 EXEC PGM=IEBCOPY
//***************************************************************
//I1  DD DSN=FOCLIB.LOAD,DISP=(OLD,PASS),UNIT=TAPE,
//     VOL=SER=volid,LABEL=(2,SL)
//I2  DD DSN=FUSELIB.LOAD,DISP=(OLD,PASS),UNIT=TAPE,
//     VOL=SER=volid,LABEL=(3,SL)
//I3  DD DSN=ERRORS.DATA,DISP=(OLD,PASS),UNIT=TAPE,
//     VOL=SER=volid,LABEL=(4,SL)
//I4  DD DSN=FOCCTL.DATA,DISP=(OLD,PASS),UNIT=TAPE,
//     VOL=SER=volid,LABEL=(5,SL)
//I5  DD DSN=FOCEXEC.DATA,DISP=(OLD,PASS),UNIT=TAPE,
//     VOL=SER=volid,LABEL=(6,SL)
//I6  DD DSN=MASTER.DATA,DISP=(OLD,PASS),UNIT=TAPE,
//     VOL=SER=volid,LABEL=(7,SL)
//I55  DD DSN=WINFORMS.DATA,DISP=(OLD,PASS),UNIT=TAPE,
//     VOL=SER=volid,LABEL=(56,SL)
//I60  DD DSN=FUSELIB.DATA,DISP=(OLD,PASS),UNIT=TAPE,
//     VOL=SER=volid,LABEL=(61,SL)
//I7  DD DSN=FOCSTYLE.DATA,DISP=(OLD,PASS),UNIT=TAPE,
//     VOL=SER=volid,LABEL=(73,SL)
//***************************************************************
//O1  DD DSN=prefix.FOCLIB.LOAD,DISP=(,CATLG,DELETE),
//     UNIT=SYSDA,VOL=SER=volid,SPACE=(xxx,(n,n,m))
//O2  DD DSN=prefix.FUSELIB.LOAD,DISP=(,CATLG,DELETE),
//     UNIT=SYSDA,VOL=SER=volid,SPACE=(xxx,(n,n,m))
//O3  DD DSN=prefix.ERRORS.DATA,DISP=(,CATLG,DELETE),
//     UNIT=SYSDA,VOL=SER=volid,SPACE=(xxx,(n,n,m))
//O4  DD DSN=prefix.FOCCTL.DATA,DISP=(,CATLG,DELETE),
//     UNIT=SYSDA,VOL=SER=volid,SPACE=(xxx,(n,n,m))
//O5  DD DSN=prefix.FOCEXEC.DATA,DISP=(,CATLG,DELETE),
//     UNIT=SYSDA,VOL=SER=volid,SPACE=(xxx,(n,n,m))

//O6  DD DSN=prefix.MASTER.DATA,DISP=(,CATLG,DELETE),
//     UNIT=SYSDA,VOL=SER=volid,SPACE=(xxx,(n,n,m))
//O7  DD DSN=prefix.FOCSTYLE.DATA,DISP=(,CATLG,DELETE),
//     UNIT=SYSDA,VOL=SER=volid,SPACE=(xxx,(n,n,m))

//O55  DD DSN=prefix.WINFORMS.DATA,DISP=(,CATLG,DELETE),
//     UNIT=SYSDA,VOL=SER=volid,SPACE=(xxx,(n,n,m))
//O60  DD DSN=prefix.FUSELIB.DATA,DISP=(,CATLG,DELETE),
//     UNIT=SYSDA,VOL=SER=volid,SPACE=(xxx,(n,n,m))
//SYSIN DD *
 COPY INDD=I1,OUTDD=O1
 COPY INDD=I2,OUTDD=O2
 COPY INDD=I3,OUTDD=O3
 COPY INDD=I4,OUTDD=O4
 COPY INDD=I5,OUTDD=O5
 COPY INDD=I6,OUTDD=O6
 COPY INDD=I7,OUTDD=O7
 COPY INDD=I55,OUTDD=O55
 COPY INDD=I60,OUTDD=O60
/*
//SYSPRINT DD SYSOUT=*

where:

prefix

Is the high-level qualifier for your FOCUS production data sets.

xxx

Is either TRK or CYL.

n,n

Is the appropriate primary and secondary space allocation.

m

Is the number of directory blocks.

volid

Is a valid volume identifier.

Note:

• When installing from a 3480 cartridge, you may have to change TAPE to your site-defined name (e.g., CART) for 3480 drives in DD statements I1 through I60 above.
• When doing an IEBCOPY to a new data set, the DCB attributes are automatically copied from the input.