IBM Programming with IBM Enterprise PL/I - C9050-041무료 덤프문제 풀어보기
CORRECT TEXT
What should be done, if anything, when the following compiler message appears?
Multiple closure of blocks, one extra END statement assumed.
What should be done, if anything, when the following compiler message appears?
Multiple closure of blocks, one extra END statement assumed.
정답: B
CORRECT TEXT
What is the value of A after executing the following code?
DCL A CHAR(7) INIT ('ABCDEFG'); DCLB CHAR(10) INIT ('0123456789');
SUBSTR(A,4) = SUBSTR(B,5,3);
What is the value of A after executing the following code?
DCL A CHAR(7) INIT ('ABCDEFG'); DCLB CHAR(10) INIT ('0123456789');
SUBSTR(A,4) = SUBSTR(B,5,3);
정답: B
CORRECT TEXT
What happens after the following code is executed?
DCL A CHAR(5) lNlT('ABCDE'); DCL B CHAR(4) DEF A POS(2);
What happens after the following code is executed?
DCL A CHAR(5) lNlT('ABCDE'); DCL B CHAR(4) DEF A POS(2);
정답: D
CORRECT TEXT
Given the following external subroutine, what ENTRY declaration must NOT be used in a program that calls the subroutine?
SR1: PROC (STR);
DCL SUBSTR BUILTIN;
DCL
1 STR,
3 V1 DEC FIXED (3),
3 V2 BIN FIXED (31),
3 VS CHARACTER (3);
STR.V1 =STR.V1 +1;
STRV2 = STR.V2 + 1;
STR.V3 = SUBSTR(STR.V3,1.1)!!' ';
END SR1;
Given the following external subroutine, what ENTRY declaration must NOT be used in a program that calls the subroutine?
SR1: PROC (STR);
DCL SUBSTR BUILTIN;
DCL
1 STR,
3 V1 DEC FIXED (3),
3 V2 BIN FIXED (31),
3 VS CHARACTER (3);
STR.V1 =STR.V1 +1;
STRV2 = STR.V2 + 1;
STR.V3 = SUBSTR(STR.V3,1.1)!!' ';
END SR1;
정답: A
CORRECT TEXT
Which of the following techniques will NOT cause a referenced external sub procedure to be handled as FETCHABLE when the referencing program is compiled?
Which of the following techniques will NOT cause a referenced external sub procedure to be handled as FETCHABLE when the referencing program is compiled?
정답: C
CORRECT TEXT
Given the following code, how many times is the loop executed?
DCL A(11) FIXED DEC(15,3);
DCL I FIXED BIN (31);
DO I = 1 TO 11;
A(I) = 0;
I = 1+1;
END;
Given the following code, how many times is the loop executed?
DCL A(11) FIXED DEC(15,3);
DCL I FIXED BIN (31);
DO I = 1 TO 11;
A(I) = 0;
I = 1+1;
END;
정답: A
CORRECT TEXT
What is the value of B after executing the following code?
DCL A CHAR(10) INIT('123abCDEFG');
DCLB BIN FIXED(31) INIT(5);
B = INDLX(A,'AB');
What is the value of B after executing the following code?
DCL A CHAR(10) INIT('123abCDEFG');
DCLB BIN FIXED(31) INIT(5);
B = INDLX(A,'AB');
정답: A
CORRECT TEXT
Given the following code, what SELECT code is NOT equivalent?
DCL(C,W,V) CHAR (1);
SELECT (C);
WHEN ('A''B') PUT ('1')
WHEN ('C') PUT ('2')
WHEN (W) PUT ('3')
WHEN (V) PUT ('4');
OTHERPUT ('Other');
END;
Given the following code, what SELECT code is NOT equivalent?
DCL(C,W,V) CHAR (1);
SELECT (C);
WHEN ('A''B') PUT ('1')
WHEN ('C') PUT ('2')
WHEN (W) PUT ('3')
WHEN (V) PUT ('4');
OTHERPUT ('Other');
END;
정답: A
CORRECT TEXT
If the following syntax is incorrect, how should the syntax be changed?
DCL A CHAR(100) BASED(P);
DCL P PTR;
ALLOCATE A;
READ FILE(DDIN) INTO(A);
If the following syntax is incorrect, how should the syntax be changed?
DCL A CHAR(100) BASED(P);
DCL P PTR;
ALLOCATE A;
READ FILE(DDIN) INTO(A);
정답: A
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);
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);
정답: C