代码之家 › 专栏 › 技术社区 › MC Emperor

如何处理作为CALL语句参数的文字?

cobol

MC Emperor · 技术社区 · 8 年前

我正在尝试传递字符串文本作为 CALL 陈述

CALL "SOMEPROGRAM" USING "SomeStringLiteralArg"

我必须将参数定义为调用子程序中的链接项:

LINKAGE SECTION.
 77 SOME-STRING-ARGUMENT PIC X(20).

这是可行的,但当我传递的字符串长度小于20个字符时,运行库开始抱怨:

通过的USING项(#1)小于相应的LINKAGE项。

给定的字符串文字长度必须为20个字符。但我有理由将字符串文字作为参数传递:

~~我懒得为传递给程序的每个项目定义一个临时变量。~~ 对于我传递给程序的每个项目,在工作存储器中有100个不同长度的“临时”变量,这将使程序不必要地杂乱无章。
```
MOVE "ShortStrLit" TO SOME-TEMP-VAR
CALL "SOMEPROGRAM" USING SOME-TEMP-VAR
```
我也不想手动填充字符串文字以匹配所需的20个字符的长度:
```
CALL "SOMEPROGRAM" USING "shortStrLit         "
```

我的一个问题是,或者说当然:我如何将文字作为参数传递给 呼叫 如何将文字作为参数传递给 呼叫 语句已处理? 例如,如果我通过 9 ,它是解释为内容为“9”的字符串,还是编译时转换为整数?

我在Windows 10上运行MicroFocus ACUCOBOL-GT 9.2.4。

2 回复 | 直到 8 年前

Simon Sobisch 8 年前

这里有两个问题:

First-如何传递字母数字文字:

对于 CALL some-cobol-prog USING "alphanumeric literal" COBOL 2002增加了以下内容:

LINKAGE SECTION.
 01 SOME-STRING-ARGUMENT PIC X ANY LENGTH.

如果编译器不支持它,则必须填充文字或使用变量。

第二个-数字文字解释为字母数字:

我见过的所有编译器都会将其转换为整数-最重要的是,究竟什么类型取决于所使用的编译器。。。

Carlos 8 年前

isCobol支持Pic x任意长度。 isCobol支持编译acucobol源代码。

working-storage section.
77 SOME-STRING-ARGUMENT PIC X(20).

linkage section.
77  this-string object reference j-string.

procedure dividion using this-string.
main.
    set some-string-argument to this-string.

推荐文章

sunleo · 这是否可以使用java将EBCDIC Comp-3文件转换为ASCII文件值?

7 年前

Bruce Martin · 如何为Cobol copybook生成java~jrecord代码

7 年前

SaggingRufus · 是否需要在我的JCL中指定所有文件?

7 年前

JOHN · 如何解决CICS中的PROG753错误?

8 年前

MC Emperor · 如何处理作为CALL语句参数的文字?

8 年前

Lena · 将字母转换为包含数字的字符串中的数字

9 年前

Sridhar · 用于cobol显示和解包数字字段的Java映射

9 年前

raz_user · 由尾随空格分隔的Cobol字符串

9 年前

Benjer · 有没有一种方法可以用现代Cobol写评论?[副本]

10 年前

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

10 年前