当前位置: 首页 > 知识库问答 >
问题:

在cobol中处理字母数字数据

夏令秋
2023-03-14

WS-VAR1属于PIC x(3)WS-VAR2也是PIC x(3)

我在表ws-var1=“1”中有一个字段,我希望将其值移到另一个字段ws-var2中,该字段应包含“1”的值。WS-var1WS-var2都是字母数字字段。请建议合适的方法来实现这一点。

共有1个答案

孙阳舒
2023-03-14

假设您希望对一个字符串(不包含中间空格)进行右对齐,可以使用:

INSPECT ws-var1 TALLYING num-chars FOR CHARACTERS BEFORE SPACE
MOVE ws-var1 (1:num-chars) TO ws-var2 (3 - num-chars + 1:)

其中num-chars是初始值为0的数值数据项。

(或者,如果您有幸使用带有TRIM intrinsic的编译器,您可以将WS-var2声明为crivided RIGHT,并简单地将函数TRIM(ws-var1)移动到WS-var2。)

 类似资料:
  • 问题内容: 我想计算以下字符串中的字母,数字和特殊字符的数量: 我试过了: 但我遇到了错误。我对此尝试了各种其他变化-仍然出现错误-如: 找不到’<=’的重载,该重载接受提供的参数 问题答案: Swift 3更新: (以前的Swift版本的答案) 一个可能的Swift解决方案: 更新: 上述解决方案仅适用于ASCII字符集中的字符,即不能将Ä,é或ø识别为字母。Foundation框架使用以下替代

  • 我正在使用Lucene 3.0编写一位前队友的代码。3. 有一个注释声称QueryParser不能处理“特殊字符”,处理的一种方法是用空格替换“特殊字符”: 是正在使用的分析仪。(谢谢马克) 我假设“特殊字符”用于组合查询或某种通配符处理,因为缺少更好的术语。 有没有更好的函数可以解释查询字符串中的这些字符?

  • 我有一个COBOL程序,它生成具有以下结构的顺序文件: 如果我在记事本++中打开该文件,我会看到奇怪的unicode符号,这些符号是由变量引起的,很难读取。类似于下面图像的内容(图像来自另一个文件): 有没有办法不使用COBOL重写这个顺序文件以使其可读?也许使用像VBS这样的脚本语言?任何提示或建议将被感谢,如果你需要更多的信息让我知道,我会编辑的帖子。

  • 问题内容: 改善这个问题 我是android编码练习的新手 假设这是我的第一个ID,我希望使用共享的首选项将此值自动递增1并用作员工ID。如ABB20180002,ABB20180003,ABB20180004等。 问题答案: 您不能直接增加字母数字值。如果要这样做,您需要为其编写一些代码行 这是 activity_main.xml 这是 MainActivity.java 希望这会帮助你。

  • Boost.Integer 这个库提供了对整数类型的有用功能,如编译期的最小、最大值常数[3], 基于给定位长的合适大小的类型,静态二进制对数计算等等。还包括从1999年C标准头文件&lt;stdint.h&gt;中的typedef。 [3] std::numeric_limits 仅能以函数方式提供这些值。 Integer 的作者是 Beman Dawes 和 Daryle Walker. Bo