program9.cbl

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

       IDENTIFICATION DIVISION.
       PROGRAM-ID. TEST-INSPECT.
       AUTHOR. TEIIKU.
      *
       ENVIRONMENT DIVISION.
      *
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 TEST-STRING PIC X(10).
      *
       PROCEDURE DIVISION.
       MOVE '000000.893' TO TEST-STRING.
       DISPLAY 'BEFORE INSPECT:',TEST-STRING.
       INSPECT TEST-STRING
           REPLACING LEADING '0' BY '*'.
       INSPECT TEST-STRING
           REPLACING FIRST '*' BY '$'.
       DISPLAY 'AFTER INSPECT:',TEST-STRING.
       STOP RUN.