AS400题库

.

精品文档

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 #

RCDS

2 How to determine if

the record is in ud by another

ur ?

We can determine weather a record is

.

精品文档

in u bye another ur 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,或

用户，活动组在任务结束时同时结束 。

或RCLACTGRPRSC

4. RPG 程序不希望使用循环功能，如

精品文档

何定义

控制语句 加入

.

H NOMAIN

5. 如何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

STAT02

10 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,

relea jobq

（3） Copy

JOB(number/ur/name) from job log

.

精品文档

（4） STRSRVJOB

JOB(number/ur/name)

（5） STRDBG

PGM(library/program) UPDPROD(*YES)

(Start Debug) , 屏幕显示源程

序,Press F12 to exit

（6） Relea the job so

that it becomes STATUS(*ACTIVE).

（7） You'll e a

display asking if you want to debug

or continue. Press F10 to debug.

（8） DSPMODSRC to e

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, ends

rvjob

.

精品文档

12 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=*ON

16. What is the difference between

SETON LR and RETURN?

If you specify SETON

LR, all the files ud in program

will be clod.

If you specify RETRUN

only, all the files ud 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 structures

19. How do you u 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 clo file

or unlock data area.

21 What is rvice

program?

A Service Program is a collection of

runnable procedures and available

data items easily accessible by

other ILE programs.A rvice

program differs from a program in

two ways:

It does not contain a program entry

procedure. you cannot call a

rvice is bound into a

program or other rvice programs

using binding by reference

22 What is the opcode to

relea all the locks on a

particular PF?

UNLCK

.

精品文档

23 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 valid

25 Which will be the

output of the following ILE Code?

D

Answer

S

T

C T’

12:00PM’

精品文档

ADDDUR 12:

.

*Hours Answer

answer= 00.00 AM

26 Which of the

following Specs. Is not ud in

ILE? E Specs.

27 Which is the Built in

function to convert numeric field to

Alpha field?

%EDITC, %EDITW, %CHAR

28 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 HI

29 Advantages of ILE or

RPG?

1) In RPGIII it is one

step compilation

2) RPGIV call a program

recursive

.

精品文档

3) Operation code

Extended Factor 2

4) Length of Factor 1 &

2 is incread to 14 from 10

5) Free format is

allowed

6) 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

………………

精品文档

ENDSR

.

if the factor2 of the ENDSR is blank

control will return to the next

quential instruction.

32 What is Procedure ?

A procedure is the t of lf

contained high level language

statements that can perform a

particular task and then returns to

a caller.

D

PROC1

PR

P PROC1

B Export

Then define Procedure

Interface along with parameter and

PI

D PROC1

精品文档

PI

5 0

D PARMA

.

5 0

D PARMB

5 0

Define all the parameters as a

variable to the procedure

D PARMA

S

5 0

D PARMB

S

5 0

C PROC1

.

精品文档

E

C 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

can not trace out at which point the

value of variable is changed.

34 EDTCDE & EDTWRD

EDTCDE cannot be applied to

Character filed. for example,

EDTCDE(Z) suppressing the leading

zero Y

EDTWRD can be ud to define ur

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 *ENDACTGRP

36 What is the

difference between *LIKE and

*NAMVAR opcode?

*LIKE defines program variable same

as that of another pre defined

variable. *NAMVAR is ud 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 specs

Answer: %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, in

hexadecimal format ( x’0nf’ if ‘n’

contains odd number of digits x’

nf’ if ‘n’ contains even nunber

of digits)

44 Have u ud 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=Interactive

47. How to read records from all the

members

without using CL (OVRDBF) ie

it should be handled exclusively in

an RPG program?

U the EXTMBR keyword on the F-spec

with the member name coded as a

variable. Then you want to process

a different member, clo the file,

change the variable to the new

member name, and re-open the file.

No CL needed.

You can u 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

accesd in arrival quence in RPG

don’t 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 & why

OVRDBF SHARE(*YES).

52. 数据结构类型 ?

A data structure is a variable

field which is partitioned by

defining variable fields (call

as Sub fields). Various us 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

structure.

Data area structures are specified

to define an area in storage and

layouts of related sub fields.

(1) Data area data structure

the 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 structure

A 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 Th

e 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 number

POST op-code Puts information in

INFDS.

(3) Program status data structure

exception/errors are generated in

the program Four keywords - *STATUS,

*ROUTINE, *PROGRAM, *PARMS are

supported

.

精品文档

53. 数据区类型 ?

数据：CHAR, NUMERIC and LOGICAL

A) *General Data Area - created

by ur, 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 =1024 char

C)GDA *Group Data Area -It is

automatically created and deleted

by the system,CLP can access GDA

D) PIP *Pip Data

Area - It is

meant for pre start jobs.

CRTDTAARA/CHGDTAARA/RTVDTAARA

(using CL) OUT/IN *LOCK opcode in

RPG

54 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 parate disk file is loaded

into a table each time the Program

runs.

Table definition?

TABMT 1 12

2 A

Where 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 9999

56 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 array

D

ARR1 S

40 DIM(7)

FROMFILE(File name)

PERRCD(1) Pre Run time

array

57. What is the difference between

Array and Table?

Array: Array is

stored any where in the body of the

input records.

Table: Table is

.

精品文档

stored at the begining of the input

records.

Array: We can access

all the elements in array by

specifying the array name.

Table: Only one

table element can be accesd at a

time.

Array: Array can

be arched randomly.

Table: Table can

be arched concutively.