Using IBM FTP CS V2R1, the uploaded INFILE's excess space is not RLSE'd.
//FTPUP EXEC PGM=FTP,PARM='(EXIT=4'
//SYSPRINT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSABEND DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//FTPOUT DD SYSOUT=*
//INFILE DD DSN=MXGLRG.CICS.UNTERSE,DISP=(NEW,CATLG,CATLG),
// UNIT=(3390,1),DSNTYPE=LARGE,
// DSORG=PS,RECFM=FB,LRECL=1024,BLKSIZE=6144,
// SPACE=(CYL,(500,500),RLSE)
//SYSIN DD *
99.99.99.99
USERID PASSWORDPHRASE
BINARY
GET CICS2.terse +
'MXGLRG.CICS.UNTERSE' (replace
CLOSE
QUIT
I found one reference that CLOSE TYPE=T prevents RLSE, but no reference
if FTP uses TYPE=T.
Barry
Herbert W. "Barry" Merrill, PhD
President-Programmer
MXG Software
Merrill Consultants
10717 Cromwell Drive
Dallas, TX 75229-5112
[email protected] <mailto:[email protected]>
Fax: 214 350 3694 - Still works, received as email
Tel: 214 351 1966 - Unreliable, please use email
www.mxg.com <http://www.mxg.com> HomePage: FAQ answers most
questions
[email protected] <mailto:[email protected]> License Forms, Invoice, Payment,
ftp information
[email protected] <mailto:[email protected]> Technical Issues
MXG-L FREE ListServer http://www.mxg.com/mxg-l_listserver/
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
