JES3 Tape Cover Letter

To:      Recipients of the JES3 Tools Tape

From:    Alan C Field
         SuperValu
         11840 Valley View Road
         Eden Prairie, MN 55344.

         (612) 828-4979.         e-mail: alan.c.field@supervalu.com

Subject: SHARE/GUIDE JES3 Tools Tape.

Enclosed is the most recent version of the SHARE/GUIDE JES3 Tools Tape.

NOTE: SDF users read the $$$DOC member for FILE044.

The tape has standard labels. Volume serial is JES080.

The tape contains two PDSs in IEBCOPY unload format and a sequential
file.

Member $$$DOC of the JES3.MODS PDS contains documentation and the
change directory.

The following JCL may be used to reload the tape:

     //LOAD EXEC PGM=IEBCOPY
     //SYSPRINT DD  SYSOUT=*
     //SYSUT1   DD  DSN=JES3.MODS,DISP=OLD,LABEL=(1,SL,EXPDT=98000),
     //             UNIT=3480,VOL=(,RETAIN,SER=JES080)
     //SYSUT2   DD  DSN=highlvl.MODS.DATA,
     //             DISP=(,CATLG),UNIT=3390,
     //             SPACE=(CYL,(47,1,10),RLSE),
     //             RECFM=FB,LRECL=80,BLKSIZE=0,DSORG=PO
     //SYSUT3   DD  SPACE=(TRK,(10,1),RLSE),UNIT=SYSDA
     //SYSUT4   DD  SPACE=(TRK,(10,1),RLSE),UNIT=SYSDA
     //SYSUT5   DD  DSN=JES3.TUNE,DISP=OLD,LABEL=(2,SL,EXPDT=98000),
     //             UNIT=3480,VOL=(,RETAIN,SER=JES080)
     //SYSUT6   DD  DSN=highlvl.TUNE.DATA,
     //             DISP=(,CATLG),UNIT=3390,
     //             SPACE=(TRK,(7,1,5),RLSE),
     //             RECFM=VBM,LRECL=255,BLKSIZE=0,DSORG=PS
     //SYSIN    DD  *
      COPY O=SYSUT2,I=((SYSUT1,R))
      COPY O=SYSUT6,I=((SYSUT5,R))
     /*
     //GENER1 EXEC PGM=IEBGENER,REGION=1024K
     //SYSPRINT DD SYSOUT=*
     //SYSIN    DD DUMMY
     //SYSUT1   DD DSN=JES3.SCRIPT,DISP=OLD,LABEL=(3,SL,EXPDT=98000),
     //            UNIT=3480,VOL=(,RETAIN,SER=JES080)