需要从COBOL pic子句中删除前导空格吗?

我需要能够删除Cobol PICX(80)中字符串的所有前导空格 代码: 然后,我应该能够将字符串地址写入文件,而不需要任何前导空格 错误代码: 775 IGYPS0088-S“解列”语句无效。应为“INTO”,但应为“INTOWS-SPACES”。该声明被放弃 您已经在源代码的第7列中指定了“continuations”,减号/破折号 延续是非常,非常,很少需要的。仅在继续文字时才需要它们 从第7列中删除“-”s 我不认为你的代码会像你想的那样,但是如果你有问题,请问一个新问题 当文字继续时,

Cobol 将自定义外部文件处理程序与微焦点默认EXTFH混合使用

我已经编写了一个自定义外部文件处理程序(EXTFH),但在某些情况下,我希望恢复到微焦点EXTFH。案例以文件为基础(而不是以文件类型为基础) 我的想法是,打开时,我在FCD中放置一个标记,告诉后续操作(读、写、关闭)使用的是哪个EXTFH 我的EXTFH具有控制功能,如果FCD中有一个位置保证不会被微焦点损坏,那么逻辑就非常简单 FCD(fcd2.h和fcd3.h)中是否有一个地方可以将打开的文件标记为由EXTFH打开 我最糟糕的情况是,我保存了一个已分配的fcd->handle指针列表,若已

Cobol 与DDNAME关联的PDS成员列表

如何使用COBOL获取PDS的成员列表(使用批处理作业中指定的DD名称)? 可以动态处理使用DDNAME指定的PDS。因此,可以使用TCB获取给定DDNAME的PD列表并处理指定的成员名 但是如何使用COBOL获取PDS的成员列表呢?我知道这可以很容易地用REXX实现。但是我需要在COBOL中使用它,或者直接从COBOL中调用它。如果您指定此选项,只需简单的选择(当然包括文件状态),就可以读取PDS目录 FD INPUT-FILE RECORDING MODE IS U

为什么';t GnuCOBOL';什么是舍入语法编译?

如果有人能指出我在下面这个非常小、非常琐碎的COBOL程序中到底做错了什么,我将非常感激。它使用COBOL的标准工具,即语言元素舍入,对结果进行舍入。其目的是构建一个大型应用程序,并将时间度量应用于不同的舍入模式,因为每个模式都有一系列操作和后续舍入。(更不可告人的动机是向后学习COBOL,这只是该计划中的一个项目,然后尝试获得一份使用和开发COBOL的工作) 下面列出了该程序。它执行一个简单的加法,结果被传递给一个数据宽度较小的变量,该变量强制执行舍入 000100 IDENTIFICATIO

COBOL中变量声明右边的代码的意义是什么?

我正在学习COBOL代码,但不理解代码行右侧的数字: 007900 03 EXAMPLE-NAME PIC S9(17) COMP-3. EB813597 第一个数字是关于该行在代码中的位置,第二个是关于列的位置(比如您使用了多少个“制表符”),第三个是变量的类型,但第四个(COMP-3)主要是最后一个(EB813597)我不理解 这是什么意思?忽略列>=72。因此,EB813597被忽略。它可以是上次更改时的更改id,或者具有某些特定于站点的

将多行值从JCL instream传递到Cobol变量88

例如: 01 VAR1 PIC 9(05). 88 WS-VAR1 VALUE 1000 1001 1002 1003 1004 1009 2000 2002 3000 4000 4009 5000 5001 6000 7000 8000 2332 8484. 如何将JCL中的值作为instream传递给Cobol程序变量88。 因此,在不更改程序的情况下修改值将更容易 我发现了两种解

有没有像其他语言一样用COBOL记录变量的方法?

我知道有一个DIPSLAY操作数可以让你“记录”任何变量值。然而,我的问题是:有没有办法像javascript的console.log的PHP的var_dump那样,当您给它们一个变量时,它们会打印值和变量名 比如说,我有以下数据: 01 MY-DATA. 05 FIRST-PART PIC X(05) VALUE 'DATA1'. 05 SECOND-PART PIC X(05) VALUE 'DATA2'. 我的问题是:我的日志中是否有类似的内容(通过一个调用

Cobol 随机函数总是返回相同的结果,尽管种子不同

我正在尝试创建一个随机数生成器(一些随机数稍后将从中转换为[a-Z]字符)。我已经让随机生成器的主要部分工作,但我不断收到相同的随机结果0.6734141422 我面临的另一个问题是:有一半的时间我的程序编译得太快。由于我使用的是以毫秒为单位的当前日期,因此让我的程序快速编译将意味着给RANDOM函数提供相同的种子。我一直在考虑简单地添加一个计数器,在将每个种子应用于RANDOM之前将其除以计数器。这就足够了,还是有更优雅的解决方案 有人能给我解释一下,为什么我总是收到相同的随机结果,即使应用了

如何从cobol数据形成XFD

我将尝试根据以下文件设置选项重新定义XFD文件结构 Anaylsis Result: Max Record length 300 Min record length 61 No of records 466 Blocking factor 1 Preallocation amount 0 Extension amount 1 Compression factor 80 Encrypted ? No Number of keys 4 Primary key has 1 segments key

使用cobol计算变量的长度字符串

我在数据库表中有一个注释 我如何计算那根绳子的长度 我有一个变量,定义如下 10 NOTE. 49 NOTE-LEN PIC S9(4) USAGE COMP. 49 NOTE-TEXT PIC X(500). 注释是一个500个字符的字符串。 我想计算音符长度。这里有一种常见的方法: MOVE ZERO TO count-of-trailing-spaces INSP

Cobol imsdb中的GHNP调用

我想知道在进行GHNP呼叫之前需要在IMS中进行哪些呼叫。我的应用程序cobol代码在进行GHNP调用之前有GU、GHU调用。在执行GHNP功能之前必须进行这些调用吗?请注意,GN表示“下一步”,因此所有GN类型的调用(GN,GNP,GHN,GHNP)取决于您在数据库中的当前位置。如果之前没有任何呼叫,则位置未定义,因此将是您的GN-呼叫的结果 因此,为了得到一个定义良好的结果,您必须发出一条语句,在数据库中建立一个定义良好的位置-通常这是一个GU-类型(“get unique”)调用。它也可以

Cobol 接受签名值作为记录的一部分

我有一个相当基本的Cobol程序,用来学习记录结构。当在ACCEPT语句中作为记录的一部分传递带符号的数值时,我注意到gnucobol的奇怪行为 该计划的定义如下: IDENTIFICATION DIVISION. PROGRAM-ID. TEST. DATA DIVISION. WORKING-STORAGE SECTION. 01 Account. 02 Name PIC X(5) VALUE SPACES. 02 Balance PIC S9999V999 VALUE ZEROES

COBOL ADD语句未使用记录中的正确字段?

所以我在为课堂写这个程序,我相信我是对的。但我无法测试它,因为我无法对输入记录中的某个字段执行任何操作。我需要将它添加到数组中的不同位置,但由于它使用了错误的字段,因此出现了“数字字段中的无效字符”错误。我的输入记录也正确。输入文件编码为: FD SALES-AMT-FILE-IN. 01 SA-SALESMAN-NUM-IN PIC 99. 01 PIC X VALUE SP

Microfocus Cobol动画调试器

我正在使用Microfocus animator工具,并且能够从putty调试cobol可执行文件。cobol animator工具将可执行文件转换为源代码,并突出显示当前正在执行的语句 但是,当到达Cobol中的“GOBACK”语句时,动画师和putty会话将挂起 请告诉我如何解决此问题您是否尝试按ESC键并退出调试器?我知道当我使用它时,它总是在程序结束时停止,你必须先按ESC键,然后说“是”停止或取消跟踪 我在microfocus网站上找到了这个。检查你的设置和变量,看看它们是否与上面所说

在COBOL中多次调用函数

我主要调用两个函数。 第二个函数(Decrypt)调用其中的第一个函数(Encrypt)。这里加密被调用了两次。一次在主体中,然后一次在内部解密 问题是它拒绝这样做。一旦在主程序中使用了Encrypt,我就不能在程序中的任何地方再次使用Encrypt~。好像变量还在使用,我无法传递新的变量 例如,如果我从主函数中删除Encrypt,只调用Decrypt,它就可以正常工作。我不明白为什么 IDENTIFICATION DIVISION. PROGRAM-ID. CAESER-1-CIPHER. D

JCL如何将PRTOUTA等连接起来。。。到Cobol程序?

我正在编写一个程序,该程序将信息写入输出文件,并使用PRTRTENO程序将信息写入PRTOUTA、PRTOUTB、PRTOUTC。您必须将变量移动到打印区域,等等 我确信这与普拉特诺有关,但我不能完全肯定 Cobol: PRINT-B. DISPLAY 'PRINT-B SECTION' MOVE 'B' TO RPT. CALL 'PRTRTENO' US

Cobol 将显示格式从字符模式更改为数字模式

变量VAR中的值是-1,当我试图写入文件时,它显示为J(字符模式),这相当于-1 该变量在Cobol程序副本中定义如下: 10 VAR PIC S9(1) 是否有办法将输出文件中的显示格式从字符“J”更改为-1 我通过谷歌搜索找到的信息如下: 值+0个字符{ 值-0个字符} 值+1个字符A 要将EBCDIC到ASCII字符转换产生的分区ASCII字段转换为前导符号数字字段,请检查字段中的最后一个数字。如果是“{”,则将最后一位数字替换为0,使数字为正。如果是“a”,则将最后一位数字替换为1,使数

基于变量跳过cobol中的文件

我有一个大的cobol源代码文件,它读取一个文件,检查特定记录中的id,处理,然后重复,直到没有更多的文件。我有一些记录包含我不想处理的ID。我想读取文件,读取记录,如果记录变量等于某个字符串,我想移动到下一个文件,不处理这个文件。有什么建议吗?您尝试过什么?),您可以将文件中的“跳过id”读入表中,然后在表中进行搜索以检查是否要处理。或者,如果文件处于密钥序列中,则可以使用“合并进程”。合并将包括这些edi文件(采购订单)。文件进入并查看第一条记录,然后获取发送者id并将其放入变量中。程序根据

将参数传递给TWS作业的Cobol程序

使用变量是最好的方法吗?与EQPIFJC操作JCL/TWS变量的方式类似?将一些变量传递给提交的作业流有两种主要的可能性: 替换变量表中的值,并提交作业流(发生)。如果需要多次提交同一个作业流,此方法可能很难管理,因为在作业流完成之前无法更改变量表值 在作业流的开头使用JCL准备作业,然后提交作业流,并使用指定变量值或编辑作业JCL 将一些变量传递给提交的作业流有两种主要的可能性: 替换变量表中的值,并提交作业流(发生)。如果需要多次提交同一个作业流,此方法可能很难管理,因为在作业流完成之前无法

COBOL语法错误';意外';(带显示命令)

大家好,我现在正在学习COBOL,我有点困在我的练习中。 我目前正在使用德语书《内幕COBOL》来探讨这个话题 现在的问题是: 我重建了介绍的例子,这是一个计算总价的计算器,你写产品的数量,价格和增值税,程序会给你净金额,增值税金额和总金额 最后,我看到代码前面有一个输入错误,所以我修正了它。 在那之后,整个过程部门对我创建gui的所有显示都变得疯狂起来 每个错误都会说“语法错误,意外”(“少数人在语法错误后也会说“预期省略或标识符”)。 我在谷歌上搜索了一下语法是否改变了,但我真的不明白,怎么

COBOL输出空白文件而不是预期输出

嘿,伙计们,我一整天都在为这件事挠头,但都没用。我正在运行一个COBOl程序,它应该从一个文件中获取输入,并在满足某些条件时将其输出到另一个文件。 这是程序部分。 PROCEDURE DIVISION. * A000-START. OPEN INPUT CUST-RECS. OPEN OUTPUT ACCT-RPT. PERFORM A000-WRITE-FIRST. PERFOR

如何跳过COBOL中的一行?

我有一个cobol项目,一切正常,打印效果良好,只是我不知道如何跳过地址之间的一行 行动代码: 200-PROCESS-ONE-RECORD. MOVE NAME-IN TO LEFT-LABEL-OUT MOVE SPACES TO BLANK-OUT MOVE NAME-IN TO RIGHT-LABEL-OUT MOVE SPACES TO BLANK-A-OUT WRITE LABEL-RECORD-OUT MOVE ADDRESS-IN TO

大写字母的COBOL数据验证?

我在大学的第二个季度学习“高级COBOL”,我们刚刚收到一份作业,要求我们为不同的数据编写一些验证程序。除了小的验证程序,我什么都做了 有一个名为“零件号”的字段,长度为8字节。前5列必须是数字。第6列必须是大写字母,最后2列必须在01-68或78-99范围内。我唯一的问题是如何验证第6列是否为大写 以下是我正在使用的代码: 从工作存储: 01 DETAIL-LINE. 05 PART-NUMBER.

Cobol 什么';从字母数字到数字的移动有什么不对?

当我将picx中的数字移动到pic9时,数字字段的值为0 FOO,一个picx(400),在第一个字节中有“1”,在剩余的399中有空格。进入PIC 9(02)栏如下 DISPLAY FOO MOVE FOO to BAR DISPLAY BAR 屈服 1 0 为什么条形图是0而不是1?[编辑:最初是“发生了什么事?”] Postscript:NealB说“不要编写依赖模糊截断规则和/或 数据类型强制。在您所做的事情中要精确和明确。” 这让我意识到我真的想要计算栏作为函数NUMVAL(FOO

Cobol 第一次执行后GO TO语句的问题

在使用GO-TO语句时遇到问题。假设此操作一直运行到用户键入“END”。如果我在第一次打开程序时键入“END”,它将关闭,但如果我在第一次通过时输入有效数据后键入,它将继续返回用户输入数据屏幕 ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT USED-CAR-FILE-OUT ASSIGN TO 'USED-CAR.RPT' ORGANI

从数据结构用Cobol创建表?

我需要用下面的数据结构制作一个表格,因为我不确定输入文件中每行有多少条记录。如果我能做一个表格,那么我将能够在以后的时间循环通过它们,这就是我需要能够做到的 **问题:以前如何用数据结构制作表格? 第二部分:Cobol中的数组是一个发生100次的数组 01 PRECORD. 05 JE. 10 NE PIC X(6) VALUE SPAC

MicroFocus Cobol程序返回ORA-01438

使用Micro Focus Cobol 5.1和Oracle 12c的任何人在执行返回ORA-01438(值大于此数字列允许的指定精度)的程序时有任何问题吗 Cobol列定义为PICS9(7)V9(2)和Oracle表列定义NUMBER(9,2)。服务器是SPARC Solaris 64位。大多数(如果不是所有的话)预编译器/编译器参数都设置为64位的默认值。Cobol程序在Oracle 11g环境中运行良好。我们确实增加了Oracle表列的大小,作业运行正常,但结果数据不正确。谢谢。当您增加列

Cobol-如何确定PICN字段中内容的长度和位置?

我发现我倾向于把问题分成太大的块来解决,所以我的建议是 尝试从更小更具体的东西开始 我只在PICN领域工作,这是国家领域。我需要为我正在编写的程序确定该字段中内容的长度和位置 我所说的具体领域定义如下: 05银行代码picn(10)。 可能有前导空格,也可能有尾随空格。在某个时候,我还需要测试它的嵌入空间 基本上,目标是能够在没有空格的情况下处理此字段的内容 现在,我知道如何确定字段本身的长度: 05银行代码图N(10)。 05 BK长度图S9(04)组件。 将银行代码的长度移动到BK长度 计

COBOL-了解我自己

在COBOL程序中,我有以下语句: SET MYSELF (STATUS) TO -1. 这句话是什么意思?我不明白我自己和地位的话。看起来它给状态参数赋值为-1,对吗?“我自己”是什么意思?我自己是一个保留字,允许编译器提供的任务项引用自己进程的属性。因此,您正在将自己流程中的状态设置为-1 (PDF链接) 保留字本身是编译器提供的任务项 使程序能够访问自己的任务属性。因此,任何 给定任务的属性可以在该任务中引用为 我自己的名字 例如,将我自己的属性DECLAREDPRIORITY更改为9

Cobol 将记录附加到现有文件

如果我想将记录附加到现有文件中,我需要使用哪些DISP参数?DISP=MOD 这将附加到现有顺序数据集的末尾。如果指定的数据集尚不存在,则将创建该数据集(在本例中,DISP=MOD和DISP=NEW是等效的) 注意以下事项: 多卷数据集 DISP=MOD的行为取决于您是否指定 特定的卷。你应该复习一下 规则 分区数据集 如果在DSNAME参数中指定成员名称, 成员名称必须不存在。系统将读/写机制定位在末端 数据集的一部分。如果成员名称已存在,系统将终止作业 如果未指定成员名称, 系统将读/写机制

Cobol 读取和排序可变长度的CSV文件

我们正在使用OpenVMS系统,我相信它正在使用 具有大量记录(500mb或更多)的数据文件,这些记录长度可变。记录以逗号分隔。我想解析每个记录并提取相应的字段进行处理。在那之后,我可能想按某些特定字段对其进行排序。有可能用cobol吗 我只见过使用固定长度记录进行排序。可变长度没有问题,不确定在VMS cobol中如何进行排序,但用于此的IBME是:- 文件节。 FD文件记录随REC长度而变化。 01录制图片X(5000)。 工作存储区。 01 REC长度图片9(5)计算 读取文件时,“REC

Cobol 如何限制运行cics程序的访问权限

我有一个cics应用程序,我不想开发登录屏幕,而是想通过获取用户id来限制访问,然后验证是否允许他们运行我的应用程序。这可能吗?谢谢在CICS环境中限制对某些事务的访问可能有比抓取用户ID并与列表进行比较更好的方法。大多数商店都开发了限制对CICS内事务的访问的标准技术。但是,如果必须找到用户Id,请尝试以下操作: EXEC CICS ASSIGN USERID(WS

COBOL文件输入,数字用空格分隔

我是COBOL的新手,我面临以下问题 我有一个包含以下内容的输入文件: 2 3 2 4 4个数字在同一行中,用一个空格隔开。 这4个数字可以是1位数、2位数和3位数 我能用PIC把这4个数字转换成4个变量吗? 例如:PIC XXX XXX XXX XXX(这不起作用。) 目前我正在使用子字符串来完成任务,但这不是高效和混乱的,有没有其他方法可以轻松完成任务 谢谢您可以通过两种方式来实现这一点。第一是使用非重读句。或者您可以声明一个变量级别01,并在其中分别定义字符串的每个变量 例如: 01 WS

Cobol 将输入值添加到CurrentTime

我正在尝试制作一个计算机咖啡厅系统,我的问题是如何将输入值(小时数)添加到当前时间,例如,现在的时间是11.30,输入值是5,所以结束时间是4:30 IDENTIFICATION DIVISION. PROGRAM-ID. Example. AUTHOR. Lee Martin Flores. DATA DIVISION. WORKING-STORAGE SECTION. 01 MachineNo PIC 99 VALUE ZEROS. 01 Ho

Cobol中是否有某种内在的东西使其容易受到Y2K问题的影响?

我知道很多Y2K的努力/恐慌不知何故都集中在COBOL上,不管是否值得。 (见鬼,我在打破2000年1月1日的Perl脚本中看到了小小的Y2K错误) 我感兴趣的是,COBOL作为一种语言是否有某种特定的东西使它容易受到Y2K问题的影响 也就是说,与之相反的是,大多数用它编写的程序都已经过时了,随后需要节省内存/磁盘的使用量,这是由旧硬件驱动的,而且没有人预计这些程序可以生存30年 如果答案是“除了年龄,没有什么是COBOL特有的”,我非常高兴——只是好奇,对COBOL一无所知。这似乎更像是人们不

COBOL:SYSIN JCL用于从PDS编译源代码

我刚开始COBOL,在JCL遇到了这个。。。我如何从我的PDS编译一个基本的cobol程序,我知道通过instream它将是 //SYSIN DD* 代码 /* 我试过类似的东西 //SYSIN DD DSN=the.pds.location(文件),DISP=SHR 但所有的回击都是垃圾,我想返回码是12 如果有人能帮忙,我将不胜感激。根据您发布的信息,您的JCL 应该有用。也许你错过了别的东西。 下面的JCL提供了完整的作业步骤 COBOL编译: ... 你的工作卡在这里。。。 //COB

Cobol 有没有一种方法可以将检查计数与多个字符的检查结合使用?

我有一个字符串,我希望统计字符数,直到找到某个字符模式 例如: 给出一个字符串:askabanskartikrockstar 我想知道字符串中kartik前面有多少个字符 在通常情况下,我需要在给定字符串中找到前面的字符数,比如说k,我会将代码写为: INSPECT WS-INPUT-STRING TALLYING CT-COUNTER FOR CHARACTERS BEFORE LT-K 在哪里 WS-INPUT-STRING是字母数字,值为 Askabanskartikrockstar

Cobol 如何使用CBL_EXEC_RUN_单元

我们正在尝试从程序A异步调用程序B 当我们尝试使用CBL_EXEC_RUN_单元从程序A调用程序B时,会出现以下错误 我们使用的是microfocus COBOL。203消息告诉您,您没有正确地使用“程序”部分中的项目。对ADDTWO程序的实际调用中缺少一个或两个参数 我不知道您是否在“命令行”中提供了两个参数,也不知道您是否正确地提供了它们,以便能够调用ADDTWO。ADDTWO将像主程序一样运行。如何为运行环境(操作系统和Micro Focus的运行时)中的主COBOL程序提供多个参数值 我

开始使用OpenCOBOL!(“你好,世界!”)

我正在尝试制作一个非常简单的COBOL程序。我已经设置了我的目录、配置等,但是当我去编译它时,我得到了以下错误: sampleCOBOL.cbl: In paragraph 'Main-Paragraph' : sampleCOBOL.cbl:9: Error: syntax error, unexpected "end of file" (“sampleCOBOL.cbl”是我的文件名) 这是我的文件包含的内容: Identification Division. Program-

Cobol 已请求可执行程序,但过程/条目具有USING子句

有人知道是什么导致了这个编译错误吗?我正在尝试使用OpenCOBOL编译一个遗留的COBOL程序。这是我得到的错误: Error: Executable program requested but PROCEDURE/ENTRY has USING clause 我的程序部门是这样的: procedure division using array-area, m, err, sum1. 这是我工作站的链接部分: working-storage section. 77 i pictur

您能在同一行COBOL上接受两个输入吗?

这很难解释,但我有两列,一列是订购的物品,另一列是物品的价格。用户需要在下面输入计算机名称及其价格。我遇到的问题是,我需要在同一行上输入,但不知道如何输入,因为我是COBOL新手。 它应该是什么样子的例子是 订购的物品价格 计算机:戴尔250.00 我尝试使用 display "ITEMS ORDERED Price". display "Computer: "with no advancing. accept DESCRIPTION-OF-LA

如何将长字符串移动到变量cobol

您好,我正在学习在线cobol(CICS)我想做的是在trans名称后获得5个数字,在前5个数字后获得5个数字,然后我必须添加、sub、mul、div并显示它 这是密码 ******************************************************* DATA DIVISION. WORKING-STORAGE SECTION.

Cobol 从文件中读取表只会导致存储第一条记录

其他背景:这是一项后续行动 由于输入数据由字符串和计算所需的整数组成,此程序批量读取每一行,然后分别从文件中读取每个字段,并在将必要字段存储在working storage section表中时将其转换为数字 现在,由于某种原因,只有第一条记录正确读取和存储。我猜,其余的记录被读取为空白或空,即使第一条记录之后的文件内容显然不是空的 以下是我当前的完整程序代码: IDENTIFICATION DIVISION. PROGRAM-ID. GRADEREPORT. AUTHO

Cobol 如何将文字转换为十六进制值

从文本文件中读取以2个字符表示的十六进制值,例如0C,我需要将相应的十六进制值X'0C'存储在程序变量中,如下代码所示。我知道COBOL允许将X'0C'移动到某个变量,但在我的例子中,文本“0C”存储在文件的记录中,而不是文本。 多谢各位 IDENTIFICATION DIVISION. PROGRAM-ID. T. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SPECIAL-NA

COBOL的用途是什么?

COBOL的用途是什么?通用面向业务的语言“发明者”(了解她的情况,她是我们今天所知道的计算发展中的关键人物之一)。总的想法是产生一种以英语为基础的语言,而不是以数学为基础或在代码中表达为基础的语言 非常简单地说,您将使用如下构造 ADD YEARS TO AGE 相对于 age = age + years 或 它出现在20世纪60年代早期,被大量用于商业领域的加工。仍然有大量用COBOL构建的应用程序仍在运行和维护,而且它仍然非常活跃。1997年前后,Gartner报告称,全球80%的业务

Cobol 参考其他结构中的通用结构

我需要定义copybook,描述我的文件格式。在我的文件中,有不同格式的行,但所有行的第一部分是相同的。如何仅定义一次公共结构并从其他结构中引用它? 我需要这样的东西: 01 Header. 02 Id PIC X(2). 02 Name PIC X(10). 01 LineA. 02 Header. "how can I reference the above Header, to not define it in every LineA, Line B?** 02 Some

AcuCobol外部调用

我正在尝试将我公司旧系统的一些功能集成到我们的新系统中 我们在AcuCOBOLV6.2上运行了一些COBOL代码。有没有一种简单的方法可以在不购买AcuToWeb或其他软件包的情况下进行外部http调用/甚至非http调用。我可以想出一些方法来处理这个问题: 通过打开文件名以“-P”开头的“文件”,调用外部(非cobol)程序。这使得acucobol创建到程序的管道。您可以读取或写入外部程序,但不能同时读取或写入。我通常在对话的另一端使用命令行参数或常规文件,但不能同时打开这两个参数。例如,打开

  1    2   3   4   5   6  ... 下一页 共 6 页