zos

0热度

2回答

我想要做的是在批处理环境中执行的COBOL程序中执行TSO命令;我首先做的是创建一个调用IKJTSOEV的TSO环境;成功完成后（RETURN CODE = 0），我使用TSOLNK例程来执行TSO命令。问题出现在第二次调用中，我得到ikj56637I错误。如果我请教IBM手册，它说： IKJ56637I 试图从授权的环境中运行命令，程序，CLIST或REXX EXEC。这在动态TSO/E环境下

0热度

1回答

更新YEAR上日期字段

DB2 z/OS的版10 对于表中的一列DATE我想的DATE的YEAR部分更新到1900。例如，更新1981-09-03到1900-09-03。我已经尝试使用以下： UPDATE SERDB.S16_WEB_USERS_T SET YEAR(S16_BIRTH_DT) = '1900' WHERE YEAR(S16_BIRTH_DT) > '0'; 我收到以下错误：

0热度

2回答

JZOS批处理工具 - 整合JZOS的Cobol记录生成

我安装JZOS批处理工具包（版本的AlphaWorks）在z/OS： - sampjcl.xmit (RECGEN ...) - loadlib.xmit (JVMLDM76 ...) - jzos.pax (jzos_recgen.jar , ibmjzos.jar ...) 我使用jzos_recgen.jar来从COBOL习字Java类基于Java类： com.

0热度

2回答

Python和ebcdic解码（zos 1047）

我有一个函数应该接收EBCDIC格式的数据并将其转换为ASCII。例如，转换数据，F1F1F0F0应该给我一个1100的ASCII码，或者31313030的十六进制ASCII码。什么我发现是这样的： def __decode_ASC_EBCDIC_DT(self, data): if (data[0] == '3'): #HEX ASCII dt_ = ''.

1热度

1回答

如何在批处理中运行ISPF编辑宏

我经常编写和使用ISPF编辑宏。但是，在前台调用它们非常耗时。我可以使用Rexx程序通过批次对所有或部分PDS成员运行编辑宏吗？

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

1热度

1回答

动态转置表

我想弄清楚如何转置我的结果数据。这是DB2 z/OS和我们正在运行版本11 我永远都指定表（截至目前约30列，但只有三个位置）： Table A Column_name Column_id Data_type NULL Product_id 1 N N Product_name 2 A N Product_status 3 A Y ，然后表B可以变化的大小。

1热度

1回答

JES2 SPOOL卷正在等待作业，但$ DJ没有显示作业

我正在尝试排除JES2 SPOOL卷。它说，它在等待工作： $DSPL $HASP893 VOLUME(SPLZ00) 852 $HASP893 VOLUME(SPLZ00) STATUS=DRAINING,AWAITING(JOBS), $HASP893 PERCENT=2 $HASP893 VOLUME(SPLZ01) STATUS=ACTIVE,PERCENT=38 $HA

0热度

2回答

它应该是可以在DB2 z内的检查约束/ OS

简易版的DDL的执行SQL函数： create function rm00dv1.no_concurrent_schedules() returns integer LANGUAGE SQL READS SQL DATA NO EXTERNAL ACTION NOT DETERMINISTIC BEGIN declare num_overlaps integer;