时间戳

首页 > 解决方案 > 如何删除前导零并将数字移到整数变量的最左边

format - 如何删除前导零并将数字移到整数变量的最左边

问题描述

所以假设我有一个存储两位数的变量。01 my-int PIC 99. 但是，当my-int采用一位数字值时01，我希望它1在打印时采用数字始终位于最左侧且右侧有空格的形式。关于我应该如何定义my-int以实现这一目标的任何想法？
谢谢！

标签： formatintegercobol

解决方案

定义 my-int 来存储数据01 my-int PIC 99，然后使用编辑01 my-edit PIC z9并使用MOVE my-int TO my-editandDISPLAY FUNCTION TRIM (my-edit LEADING)或（在这种特殊情况下，您只有一个空格）：

IF my-int > 9
  DISPLAY my-int
ELSE
  DISPLAY my-int (2:)
END-IF

推荐阅读