cobol 实例以及入门基础

《cobol 实例以及入门基础》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、1.关于COBOL的初步知识uCOBOL是CommonBusinessOrientedLanguage(通用商业语言，或称管理语言)的缩写u最适用于数据处理u比较接近于自然语言（英语）uCOBOL的结构严谨，层次分明uCOBOL的缺点是比较烦琐。BatchProgram(VSAM/BatchCOBOL)uCOBOLVSAM/ONLINEPGMCICSONLINEProgramDBS/ONLINEPGMu本课以ANSICOBOL1974为标准1.1一个例子：***********************

2、********************************************HUMANRESOURCEINFORMATIONSYSTEM**VERSION2.1.0COPYRIGHT(C)1998**DALIANNEU-BITCOSOFTWARECO.,LTD.**ALLRIGHTSRESERVED.*******************************************************************IDENTIFICATIONDIVISION.(标识部)P

3、ROGRAM-ID.YTP008.（程序名）AUTHOR.DALIANNEU-BITCOSOFTWARECO.,LTD.(作者姓名）INSTALLATION.DALIAN.(编写场所，大连)DATE-WRITTEN.1998/7/11.(编写日期)DATE-COMPILED.1998/8/1.(编译日期)SECURITY.THISPROGRAMRESTRICTEDTOPERSONNEL.**********************************************************

4、*********SYSTEM:HUMANRESOURCEINFORMATIONSYSTEM****PROGRAM:YTP008****TYPE:VSAM/VSCOBOLIIBATCH****TITLE:INFORMATIONENTRY****INPUTS:CARDFILEQSAMFILE**--------****OUTPUTSHUMANRESOURCE(YTF019)****FUNCTION:THISBATCHPROGRAMISTOSCANANIDCAMSSOURCE**MEMBER,EACHID

5、CAMSSOURCEMEMBERREPRESENTSA****************************************************************************************************************************************REVISIONLOG******************************************************************CTLNO*DATE*IN

6、IT.*DESCRIPTION*******************************************************************7/11/98*NEU-BITCO*INITIALINSTALLATIONBYZYB*****************************************************************ENVIRONMENTDIVISION.(设备部或称环境部)CONFIGURATIONSECTION.（配置节）SOURCE-C

7、OMPUTER.IBM-3084.（源计算机名,编译）OBJECT-COMPUTER.IBM-3084.（目标计算机名，运行）MEMORYSIZEIS整数(WORDS,CHARACTERS,MODLES).SPECIAL-NAMES.CONSOLEISCRT.（专用名描述项）DECIMAL-POINTISCOMMA.(小数点是逗号)CURRENCYSIGNIS‘Y’.(代替$)INPUT-OUTPUTSECTION.（输入输出节）FILE-CONTROL.（文件控制描述体）SELECTFD-YTI00

8、8ASSIGNTOUR-S-YTI008*??FOLLOWINGLINESHOULDBEDELETEDFORM/FORGANIZATIONISLINESEQUENTIALFILESTATUSISWS-FILE-STATUS.-------------DATADIVISION.（数据部）FILESECTION.（文件节）FDFD-YTI008LABELRECORDSARESTANDARD.01YTI008-REC.05YTI008-IDCAMSPICX(8