000000 IDENTIFICATION DIVISION.
000010 PROGRAM-ID. SAMPLE.
000020*--------------------------------------------- 
000030* データ定義
000040*---------------------------------------------
000050 DATA DIVISION.
000060*---------------------------------------------
000070* 作業場所節: 静的データを確保する (static属性)
000080*---------------------------------------------
000090 WORKING-STORAGE SECTION.
000100*英数字データの定義
000110*5桁の英数字
000120 01 B001   PIC  XXXXX VALUE "ABCDE".
000130 01 B002   PIC  X(5)  VALUE ALL "A".
000140 01 B003   PIC  X(05) VALUE ALL "AB".
000150*---------------------------------------------
000160* 手続き
000170*---------------------------------------------
000180 PROCEDURE DIVISION.
000190 MAIN00.
000200     DISPLAY "BEFORE B001 = " B001.
000210     MOVE "XYZ" TO B001.
000220     DISPLAY "AFTER  B001 = " B001.
000230*
000240     DISPLAY "BEFORE B002 = " B002.
000250     MOVE  "ABCDEFG" TO B002.
000260     DISPLAY "AFTER  B002 = " B002.
000270*
000280     DISPLAY "BEFORE B003 = " B003.
000290     MOVE "XYZ" TO B003(1:3).
000300     DISPLAY "AFTER  B003 = " B003.
000310     STOP RUN.