000010************************************************************************
000020** ACTZERO1
000030** $Id: actzero1.cbl,v 1.5 2007/11/17 02:28:35 nzawa Exp nzawa $
000040************************************************************************
000050*
000060 IDENTIFICATION DIVISION.
000070 PROGRAM-ID. ACTZERO1.
000080*
000090*
000100 ENVIRONMENT DIVISION.
000110*
000120************************************************************************
000130* I/O SPEC AREA ** INPUT-OUTPUT SECTION. **
000140*** ********************************************
000150 INPUT-OUTPUT SECTION.
000160*
000170*
000180 DATA DIVISION.
000190*
000200************************************************************************
000210* FILE SPEC AREA ** FILE SECTION. **
000220*** ********************************************
000230 FILE SECTION.
000240*
000250*
000260************************************************************************
000270* WORK SPEC AREA ** WORKING-STORAGE SECTION. **
000280*** ********************************************
000290 WORKING-STORAGE SECTION.
000300*
000310*
000320 PROCEDURE DIVISION.
000330*
000340************************************************************************
000350* ACTZERO1 START !! ** MAIN SECTION. **
000360*** ********************************************
000370 MAIN SECTION.
000380*
000390 DISPLAY 'Content-Type: text/html; charset=UTF-8'.
000400 DISPLAY ''.
000410 DISPLAY ''.
000420 DISPLAY ''.
000440 DISPLAY ''.
000460 DISPLAY ''.
000470 DISPLAY ''.
000490 DISPLAY ''.
000520 DISPLAY ''.
000550 DISPLAY ''.
000580 DISPLAY 'ACTZERO1:'
000590 ' COBOLでCGIプログラムを作らう'
000600 ' - W.F.N.'.
000600 DISPLAY ''.
000610 DISPLAY ''.
000620*
000630 DISPLAY 'ACTZERO1:'
000640 ' COBOLでCGIプログラムを作らう
'.
000650*
000660 DISPLAY 'Hello, COBOL World!
'.
000670 DISPLAY 'このページはCOBOLで作られた'
000680 'CGIプログラム'
000680 'によつて動的に生成されました！
'.
000690*
000700 DISPLAY '原始プログラム（ソース）
'.
000710 DISPLAY 'actzero1.cbl
'.
000720*
000730 DISPLAY 'このページについて
'.
000740 DISPLAY ''.
000750 DISPLAY '- ナビゲーション
'.
000760 DISPLAY '- ホームページ
'.
000770 DISPLAY '- COBO de LCGI
'.
000780 DISPLAY '- 公開日
'.
000790 DISPLAY '- 2006-08-16
'.
000800 DISPLAY '- 更新日
'.
000810 DISPLAY '- 2007-11-17
'.
000820 DISPLAY '- 制作者
'.
000830 DISPLAY '- Copyright © 2006-2007 Nzawa,'
000840 ' All rights reserved.
'.
000850 DISPLAY '
'.
000860 DISPLAY ''.
000870 DISPLAY ''.
000880*
000890 STOP RUN.