cobol

0热度

1回答

我正在编写一个简单的COBOL程序来读取数据并根据学分数量计算学费。我的程序是完整的，除了一个我不明白的错误。在CALC例程的最后一行，我尝试编写TUITION变量，并得到错误：“不是记录名称”。我仍然在学习COBOL程序的基本结构和设置，所以我知道这是我忘记的一些小错误。代码： IDENTIFICATION DIVISION. PROGRAM-ID. prg1-lankford. AUTH

1热度

1回答

Linux上的cobol程序错误从postgresql数据库中的表中选择

我是在Linux环境中开发Cobol程序的新手。我的问题是，我在PostgreSql中创建一个表，我试图连接到该表。连接成功并且sqlcode = 0。但是，当我尝试做一个选择我收到sqlcode = -0000000007和消息： SQLERRMC: ERROR: permission denied for relation minha; Minha是我的表。我的连接字符串是： 01 dsn

1热度

1回答

VSAM到DB2转换 - COBOL

我试图用load实用程序将vsam文件转换为db2表。然而，我的一个变数是pic s9（8）v99。当我尝试将它加载到一列十进制（10,2）时发生错误 - 02无效的输入数字。你能帮忙吗？

0热度

2回答

COBOL游标在WHERE子句中使用IN运算符

我有一个问题，我似乎无法弄清楚并怀疑它是环境中的限制，还是我没有想到的简单的东西。我在AIX中运行，在程序中使用Microfocus Cobol和嵌入式Oracle SQL。今天，这个SQL针对整个生产运行表运行，这是按照设计的。当为生产测试系统运行同一个程序时，我们不需要返回一整套结果......我们只需要在生产测试运行中为客户返回的记录。所以这是很容易的添加语句转换成SQL来限制它像如下

0热度

1回答

获取整理顺序

字符的位置，我正在寻找一种方式来ASCII文本转换为十六进制数据，我的意思是十六进制的方式，你可以得到制作 MOVE X'nn' TO MYVAR. 然后，我需要使用它像一个号码（COMP-3我猜）。，我打算给PIC（X）移动到PIC S9（2）V COMP-3，但我认为不工作... 进一步解释，因为我的问题被标记为不明确：首先，对不起，我在深夜做了这个问题，现在又读了，是的，目前还不清楚

0热度

1回答

Shell脚本查找cobol程序的数组大小

我们可以编写一个shell脚本来查找cobol程序中数组的大小，例如数组的最大大小以及填充多少数组的大小。

0热度

1回答

检查COBOL中半角片假名字符

我正在使用RedHat6并使用COBOL。我想检查变量的每个数字，如果它是半宽度 - > CONTINUE，Else - > DISPLAY ERROR。基本上，我在WHAL子句的EVALUATE语句中列出了所有半角字符。像这样： PERFORM VARYING WK-IX FROM 1 BY 1 UNTIL WK-IX > WK-LENGTH EVALUATE WK-FORMAT-CH

0热度

1回答

COBOL表结构和输出

我想userstand是如何工作的： WORKING-STORAGE SECTION. 01 PAY-TABLE. 05 PAY-VALUES OCCURS 25 TIMES PIC 9(3)V99. 01 WORKING-VALUES. 05 SUB PIC 9(2) VALUE ZERO. PROCEDURE DIVISION. INITIALIZE-ROUTIN

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热度

2回答

逻辑

我无法理解什么是这些线背后的逻辑： COMPUTE temp = RESULT - 1.843E19. IF temp IS LESS THAN 1.0E16 THEN 数据定义： 000330 01 VAR1 COMP-1 VALUE 3.4E38. // 3.4 x 10^38 以下是在上下文中的线（子程序返回平方根）： MOVE VAR1 TO PARM1.