cobol

0热度

1回答

0热度

1回答

是否可以在运行时在COBOL程序中动态指定文件名？

是否可以在运行时在COBOL程序中动态指定文件名？例如，我想不必定义一个文件的名称，我想在我编写文件控制部分时打开，我想读取我想从另一个不同的文件打开的文件的名称包含名称的文件，并且我还想在将名称传递给File-COntrol时定义（FD）我想打开的文件。该平台是Unix Micro Focus Visual Cobol编译器。

0热度

1回答

ISPF中的配置文件变为COBOL（VARIABLE 80）

我遇到了ISPF编辑器的问题。当我将程序从Eclipse登录到Endevor时，它有时会将配置文件从COBOL（FIXED 80）更改为COBOL（VARIABLE 80）。 ****** ***************************** Top of Data ****************************** =PROF> ....COBOL (VARIABLE - 8

1热度

1回答

COBOL语法错误'意外'（与显示命令

你好家伙我目前正在学习COBOL和我有点卡在我的练习我目前正在使用德语书籍内幕COBOL进入主题现在的问题：我在重建引入的例子，它是一个总价的计算器，你写的产品数量，价格和增值税和程序会给你净额，增值税金额和总额退款金额最后我看到我在代码中有一个错别字，所以我就修好了它之后，整个程序部门开始对所有m y显示我创建gui的位置。每一个错误说：“语法错误，意想不到的（”数说语法错误太后“期

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.

1热度

1回答

是否需要在我的JCL中指定所有文件？

我目前正在使用多个JCL中使用的程序。我添加了一个新的文件，该文件控制是这样的： SELECT FILEA ASSIGN TO FILEA ; ORGANIZATION SEQUENTIAL ; ACCESS SEQUENTIAL ; FILE STATUS FILEA-FILESTATUS . 因为这个程序在多个JCL使用，如果该文件必须

1热度

1回答

尝试扫描多个前缀的文本字段以将其删除

我目前正在尝试创建一个程序，其中游标读取“描述”DB2表的var char字段和读取“前缀”var的游标来自另一个表的char字段。然后，我需要检查每个描述，看看描述开始时是否存在任何前缀，如果有，则用一个空格替换它。这些暂存值： 03 WS-PFIX. 49 WS-PFIX-LEN PIC S9(4) COMP. 49 WS-PFIX-TEXT 03 WS-DESC.

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

3热度

1回答

如何从汇编返回的指针指向databuffer到COBOL

我有一个调用汇编模块的COBOL程序。这个模块返回一个指针，指向这个模块中获得的一些数据（我将它称为'缓冲区'）。如何将我的工作存储器中的变量写入该指针并使用数据？在我的COBOL呼叫者我有类似：工作空间： 01 WK-MOD-AREA. 03 WK-MOD-PTR PIC 9(09) COMP VALUE 0. 01 WK-BUFFER-PTR USAGE POINT

3热度

1回答

使用COBOL将Unicode字符串写入文件

我们正在更新在IBM大型机（z/OS）上运行的COBOL程序以支持非拉丁字符。我挣扎了一下与理解COBOL如何处理定义为PIC N. UTF-16字符我需要更新目前被定义为PIC X字段与PIC单片机N.此字段，被写入文件。例子： 01 RecordToWrite PIC X(20). 我明白PICň需要两倍的空间作为PIC X.我不知道是怎么定义相应的PIC N字段。我的猜测是COB