program11.cbl

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

       IDENTIFICATION DIVISION.
       PROGRAM-ID. TEST-LOWER-CASE.
       AUTHOR.   TEIIKU.
      *
       ENVIRONMENT DIVISION.
      *
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 STR PIC X(10).
      *
       PROCEDURE DIVISION.
       MOVE 'ABE-de' TO STR.
       DISPLAY FUNCTION LOWER-CASE(STR).
       DISPLAY STR.
       STOP RUN.