000000 IDENTIFICATION DIVISION.
000010 PROGRAM-ID. SAMPLE.
000020*--------------------------------------------- 
000030* データ定義
000040*---------------------------------------------
000050 DATA DIVISION.
000060*---------------------------------------------
000070* 作業場所節: 静的データを確保する (static属性)
000080*---------------------------------------------
000090 WORKING-STORAGE SECTION.
000100*データ名標の規則
000110*
000120*  ① 英字、数字、ハイフン、下線(_)を含む文字列
000130*     ただし最後がハイフン、下線であってはならない。
000140*     最低１文字の英字が含まれていなければならない。
000000*
000000*     ※データ名標の長さ：30文字 (SITCOBOLは制限なし）
000150*     
000160 01 W_DATA001    PIC X(10) VALUE "W_DATA001".
000170 01 A0-1-2-3-4-5 PIC X(12) VALUE "A0-1-2-3-4-5".
000180 01 000-ABC      PIC X(10) VALUE "000-ABC".
000190* 
000200*  ② 日本語(全角文字)     
000000*     ※データ名標の長さ：30文字(SITCOBOLは制限なし)
000210*  
000220 01 生年月日     PIC 9(8) VALUE 20240517.
000230*
000240*  ③ FILLER項目  手続きから参照されない項目などにつける
000250*
000260 01 FILLER PIC 9.
000000 01        PIC X.
000270  
000280*---------------------------------------------
000290* 手続き
000300*---------------------------------------------
000310 PROCEDURE DIVISION.
000320 MAIN00.
000330     DISPLAY W_DATA001.
000340     DISPLAY A0-1-2-3-4-5.
000350     DISPLAY 000-ABC.
000360     DISPLAY 生年月日.