CBT Tape Home Page

Downloads

CBT
Top 10 Files

Updates
Overflow
JES3

JES2

CBT249 & Older

UCLAmail

Xmit Manager
MVS 3.8J

VM/370 R6

OS/360

OS/VS1

PDS 8.5

Linux/390

MVT Mods

Fish's Herc Tools

PC Tools

AWSTAPE

DSS-FDR Format

AWS Format

Information

Order CDROM
Newsletter

FAQ

Links

Mail & Newsgroups
Fun

Features 
Steve Samson

Contribute files

Freebies

Linking to CBT site
Advertising here
Complaints
Workbench

Cross Links

Contact Us

Buy Gear

cbt-tape on
Yahoo Groups

 

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.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)
     //SYSUT2   DD DISP=(,CATLG),DSN=highlvl.JES3.SCRIPT,
     //            UNIT=3390,SPACE=(TRK,(3,1),RLSE)

Copyright © 2000,2002 cbttape.org   All rights reserved.
All trademarks are properties of their respective owners.