0

我正在尝试调试一个小文件剪裁作业,但在尝试使用描述于的跟踪命令 ISPFTTRC 时没有得到任何输出

https://www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.f54dg00/ispfttrc.htm#ispfttrc

REXX 在没有警告的情况下进行解释。

我也尝试将命令编码为“ISPFTTRC LIST”,但这不起作用。

我想:

  1. 获取 ISPFTTRC 命令以返回一些输出,因为它将对将来的调试有用。

  2. 解决作业的问题。

任何帮助将不胜感激,谢谢。

这是JCL:

//DOIT     EXEC PGM=IKJEFT01,
//             PARM='ISPSTART CMD(NDRACMQ)'
//SYSPROC  DD DISP=SHR,DSN=&SYSUID..ALL.REXX
//*    --- ISPF FILES ---
//ISPSLIB  DD DISP=SHR,DSN=&SYSUID..ALL.SKELS
//*    --- OUTPUTS ---
//ISPFILE  DD DISP=SHR,DSN=&SYSUID..ALL.SKELS(NDSACMO)   tailored output
//ISPFTTRC DD DISP=SHR,DSN=&SYSUID..ISPFTTRC      debugging output
//*    --- MORE ISPF FILES ---
//ISPPROF  DD DSN=&&ISPPROF,DISP=(NEW,DELETE,DELETE),
//             LRECL=80,RECFM=FB,DSORG=PO,SPACE=(TRK,(2,2,2))  
//ISPPLIB  DD DISP=SHR,DSN=&SYSUID..ALL.PARMLIB        needed? I think not
//ISPTLIB  DD DISP=(NEW,DELETE,DELETE),DSN=&&ISPTLIB,
//             SPACE=(TRK,(1,1,1)),LIKE=SYS1.SYSTLIB
//         DD DISP=SHR,DSN=SYS1.SYSTLIB
//ISPMLIB  DD DISP=SHR,DSN=SYS1.SYSMLIB
//*    --- OTHER FILES ---
//SYSPRINT DD SYSOUT=*
//ABNLDUMP DD DUMMY
//SYSTSIN  DD DUMMY
//SYSTSPRT DD SYSOUT=*

REXX(简体):

/* REXX - Bulk ACM queries */ ISPFTTRC LIST "ISPEXEC FTOPEN" ele=aaaaa "ISPEXEC FTINCL NDSACMQ" ele=bbbbb "ISPEXEC FTINCL NDSACMQ" "ISPEXEC FTCLOSE" exit

来自 &SYSUID..ALL.SKELS(NDSACMQ) 的框架代码:

)CM *-----------------------------------------------------------------*
)CM * Skeleton SCL used to create bulk ACM queries.                   *
)CM *-----------------------------------------------------------------*
   LIST USING COMPONENTS FOR
       ELEMENT  &ELE       ENVIRONMENT   *
       SYSTEM   *          SUBSYSTEM     *
       TYPE     *          STAGE NUMBER  *
   OPTIONS
.
4

1 回答 1

0

输出将发送到动态分配的文件 &SYSUID.**.ISPFT.TRACE。

在 REXX 中编码 ISPFTTRC 命令的方法是简单的“ISPFTTRC”,不带引号,这会给出输出。

从 REXX 中的命令检查 RC 很有帮助。

既然我有跟踪输出,我将能够解决作业的问题。

于 2017-09-11T01:00:18.827 回答