COBOL基本语句课件.ppt

《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