I have a job copying a tape that was FTPd with:
015 11:45:41 FTP2: site ftp unit (tape) lrecl (1200) blksize (12000)
016 11:45:41 FTP2: get oe2cwk 'LAM.LLDA.WEEKLY.TEMP'
017 11:45:41 -FTP will wait 30 minutes for tape mounts.
018 11:45:41 Waiting for tape mount to complete.
019 11:46:02 Dataset opened; data connection starting.
020 11:46:03 Data transfer Type is Image (binary). Structure is
File.
021 11:46:03 Mode is Stream. Dataset name: LAM.LLDA.WEEKLY.TEMP
Dataset attributes:
022 11:46:03 Dsorg=PS Recfm=FB Lrecl=1200 Blksize=12000 Keylen=8
Volser=429222
023 11:46:03 Unit=TAPE Labels=SL
24 11:46:03 150 Network data which exceeds LRECL will be wrapped to the
next record
25 11:46:03 150 Binary data connection for oe2cwk (10.50.50.100,20)
(90067200 bytes
26 11:46:26 226 Binary Transfer complete.
27 11:46:33 -Transfer complete.
28 11:46:33 90067200 bytes received in 23.4 seconds (3847381
bytes/s)
29 11:46:33 Dataset name: LAM.LLDA.WEEKLY.TEMP User=C60051
30 11:46:33 Data bytes written: 90067208.
31 11:46:33 226 Records padded: 1 Records folded: 7500
32 11:46:33 FTP2: END
33 11:46:33 221 Goodbye.
34 11:46:33 221 Session terminated
Then I run:
//MYGEN EXEC PGM=ICEGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=LAM.LLDA.WEEKLY.TEMP,
// DISP=(OLD,DELETE,KEEP),
// UNIT=TAPE
//SYSUT2 DD DSN=LAM.LLDA.WEEKLY,
// DISP=(NEW,CATLG,CATLG),
// UNIT=TAPE,
// LRECL=1200,
// BLKSIZE=12000
//IFGOOD IF (RC EQ 0) THEN
And get the following, with the temp tape being uncataloged. This
job has been running unchanged for years. One from last month had:
89994000 bytes received in 23.4 seconds (3844254 bytes/s).
011 IEF373I STEP/LLDAF0 /START 2006275.1147
012 IEF374I STEP/LLDAF0 /STOP 2006275.1147 CPU 0MIN 00.00SEC SRB
013 IEF236I ALLOC. FOR LLDACOPY MYGEN
014 IEF237I JES2 ALLOCATED TO SYSPRINT
015 IEF237I 062B ALLOCATED TO SYSUT1
016 IGD100I 062A ALLOCATED TO DDNAME SYSUT2 DATACLAS ( )
017 IEC205I SYSUT2,LLDACOPY,MYGEN,FILESEQ=00001, COMPLETE VOLUME LIST,
018 VOLS=429243,TOTALBLOCKS=7440
019 IEF142I LLDACOPY MYGEN - STEP WAS EXECUTED - COND CODE 0012
020 IEF285I C60051.LLDACOPY.JOB03034.D0000101.? SYSOUT
021 IEF285I LAM.LLDA.WEEKLY.TEMP UNCATALOGED
022 IEF285I VOL SER NOS= 429222.
023 IEF285I LAM.LLDA.WEEKLY.TEMP DELETED
024 IEF285I VOL SER NOS= 429222.
025 IEF285I LAM.LLDA.WEEKLY CATALOGED
026 IEF285I VOL SER NOS= 429243.
027 IEF373I STEP/MYGEN /START 2006275.1147
028 IEF374I STEP/MYGEN /STOP 2006275.1148 CPU 0MIN 00.15SEC SRB
0MIN 00.03SEC VIRT 1104K SYS
029 IEF206I LLDACOPY UGAB#1 LLDAF3 - STEP WAS NOT RUN BECAUSE OF
CONDITIONAL EXPRESSION ON STATEMENT 8
030 IEF272I LLDACOPY UGAB#1 LLDAF3 - STEP WAS NOT EXECUTED.
031 IEF373I STEP/UGAB#1 /START 2006275.1148
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
