mainframe

0热度

1回答

我需要从网页/浏览器访问大型机API。大型机API可供网络服务器访问，但不会暴露给网络。 API每个数据包返回40000字节的数据，它使用CICS.LU6.2协议。我打算在linux上开发一个node.js服务器以将大型机API暴露给网络，即将其设置为“web API”，以便它可以与angular.js一起用于开发网站。我没有找到任何适配器/方法连接到node.js中的大型机API。

1热度

1回答

PL/I＆不打印在标签停止

我有以下的PL/I代码： declare 1 u union, 2 c character(1), 2 ci fixed binary(4) unsigned; ci = data_mem(data_ptr); put list (c); 这个做什么，是它需要一个整数，输出的是，如果它是一个ASCII/EBCDIC值。所以它显示字符。沙发这个作品。

0热度

1回答

COBOL中用法COMP的变量

我想了解COMP用法子句中的COBOL变量如何存储值。我试图一例如下 01 VAR14 PIC S9(5) USAGE COMP. MOVE 12345 TO VAR14 DISPLAY VAR14 在SPOOL的VAR14值来作为0000。 S9(5) COMP根据手册大小是4个字节，所以我的理解是VAR14应显示为000。二进制表示如下： 0000 0000

-1热度

1回答

如何将VSAM文件（大型机）复制到数据库？

什么是有效的解决方案/技术（ETL除外）将数据从VSAM文件（大型机）近似实时地复制到RDBMS（大型机之外）？注意：该VSAM文件具有COM3数据，因此复制技术应该能够在复制过程中理解和转换它。

-1热度

1回答

扩展VSAM分配

我的任务是要求一个超过4GB限制的VSAM文件的项目。我正在尝试使用IDCAM定义扩展的VSAM，但我找不到帮助我的示例或指南。这是我如何定义一个普通VSAM： //STEP1 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD* DEFINE CLUSTER - (NAME(AA.AFILE.AV) -

0热度

1回答

从子程序中的SYSIN接受

比方说，我从JCL执行COBOL程序，使用SYSIN DD来提供数据。如果该程序，然后CALLs一个COBOL子程序，和一些数据仍然可以从输入，将子程序可以使用ACCEPT语句读？或者SYSIN只能从JCL调用的运行单元的主程序访问？编辑：我认为这将是一个不好的编码习惯。我不打算使用它，也不需要我知道的更好的替代方案（例如从主数据中读取输入设备数据并通过它们的LINKAGE将它传递给子程序）

0热度

1回答

FTP到/从Windows 8到z/OS失败，并显示“无法打开数据连接”

有没有人在z/OS系统（运行z/OS V1.13或V2.2）和Windows 8.1 Enterprise机器吗？我们以前在XP下没有任何问题，但是随后我们的XP桌面被替换为运行Windows 8的笔记本电脑，并且FTP不再起作用。当从Windows Shell声明FTP会话时，我可以登录到大型机，但不能再访问任何文件。我们与我们的桌面支持团队一起提出了一张票，认为可能是以前在XP下打开的FT

0热度

1回答

按员工最新日期保留记录，采用原始员工订单

我需要为PS文件中的每位员工过滤最新记录。我如何使用DFSORT实现这一点？ PS文件记录为员工id（6位数字）和日期（8位数字）。我需要过滤每个员工的最新纪录保持原来为了让员工出现在例如： I/P文件： 10000120150101 10000320130101 10000120160101 10000220170101 10000220160101 10000320160101

2热度

1回答

在主机中使用DFSORT实用程序的乘法除法

有两个文件FILE1.DATA和FILE2.DATA 使用主机中的DFSORT计算百分比（FILE1中的记录数/ FILE2中的记录数）* 100。如果超过阈值（90％），则设置返回码。 //********Extracting Unique records data***************** //SORTT000 EXEC PGM=SORT //SYSOUT DD SYSOUT=*

0热度

1回答

在存储过程中将数字转换为压缩十进制

我正在构建本机存储过程..其中一个字段是通过组合（连接）5个值派生的。这5个值中有3个是字符字段，2个是压缩十进制数。在我写入表格之前，我需要将它们合并到一个字段中。我不知道如何将任何数字转换为SP中的压缩十进制（COMP-3等效的COBOL）。我试过DEC（）函数，但它没有给出预期的结果。我使用的是DB2 V11 请让我知道，如果有任何其他的方法.. 谢谢..