AS400题库.doc
如有侵权，请联系网站删除，仅供学习与交流AS400题库【精品文档】第 18 页1. 在RPG程序里，不用CHAIN 或 READ 方法，如何得知文件是否有记录存在？SETLL indicator = 1 or %Found() = 0定义文件数据区 INFDS 和其中的域名 *RECORD, 如果*RECOED <>0,记录存在In File description continuation line (IPFK), KINFDS RCDS I RCDS DS I *RECORD #RCDS2 How to determine if the record is in used by another user ?We can determine weather a record is in use bye another user with the help of status code (*STATUS). If *STATUS = 01218 i.e. record already locked.3. 详细说明5种活动组分别制定，叫什么名字，什么期间结束？（1）编译程序ACTGRP = *YES ，程序属于 OPM 传统组，程序进入任务的组，名字是系统生成的，任务结束时，活动组也结束了（2）ACTGRP =*NO, NAME = *new, 系统生成名字，程序退出了，活动组也结束了 (3）ACTGRP =*NO, NAME =*CALLER, 活动组定义来自被其他程序调用，那个程序的组（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如何调用 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 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） You'll see a display asking if you 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 DOUXX 区别?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 SETON 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 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 operation 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 initialization (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 programs.A service program differs from a program in two ways:It does not contain a program entry procedure. you cannot call a service program.it 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 available 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= 00.00 AM26 Which of the following Specs. 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 EQ 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 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 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(*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 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 key word EXPORT and while using this variable in anther program declare with IMPORT keyword.we 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 user 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 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 What's the difference between CHAIN and SETLL? Is there a performance advantage?There are two 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 record's data to the input buffer for the program. The SETLL operation does not. 39 %size gives me a compile time error on my D specsAnswer: %size doesn't 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/*BLANKS, *ZERO/*ZEROS, *HIVAL, *LOVAL, *ALL 'X.'43 How do you pass numeric parameters for submitjob ?Convert numeric parameters to character and pass, or.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 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 interactive?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, close 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 new way is UPDATE RecordName %FIELDS( Field1 : Field2 )49. Can indexed file be accessed in arrival sequence in RPG dont 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 is a variable field which is partitioned by defining variable fields (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 on.Multi occurence data structure is an array of a Data 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 program.letter "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 Character Open indication (1 = open).10 - 10 Character End of file (1 = end of file)11 - 15 Zoned dec *STATUS Status code. 状态16 - 21 Character *OPCODE Operation code The first five posi 发生错误的代码22 - 29 Character *ROUTINE First 8 characters of the procedure 发生错误的子程序30 - 37 Character RPG IV source listing line numberPOST op-code Puts information in INFDS. (3) Program status data structureexception/errors are generated in the program Four keywords - *STATUS, *ROUTINE, *PROGRAM, *PARMS are supported 53. 数据区类型 ?数据：CHAR, NUMERIC and LOGICALA) *General Data Area - created by user, referred by any other jobs. B) LDA * Local Data Area 1. The local data area cannot be referred to from any other job. You cannot create, delete, or allocate a local data area. No library is associated with the local data area.LDA=1024 charC)GDA *Group Data Area -It is automatically created and deleted by the system,CLP can access GDAD) PIP *Pip Data Area - It is meant for pre start jobs. CRTDTAARA/CHGDTAARA/RTVDTAARA (using CL) OUT/IN *LOCK opcode in RPG54 What is a table?A table is collection of data elements in one column, data elements Must be of same type and same length. There are 2 types of tables in RPG they are: -Compile Time Tables/ Pre-Runtime Tables hard code data within the program is said to be Compile Time Table. Data from a separate disk file is loaded into a table each time the Program runs.Table definition?TABMT 1 12 2 AWhere 1 = Number of entries per record 12 = Total number of entries 2 = Length of each entry A = Ascending Sequene 55. What is an Array?Array is a collection of data, the data elements must be of same Length and same type.There are 3 types of arrays Compile time, Pre-Run time and Run time. Compile time array gets value at the time of compilation of the source of a program. Pre-run time array gets value from a file at the beginning of a program execution (before any statement of a program is executed). Run time array gets value during the program execution. maximum is 999956 How to define array in D spec.D ARR2 S 5 DIM(5) CTDATA PERRCD(1) Compile time array.D ARR1 S 1 0 DIM(5) Run time arrayD ARR1 S 40 DIM(7) FROMFILE(File name) PERRCD(1) Pre Run time array57. What is the difference between Array and Table? Array: Arra
