欢迎来到天天文库
浏览记录
ID:57011726
大小:200.00 KB
页数:34页
时间:2020-07-26
《COBOL基本语句课件.ppt》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、第五章COBOL基本语句5.1基本输入输出语句5.2流程控制语句5.3字符串处理语句5.4子程序处理语句5.5文件处理语句10/5/20211.ACCEPT语句:直接从终端键盘或系统指定的输入设备上输入数据。ACCEPT标识符[FROM助忆名]注:A.标识符(identifier)指的是能唯一地标识一个数据项的数据名,不能唯一地标识一个数据项的数据名不是标识符。标识符可以是组合项。5.1基本输入输出语句10/5/2021在ACCEPT语句中如不写FROM部分,如ACCEPTA,则表示从系统隐含指定的设备上读入一个数据给A。如果不想从指定的设备上输入,则要用FROM
2、选项,这时“助忆名”需要在环境部中事先说明和哪种外部设备相联系。如:ENVIRONMENTDIVISION.(环境部)CONFIGRATIONSECTION.(配置节)SPECIAL-NAMES.(专用名段)CONSOLEISABC如在过程部中有ACCEPTTFROMABC。则表示要从控制台接收数据10/5/20212.DISPLAY语句:从计算机内存中输出到某一指定的输出设备上。DISPLAY{标识符1,常量1}[标识符2,常量2]…[UPON助忆名]DISPLAYT.DISPLAYT1,T2.DISPLAY‘TODAYISSUNDAY’.ACCEPT语句和DI
3、SPLAY语句不必定义文件,适用于少量的数据输入输出。10/5/2021例子:IDENTIFICATIONDIVISION.PROGRAM-ID.ACC1.ENVIRONMENTDIVISION.DATADIVISION.WORKING-STORAGESECTION.APIC9(3).PROCEDUREDIVISION.ACCEPTA.DISPLAY‘A=‘,A.STOPRUN.10/5/2021JCL文件://UR00205JOBACCT#,UR002,NOTIFY=UR002,MSGLEVEL=(1,1)//STEP1EXECPROC=IGYWCL//STEP
4、1LIBDDDSN=ADCD.ZOSV1R5.PROCLIB//COBOL.SYSINDDDSN=UR002.COBOL.TEST(ACC1),DISP=SHR//LKED.SYSLMODDDDSN=UR002.COBOL.LOAD(ACC1),DISP=SHR10/5/2021TSO命令:READY输入命令:allocdd(sysin)ds(*)输入ispf使用call命令调用ACC1模块即可在键盘上输入数据10/5/2021例子:IDENTIFICATIONDIVISION.PROGRAM-ID.AANDD.AUTHOR.MichaelCoughlan.DAT
5、ADIVISION.WORKING-STORAGESECTION.01StudentDetails.02StudentName.03SurnamePICX(8).03InitialsPICXX.02StudentIdPIC9(7).02CourseCodePICX(4).10/5/202102GrantPIC9(4).02GenderPICX.01CurrentDate.02CurrentYearPIC99.02CurrentMonthPIC99.02CurrentDayPIC99.01DayOfYear.02FILLERPIC99.02YearDayPIC9(3
6、).10/5/202101CurrentTime.02CurrentHourPIC99.02CurrentMinutePIC99.02FILLERPIC9(4).PROCEDUREDIVISION.Begin.DISPLAY"Enterstudentdetailsusingtemplatebelow".DISPLAY"NNNNNNNNNNSSSSSSSCCCCGGGGS".ACCEPTStudentDetails.ACCEPTCurrentDateFROMDATE.ACCEPTDayOfYearFROMDAY.ACCEPTCurrentTimeFROMTIME.1
7、0/5/2021DISPLAY"Nameis",InitialsSPACESurname.DISPLAY"Dateis"CurrentDaySPACECurrentMonthSPACECurrentYear.DISPLAY"Todayisday"YearDay"oftheyear".DISPLAY"Thetimeis"CurrentHour":"CurrentMinute.STOPRUN.10/5/2021JCL文件://UR00203JOBACCT#,UR001,NOTIFY=UR002,MSGLEVEL=(1,1)//MYLIBJCLLIBORDER=SYS1
8、.PROC
此文档下载收益归作者所有