AS400题库.docx

1、AS400题库1. 在RPG程序里，不用CHAIN 或 READ 方法，如何得知文件是否有记录存在？SETLL indicator = 1 or %Found() = 0定义文件数据区INFDS 和其中的域名 *RECORD, 如果*RECOED 0,记录存在In File description continuation line (IPFK), KINFDS RCDSI RCDS DSI *RECORD #RCDS2 How to determine if the record is in used by another user ？We can determine weather a r

2、ecord is in use bye another user with the help of status code (*STATUS).If *STATUS = 01218 . record already locked.3. 详细说明5种活动组分别制定，叫什么名字，什么期间结束？（1）编译程序ACTGRP = *YES ，程序属于 OPM 传统组，程序进入任务的组，名字是系统生成的，任务结束时，活动组也结束了（2）ACTGRP =*NO, NAME = *new, 系统生成名字，程序退出了，活动组也结束了(3）ACTGRP =*NO, NAME =*CALLER, 活动组定义来自被其

3、他程序调用，那个程序的组（4）ACTGRP=*NO 名字默认为QILE,或用户，活动组在任务结束时同时结束 。或RCLACTGRPRSC4. RPG 程序不希望使用循环功能，如何定义控制语句 加入 H NOMAIN5. 如何RPG程序使用语句 设置 *INLR =*ON, 然后 是WRITE 一条记录，程序会发生什么？程序会顺利写入一个记录。6功能键定义 CA /CF 有什么区别？CF 可以返回 屏幕数据和功能键的值，相当于 ENTER + FUNCTION KEY , CA 仅仅是返回功能键。7 子程序 *INZSR用途？RPG启动后首先会自动执行的一种特殊子程序，可以初始化变量8 RPG如

4、何调用 CLP program？By calling QCMDEXC application 9 这两个语句有什么用答，stat01,stat02 定义为常量 I CLOSED C STAT01 I OPEN C STAT0210 UDATE and *DATE 区别？ UDATE = *MDY (MMDDYY). *DATE (system date) = *MDYY (MMDDYYYY). 11 如何DEBUG 批任务程序？（1） 编译程序DBGVIEW (*SOURCE) OPTION(*SRCSTMT:*NODEBUGIO) （2） Hold job queue, Submit job

5、 to call program, hold job, release jobq（3） Copy JOB(number/user/name) from job log （4） STRSRVJOB JOB(number/user/name) （5） STRDBG PGM(library/program) UPDPROD(*YES) (Start Debug) , 屏幕显示源程序,Press F12 to exit（6） Release the job so that it becomes STATUS(*ACTIVE). （7） Youll see a display asking if you

6、 want to debug or continue. Press F10 to debug. （8） DSPMODSRC to see the source listing again. Alternately, press F10 to step into the first instruction. （9） Now you can add your breakpoints. （10） F3 back to the debug or continue display. Enter 启动任务，停止在第一个断点，DEBUG（11） Enddbg,endsrvjob12 DOWXX and DO

7、UXX 区别？DOWxx 条件为真，进入循环，DOUxx 条件为真退出循环，所以这个循环最少执行一次13 LEAVE and ITER 的区别？Leave 推出循环，执行下句，ITER 返回循环顶部第一句14. PGMA 调用 PGMB，每次PGMB 用RETURN返回，当第一次调用 PGMB，子程序 *INZSR自动执行那第二次或以后调用，*INZSR是否还会执行？No!15解释下面语句 HI LO EQ C *YMD Test(D) ORDDATE 15 ORDDATE 如果不等于“YYMMDD *IN15=*ON16. What is the difference between SET

8、ON LR and RETURN？ If you specify SETON LR, all the files used in program will be closed. If you specify RETRUN only, all the files used in program will remain open. 17. What is the maximum number of parameters allowed in RPG？ 255 (Two hundred and fifty five)18. What is the difference between Packed

9、decimal and Zoned decimal？ Packed decimal : One digit occupies 1 byte. Default in PF Zoned decimal : One digit occupies 2 bytes. Default in Data structures19. How do you use commitment control in RPG program ？Using COMIT operation.Makes all changes to the files that have been specified in output ope

10、ration since the previous COMIT or the begining of operations under commitment control(if there has been no previous COMIT or ROLBK operation). 20. What does the opcode FREE do？The FREE operation removes a program from the list of activated programs, frees static storage and ensures program initiali

11、zation (first cycle processing) the next time program is called. It does not close file or unlock data area. 21 What is service program？A Service Program is a collection of runnable procedures and available data items easily accessible by other ILE service program differs from a program in two ways:

12、It does not contain a program entry procedure.you cannot call a service is bound into a program or other service programs using binding by reference22 What is the opcode to release all the locks on a particular PF？UNLCK23 Which of the following methods will make externally describe file fields avail

13、able to a program？A Data Structure definition specification that names the file on the EXTNAME keyword.24 是否可以对RPGLE程序使用 STRISDB Error: Program type not valid25 Which will be the output of the following ILE Code？D Answer S TC T12:00PM ADDDUR 12: *Hours Answeranswer= AM26 Which of the following Specs

14、. Is not used in ILE E Specs.27 Which is the Built in function to convert numeric field to Alpha field？%EDITC, %EDITW, %CHAR28 For CHAIN, SETLL, SETGT, READE, READPE & READE where indicators are given & their success？ Opcode Success Indicator CHAIN OFF HI READ, READE, READP, READPE OFF EQ SETLL ON E

15、Q SETGT ON HI29 Advantages of ILE or RPG？1) In RPGIII it is one step compilation2) RPGIV call a program recursive3) Operation code Extended Factor 24) Length of Factor 1 & 2 is increased to 14 from 105) Free format is allowed6) Built-in-functions are available.7) concept of ACTIVATION GROUP.30 List

16、some BIF in RPGLE ？ %SIZE - Gives the size of the variable or liteeral %TRIM - Trims the right & left blanks of the string %REPLACE -Replaces the specified number of characters from the specified position. %SUBST - gives a sub string from a variable (%SUBST(X:Y:Z) %ELEM - Gives number of elements or

17、 occurrences %LEN Returns the length of value from a field. %CHAR Converts a Numeric filed to character. %EOF End of File or begin of file. %FOUND If record is Found.31 How to go to *PSSR ？Whenever an exception/error occurs and *PSSR is declared in F-specs, it is automatically goes to *PSSR F INFSR(

18、*PSSR)*PSSR BEGSR ENDSRif the factor2 of the ENDSR is blank control will return to the next sequential instruction.32 What is Procedure ？A procedure is the set of self contained high level language statements that can perform a particular task and then returns to a caller.D PROC1 PRP PROC1 B Export

19、Then define Procedure Interface along with parameter and PID PROC1 PI 5 0D PARMA 5 0D PARMB 5 0Define all the parameters as a variable to the procedureD PARMA S 5 0 D PARMB S 5 0C PROC1 EC RETURN PARMA + PARMB 33 How to define Global Parameter in ILE What is the disadvantage ？Declare a variable with

20、 key word EXPORT and while using this variable in anther program declare with IMPORT can not trace out at which point the value of variable is changed.34 EDTCDE & EDTWRDEDTCDE cannot be applied to Character filed. for example, EDTCDE(Z) suppressing the leading zero Y EDTWRD can be used to define use

21、r defined formatting for a fields.35 What are the two important parameter while creating a SQLRPGLE program ？1)CMTCTL- *NONE (Commitment Control)2)CLOSQLCR -*ENDMOD (End of Module) by default is *ENDACTGRP36 What is the difference between *LIKE and *NAMVAR opcode？*LIKE defines program variable same

22、as that of another pre defined variable. *NAMVAR is used to define variable as Data area.37 What is the difference between SKIPA& SPACEA ？Skipa goes to the line (even next page)/SPACEA add n lines by number.38 Whats the difference between CHAIN and SETLL Is there a performance advantage？There are tw

23、o important differences between CHAIN and SETLL. 1. The CHAIN operation applies a record lock to files that are open or update. The SETLL operation does not apply the lock. 2. The CHAIN operation copies the records data to the input buffer for the program. The SETLL operation does not. 39 %size give

24、s me a compile time error on my D specsAnswer: %size doesnt accept an expression in D specs ;Try%len instead. 40 Does %len count the null in a null terminated string Answer : No.41 can the EDTCDE or EDTWRD from the referenced field ignored ？Yes, by using DLTEDT keyword.42 空格或零值初始默认值是什么 ？*BLANK/*BLAN

25、KS, *ZERO/*ZEROS, *HIVAL, *LOVAL, *ALL X.43 How do you pass numeric parameters for submitjob ？Convert numeric parameters to character and pass, in hexadecimal format ( x0nf if n contains odd number of digits xnf if n contains even nunber of digits)44 Have u used binder language like coding export to

26、 procedures ？STRPGMEXP PGMLVL( *CURRENT ) ？ EXPORT SYMBOL( MSGBOX ) EXPORT SYMBOL( ACTMETHOD ) ENDPGMEXP ？ STRPGMEXP PGMLVL( *PRV ) ？ EXPORT SYMBOL( MSGBOX ) ENDPGMEXP ？45. How do u code file field renames in ILE RPG PREFIX keyword on the F spec.46. How do you find whether a job is a batch job or in

27、teractive？RTVJOBA TYPE 0=Batch, 1=Interactive47. How to read records from all the members ？ without using CL (OVRDBF) ie it should be handled exclusively in an RPG program？Use the EXTMBR keyword on the F-spec with the member name coded as a variable. Then you want to process a different member, clos

28、e the file, change the variable to the new member name, and re-open the file. No CL needed.You can use EXTMBR(*ALL) as well and get the current member name in the INFDS. 48. PF contains 50 fiedls how can u update only 2 fields？The old way would be to code the fields on O specs then do an EXCEPT.The

29、new way is UPDATE RecordName %FIELDS( Field1 : Field2 )49. Can indexed file be accessed in arrival sequence in RPGdont specify the K on the F spec.50. when will DUMP & DEBUG be ignored DEBUG(*NO)51. what is the necc. command needed before OPNQRYF & whyOVRDBF SHARE(*YES).52. 数据结构类型 ？A data structure

30、is a variable field which is partitioned by defining variablefields (call as Sub fields). Various uses are converting character value into numeric, splitting date field into day, month and year, combining various key fields to make one key field and so occurence data structure is an array of a Data

31、structure. Data area structures are specified to define an area in storage and layouts of related sub fields.(1) Data area data structurethe data area is defined for processing and written back in U must be entered to define the data structure. I UDS I 1 60ORDER# I 7 90LINE#(2) File information data structureA file information data structure provides exception/error information that may be occurred when processing a file during program execution INFDS is a File Information Data Structure.1-8 Character *FILE The first 8 characters of the file 发生错误的文件名9-9 Cha