최신IBM Programming with IBM Enterprise PL/I - 000-041무료샘플문제
문제1
CORRECT TEXT
What is the output of the following program?
MAIN: PROC OPTIONS(MAIN);
DCL
1 A UNION,
2 5 CHAR(4) INIT('FADE'),
2 C CHAR(2);
C = 'BA';
PUT SKIP LIST( B !! C);
END;
CORRECT TEXT
What is the output of the following program?
MAIN: PROC OPTIONS(MAIN);
DCL
1 A UNION,
2 5 CHAR(4) INIT('FADE'),
2 C CHAR(2);
C = 'BA';
PUT SKIP LIST( B !! C);
END;
정답: A
문제2
CORRECT TEXT
What would be printed, if anything, to SYSPRINT after executing the following code?
DCLA CHAR(5) INIT('1000');
DCL B PlC 'S99999' INIT(2000);
B = A + B;
PUT SKIP LIST('THE VALUE OF B IS:' !! B);
CORRECT TEXT
What would be printed, if anything, to SYSPRINT after executing the following code?
DCLA CHAR(5) INIT('1000');
DCL B PlC 'S99999' INIT(2000);
B = A + B;
PUT SKIP LIST('THE VALUE OF B IS:' !! B);
정답: D
문제3
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;
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;
정답: C
문제4
CORRECT TEXT
Under default condition enablement, what is the result of executing the following code?
DCL A CHAR(5);
A = '123ABC';
CORRECT TEXT
Under default condition enablement, what is the result of executing the following code?
DCL A CHAR(5);
A = '123ABC';
정답: C
문제5
CORRECT TEXT
What will be the output of the following program?
MAIN: PROC OPTIONS(MAIN);
DCL A CONTROLLED FIXED BIN(31);
DCL B CONTROLLED FIXED B IN(31);
DCL JX FIXED BIN(31);
DO JX= 1 TO 4;
ALLOC A;
A = JX;
END;
DO WHILE( ALLOCN(A)> 0);
ALLOC B;
B = A;
FREE A; END;
DO WHILE( ALLOCN(B) > 0);
PUT SKIP LIST( B);
FREE B;
END;
END;
CORRECT TEXT
What will be the output of the following program?
MAIN: PROC OPTIONS(MAIN);
DCL A CONTROLLED FIXED BIN(31);
DCL B CONTROLLED FIXED B IN(31);
DCL JX FIXED BIN(31);
DO JX= 1 TO 4;
ALLOC A;
A = JX;
END;
DO WHILE( ALLOCN(A)> 0);
ALLOC B;
B = A;
FREE A; END;
DO WHILE( ALLOCN(B) > 0);
PUT SKIP LIST( B);
FREE B;
END;
END;
정답: D
문제6
CORRECT TEXT
What is the result of executing the following code? DCL B PlC '999 99'
B = '4500';
CORRECT TEXT
What is the result of executing the following code? DCL B PlC '999 99'
B = '4500';
정답: B
문제7
CORRECT TEXT
What code would result in the BIT string B having all ones?
DCL A CHAR(8) INIT(HIGH(8));
DCL (HIGH ,ADDR) BUILTIN;
CORRECT TEXT
What code would result in the BIT string B having all ones?
DCL A CHAR(8) INIT(HIGH(8));
DCL (HIGH ,ADDR) BUILTIN;
정답: B
문제8
CORRECT TEXT
Which of the following describes when a program is NOT FETCHABLE?
CORRECT TEXT
Which of the following describes when a program is NOT FETCHABLE?
정답: C
문제9
CORRECT TEXT
Given the following code, what will be the output of the preprocessor?
%DCL FLAG CHAR;
%FIag = 'TEST ,OPT';
%DCL FUN ENTRY; FUN(FIag)
%FUN: PROC (S);
DCL S CHAR;
IF INDEX(S, 'TEST') > 0 THEN
ANSWER ('put ("Test modus entered");') SKIP;
IF INDEX(S, 'OPT') > 0 THEN ANSWER ('put ("Optimize modus entered");') SKIP;
%END FUN;
CORRECT TEXT
Given the following code, what will be the output of the preprocessor?
%DCL FLAG CHAR;
%FIag = 'TEST ,OPT';
%DCL FUN ENTRY; FUN(FIag)
%FUN: PROC (S);
DCL S CHAR;
IF INDEX(S, 'TEST') > 0 THEN
ANSWER ('put ("Test modus entered");') SKIP;
IF INDEX(S, 'OPT') > 0 THEN ANSWER ('put ("Optimize modus entered");') SKIP;
%END FUN;
정답: D
문제10
CORRECT TEXT
Which of the following statements must NOT be used to exit a BEGIN block?
CORRECT TEXT
Which of the following statements must NOT be used to exit a BEGIN block?
정답: C