COBOL语言程序设计实验报告实验二.doc

COBOL语言程序设计实验报告 姓 名 学 号 班 级 指 导 教 师 开设 学期 2012-2013 第二学期 实验题 目 实验二：客户信息文件处理 实验 日期 2013年6月 评定 成绩 评定人签字 评 定 日 期 东北大学软件学院2013年3月 一、 实验目的 掌握基本 COBOL 语句的使用，包括 OPEN，CLOSE，READ,WRITE,PERFORM，MOVE 和STOP RUN。并且能够编写一个较为复杂的cobol程序来解决现实生活中的一些问题， 并能更加熟练的运用主机系统进行编程等操作。 二、 实验内容与实验步骤 实验内容：读取客户信息文件，按照一定的格式将客户记录进行输出处理。 实验输入数据 文件：FILEIN1 每一个客户输入记录包含以下数据： COLU酮S CONTENTS 1—6 Customer Number (6 digits) 7 — 26 Customer Name 27—46 Street Address 47-61 City 62 — 63 Z-letter State Addreviation 64 — 73 Zip code (fromat： 99999一9999) 74 — 77 Year of last purchase 78—80 unused 如：000001JACK LI XINGFA ROAD DALIAN 8612345实验输出数据： 文件：OUTFILE1 将2000年以后大连市最新买方的客户信息输出，输出文件格式如下： Customer Name/ Year of last purchase / Customer Number / Street Address 打印一份客户报告，格式如下图所示。 1醤 ￡di t E$|i t^Settings y<nu 麕* ￡oapi lera 2 看 |jelp GOITCoM?n<S ■>TC014.CO的L.F1LEL1白( GOIT CoM?n<S ■> TC014.CO的L.F1LEL1白(0UTFILE1) ? 01.00 籲?钃■ ? ■ b a ■ ■ i Top of D.t. ■ 000001 CUSTOKCR IN OALIAN 000002 YEAR NUMBER AODRESS (KXKK>3 JACK LI 2013 000001 X1NGFA ROAD 040004 YJ2 2001 000004 XINGFA ROAD oeoeos LBS 2QQ3 000007 KAIYUA ROAD ooeooe SYY 2005 0000SO LIUZHE ROAD GWW7 SYM 2019 000011 XINCFA ROAD (XXKKX8 YJZ 2013 000014 XINGFA ROAD 0<XKK}9 L88 2013 000017 XINGFA ROAD 000010 SYY 2013 000020 XINGFA MAO 000011 SVM 2013 000021 XINGFA ROAD 000012 YJZ 2013 000024 XINGFA ROAD oeeei3 LB8 2013 000027 XINGFA ROAD 000014 SYY 2013 000030 XINGFA ROAD 000015 SYH 2013 000031 XINGFA ROAD 000016 YJZ 2013 000034 XINGFA ROAD 000017 LOG 2013 000037 XINGFA ROAD Fl-K>lp F2?Split F3，Exit F5?RfInd Ffi?Rch>nge F9?Smjip FXO?L<ft flI?Right Fl2?C*nc?l A- 04/015 FT?Up Column* 00001 00072 Scroll ■■籯> PftGE CA uza imm or; n 曲》||?>4<.穗.,tm mm Columns 00001 0007： Columns 00001 0007： ==MSG> ==MSG> 000100 000200 000300 000400 000500 000600 000700 000800 000900 001000 001100 001200 001300 001400 001500 Command 实验程序截图： 源程序名：FILTEST 人I-TMJ 撕WEHUJ =.^e<v; 廉1卜、《; tsiu-i<vv; i> EllW^l麝1釋J圖I團I Ml备|fel糾連I >1 ?l沴 File Edit Edit Settings Menu Utilities Compilers Test