AS400题库.docx
- 文档编号:2049067
- 上传时间:2022-10-26
- 格式:DOCX
- 页数:10
- 大小:135.47KB
AS400题库.docx
《AS400题库.docx》由会员分享,可在线阅读,更多相关《AS400题库.docx(10页珍藏版)》请在冰豆网上搜索。
AS400题库
AS400题库(总17页)
1. 在RPG程序里,不用CHAIN或READ方法,如何得知文件是否有记录存在?
SETLL indicator=‘1’ or%Found()=‘0’
定义文件数据区 INFDS和其中的域名*RECORD,如果*RECOED<>0,记录存在
InFiledescriptioncontinuationline(IPFK),
KINFDSRCDS
IRCDSDS
I *RECORD #RCDS
2 Howtodetermineiftherecordisinusedbyanotheruser
Wecandetermineweatherarecordisinusebyeanotheruserwiththehelpofstatuscode(*STATUS). If*STATUS=01218i.e.recordalreadylocked.
3.详细说明5种活动组分别制定,叫什么名字,什么期间结束?
(1)编译程序ACTGRP=*YES,程序属于OPM传统组,程序进入任务的组,名字是
系统生成的,任务结束时,活动组也结束了
(2)ACTGRP=*NO,NAME=*new,系统生成名字,程序退出了,活动组也结束了
(3)ACTGRP=*NO,NAME=*CALLER,活动组定义来自被其他程序调用,那个程序的组
(4)ACTGRP=*NO名字默认为QILE,或用户,活动组在任务结束时同时结束。
或RCLACTGRPRSC
4.RPG程序不希望使用循环功能,如何定义
控制语句加入H NOMAIN
5.如何RPG程序使用语句设置*INLR=*ON,然后是WRITE一条记录,程序会发生什么
程序会顺利写入一个记录。
6.功能键定义CA/CF有什么区别
CF可以返回屏幕数据和功能键的值,相当于ENTER+FUNCTIONKEY,CA仅仅是返回功能键。
7 子程序*INZSR用途?
RPG启动后首先会自动执行的一种特殊子程序,可以初始化变量
8 RPG如何调用CLPprogram?
BycallingQCMDEXCapplication
9 这两个语句有什么用?
答,stat01,stat02定义为常量
I 'CLOSED' C STAT01
I 'OPEN' C STAT02
10 UDATEand*DATE区别?
UDATE=*MDY(MMDDYY).
*DATE(systemdate)=*MDYY(MMDDYYYY).
11 如何DEBUG批任务程序?
(1) 编译程序DBGVIEW(*SOURCE)OPTION(*SRCSTMT:
*NODEBUGIO)
(2) Holdjobqueue,Submitjobtocallprogram,holdjob,releasejobq
(3) CopyJOB(number/user/name)fromjoblog
(4) STRSRVJOBJOB(number/user/name)
(5) STRDBGPGM(library/program)UPDPROD(*YES)(StartDebug),屏幕显示源程序,PressF12toexit
(6) ReleasethejobsothatitbecomesSTATUS(*ACTIVE).
(7) You'llseeadisplayaskingifyouwanttodebugorcontinue.PressF10todebug.
(8) DSPMODSRCtoseethesourcelistingagain.Alternately,pressF10tostepintothefirstinstruction.
(9) Nowyoucanaddyourbreakpoints.
(10) F3backtothe"debugorcontinue"display.Enter启动任务,停止在第一个断点,DEBUG
(11) Enddbg, endsrvjob
12 DOWXXandDOUXX区别?
DOWxx条件为真,进入循环,DOUxx条件为真退出循环,所以这个循环最少执行一次
13 LEAVEandITER的区别
Leave推出循环,执行下句,ITER返回循环顶部第一句
14.PGMA调用PGMB,每次PGMB用RETURN返回,当第一次调用PGMB,子程序*INZSR自动执行
那第二次或以后调用,*INZSR是否还会执行
No!
15 解释下面语句
HILOEQ
C *YMD Test(D) ORDDATE 15
ORDDATE如果不等于“YYMMDD’*IN15=*ON
16.WhatisthedifferencebetweenSETONLRandRETURN?
IfyouspecifySETONLR,allthefilesusedinprogramwillbeclosed.
IfyouspecifyRETRUNonly,allthefilesusedinprogramwillremainopen.
17. WhatisthemaximumnumberofparametersallowedinRPG?
255(Twohundredandfiftyfive)
18. WhatisthedifferencebetweenPackeddecimalandZoneddecimal?
Packeddecimal:
Onedigitoccupies1byte.DefaultinPF
Zoneddecimal:
Onedigitoccupies2bytes.DefaultinDatastructures
19. HowdoyouusecommitmentcontrolinRPGprogram
UsingCOMIToperation. MakesallchangestothefilesthathavebeenspecifiedinoutputoperationsincethepreviousCOMITorthebeginingofoperationsundercommitmentcontrol(iftherehasbeennopreviousCOMITorROLBKoperation).
20. WhatdoestheopcodeFREEdo?
TheFREEoperationremovesaprogramfromthelistofactivatedprograms,freesstaticstorageandensuresprograminitialization(firstcycleprocessing)thenexttimeprogramiscalled. Itdoesnotclosefileorunlockdataarea.
21 Whatisserviceprogram?
AServiceProgramisacollectionofrunnableproceduresandavailabledataitemseasilyaccessiblebyotherILEprograms.Aserviceprogramdiffersfromaprogramintwoways:
Itdoesnotcontainaprogramentryprocedure. youcannotcallaserviceprogram.itisboundintoaprogramorotherserviceprogramsusingbindingbyreference
22 WhatistheopcodetoreleaseallthelocksonaparticularPF?
UNLCK
23 Whichofthefollowingmethodswillmakeexternallydescribefilefieldsavailabletoaprogram?
ADataStructuredefinitionspecificationthatnamesthefileontheEXTNAMEkeyword.
24 是否可以对RPGLE程序使用STRISDB
Error:
Programtypenotvalid
25 WhichwillbetheoutputofthefollowingILECode?
DAnswer S T
C T’12:
00PM’ ADDDUR12:
*Hours Answer
answer=00.00AM
26 WhichofthefollowingSpecs.IsnotusedinILE?
ESpecs.
27 WhichistheBuiltinfunctiontoconvertnumericfieldtoAlphafield?
%EDITC,%EDITW,%CHAR
28 ForCHAIN,SETLL,
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- AS400 题库
![提示](https://static.bdocx.com/images/bang_tan.gif)