COBOL关键字REDEFINES - 腾讯云开发者社区

文章/答案/技术大牛

发布

3回答

COBOL关键字重新定义

cobol

我想问一下，关键字REDEFINES在COBOL中的用法是什么？我不能理解手册的定义。 01 WS_CHARGE_NUM_8 REDEFINES

浏览 0提问于2011-03-11得票数 18

回答已采纳

3回答

寻找具有不同顺序组的正则表达式的正确方法

python、regex

我正在尝试使用python解析许多cobol文案。^(?P<level>\d{2})\s+(?P<name>\S+).*?(\s+REDEFINES\s+(?P<redefines>\S+))?.*?(\s+OCCURS\s+(?03 AMOUNT-BREAKDOWN PICTURE 9(8)V99 VALUE

浏览 9提问于2017-10-15得票数 1

回答已采纳

2回答

cobol和JCL删除额外的空格

cobol、mainframe、jcl、gnucobol

我正在尝试接受来自jcl的输入，例如'John Snow‘，并从我的cobol程序运行它，我使用对齐的右值空格将字符串移动到右侧，但是我需要使用我的cobol pgm删除多余的空格。例如，我的工作存储是：01 MOVE-ITEM REDEFINES ALPHA-ITEM PIC

浏览 2提问于2017-08-03得票数 0

1回答

将COBOL文本字符串转换为数字

parsing

我有一个我正在做的项目，我需要获取一个给我的子串，并将其转换为一个数字。我有一个常见值是000300000。这将转换为3000.00。我希望能想出一种方法让它显示为"$3,000.00“。谁能告诉我一种我可以做到这一点的方法？解析字段如下: SUBSTRING(Text,521，9)任何帮助都是非常感谢的。

浏览 14提问于2021-03-15得票数 0

2回答

将数组重新定义为字符串在MFCOBOL中工作，但在GnuCOBOL中发出警告

cobol、microfocus、gnucobol

01 COUNTER. 03 STRING1 REDEFINES DIGITS1这在Visual Studio 2015的Micro COBOL 2.3中编译得很好。它给出了GnuCOBOL中的一个错误，即原来的定义不应该发生。

浏览 3提问于2015-11-08得票数 1

1回答

在COBOL中创建键值"dict“的最佳方法

cobol

我是Cobol的新手，在尝试创建像python字典这样的东西时遇到了困难，在这种情况下，我们传递一个键，然后字典返回它的值。Python示例：{'AC': 'Acre', 'AL': 'Alagoas', 'AP': 'Amapa'}'Acre' 我尝试在cobol中做到这一点02 FILLER PIC X(2)

浏览 10提问于2021-05-30得票数 1

3回答

目前和估计到达时间

beginner、datetime、cobol

这是我的第一个COBOL程序，我想得到一个批评，因为我不熟悉最佳实践。 03 CURRENT-TIME-NUMERIC PIC 9(8). 0

浏览 0提问于2013-04-20得票数 22

2回答

这个cobol语法不能处理--9张图片

cobol、bnf、javacc、ebnf

编辑： (["0"-"9"])* ["a"-"z"] ( ["a"-"z","0"-"9"] )*如果我想接受05 TEST3 REDEFINES TEST2 PIC X(10).，我会将正则表达式改为： <COBOL_WO

浏览 2提问于2011-09-27得票数 0

回答已采纳

3回答

查找匹配和不匹配的记录和关键字位置是未知的。

sorting、cobol、mainframe

我需要从FILE1 & FILE2中找到包含字符串'COBOL‘的记录，其中这个关键字的位置是未知的，并且每个记录都会发生变化。为了更清楚，下面是作为样例布局。COBOL1231231231231231341234334 123456789012345678901234567890

浏览 0提问于2015-02-27得票数 1

回答已采纳

1回答

Python中的COBOL布局解析器

python、parsing、cobol

我对解析器一无所知，但我不得不为一个工作项目写一些东西来阅读COBOL。我的Python编码和解析器设计可以改进什么？ """ Tak

浏览 0提问于2018-11-30得票数 4

回答已采纳

2回答

从GNU COBOL中的C函数获得64位返回值

c、cobol、gnucobol

我需要从一个GNU程序调用一个用C编写的函数，该程序返回一个64位整数(BINARY-DOUBLE在COBOL中)。但是，似乎GNU假定返回值总是BINARY-LONG，这意味着返回值被混淆了。我可以用C编写一个包装器，但是每次我需要调用一个具有64位返回值的函数时，这样做似乎很烦人，所以我想知道是否有办法在COBOL中这样做。

浏览 5提问于2022-07-29得票数 1

回答已采纳

1回答

使用redefines子句在oracle外部表中加载数据的mainframe copybook

oracle、external、clause、copybook

我有一个副本中的重定义子句，我必须使用发送过来的文件将其加载到oracle外部表中。下面是抄写本的信息。传入的文件是位置格式的，我假设在文件中的数据记录中，前8个字符是字母数字，接下来的8个字符是数字。我只需要知道我是否应该考虑总共16个字符，因为在这个字段之前和之后还有其他字段。注册-DT PIC X(08)。注册-DT-N重新定义注册-DT PIC 9(08

浏览 3提问于2020-04-15得票数 0

2回答

如何将一个真实的十进制值转换为一个虚拟的十进制值？

variables、cobol、mainframe

我有一个从传入文件接收数据的PIC 9(14).9(2)变量。我希望将其传递到一个PIC 9(14)V9(2)报告变量中。传入数据的格式不能更改。有什么方法可以将一个值传递给另一个值吗？

浏览 0提问于2013-01-22得票数 1

回答已采纳

1回答

如果用户在COBOL中输入，则输入文件中的十进制值。

cobol

又来了一个COBOL问题。我一直在玩COBOL，问题是，我必须在输入文件中输入一个十进制值。

浏览 2提问于2020-12-26得票数 3

回答已采纳

1回答

我在Cobol程序中发出一条exec cics assign语句，并得到一个不可能的响应代码。eibresp返回空格。我指的是在exec cics命令的RESP子句中赋值的返回值。下面是一些代码： 77 W-RESP PIC S9(08) VALUE 0 COMP. 77 W-RESP-X REDEFINESNATURAL PROGRAM --> COBOL PGM 1-> MY COBOL PGM 我在web上找不到任何解释或用例，尽管eibresp在任何情况下都

浏览 20提问于2019-09-25得票数 0

2回答

CentOS可以设置为纯EBCDIC吗？

character-encoding、ebcdic

我计划使用COBOL通过GCC或任何最好的产品。(一次一个障碍) 有人经历过这件事吗？

浏览 0提问于2014-10-12得票数 -1

1回答

如何从程序集返回到COBOL的指针中寻址数据库程序

assembly、cobol、mainframe

我有一个COBOL程序调用一个组装模块。这个模块返回一个指针，指向在这个模块中获得的一些数据(我称之为“缓冲器”)。如何将工作存储中的变量定位到此指针并使用数据？在我的COBOL调用者中，我有如下内容：01 WK-MOD-AREA.01 FILLER REDEFINES WK-BUFFER-PTR. 03 WK-BUFFER-

浏览 0提问于2017-09-21得票数 3

回答已采纳

1回答