这是ISPF面板定义:
)BODY
Hello, world!
)PROC
*REXX
ADDRESS ISPEXEC "CONTROL ERRORS CANCEL"
*ENDREXX
)END
Run Code Online (Sandbox Code Playgroud)
面板显示正常,但是嵌入的REXX立即失败:
*-* ADDRESS ISPEXEC "CONTROL ERRORS CANCEL"
+++ RC(-3) +++
Run Code Online (Sandbox Code Playgroud)
返回代码-3通常意味着命令环境不知道如何处理该命令。
ISPF专家组能够应付ISPF的请求似乎是合理的。知道发生了什么吗?
当在 ISPF Edit 下处理大型或半大型程序时,我将定义编辑标签来帮助我浏览源代码。这些很棒并且确实有帮助,但是当我退出编辑时,标签将不再存在,我必须在下次编辑该程序时重新创建它们。
有没有办法在退出编辑时保存标签,然后在返回时恢复它们?
如何将PS文件中间的数据移到大型机的左侧?任何快捷命令吗?
我在第13列有一个带有数据的数据集,它必须移到第11列,任何短键都可以移动它。
想要将DS中的其余行对齐为第一列
BROWSE OSMDEV.ITALY3.DATA
Command ===>
----+----1----+----2----+----3----+----4----+-
758 200510 4323T
758 2005 10 4323N
758 2005 10 51149
758 2005 10 51154
758 2005 10 6758E
758 2005 13 34437
758 2005 13 34441
758 2005 13 53445
Run Code Online (Sandbox Code Playgroud) ISPF 中有滚动到文件顶部的命令吗?另外,滚动到底部?
类似于VI中的小写g。
另外,是否有类似滚动到功能顶部或滚动到左括号之类的东西?
谢谢
我对VSAM有一些困惑,因为我是新手.在我错的地方纠正我并解决问题.
集群包含控制区域,控制区域包含控制间隔.一个控制间隔包含一个数据集.现在,为了定义集群,我们提到了一个数据组件和索引组件.现在我们给出的这个数据组件名称创建了一个数据集,索引名称生成一个键.我的质询如下─
我试着找一个简单的代码但是却无法用一个简单的例子来解释.
当我们在编辑模式下打开文件时,我们可以在ISPF中编辑JCL文件.是否可以在查看模式下编辑文件?
我想显示带有cobol程序的ispf面板。使用REXX很容易,没有问题,但是使用cobol不会显示面板。当我提交jcl时,编译和链接步骤没有给出任何错误,但是当它尝试运行时收到错误:MAXCC = 0020。在jesysmsg中,我发现
...
IEF236I ALLOC. FOR CBLMINE STEP2
IGD103I SMS ALLOCATED TO DDNAME STEPLIB
IEF237I JES2 ALLOCATED TO SYSOUT
IEF237I DMY ALLOCATED TO CEEDUMP
IEF237I DMY ALLOCATED TO SYSUDUMP
IEF142I CBLMINE STEP2 - STEP WAS EXECUTED - COND CODE 0020
IGD104I Z30952.PATO RETAINED,DDNAME=STEPLIB
IEF285I Z30952.CBLMINE.JOB04408.D0000103.? SYSOUT
...
Run Code Online (Sandbox Code Playgroud)
根据IBM手册,错误为:ERROR。由于文件属性不一致,写入更新文件的I / O错误,缺少FILEDEF或APNDUPD处理选项被取消。有实际帮助(请举个例子)?
使用ispf面板:
)ATTR DEFAULT(+_%)
% TYPE(TEXT) COLOR(PINK) INTENS(HIGH)
$ TYPE(INPUT) INTENS(HIGH) PAD(_)
! TYPE(INPUT) INTENS(LOW) PAD(' ')
)BODY
%-------------------- *TITLE FOR ENTRY PANEL* --------------------------
%COMMAND ===>_ZCMD
%
&ZUSER &ZTIME &ZSCREEN …Run Code Online (Sandbox Code Playgroud) 我写了一个宏来改变字符串PDS的所有成员.我通过JCL传递PDS,现有价值和新价值.我使用rexx将参数传递给ispf宏时出现无效长度错误.错误是:
ISPS108 Invalid length -/-Parameter 'PARM' exceeds the allowable length.
Run Code Online (Sandbox Code Playgroud)
我的REXX代码 - IWPURDX是:
TRACE "ALL"
ARG PDS STRING1 STRING2 .
MAC = 'TEMPMAC' /* Macro name
*/
PDS = STRIP(PDS,"B","'")
STRING1 = STRIP(STRING1,"B","'")
STRING2 = STRIP(STRING2,"B","'")
S12 = STRING1 || " " || STRING2
SAY "STRING1" STRING1
SAY "STRING2" STRING2
SAY "S12" S12
SAY "LENGTH" LENGTH("S12")
X = OUTTRAP("LIBMEM.") /* Trap output of TSO
*/
ADDRESS TSO "LISTDS '"PDS"' M"
X = OUTTRAP("OFF")
DO I = 7 TO LIBMEM.0
LIBMEM.I …Run Code Online (Sandbox Code Playgroud)