mainframe

0热度

1回答

我想将mvs文件复制到我的PC ..我尝试过使用下面的代码。 //JOBNAME JOB NOTIFY=&SYSUID,CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1), // REGION=0M //STEP01 EXEC PGM=FTP //OUTPUT DD SYSOUT=* //SY

0热度

1回答

无法通过PUSH命令REXX

写在文件超过8个字符我写在其中，如果我找到一个线“C”然后我删除C来自那里，并追加到下一行10字符代码在ps文件中。文件中的所有记录除了一条记录（可以是任何记录）以外都有8个字符。下面是我输入文件，在其中我更新： A2f6k1GG C B3g7l2HH C4h8m3II D5i9n4JJ 所需的输出是： A2f6k1GG B3g7l2HH C C4h8m3II D5i9n4JJ

0热度

1回答

cobol＆JCL删除多余的空格

我试图接受来自jcl的输入，例如'John Snow'并从我的cobol程序使用JUSTIFIED RIGHT VALUE SPACES运行它将字符串移动到右侧，但是我需要删除额外的空间使用我的cobol pgm。例如我的工作存储是： 01 ALPHA-ITEM PIC X(50). 01 MOVE-ITEM REDEFINES ALPHA-ITEM PIC X(50). 0

0热度

2回答

无论上一步的RC是什么，我都想执行一个JCL步骤？

有我JCL 3个步骤：步骤1：过程第2步：NDM STEP 3：删除输出NDM 后，我要实现什么目标？无论第2步的返回码是什么，我都想执行STEP 3。我试过这个： COND =（16，GT）和COND =（16，ST，STEP 2）但它没有做我想做的事。

0热度

1回答

使用Record Editor/Jrecord解压缩COMP-3数字

我已经创建了基于cobol字帖的布局。布局快照：我试图加载数据也选择相同的布局，它给了我一些列错误的结果。我尝试使用所有二进制数字类型。 CLASS-ORDER-EDGE DIV-NO-EDG OFFICE-NO-EDG REG-AREA-NO-EDG CITY-NO-EDG 全国县NO-EDG BILS-COUNT-EDG REV量电流EDG 用法-QTY-EDG GAS-CCF-EDG 结

-1热度

2回答

ActiveX组件不能创建对象：PCOMM.autECLConnList

我想发送击键正被使用PCOMM iSeries的仿真器相连的大型机应用程序自动化。我不确定我在这里做错了什么，因为相同的代码在不同的机器上工作。以下是在构造中，工作机：视窗10的64位，32位Office 错误机：视窗7 64位，办公室64位以下是密码 On Error Resume Next Set autECLWinObj = CreateObject("PCOMM.autECL

1热度

1回答

如何在Windows中为Java程序模拟/测试大型机文件I/O（JZOS）？

在开发Java程序以读取/处理&编写大型机文件时，如何在开发人员本地环境（windows PC）中测试此文件I/O功能（使用JZOS实用程序）？有没有办法安全地模拟/测试的开发者的文件I/O功能当地的环境，而不是，每次代码迁移到大型机和测试文件I/O功能的时间？

0热度

2回答

如何在不损坏Java String的情况下存储EBCDIC（IBM-1047）编码文本？

我的java程序正在试图读取一个文本文件（主VSAM文件转换为平面文件）。我相信这意味着，文件以EBCDIC格式编码。我正在使用com.ibm.jzos.FileFactory.newBufferedReader(fullyQualifiedFileName, ZFile.DEFAULT_EBCDIC_CODE_PAGE);来打开文件。并使用String inputLine = inputFi

0热度

1回答

麻烦与py3270＆wc3270的Windows Server

我从Linux ENV迁移到Windows上。我的脚本中的一个经由c3270利用py3270到终端自动化。我已经安装在这里找到了wc3270设置：http://x3270.bgp.nu/WindowsInstall.html 成功： PIP安装py3270 我想这个测试脚本只是把事情的工作： from py3270 import * import sys, os host = "tn32

1热度

1回答

COBOL和HLASM（程序集）之间的连接超过32K字节

我需要实现一个Assembly模块来读取JCL中通知的任何文件（F，FB，V，VB）。这个模块在我的COBOL程序中被调用。我已经设法实现了打开，读取和关闭功能。键联是这样的： 01 LNK-MOD. 05 LNK-MOD-OPTION PIC X(01) VALUE SPACE. 05 LNK-MOD-STATUS PIC X(01) VALUE SPACE.