program10.cbl

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

       IDENTIFICATION DIVISION.
       PROGRAM-ID. TEST-CHANGE.
       AUTHOR. TEIIKU.
      *
       ENVIRONMENT DIVISION.
      *
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 TEST-STRING PIC X(20).
      *
       PROCEDURE DIVISION.
       MOVE 'B2.C-AB2H/DE' TO TEST-STRING.
       DISPLAY 'SOURCE DATA:',TEST-STRING.
       INSPECT TEST-STRING
           REPLACING FIRST 'A' BY 'B' AFTER INITIAL '-'.
       DISPLAY TEST-STRING.
       INSPECT TEST-STRING
           REPLACING CHARACTERS BY '0' BEFORE INITIAL '-'.
       DISPLAY TEST-STRING.
       INSPECT TEST-STRING
           CONVERTING 'ABCDEFGHI' TO '123456789' BEFORE INITIAL '/'
               AFTER INITIAL '-'.
       DISPLAY TEST-STRING.
       STOP RUN.