小编use*_*345的帖子

抑制 COBOL 中的前导零

我曾尝试在网上查找此内容,但找不到与我的情况相符的任何内容。我需要抑制输出中的前导零,但无法正常工作。我需要压制的数字是 PR-PAY-RATE。

  ******************************************************************
   ID DIVISION.
      PROGRAM-ID. LAB5
      AUTHOR. asdf.
      DATE-WRITTEN. March 25, 2014.
      DATE-COMPILED. CURRENT-DATE.
  ******************************************************************
   ENVIRONMENT DIVISION.
     INPUT-OUTPUT SECTION.
     FILE-CONTROL.
       SELECT PAYROLL-FILE ASSIGN TO PAYIN
       ORGANIZATION IS SEQUENTIAL.

   DATA DIVISION.
     FILE SECTION.
     FD PAYROLL-FILE.

  **** Payroll Record Length 360 characters ************************
   01  PAYROLL-RECORD.
       05  PR-EMPLOYEE-ID         PIC  X(07).
       05  PR-LAST-NAME           PIC  X(26).
       05  PR-FIRST-NAME          PIC  X(15).
       05  PR-DIVISION            PIC  X(10).
       05  PR-GROUP               PIC  X(10).
       05  PR-DEPARTMENT          PIC  X(10).
       05  PR-TITLE               PIC  X(20).
       05  PR-ADDRESS1            PIC  X(30).
       05  PR-ADDRESS2            PIC  X(30). …
Run Code Online (Sandbox Code Playgroud)

cobol leading-zero

2
推荐指数
1
解决办法
2万
查看次数

标签 统计

cobol ×1

leading-zero ×1