最新的IBM 000-041免費考試真題

問題1

CORRECT TEXT
What will be output by the following program?
TEST: PROC OPTIONS(MAIN);
DCL A CONTROLLED FIXED BIN(31);
ALLOC A;
ALLOC A;
CALL SUB(A);
PUT SKIP LIST( ALLOCN(A));
SUB: PROC( B);
DCL B CONTROLLED FIXED BIN(31);
FREE B;
ALLOC B;
ALLOC B;
FREE B;
ALLOC B;
END;
END;

A. 3

B. 4

C. 2

D. 5

正確答案: A

問題2

CORRECT TEXT
Given the following code, which code is NOT equivalent?
DCL A CHAR (1);
...
SELECT (A);
WHEN ('A') PUT ('1')
WHEN ('B') PUT ('2')
WHEN ('C') PUT ('3');
OTHER;
END;

A. IF A = 'C' THEN PUT ('3')
IF A = 'B' THEN PUT ('2')
IF A = 'A' THEN PUT ('1');

B. SELECT (A);
WHEN ('A') PUT ('1')
WHEN ('C') PUT ('3')
WHEN ('B') PUT ('2');
END;

C. SELECT (A);
WHEN ('B') PUT ('2')
WHEN ('A') PUT ('1')
WHEN ('C') PUT ('3');
OTHER;
END;

D. IF A = 'A' THEN PUT('1'
IF A = 'B' THEN PUT ('2')
IF A = 'C' THEN PUT ('3')

正確答案: B

問題3

CORRECT TEXT
Given the following declaration, the compiler will issue a warning message that says "INITIAL list for the array A contains only one item.".
Which INIT statement would correctly eliminate this message? DCL A(10) CHAR(5) INIT( '');

A. INIT( COPY(' '.10))

B. INIT(LOW(10))

C. INIT((10)' ')

D. INIT( (10)(' '))

正確答案: D

問題4

CORRECT TEXT
What is the value of A after executing the following code?
DCL A CHAR(6) INIT ('ABCDEF);
DCL B CHAR(10) NIT ('0123456789');
A = SUBSTR(B,5,3);

A. '456 '

B. '456DEF'

C. 'ABC456'

D. ' 456'

正確答案: A

問題5

CORRECT TEXT
If the physical dataset referred to by DDIN has a record length of 200 and a RECFM of F, what happens after executing the following code?
DCL DDIN FILE RECORD INPUT;
DCL P PTR;
DCL 1 INSTR BASED(P),
2 A CHAR(100),
2 B CHAR(100);
ALLOCATE INSTR;
OPEN FILE(DDIN);
READ FILE(DDIN) INTO(INSTR);

A. Program will abend because P has not been properly initialized.

B. One record will be read into the buffer and the pointer will be set accordingly.

C. One record
will be read into the structure INSTR.

D. READ INTO cannot be used on a BASED structure.

正確答案: C

問題6

CORRECT TEXT
Given the following program, what will be output?
TEST: PROC OPTIONS(MAIN);
DCL
1 B,
2 B1 FIXED BIN(31) INIT(1),
2 B2 FIXED BIN(31) INIT(2),
2 B3 FIXED BIN(31) INIT(4),
2 B4( 4 ) FIXED BIN(31),
2 B5 FIXED BIN(31) INIT(5),
2 B6( 5 ) FIXED BIN(31);
CALL SUB( ADDR(B) );
SUB: PROC( P);
DCL
P POINTER,
N1 FIXED BIN(31),
N2 FIXED BIN(31),
1 A BASED(P),
2 A1 FIXEDBIN(31),
2 A2 FIXEDBIN(31),
2 A3 FIXED BIN(31),
2 A4( N1 REFER(A3) ) CHAR(4),
2 A5 FIXED BIN(31),
2 A6( N2 REFER(A5) ) CHAR(4);
PUT SKIP LIST ( STG(A));
END; END;

A. 24

B. 36

C. 40

D. 52

正確答案: D

問題7

CORRECT TEXT
Given the following code, what construct is equivalent?
SELECT;
WHEN(A< 1) B += 1;
WHEN (A < 2) B += 2;
WHEN (A< 3) B+= 3;
OTHERWISE B = 0;
END;

A. SELECT;
WHEN(A< 1) B += 1;
WHEN (A < 2) B += 2;
WHEN(A< 3) B +=3;
END;

B. IF A <1THEN B += 1;
IF A < 2 THEN B += 2;
IF A < 3 THEN B += 3;
ELSE B = 0;

C. IFA< 1 THEN
B += 1;
ELSE
IF A < 2 THEN
B += 2;
ELSE
IF A < 3 THEN
B += 3;
ELSE
B = 0;

D. SELECT;
WHEN (A < 3) B += 3;
WHEN (A < 2) B += 2;
WHEN(A< 1) B += 1;
OTHERWISE B = 0;
END;

正確答案: C

最新的IBM Programming with IBM Enterprise PL/I - 000-041免費考試真題

聯系我們

站內鏈接

最新更新