000010****************************************************************** 000020* 000030* MIHO OF THE DAY (MOTD) - 今日のミホを表示する 000040* $Id: MOTD.cbl,v 1.6 2007/08/02 12:37:47 nzawa Exp nzawa $ 000050* 000060****************************************************************** 000070 IDENTIFICATION DIVISION. 000080 PROGRAM-ID. MOTD. 000090 DATA DIVISION. 000100 WORKING-STORAGE SECTION. 000110 01 MIHO-TBL. 000120* *** 01 ************************************************* 000130 03 FILLER PIC X(32) 000140 VALUE '大和田美帆'. 000150 03 FILLER PIC X(48) 000160 VALUE '女優・タレント'. 000170 03 FILLER PIC X(96) 000180 VALUE 'http://www.miho-ohwada.com/'. 000190* *** 02 ************************************************* 000200 03 FILLER PIC X(32) 000210 VALUE '白石美帆'. 000220 03 FILLER PIC X(48) 000230 VALUE 'タレント・女優'. 000240 03 FILLER PIC X(96) 000250 VALUE 'http://www.miho-dimple.net/'. 000260* *** 03 ************************************************* 000270 03 FILLER PIC X(32) 000280 VALUE '美保純'. 000290 03 FILLER PIC X(48) 000300 VALUE '女優'. 000310 03 FILLER PIC X(29) 000320 VALUE 'http://ja.wikipedia.org/wiki/'. 000330 03 FILLER PIC X(67) 000340 VALUE '%E7%BE%8E%E4%BF%9D%E7%B4%94'. 000350* *** 04 ************************************************* 000360 03 FILLER PIC X(32) 000370 VALUE 'ラモット矢崎美穂'. 000380 03 FILLER PIC X(48) 000390 VALUE '翻訳・通訳者'. 000400 03 FILLER PIC X(96) 000410 VALUE 'http://www.tetue.com/'. 000420* *** 05 ************************************************* 000430 03 FILLER PIC X(32) 000440 VALUE '中山美穂'. 000450 03 FILLER PIC X(48) 000460 VALUE '女優・歌手'. 000470 03 FILLER PIC X(96) 000480 VALUE 'http://www.nakayama-miho.net/'. 000490* *** 06 ************************************************* 000500 03 FILLER PIC X(32) 000510 VALUE '矢部美穂'. 000520 03 FILLER PIC X(48) 000530 VALUE 'タレント・女優'. 000540 03 FILLER PIC X(96) 000550 VALUE 'http://www.yabemiho.com/'. 000560* *** 07 ************************************************* 000570 03 FILLER PIC X(32) 000580 VALUE '田中美保'. 000590 03 FILLER PIC X(48) 000600 VALUE 'モデル'. 000610 03 FILLER PIC X(96) 000620 VALUE 'http://www.miho-wave.com/'. 000630* *** 08 ************************************************* 000640 03 FILLER PIC X(32) 000650 VALUE '美保基地'. 000660 03 FILLER PIC X(48) 000670 VALUE '航空自衛隊基地'. 000680 03 FILLER PIC X(96) 000690 VALUE 'http://www.dii.jda.go.jp/asdf/miho/miho.htm'. 000700* *** 09 ************************************************* 000710 03 FILLER PIC X(32) 000720 VALUE '小西美帆'. 000730 03 FILLER PIC X(48) 000740 VALUE '女優'. 000750 03 FILLER PIC X(96) 000760 VALUE 'http://www.japanmusic.jp/konishi.html'. 000770* *** 10 ************************************************* 000780 03 FILLER PIC X(32) 000790 VALUE '菅野美穂'. 000800 03 FILLER PIC X(48) 000810 VALUE '女優'. 000820 03 FILLER PIC X(29) 000830 VALUE 'http://ja.wikipedia.org/wiki/'. 000840 03 FILLER PIC X(67) 000850 VALUE '%E8%8F%85%E9%87%8E%E7%BE%8E%E7%A9%82'. 000860* *** 11 ************************************************* 000870 03 FILLER PIC X(32) 000880 VALUE '大橋美歩'. 000890 03 FILLER PIC X(48) 000900 VALUE 'アナウンサー'. 000910 03 FILLER PIC X(29) 000920 VALUE 'http://www.tv-tokyo.co.jp/ann'. 000930 03 FILLER PIC X(67) 000940 VALUE 'ouncer/home04/plof/oohashi.html'. 000950* *** 12 ************************************************* 000960 03 FILLER PIC X(32) 000970 VALUE 'もりばやしみほ'. 000980 03 FILLER PIC X(48) 000990 VALUE '歌手'. 001000 03 FILLER PIC X(96) 001010 VALUE 'http://cgi.hi-posi.com/'. 001020* *** 13 ************************************************* 001030 03 FILLER PIC X(32) 001040 VALUE '玉木美帆'. 001050 03 FILLER PIC X(48) 001060 VALUE '司会者・歌手'. 001070 03 FILLER PIC X(96) 001080 VALUE 'http://www114.sakura.ne.jp/~tamaki/'. 001090* *** 14 ************************************************* 001100 03 FILLER PIC X(32) 001110 VALUE '三保の松原'. 001120 03 FILLER PIC X(48) 001130 VALUE '景勝地・日本新三景'. 001140 03 FILLER PIC X(29) 001150 VALUE 'http://www.pref.shizuoka.jp/t'. 001160 03 FILLER PIC X(67) 001170 VALUE 'oshi/tj-01/fuukei/3_04_a4.htm'. 001180* *** 15 ************************************************* 001190 03 FILLER PIC X(32) 001200 VALUE '尾関美穂'. 001210 03 FILLER PIC X(48) 001220 VALUE '歌手'. 001230 03 FILLER PIC X(96) 001240 VALUE 'http://www.avexnet.or.jp/ozeki/'. 001250* *** 16 ************************************************* 001260 03 FILLER PIC X(32) 001270 VALUE '唐沢美帆'. 001280 03 FILLER PIC X(48) 001290 VALUE 'アイドル・女優・歌手'. 001300 03 FILLER PIC X(96) 001310 VALUE 'http://www.karasawamiho.com/'. 001320* *** 17 ************************************************* 001330 03 FILLER PIC X(32) 001340 VALUE '武田美保'. 001350 03 FILLER PIC X(48) 001360 VALUE 'シンクロ選手・メダリスト'. 001370 03 FILLER PIC X(96) 001380 VALUE 'http://www.mihotakeda.net/'. 001390* *** 18 ************************************************* 001400 03 FILLER PIC X(32) 001410 VALUE '森川美穂'. 001420 03 FILLER PIC X(48) 001430 VALUE '歌手・女優'. 001440 03 FILLER PIC X(96) 001450 VALUE 'http://www.tomde.co.jp/miho/'. 001460* *** 19 ************************************************* 001470 03 FILLER PIC X(32) 001480 VALUE '浅木美帆'. 001490 03 FILLER PIC X(48) 001500 VALUE 'レースクイーン'. 001510 03 FILLER PIC X(96) 001520 VALUE 'http://yaplog.jp/asagimiho/'. 001530* *** 20 ************************************************* 001540 03 FILLER PIC X(32) 001550 VALUE '千代谷美穂'. 001560 03 FILLER PIC X(48) 001570 VALUE 'アイドル・タレント'. 001580 03 FILLER PIC X(29) 001590 VALUE 'http://www.avantgardes.net/ch'. 001600 03 FILLER PIC X(67) 001610 VALUE 'iyoya/chiyoya.html'. 001620* *** 21 ************************************************* 001630 03 FILLER PIC X(32) 001640 VALUE '西田美歩'. 001650 03 FILLER PIC X(48) 001660 VALUE 'グラビアアイドル'. 001670 03 FILLER PIC X(96) 001680 VALUE 'http://blog.livedoor.jp/miho_gallery/'. 001690* *** 22 ************************************************* 001700 03 FILLER PIC X(32) 001710 VALUE 'MIHO MUSEUM'. 001720 03 FILLER PIC X(48) 001730 VALUE '美術館'. 001740 03 FILLER PIC X(96) 001750 VALUE 'http://www.miho.jp/'. 001760* *** 23 ************************************************* 001770 03 FILLER PIC X(32) 001780 VALUE '渡辺美穂'. 001790 03 FILLER PIC X(48) 001800 VALUE '太宰府市議会議員'. 001810 03 FILLER PIC X(96) 001820 VALUE 'http://www.watanabemiho.com/'. 001830* *** 24 ************************************************* 001840 03 FILLER PIC X(32) 001850 VALUE '福原美穂'. 001860 03 FILLER PIC X(48) 001870 VALUE '歌手'. 001880 03 FILLER PIC X(96) 001890 VALUE 'http://www.htb.co.jp/yumechika/fukuharamiho/'. 001900* *** 25 ************************************************* 001910 03 FILLER PIC X(32) 001920 VALUE '小松未歩'. 001930 03 FILLER PIC X(48) 001940 VALUE 'シンガーソングライター'. 001950 03 FILLER PIC X(96) 001960 VALUE 'http://miho-komatsu.com/'. 001970* *** 26 ************************************************* 001980 03 FILLER PIC X(32) 001990 VALUE '木内美穂'. 002000 03 FILLER PIC X(48) 002010 VALUE '女優'. 002020 03 FILLER PIC X(29) 002030 VALUE 'http://ja.wikipedia.org/wiki/'. 002040 03 FILLER PIC X(67) 002050 VALUE '%E6%9C%A8%E5%86%85%E7%BE%8E%E7%A9%82'. 002060* *** 27 ************************************************* 002070 03 FILLER PIC X(32) 002080 VALUE '石本美穂'. 002090 03 FILLER PIC X(48) 002100 VALUE '漫画家'. 002110 03 FILLER PIC X(96) 002120 VALUE 'http://www009.upp.so-net.ne.jp/tomarty/'. 002130* *** 28 ************************************************* 002140 03 FILLER PIC X(32) 002150 VALUE 'MIHO'. 002160 03 FILLER PIC X(48) 002170 VALUE '歌手'. 002180 03 FILLER PIC X(96) 002190 VALUE 'http://www.ponycanyon.co.jp/tpic/miho/'. 002200* *** 29 ************************************************* 002210 03 FILLER PIC X(32) 002220 VALUE '吉岡美穂'. 002230 03 FILLER PIC X(48) 002240 VALUE 'タレント'. 002250 03 FILLER PIC X(96) 002260 VALUE 'http://www.18pro.co.jp/html/model001.html'. 002270* *** 30 ************************************************* 002280 03 FILLER PIC X(32) 002290 VALUE '美浦村'. 002300 03 FILLER PIC X(48) 002310 VALUE '地方自治体'. 002320 03 FILLER PIC X(96) 002330 VALUE 'http://www.vill.miho.lg.jp/'. 002340* *** 31 ************************************************* 002350 03 FILLER PIC X(32) 002360 VALUE '高木美保'. 002370 03 FILLER PIC X(48) 002380 VALUE '女優・エッセイスト'. 002390 03 FILLER PIC X(29) 002400 VALUE 'http://ja.wikipedia.org/wiki/'. 002410 03 FILLER PIC X(67) 002420 VALUE '%E9%AB%98%E6%9C%A8%E7%BE%8E%E4%BF%9D'. 002430* 002440 01 FILLER REDEFINES MIHO-TBL. 002450 03 FILLER OCCURS 31. 002460 05 MIHO-NAME PIC X(32). 002470 05 MIHO-DESC PIC X(48). 002480 05 MIHO-ADDR PIC X(96). 002490* 002500 01 WORK-AREA. 002510 03 TODAY. 002520 05 FILLER PIC 9(06) VALUE ZERO. 002530 05 TODAY-DD PIC 9(02) VALUE ZERO. 002540 03 STREND PIC 9(03) VALUE ZERO. 002550 03 RESULT PIC X(245) VALUE SPACE. 002560* 002570 PROCEDURE DIVISION. 002580 MAIN SECTION. 002590 ACCEPT TODAY FROM DATE YYYYMMDD. 002600 STRING 002610 '

' DELIMITED BY SIZE 002640 MIHO-NAME (TODAY-DD) DELIMITED BY SPACE 002650 ' （' DELIMITED BY SIZE 002660 MIHO-DESC (TODAY-DD) DELIMITED BY SPACE 002670 '）

' DELIMITED BY SIZE 002680 INTO RESULT 002690 END-STRING. 002700 INSPECT RESULT TALLYING STREND 002710 FOR CHARACTERS BEFORE INITIAL ' '. 002720 DISPLAY 'Content-Type: text/plain; charset=UTF-8'. 002730 DISPLAY ''. 002740 DISPLAY '

今日のミホ

'. 002750 DISPLAY RESULT ( 1 : STREND ). 002760 STOP RUN. 002770** END OF PROGRAM