我在大型机上的 JES 中有一份工作,我想通过 FTP 检索或列出目录。
如果我想要我的工作的一个或所有 OUTPUT DDNames,我可以很容易地做到这一点(在 SDSF 中,使用“INPUT OFF”命令)
SDSF JOB DATA SET DISPLAY - JOB MYUSERUL (JOB06197) LINE 1-8 (8)
COMMAND INPUT ===> SCROLL ===> PAGE
PREFIX=* DEST=(ALL) OWNER=* SYSNAME=
NP DDNAME StepName ProcStep DSID Owner C Dest Rec-Cnt Page
JESMSGLG JES2 2 MYUSER X LOCAL 16
JESJCL JES2 3 MYUSER X LOCAL 74
JESYSMSG JES2 4 MYUSER X LOCAL 152
FILESEQ ETAPE010 103 MYUSER X LOCAL 10
PRINT ETAPE010 104 MYUSER X LOCAL 17
IMPRIM ETAPE020 107 MYUSER X LOCAL 28
LISTUTV ETAPE020 110 MYUSER X LOCAL 2
LISTE ETAPE020 111 MYUSER X LOCAL 4
为此,我执行一个 DIR 命令,然后执行一个带有 DDName id 的 GET 命令。
ftp> dir j06197
200 Port request OK.
125 List started OK for JESJOBNAME=MYUSER*, JESSTATUS=ALL and JESOWNER=MYUSER
JOBNAME JOBID OWNER STATUS CLASS
MYUSERUL JOB06197 MYUSER OUTPUT T RC=0000
--------
ID STEPNAME PROCSTEP C DDNAME BYTE-COUNT
001 JES2 X JESMSGLG 688
002 JES2 X JESJCL 2735
003 JES2 X JESYSMSG 9553
004 ETAPE010 X FILESEQ 244
005 ETAPE010 X PRINT 1116
006 ETAPE020 X IMPRIM 3504
007 ETAPE020 X LISTUTV 173
008 ETAPE020 X LISTE 248
8 spool files
250 List completed successfully.
ftp> get j06197.1 D:\test.txt
不幸的是,我正在寻找的信息在 INPUT DDNames 中(在 SDSF 中,使用“INPUT ON”命令)
SDSF JOB DATA SET DISPLAY - JOB MYUSERUL (JOB06197) LINE 1-13 (13)
COMMAND INPUT ===> SCROLL ===> PAGE
PREFIX=* DEST=(ALL) OWNER=* SYSNAME=
NP DDNAME StepName ProcStep DSID Owner C Dest Rec-Cnt Page
JESJCLIN 1 MYUSER X 55
JESMSGLG JES2 2 MYUSER X LOCAL 16
JESJCL JES2 3 MYUSER X LOCAL 74
JESYSMSG JES2 4 MYUSER X LOCAL 152
$INTTEXT JES2 5 MYUSER A 25
$JOURNAL 6 MYUSER A 175
FICIN ETAPE010 101 MYUSER X 3
CARTE ETAPE020 102 MYUSER X 2
FILESEQ ETAPE010 103 MYUSER X LOCAL 10
PRINT ETAPE010 104 MYUSER X LOCAL 17
IMPRIM ETAPE020 107 MYUSER X LOCAL 28
LISTUTV ETAPE020 110 MYUSER X LOCAL 2
LISTE ETAPE020 111 MYUSER X LOCAL 4
如何通过 FTP 检索其中一个 INPUT DDName(例如:“JESJCLIN”)是否也可以通过 DIR 命令设置 INPUT DDName?
更新
例如,最终目标是从 FTP 重新提交作业。为此,我需要初始 JCL 以及所有“内联”,都只能使用“INPUT ON”访问
我绝不是在谈论生产工作。我说的是程序员在大型机上手动提交的程序员的工作(或“测试工作”),我希望同一个程序员可以通过以下方式访问提交的工作的完整 INPUT 信息一个外部 PC 工具,包括提交的带有内联 DD 内容的 JCL,最终用它做一些事情,一个示例用例(但不是唯一一个)将重新提交相同的确切工作。
谢谢 !