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 'このページはCOBOLで作られた' 000680 'CGIプログラム' 000680 'によつて動的に生成されました!
'. 000690* 000700 DISPLAY '