⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 program1.cbl

📁 cobol大机操作语言的历程
💻 CBL
字号:
       IDENTIFICATION DIVISION.
       PROGRAM-ID. TEST-SUBCHAR.
       AUTHOR. TEIIKU.
      *
       ENVIRONMENT DIVISION.
      *
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 DATES PIC X(10).
       01 YEAR PIC X(4).
       01 MONTH PIC XX.
       01 DAYS PIC XX.
      *
       PROCEDURE DIVISION.
       MOVE '2008/08/27' TO DATES.
       MOVE DATES(1:4) TO YEAR.
       MOVE DATES(6:2) TO MONTH.
       MOVE DATES(9:2) TO DAYS.
       DISPLAY 'DATE:',DATES.
       DISPLAY 'YEAR:',YEAR.
       DISPLAY 'MONTH:',MONTH.
       DISPLAY 'DAY:',DAYS.
       STOP RUN.

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -