0

我在大型机上的 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,最终用它做一些事情,一个示例用例(但不是唯一一个)将重新提交相同的确切工作。

谢谢 !

4

0 回答 0