欢迎来到天天文库
浏览记录
ID:47104513
大小:408.50 KB
页数:51页
时间:2019-08-03
《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
此文档下载收益归作者所有