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
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)