Отправка JCL через FTP - PullRequest
0 голосов
/ 21 мая 2018

Мне нужно отправить JCL через FTP.Вот код, написанный для него ниже:

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 Когда работа будет завершена, получит свой вывод .Может быть, мне не хватает предварительной инициализации.Пожалуйста, сообщите.

Ответы [ 2 ]

0 голосов
/ 25 мая 2018

Смущен, почему вы используете «GET».Я всегда использовал «PUT» для отправки JCL по FTP.

Вот фрагмент пакетного задания, которое я бы использовал для отправки JCL по FTP:

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

Вот задание JCLна моем локальном компьютере, сохраненном как compit.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
 /*

Само задание было быстрым способом сжатия набора данных перед загрузкой в ​​него новых членов.

0 голосов
/ 22 мая 2018

Похоже, система JES на самом деле не знает, как обрабатывать запрос.Если вы прочитали Шаги для отправки работы и автоматически получили выходную статью , то это объясняет, что для автоматического получения результата работы JCL JOBNAME должно быть USERIDx.Поэтому, если мой идентификатор пользователя - ABC123, то JOBNAME должен быть ABC123A.Они также рекомендуют немного отличаться от вас.Попробуйте это:

open server.com 
USERID
password
SITE FILEtype=JES NOJESGETBYDSN 
GET 'PDS.NAME(USERIDx)' 'LOCAL\PATH\file.txt'
disconnect
bye

Когда я попробовал ваши команды FTP, я получил те же результаты (ожидание в течение 10 минут).Я думаю, что это связано с уровнем интерфейса JES и как долго хранятся разные файлы.Используя приведенные выше команды (и используя правильное именование), SYSOUTS вернутся, когда задание будет завершено, пока они находятся в состоянии HELD.Если есть некоторые выходы, которые не находятся в состоянии HELD, они будут пропущены.

...