MVSFORUMS.com

[emdaya9]

Hi
I'm trying to FTP a TAPE Dataset to a Unix server using PGM=FTP thru a JCL(putting all the tape datasets inside a PARMLIB). But while doing its giving me 4e5 error which says that its unable to allocate the tape dataset for FTPing due to un availabilty of resources. In order to avaoid this I'm trying to add this Tape data set as a INPUT DD statement to the FTP step and then trying to FTP so that it tries to allocate tape dataset before calling FTP program. I dont know whether this approcah is correct or not. My doubt is shall I need to do any changes in the PARMLIB.

EXAMPLE PARMLIB:
PPGB.PARMLIB(SCBSTPUT) is
site umask 000
binary
put '&HLQIN..&FILEIN..DATAW&PR.&FN..B&BATCH..ZIP' b&BATCH..&PER._&N..ZIP

EXAMPLE JCL is

//PARM1001 EXEC PGM=PARM2FIL,PARM=('BATCH=&BATCH','PR=01',
// 'HLQIN=&HLQIN','FILEIN=&FILEIN','FN=A','PER=20050226',
// 'N=000')
//STEPLIB DD DSN=SCLMSRC.&SCLM1..LOAD,DISP=SHR
// DD DSN=SCLMSRC.&SCLM2..LOAD,DISP=SHR
// DD DSN=SCLMSRC.PROD.LOAD,DISP=SHR
//*
//TEMPLATE DD DSN=&HLQ.GBS.&FILE.DVR.UNIX.LOGIN(SCBSTF2&ENVIR),DISP=SHR
// DD DSN=&HLQ.GB.PARMLIB(SCBST&CUSTPRM.),DISP=SHR
// DD DSN=&HLQ.GB.PARMLIB(SCBSTKCD),DISP=SHR
// DD DSN=PPGB.PARMLIB(SCBSTPUT),DISP=SHR
// DD DSN=&HLQ.GB.PARMLIB(DIR#QUIT),DISP=SHR
//*
//PARMOUT DD DSN=&&PARM,
// DISP=(NEW,PASS),
// SPACE=(TRK,(1,1),RLSE),UNIT=SYSWK,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=0,DSORG=PS)
//*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*
//**********************************************************************
//* FTP THE FILE TO THE SERVER
//**********************************************************************
//FTPFL001 EXEC PGM=FTP,REGION=8M,PARM='(EXIT TRACE'
//*
//FTPDD DD DSN=&HLQIN..&FILEIN..DATAW&PR.&FN..B&BATCH..ZIP,DISP=SHR
//*
//INPUT DD DSN=&&PARM,DISP=(OLD,DELETE)
//*
//OUTPUT DD SYSOUT=(Q,B&SAR.M)
//*
//SYSFTPD DD DSN=SYS1.TCPPARMS(FTPDATAN),DISP=SHR
//*
//SYSOUT DD SYSOUT=*

[superk]

Your put statement would be: