program2.cbl

来自「cobol大机操作语言的历程」· CBL 代码 · 共 30 行

       IDENTIFICATION DIVISION.
       PROGRAM-ID. TEST-SUBCHAR.
       AUTHOR. TEIIKU.
      *
       ENVIRONMENT DIVISION.
      *
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 SOURCE-STR PIC X(10).
       01 SUB-STR-1 PIC X(10).
       01 SUB-STR-2 PIC X(10).
       01 NEW-STR PIC X(10).
       01 I PIC 9.
       01 J PIC 9.
      *
       PROCEDURE DIVISION.
       MOVE '00000ABCDE' TO SOURCE-STR.
       INSPECT SOURCE-STR
           TALLYING I FOR LEADING '0'.
       COMPUTE J = I + 1.
       MOVE SOURCE-STR (J:10) TO SUB-STR-1.
       MOVE SOURCE-STR (1:I) TO SUB-STR-2.
       STRING
           SUB-STR-1 DELIMITED BY SPACES
           SUB-STR-2 DELIMITED BY SPACES
           INTO NEW-STR.
       DISPLAY 'SOURCE:',SOURCE-STR.
       DISPLAY 'NEW-STR:',NEW-STR.
       STOP RUN.