首页 > 解决方案 > 通过 FTP 提交 JCL

问题描述

我需要通过 FTP 提交 JCL。为它写了下面的代码:

open server.com 
uname
password
quote site LRECL=80 BLKSIZE=27920 RECFM=FB
literal SITE FILETYPE=JES 
GET 'PDS.NAME(JCLNAME)' 'LOCAL\PATH\file.txt'
disconnect
bye

问题是即使在假脱机中完成作业之后,该脚本也需要大约 10 分钟才能完成。它似乎卡在125 当 Job 完成时,将检索它的输出。也许我错过了一些预初始化。请指教。

标签: ftpmainframejcl

解决方案


困惑你为什么使用'GET'。我一直使用“PUT”通过 FTP 提交 JCL。

这是我用来通过 FTP 提交 JCL 的批处理作业的片段:

::: -- FTP Compress DOC --
:ftp_COMPRESS
echo.
echo  " ----------------------------------- "
echo  " COMPRESSING dataset                 " 
echo  " --------------------------------------- "
IF EXIST ftptemp.txt del ftptemp.txt
echo user %FTPUserID%>> ftptemp.txt
echo %FTPPwd%>> ftptemp.txt
echo cd ..>> ftptemp.txt
echo cd DATASET>> ftptemp.txt
echo del %filename%>> ftptemp.txt
echo quote site file=jes>> ftptemp.txt
echo put compit.jcl>> ftptemp.txt
echo quote site file=seq
echo quit>> ftptemp.txt
ftp -n -s:ftptemp.txt %host%

pause

这是我本地计算机上保存为 compit.jcl 的 JCL 作业,与 .bat 相同的目录:

 //COMPIT    JOB CARD                                          
 //*-------------------------------------------------------------
 //COMPRESS EXEC PGM=IEBCOPY
 //SYSPRINT DD SYSOUT=*
 //LIB DD DSN=DATASET,DISP=OLD
 //SYSIN DD *
  COPY INDD=LIB,OUTDD=LIB
 /*

这项工作本身是我在上传更多成员之前压缩数据集的一种快速方法。


推荐阅读