我正在尝试调试一个小文件定制作业但在尝试使用跟踪命令ISPFTTRC时没有得到任何输出,这在
中有描述REXX在没有警告的情况下解释。
我也试过将命令编码为 " ISPFTTRC列表" 但这没用。
我想:
获取ISPFTTRC命令以返回一些输出,因为它对将来的调试很有用。
修复作业问题。
非常感谢任何帮助,谢谢。
这是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
.
答案 0 :(得分:0)
输出是一个动态分配的文件& SYSUID。**。ISPFT.TRACE。
在REXX中编写ISPFTTRC命令的方法只是“ISPFTTRC”,没有引号,这给出了输出。
从REXX中的命令检查RC很有帮助。
我现在能够通过跟踪输出解决问题。