标签: ispf

ISPF面板REXX中是否提供ISPEXEC服务?

这是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的请求似乎是合理的。知道发生了什么吗?

mainframe panel rexx zos ispf

3
推荐指数
1
解决办法
543
查看次数

如何保存 ISPF 编辑标签?

当在 ISPF Edit 下处理大型或半大型程序时,我将定义编辑标签来帮助我浏览源代码。这些很棒并且确实有帮助,但是当我退出编辑时,标签将不再存在,我必须在下次编辑该程序时重新创建它们。

有没有办法在退出编辑时保存标签,然后在返回时恢复它们?

edit mainframe zos ispf

3
推荐指数
1
解决办法
117
查看次数

DS的大型机命令-在ISPF中移动列

如何将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)

edit mainframe ispf

2
推荐指数
1
解决办法
165
查看次数

如何在 ISPF 中滚动到顶部?

ISPF 中有滚动到文件顶部的命令吗?另外,滚动到底部?

类似于VI中的小写g。

另外,是否有类似滚动到功能顶部或滚动到左括号之类的东西?

谢谢

mainframe ispf

2
推荐指数
1
解决办法
875
查看次数

将记录添加到VSAM DATASET

我对VSAM有一些困惑,因为我是新手.在我错的地方纠正我并解决问题.

集群包含控制区域,控制区域包含控制间隔.一个控制间隔包含一个数据集.现在,为了定义集群,我们提到了一个数据组件和索引组件.现在我们给出的这个数据组件名称创建了一个数据集,索引名称生成一个键.我的质询如下─


1)如果我必须在该数据集中添加新记录,那么程序是什么?
2)在控制区域中创建新数据集的步骤是什么?
3)如何在创建数据集和特定记录后访问它们?

我试着找一个简单的代码但是却无法用一个简单的例子来解释.

mainframe jcl vsam ispf

1
推荐指数
1
解决办法
1110
查看次数

是否可以在ISPF中以查看模式编辑PS文件?

当我们在编辑模式下打开文件时,我们可以在ISPF中编辑JCL文件.是否可以在查看模式下编辑文件?

mainframe ispf

1
推荐指数
1
解决办法
931
查看次数

当我想从cobol程序中显示ispf面板时出现错误rc = 20

我想显示带有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)

cobol jcl ispf

0
推荐指数
1
解决办法
198
查看次数

从rexx代码向ispf宏传递参数时,长度错误无效

我写了一个宏来改变字符串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)

mainframe jcl rexx ispf

0
推荐指数
1
解决办法
460
查看次数

标签 统计

ispf ×8

mainframe ×7

jcl ×3

edit ×2

rexx ×2

zos ×2

cobol ×1

panel ×1

vsam ×1