Foram encontradas 120 questões.
Disciplina: TI - Desenvolvimento de Sistemas
Banca: CESPE / CEBRASPE
Orgão: DATAPREV
1 IDENTIFICATION DIVISION.
2 ENVIRONMENT DIVISION.
3 CONFIGURATION SECTION.
4 INPUT-OUTPUT SECTION.
5 FILE-CONTROL.
6 SELECT REMOTEFILE ASSIGN TO REMOTE.
7 DATA DIVISION.
8 FILE SECTION.
9 FD REMOTEFILE.
10 RECORD CONTAINS 80 CHARACTERS
11 VALUE OF TITLE IS "REMOTEFILE"
12 VALUE OF FILEUSE IS IO.
13 01 REMOTE-REC PIC X(80).
14 WORKING-STORAGE SECTION.
15 01 DMI-NAME PIC X(24) VALUE "DMINTERPRETER/ EMPJOB".
16 01 DATA-SET-NAME PIC X(17) VALUE IS "EMP".
17 01 ITEM-NAME PIC X(17) VALUE IS SPACES.
18 01 FIRST-1 PIC X(5) VALUE "FIRST".
19 01 P-AUDIT PIC X(5) VALUE "AUDIT".
20 01 OPEN-TYPE PIC X(6) VALUE "AUDIT".
21 01 CONDITION-1 PIC X(9) VALUE "UPDATE".
22 01 SPACE-1 PIC X(1) VALUE " ".
23 01 DATA-BUFFER PIC X(10) VALUE IS SPACES.
24 01 DATA-REQUEST PIC X (40) VALUE IS SPACES.
25 01 VAR-1 PIC X(10) VALUE IS SPACES.
26 01 RESULT PIC 9(1) COMP VALUE IS 0.
27 PROCEDURE DIVISION.
28 MAIN-SECTION.
29 CHANGE ATTRIBUTE TITLE OF "ADMINTERPRETER" TO DMI-NAME.
30 OPEN I-O REMOTEFILE.
31 CALL "DBOPEN OF DMINTERPRETER" USING OPEN-TYPE GIVING RESULT.
32 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
33 CALL "DBBEGINTRANSACTION OF DMINTERPRETER" USING P-AUDIT GIVING RESULT.
34 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
35 CALL "DBDELETE OF DMINTERPRETER" USING FIRST-1, DATA-SET-NAME, CONDITION-1 GIVING RESULT.
36 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
37 MOVE "EMP-NO=12" TO CONDITION-1.
38 CALL "DBDELETE OF DMINTERPRETER" USING FIRST-1, DATA-SET-NAME, CONDITION-1 GIVING RESULT.
39 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
40 CALL "DBENDTRANSACTION OF DMINTERPRETER" USING P-AUDIT GIVING RESULT.
41 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
42 CALL "DBCREATE OF DMINTERPRETER" USING DATA-SET-NAME, SPACE-1 GIVING RESULT.
43 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
44 MOVE "PUT REAL EMP EMP-NO" TO DATA-REQUEST.
45 MOVE "11" TO DATA-BUFFER.
46 CALL "DBDATA OF DMINTERPRETER" USING DATA-REQUEST, DATA-BUFFER GIVING RESULT.
47 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
48 MOVE "PUT REAL EMP EMP-SALARY" TO DATA-REQUEST.
49 MOVE "9001.90" TO DATA-BUFFER.
50 CALL "DBDATA OF DMINTERPRETER"
51 USING DATA-REQUEST, DATA-BUFFER GIVING RESULT.
52 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
53 MOVE "PUT STRING EMP EMP-LNAME" TO DATA-REQUEST.
54 MOVE "STACK" TO DATA-BUFFER.
55 CALL "DBDATA OF DMINTERPRETER"
56 USING DATA-REQUEST, DATA-BUFFER GIVING RESULT.
57 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
58 MOVE "EMP-FNAME" TO ITEM-NAME.
59 MOVE "CATHY" TO VAR-1.
60 CALL "DBPUTDISPLAY OF DMINTERPRETER" USING DATA-SET-NAME, ITEM-NAME, VAR-1 GIVING RESULT.
61 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
62 CALL "DBBEGINTRANSACTION OF DMINTERPRETER" USING P-AUDIT GIVING RESULT.
63 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
64 CALL "DBSTORE OF DMINTERPRETER" USING DATA-SET-NAME GIVING RESULT.
65 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
66 CALL "DBENDTRANSACTION OF DMINTERPRETER" USING P-AUDIT GIVING RESULT.
67 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
Acima, apresenta-se uma listagem de um programa COBOL, na qual estão numeradas as primeiras 67 linhas de código que compõem o programa. O programa utiliza a definição de base de dados escrita em DASDL, apresentada no código I, e o modo interpretado de acesso a operações sobre SGBDs. Julgue o item, acerca das informações apresentadas.
São operações do modo interpretado do DMSII: DBOPEN, DBBEGINTRANSACTION, DBDELETE, DBENDTRANSACTION, DBDATA, DBPUTDISPLAY e DBSTORE.
Provas
Disciplina: TI - Desenvolvimento de Sistemas
Banca: CESPE / CEBRASPE
Orgão: DATAPREV
1 IDENTIFICATION DIVISION.
2 ENVIRONMENT DIVISION.
3 CONFIGURATION SECTION.
4 INPUT-OUTPUT SECTION.
5 FILE-CONTROL.
6 SELECT REMOTEFILE ASSIGN TO REMOTE.
7 DATA DIVISION.
8 FILE SECTION.
9 FD REMOTEFILE.
10 RECORD CONTAINS 80 CHARACTERS
11 VALUE OF TITLE IS "REMOTEFILE"
12 VALUE OF FILEUSE IS IO.
13 01 REMOTE-REC PIC X(80).
14 WORKING-STORAGE SECTION.
15 01 DMI-NAME PIC X(24) VALUE "DMINTERPRETER/ EMPJOB".
16 01 DATA-SET-NAME PIC X(17) VALUE IS "EMP".
17 01 ITEM-NAME PIC X(17) VALUE IS SPACES.
18 01 FIRST-1 PIC X(5) VALUE "FIRST".
19 01 P-AUDIT PIC X(5) VALUE "AUDIT".
20 01 OPEN-TYPE PIC X(6) VALUE "AUDIT".
21 01 CONDITION-1 PIC X(9) VALUE "UPDATE".
22 01 SPACE-1 PIC X(1) VALUE " ".
23 01 DATA-BUFFER PIC X(10) VALUE IS SPACES.
24 01 DATA-REQUEST PIC X (40) VALUE IS SPACES.
25 01 VAR-1 PIC X(10) VALUE IS SPACES.
26 01 RESULT PIC 9(1) COMP VALUE IS 0.
27 PROCEDURE DIVISION.
28 MAIN-SECTION.
29 CHANGE ATTRIBUTE TITLE OF "ADMINTERPRETER" TO DMI-NAME.
30 OPEN I-O REMOTEFILE.
31 CALL "DBOPEN OF DMINTERPRETER" USING OPEN-TYPE GIVING RESULT.
32 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
33 CALL "DBBEGINTRANSACTION OF DMINTERPRETER" USING P-AUDIT GIVING RESULT.
34 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
35 CALL "DBDELETE OF DMINTERPRETER" USING FIRST-1, DATA-SET-NAME, CONDITION-1 GIVING RESULT.
36 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
37 MOVE "EMP-NO=12" TO CONDITION-1.
38 CALL "DBDELETE OF DMINTERPRETER" USING FIRST-1, DATA-SET-NAME, CONDITION-1 GIVING RESULT.
39 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
40 CALL "DBENDTRANSACTION OF DMINTERPRETER" USING P-AUDIT GIVING RESULT.
41 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
42 CALL "DBCREATE OF DMINTERPRETER" USING DATA-SET-NAME, SPACE-1 GIVING RESULT.
43 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
44 MOVE "PUT REAL EMP EMP-NO" TO DATA-REQUEST.
45 MOVE "11" TO DATA-BUFFER.
46 CALL "DBDATA OF DMINTERPRETER" USING DATA-REQUEST, DATA-BUFFER GIVING RESULT.
47 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
48 MOVE "PUT REAL EMP EMP-SALARY" TO DATA-REQUEST.
49 MOVE "9001.90" TO DATA-BUFFER.
50 CALL "DBDATA OF DMINTERPRETER"
51 USING DATA-REQUEST, DATA-BUFFER GIVING RESULT.
52 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
53 MOVE "PUT STRING EMP EMP-LNAME" TO DATA-REQUEST.
54 MOVE "STACK" TO DATA-BUFFER.
55 CALL "DBDATA OF DMINTERPRETER"
56 USING DATA-REQUEST, DATA-BUFFER GIVING RESULT.
57 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
58 MOVE "EMP-FNAME" TO ITEM-NAME.
59 MOVE "CATHY" TO VAR-1.
60 CALL "DBPUTDISPLAY OF DMINTERPRETER" USING DATA-SET-NAME, ITEM-NAME, VAR-1 GIVING RESULT.
61 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
62 CALL "DBBEGINTRANSACTION OF DMINTERPRETER" USING P-AUDIT GIVING RESULT.
63 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
64 CALL "DBSTORE OF DMINTERPRETER" USING DATA-SET-NAME GIVING RESULT.
65 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
66 CALL "DBENDTRANSACTION OF DMINTERPRETER" USING P-AUDIT GIVING RESULT.
67 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
Acima, apresenta-se uma listagem de um programa COBOL, na qual estão numeradas as primeiras 67 linhas de código que compõem o programa. O programa utiliza a definição de base de dados escrita em DASDL, apresentada no código I, e o modo interpretado de acesso a operações sobre SGBDs. Julgue o item, acerca das informações apresentadas.
Ao final da execução bem-sucedida desse programa, haverá, no SGBD, um registro no data-set EMP que conterá, para os itens de dados (EMP-NO, EMP-SALARY, EMP-LNAME, EMP-FNAME), os seguintes valores: (“11”, “9001.90”, “STACK”, “CATHY”).
Provas
Disciplina: TI - Desenvolvimento de Sistemas
Banca: CESPE / CEBRASPE
Orgão: DATAPREV
1 IDENTIFICATION DIVISION.
2 ENVIRONMENT DIVISION.
3 CONFIGURATION SECTION.
4 INPUT-OUTPUT SECTION.
5 FILE-CONTROL.
6 SELECT REMOTEFILE ASSIGN TO REMOTE.
7 DATA DIVISION.
8 FILE SECTION.
9 FD REMOTEFILE.
10 RECORD CONTAINS 80 CHARACTERS
11 VALUE OF TITLE IS "REMOTEFILE"
12 VALUE OF FILEUSE IS IO.
13 01 REMOTE-REC PIC X(80).
14 WORKING-STORAGE SECTION.
15 01 DMI-NAME PIC X(24) VALUE "DMINTERPRETER/ EMPJOB".
16 01 DATA-SET-NAME PIC X(17) VALUE IS "EMP".
17 01 ITEM-NAME PIC X(17) VALUE IS SPACES.
18 01 FIRST-1 PIC X(5) VALUE "FIRST".
19 01 P-AUDIT PIC X(5) VALUE "AUDIT".
20 01 OPEN-TYPE PIC X(6) VALUE "AUDIT".
21 01 CONDITION-1 PIC X(9) VALUE "UPDATE".
22 01 SPACE-1 PIC X(1) VALUE " ".
23 01 DATA-BUFFER PIC X(10) VALUE IS SPACES.
24 01 DATA-REQUEST PIC X (40) VALUE IS SPACES.
25 01 VAR-1 PIC X(10) VALUE IS SPACES.
26 01 RESULT PIC 9(1) COMP VALUE IS 0.
27 PROCEDURE DIVISION.
28 MAIN-SECTION.
29 CHANGE ATTRIBUTE TITLE OF "ADMINTERPRETER" TO DMI-NAME.
30 OPEN I-O REMOTEFILE.
31 CALL "DBOPEN OF DMINTERPRETER" USING OPEN-TYPE GIVING RESULT.
32 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
33 CALL "DBBEGINTRANSACTION OF DMINTERPRETER" USING P-AUDIT GIVING RESULT.
34 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
35 CALL "DBDELETE OF DMINTERPRETER" USING FIRST-1, DATA-SET-NAME, CONDITION-1 GIVING RESULT.
36 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
37 MOVE "EMP-NO=12" TO CONDITION-1.
38 CALL "DBDELETE OF DMINTERPRETER" USING FIRST-1, DATA-SET-NAME, CONDITION-1 GIVING RESULT.
39 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
40 CALL "DBENDTRANSACTION OF DMINTERPRETER" USING P-AUDIT GIVING RESULT.
41 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
42 CALL "DBCREATE OF DMINTERPRETER" USING DATA-SET-NAME, SPACE-1 GIVING RESULT.
43 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
44 MOVE "PUT REAL EMP EMP-NO" TO DATA-REQUEST.
45 MOVE "11" TO DATA-BUFFER.
46 CALL "DBDATA OF DMINTERPRETER" USING DATA-REQUEST, DATA-BUFFER GIVING RESULT.
47 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
48 MOVE "PUT REAL EMP EMP-SALARY" TO DATA-REQUEST.
49 MOVE "9001.90" TO DATA-BUFFER.
50 CALL "DBDATA OF DMINTERPRETER"
51 USING DATA-REQUEST, DATA-BUFFER GIVING RESULT.
52 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
53 MOVE "PUT STRING EMP EMP-LNAME" TO DATA-REQUEST.
54 MOVE "STACK" TO DATA-BUFFER.
55 CALL "DBDATA OF DMINTERPRETER"
56 USING DATA-REQUEST, DATA-BUFFER GIVING RESULT.
57 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
58 MOVE "EMP-FNAME" TO ITEM-NAME.
59 MOVE "CATHY" TO VAR-1.
60 CALL "DBPUTDISPLAY OF DMINTERPRETER" USING DATA-SET-NAME, ITEM-NAME, VAR-1 GIVING RESULT.
61 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
62 CALL "DBBEGINTRANSACTION OF DMINTERPRETER" USING P-AUDIT GIVING RESULT.
63 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
64 CALL "DBSTORE OF DMINTERPRETER" USING DATA-SET-NAME GIVING RESULT.
65 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
66 CALL "DBENDTRANSACTION OF DMINTERPRETER" USING P-AUDIT GIVING RESULT.
67 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
Acima, apresenta-se uma listagem de um programa COBOL, na qual estão numeradas as primeiras 67 linhas de código que compõem o programa. O programa utiliza a definição de base de dados escrita em DASDL, apresentada no código I, e o modo interpretado de acesso a operações sobre SGBDs. Julgue o item, acerca das informações apresentadas.
Ao final da execução bem-sucedida desse programa, o valor da variável VAR-1 será formado apenas por caracteres em branco.
Provas
Disciplina: TI - Desenvolvimento de Sistemas
Banca: CESPE / CEBRASPE
Orgão: DATAPREV
1 IDENTIFICATION DIVISION.
2 ENVIRONMENT DIVISION.
3 CONFIGURATION SECTION.
4 INPUT-OUTPUT SECTION.
5 FILE-CONTROL.
6 SELECT REMOTEFILE ASSIGN TO REMOTE.
7 DATA DIVISION.
8 FILE SECTION.
9 FD REMOTEFILE.
10 RECORD CONTAINS 80 CHARACTERS
11 VALUE OF TITLE IS "REMOTEFILE"
12 VALUE OF FILEUSE IS IO.
13 01 REMOTE-REC PIC X(80).
14 WORKING-STORAGE SECTION.
15 01 DMI-NAME PIC X(24) VALUE "DMINTERPRETER/ EMPJOB".
16 01 DATA-SET-NAME PIC X(17) VALUE IS "EMP".
17 01 ITEM-NAME PIC X(17) VALUE IS SPACES.
18 01 FIRST-1 PIC X(5) VALUE "FIRST".
19 01 P-AUDIT PIC X(5) VALUE "AUDIT".
20 01 OPEN-TYPE PIC X(6) VALUE "AUDIT".
21 01 CONDITION-1 PIC X(9) VALUE "UPDATE".
22 01 SPACE-1 PIC X(1) VALUE " ".
23 01 DATA-BUFFER PIC X(10) VALUE IS SPACES.
24 01 DATA-REQUEST PIC X (40) VALUE IS SPACES.
25 01 VAR-1 PIC X(10) VALUE IS SPACES.
26 01 RESULT PIC 9(1) COMP VALUE IS 0.
27 PROCEDURE DIVISION.
28 MAIN-SECTION.
29 CHANGE ATTRIBUTE TITLE OF "ADMINTERPRETER" TO DMI-NAME.
30 OPEN I-O REMOTEFILE.
31 CALL "DBOPEN OF DMINTERPRETER" USING OPEN-TYPE GIVING RESULT.
32 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
33 CALL "DBBEGINTRANSACTION OF DMINTERPRETER" USING P-AUDIT GIVING RESULT.
34 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
35 CALL "DBDELETE OF DMINTERPRETER" USING FIRST-1, DATA-SET-NAME, CONDITION-1 GIVING RESULT.
36 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
37 MOVE "EMP-NO=12" TO CONDITION-1.
38 CALL "DBDELETE OF DMINTERPRETER" USING FIRST-1, DATA-SET-NAME, CONDITION-1 GIVING RESULT.
39 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
40 CALL "DBENDTRANSACTION OF DMINTERPRETER" USING P-AUDIT GIVING RESULT.
41 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
42 CALL "DBCREATE OF DMINTERPRETER" USING DATA-SET-NAME, SPACE-1 GIVING RESULT.
43 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
44 MOVE "PUT REAL EMP EMP-NO" TO DATA-REQUEST.
45 MOVE "11" TO DATA-BUFFER.
46 CALL "DBDATA OF DMINTERPRETER" USING DATA-REQUEST, DATA-BUFFER GIVING RESULT.
47 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
48 MOVE "PUT REAL EMP EMP-SALARY" TO DATA-REQUEST.
49 MOVE "9001.90" TO DATA-BUFFER.
50 CALL "DBDATA OF DMINTERPRETER"
51 USING DATA-REQUEST, DATA-BUFFER GIVING RESULT.
52 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
53 MOVE "PUT STRING EMP EMP-LNAME" TO DATA-REQUEST.
54 MOVE "STACK" TO DATA-BUFFER.
55 CALL "DBDATA OF DMINTERPRETER"
56 USING DATA-REQUEST, DATA-BUFFER GIVING RESULT.
57 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
58 MOVE "EMP-FNAME" TO ITEM-NAME.
59 MOVE "CATHY" TO VAR-1.
60 CALL "DBPUTDISPLAY OF DMINTERPRETER" USING DATA-SET-NAME, ITEM-NAME, VAR-1 GIVING RESULT.
61 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
62 CALL "DBBEGINTRANSACTION OF DMINTERPRETER" USING P-AUDIT GIVING RESULT.
63 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
64 CALL "DBSTORE OF DMINTERPRETER" USING DATA-SET-NAME GIVING RESULT.
65 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
66 CALL "DBENDTRANSACTION OF DMINTERPRETER" USING P-AUDIT GIVING RESULT.
67 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
Acima, apresenta-se uma listagem de um programa COBOL, na qual estão numeradas as primeiras 67 linhas de código que compõem o programa. O programa utiliza a definição de base de dados escrita em DASDL, apresentada no código I, e o modo interpretado de acesso a operações sobre SGBDs. Julgue o item, acerca das informações apresentadas.
Duas execuções seguidas desse programa, quaisquer que sejam as condições iniciais da base de dados, produzem a mesma variação na população de registros do data-set EMP.
Provas
Disciplina: TI - Desenvolvimento de Sistemas
Banca: CESPE / CEBRASPE
Orgão: DATAPREV
1 IDENTIFICATION DIVISION.
2 ENVIRONMENT DIVISION.
3 CONFIGURATION SECTION.
4 INPUT-OUTPUT SECTION.
5 FILE-CONTROL.
6 SELECT REMOTEFILE ASSIGN TO REMOTE.
7 DATA DIVISION.
8 FILE SECTION.
9 FD REMOTEFILE.
10 RECORD CONTAINS 80 CHARACTERS
11 VALUE OF TITLE IS "REMOTEFILE"
12 VALUE OF FILEUSE IS IO.
13 01 REMOTE-REC PIC X(80).
14 WORKING-STORAGE SECTION.
15 01 DMI-NAME PIC X(24) VALUE "DMINTERPRETER/ EMPJOB".
16 01 DATA-SET-NAME PIC X(17) VALUE IS "EMP".
17 01 ITEM-NAME PIC X(17) VALUE IS SPACES.
18 01 FIRST-1 PIC X(5) VALUE "FIRST".
19 01 P-AUDIT PIC X(5) VALUE "AUDIT".
20 01 OPEN-TYPE PIC X(6) VALUE "AUDIT".
21 01 CONDITION-1 PIC X(9) VALUE "UPDATE".
22 01 SPACE-1 PIC X(1) VALUE " ".
23 01 DATA-BUFFER PIC X(10) VALUE IS SPACES.
24 01 DATA-REQUEST PIC X (40) VALUE IS SPACES.
25 01 VAR-1 PIC X(10) VALUE IS SPACES.
26 01 RESULT PIC 9(1) COMP VALUE IS 0.
27 PROCEDURE DIVISION.
28 MAIN-SECTION.
29 CHANGE ATTRIBUTE TITLE OF "ADMINTERPRETER" TO DMI-NAME.
30 OPEN I-O REMOTEFILE.
31 CALL "DBOPEN OF DMINTERPRETER" USING OPEN-TYPE GIVING RESULT.
32 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
33 CALL "DBBEGINTRANSACTION OF DMINTERPRETER" USING P-AUDIT GIVING RESULT.
34 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
35 CALL "DBDELETE OF DMINTERPRETER" USING FIRST-1, DATA-SET-NAME, CONDITION-1 GIVING RESULT.
36 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
37 MOVE "EMP-NO=12" TO CONDITION-1.
38 CALL "DBDELETE OF DMINTERPRETER" USING FIRST-1, DATA-SET-NAME, CONDITION-1 GIVING RESULT.
39 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
40 CALL "DBENDTRANSACTION OF DMINTERPRETER" USING P-AUDIT GIVING RESULT.
41 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
42 CALL "DBCREATE OF DMINTERPRETER" USING DATA-SET-NAME, SPACE-1 GIVING RESULT.
43 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
44 MOVE "PUT REAL EMP EMP-NO" TO DATA-REQUEST.
45 MOVE "11" TO DATA-BUFFER.
46 CALL "DBDATA OF DMINTERPRETER" USING DATA-REQUEST, DATA-BUFFER GIVING RESULT.
47 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
48 MOVE "PUT REAL EMP EMP-SALARY" TO DATA-REQUEST.
49 MOVE "9001.90" TO DATA-BUFFER.
50 CALL "DBDATA OF DMINTERPRETER"
51 USING DATA-REQUEST, DATA-BUFFER GIVING RESULT.
52 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
53 MOVE "PUT STRING EMP EMP-LNAME" TO DATA-REQUEST.
54 MOVE "STACK" TO DATA-BUFFER.
55 CALL "DBDATA OF DMINTERPRETER"
56 USING DATA-REQUEST, DATA-BUFFER GIVING RESULT.
57 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
58 MOVE "EMP-FNAME" TO ITEM-NAME.
59 MOVE "CATHY" TO VAR-1.
60 CALL "DBPUTDISPLAY OF DMINTERPRETER" USING DATA-SET-NAME, ITEM-NAME, VAR-1 GIVING RESULT.
61 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
62 CALL "DBBEGINTRANSACTION OF DMINTERPRETER" USING P-AUDIT GIVING RESULT.
63 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
64 CALL "DBSTORE OF DMINTERPRETER" USING DATA-SET-NAME GIVING RESULT.
65 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
66 CALL "DBENDTRANSACTION OF DMINTERPRETER" USING P-AUDIT GIVING RESULT.
67 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
Acima, apresenta-se uma listagem de um programa COBOL, na qual estão numeradas as primeiras 67 linhas de código que compõem o programa. O programa utiliza a definição de base de dados escrita em DASDL, apresentada no código I, e o modo interpretado de acesso a operações sobre SGBDs. Julgue o item, acerca das informações apresentadas.
Ao final da execução bem-sucedida do programa, isto é, sem que seja produzida falha nos comandos do SGBD, a população de registros do data-set EMP será reduzida em 1.
Provas
Disciplina: TI - Desenvolvimento de Sistemas
Banca: CESPE / CEBRASPE
Orgão: DATAPREV
1 IDENTIFICATION DIVISION.
2 ENVIRONMENT DIVISION.
3 CONFIGURATION SECTION.
4 INPUT-OUTPUT SECTION.
5 FILE-CONTROL.
6 SELECT REMOTEFILE ASSIGN TO REMOTE.
7 DATA DIVISION.
8 FILE SECTION.
9 FD REMOTEFILE.
10 RECORD CONTAINS 80 CHARACTERS
11 VALUE OF TITLE IS "REMOTEFILE"
12 VALUE OF FILEUSE IS IO.
13 01 REMOTE-REC PIC X(80).
14 WORKING-STORAGE SECTION.
15 01 DMI-NAME PIC X(24) VALUE "DMINTERPRETER/ EMPJOB".
16 01 DATA-SET-NAME PIC X(17) VALUE IS "EMP".
17 01 ITEM-NAME PIC X(17) VALUE IS SPACES.
18 01 FIRST-1 PIC X(5) VALUE "FIRST".
19 01 P-AUDIT PIC X(5) VALUE "AUDIT".
20 01 OPEN-TYPE PIC X(6) VALUE "AUDIT".
21 01 CONDITION-1 PIC X(9) VALUE "UPDATE".
22 01 SPACE-1 PIC X(1) VALUE " ".
23 01 DATA-BUFFER PIC X(10) VALUE IS SPACES.
24 01 DATA-REQUEST PIC X (40) VALUE IS SPACES.
25 01 VAR-1 PIC X(10) VALUE IS SPACES.
26 01 RESULT PIC 9(1) COMP VALUE IS 0.
27 PROCEDURE DIVISION.
28 MAIN-SECTION.
29 CHANGE ATTRIBUTE TITLE OF "ADMINTERPRETER" TO DMI-NAME.
30 OPEN I-O REMOTEFILE.
31 CALL "DBOPEN OF DMINTERPRETER" USING OPEN-TYPE GIVING RESULT.
32 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
33 CALL "DBBEGINTRANSACTION OF DMINTERPRETER" USING P-AUDIT GIVING RESULT.
34 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
35 CALL "DBDELETE OF DMINTERPRETER" USING FIRST-1, DATA-SET-NAME, CONDITION-1 GIVING RESULT.
36 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
37 MOVE "EMP-NO=12" TO CONDITION-1.
38 CALL "DBDELETE OF DMINTERPRETER" USING FIRST-1, DATA-SET-NAME, CONDITION-1 GIVING RESULT.
39 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
40 CALL "DBENDTRANSACTION OF DMINTERPRETER" USING P-AUDIT GIVING RESULT.
41 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
42 CALL "DBCREATE OF DMINTERPRETER" USING DATA-SET-NAME, SPACE-1 GIVING RESULT.
43 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
44 MOVE "PUT REAL EMP EMP-NO" TO DATA-REQUEST.
45 MOVE "11" TO DATA-BUFFER.
46 CALL "DBDATA OF DMINTERPRETER" USING DATA-REQUEST, DATA-BUFFER GIVING RESULT.
47 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
48 MOVE "PUT REAL EMP EMP-SALARY" TO DATA-REQUEST.
49 MOVE "9001.90" TO DATA-BUFFER.
50 CALL "DBDATA OF DMINTERPRETER"
51 USING DATA-REQUEST, DATA-BUFFER GIVING RESULT.
52 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
53 MOVE "PUT STRING EMP EMP-LNAME" TO DATA-REQUEST.
54 MOVE "STACK" TO DATA-BUFFER.
55 CALL "DBDATA OF DMINTERPRETER"
56 USING DATA-REQUEST, DATA-BUFFER GIVING RESULT.
57 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
58 MOVE "EMP-FNAME" TO ITEM-NAME.
59 MOVE "CATHY" TO VAR-1.
60 CALL "DBPUTDISPLAY OF DMINTERPRETER" USING DATA-SET-NAME, ITEM-NAME, VAR-1 GIVING RESULT.
61 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
62 CALL "DBBEGINTRANSACTION OF DMINTERPRETER" USING P-AUDIT GIVING RESULT.
63 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
64 CALL "DBSTORE OF DMINTERPRETER" USING DATA-SET-NAME GIVING RESULT.
65 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
66 CALL "DBENDTRANSACTION OF DMINTERPRETER" USING P-AUDIT GIVING RESULT.
67 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
Acima, apresenta-se uma listagem de um programa COBOL, na qual estão numeradas as primeiras 67 linhas de código que compõem o programa. O programa utiliza a definição de base de dados escrita em DASDL, apresentada no código I, e o modo interpretado de acesso a operações sobre SGBDs. Julgue o item, acerca das informações apresentadas.
O programa listado remove o registro de um empregado cujo campo número EMP-NO é igual a 12.
Provas
Disciplina: TI - Desenvolvimento de Sistemas
Banca: CESPE / CEBRASPE
Orgão: DATAPREV
1 IDENTIFICATION DIVISION.
2 ENVIRONMENT DIVISION.
3 CONFIGURATION SECTION.
4 INPUT-OUTPUT SECTION.
5 FILE-CONTROL.
6 SELECT REMOTEFILE ASSIGN TO REMOTE.
7 DATA DIVISION.
8 FILE SECTION.
9 FD REMOTEFILE.
10 RECORD CONTAINS 80 CHARACTERS
11 VALUE OF TITLE IS "REMOTEFILE"
12 VALUE OF FILEUSE IS IO.
13 01 REMOTE-REC PIC X(80).
14 WORKING-STORAGE SECTION.
15 01 DMI-NAME PIC X(24) VALUE "DMINTERPRETER/ EMPJOB".
16 01 DATA-SET-NAME PIC X(17) VALUE IS "EMP".
17 01 ITEM-NAME PIC X(17) VALUE IS SPACES.
18 01 FIRST-1 PIC X(5) VALUE "FIRST".
19 01 P-AUDIT PIC X(5) VALUE "AUDIT".
20 01 OPEN-TYPE PIC X(6) VALUE "AUDIT".
21 01 CONDITION-1 PIC X(9) VALUE "UPDATE".
22 01 SPACE-1 PIC X(1) VALUE " ".
23 01 DATA-BUFFER PIC X(10) VALUE IS SPACES.
24 01 DATA-REQUEST PIC X (40) VALUE IS SPACES.
25 01 VAR-1 PIC X(10) VALUE IS SPACES.
26 01 RESULT PIC 9(1) COMP VALUE IS 0.
27 PROCEDURE DIVISION.
28 MAIN-SECTION.
29 CHANGE ATTRIBUTE TITLE OF "ADMINTERPRETER" TO DMI-NAME.
30 OPEN I-O REMOTEFILE.
31 CALL "DBOPEN OF DMINTERPRETER" USING OPEN-TYPE GIVING RESULT.
32 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
33 CALL "DBBEGINTRANSACTION OF DMINTERPRETER" USING P-AUDIT GIVING RESULT.
34 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
35 CALL "DBDELETE OF DMINTERPRETER" USING FIRST-1, DATA-SET-NAME, CONDITION-1 GIVING RESULT.
36 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
37 MOVE "EMP-NO=12" TO CONDITION-1.
38 CALL "DBDELETE OF DMINTERPRETER" USING FIRST-1, DATA-SET-NAME, CONDITION-1 GIVING RESULT.
39 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
40 CALL "DBENDTRANSACTION OF DMINTERPRETER" USING P-AUDIT GIVING RESULT.
41 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
42 CALL "DBCREATE OF DMINTERPRETER" USING DATA-SET-NAME, SPACE-1 GIVING RESULT.
43 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
44 MOVE "PUT REAL EMP EMP-NO" TO DATA-REQUEST.
45 MOVE "11" TO DATA-BUFFER.
46 CALL "DBDATA OF DMINTERPRETER" USING DATA-REQUEST, DATA-BUFFER GIVING RESULT.
47 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
48 MOVE "PUT REAL EMP EMP-SALARY" TO DATA-REQUEST.
49 MOVE "9001.90" TO DATA-BUFFER.
50 CALL "DBDATA OF DMINTERPRETER"
51 USING DATA-REQUEST, DATA-BUFFER GIVING RESULT.
52 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
53 MOVE "PUT STRING EMP EMP-LNAME" TO DATA-REQUEST.
54 MOVE "STACK" TO DATA-BUFFER.
55 CALL "DBDATA OF DMINTERPRETER"
56 USING DATA-REQUEST, DATA-BUFFER GIVING RESULT.
57 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
58 MOVE "EMP-FNAME" TO ITEM-NAME.
59 MOVE "CATHY" TO VAR-1.
60 CALL "DBPUTDISPLAY OF DMINTERPRETER" USING DATA-SET-NAME, ITEM-NAME, VAR-1 GIVING RESULT.
61 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
62 CALL "DBBEGINTRANSACTION OF DMINTERPRETER" USING P-AUDIT GIVING RESULT.
63 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
64 CALL "DBSTORE OF DMINTERPRETER" USING DATA-SET-NAME GIVING RESULT.
65 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
66 CALL "DBENDTRANSACTION OF DMINTERPRETER" USING P-AUDIT GIVING RESULT.
67 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
Acima, apresenta-se uma listagem de um programa COBOL, na qual estão numeradas as primeiras 67 linhas de código que compõem o programa. O programa utiliza a definição de base de dados escrita em DASDL, apresentada no código I, e o modo interpretado de acesso a operações sobre SGBDs. Julgue o item, acerca das informações apresentadas.
A linha 35 do programa remove o registro de um empregado cujo campo número EMP-NO é igual a 12.
Provas
Disciplina: TI - Desenvolvimento de Sistemas
Banca: CESPE / CEBRASPE
Orgão: DATAPREV
1 IDENTIFICATION DIVISION.
2 ENVIRONMENT DIVISION.
3 CONFIGURATION SECTION.
4 INPUT-OUTPUT SECTION.
5 FILE-CONTROL.
6 SELECT REMOTEFILE ASSIGN TO REMOTE.
7 DATA DIVISION.
8 FILE SECTION.
9 FD REMOTEFILE.
10 RECORD CONTAINS 80 CHARACTERS
11 VALUE OF TITLE IS "REMOTEFILE"
12 VALUE OF FILEUSE IS IO.
13 01 REMOTE-REC PIC X(80).
14 WORKING-STORAGE SECTION.
15 01 DMI-NAME PIC X(24) VALUE "DMINTERPRETER/ EMPJOB".
16 01 DATA-SET-NAME PIC X(17) VALUE IS "EMP".
17 01 ITEM-NAME PIC X(17) VALUE IS SPACES.
18 01 FIRST-1 PIC X(5) VALUE "FIRST".
19 01 P-AUDIT PIC X(5) VALUE "AUDIT".
20 01 OPEN-TYPE PIC X(6) VALUE "AUDIT".
21 01 CONDITION-1 PIC X(9) VALUE "UPDATE".
22 01 SPACE-1 PIC X(1) VALUE " ".
23 01 DATA-BUFFER PIC X(10) VALUE IS SPACES.
24 01 DATA-REQUEST PIC X (40) VALUE IS SPACES.
25 01 VAR-1 PIC X(10) VALUE IS SPACES.
26 01 RESULT PIC 9(1) COMP VALUE IS 0.
27 PROCEDURE DIVISION.
28 MAIN-SECTION.
29 CHANGE ATTRIBUTE TITLE OF "ADMINTERPRETER" TO DMI-NAME.
30 OPEN I-O REMOTEFILE.
31 CALL "DBOPEN OF DMINTERPRETER" USING OPEN-TYPE GIVING RESULT.
32 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
33 CALL "DBBEGINTRANSACTION OF DMINTERPRETER" USING P-AUDIT GIVING RESULT.
34 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
35 CALL "DBDELETE OF DMINTERPRETER" USING FIRST-1, DATA-SET-NAME, CONDITION-1 GIVING RESULT.
36 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
37 MOVE "EMP-NO=12" TO CONDITION-1.
38 CALL "DBDELETE OF DMINTERPRETER" USING FIRST-1, DATA-SET-NAME, CONDITION-1 GIVING RESULT.
39 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
40 CALL "DBENDTRANSACTION OF DMINTERPRETER" USING P-AUDIT GIVING RESULT.
41 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
42 CALL "DBCREATE OF DMINTERPRETER" USING DATA-SET-NAME, SPACE-1 GIVING RESULT.
43 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
44 MOVE "PUT REAL EMP EMP-NO" TO DATA-REQUEST.
45 MOVE "11" TO DATA-BUFFER.
46 CALL "DBDATA OF DMINTERPRETER" USING DATA-REQUEST, DATA-BUFFER GIVING RESULT.
47 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
48 MOVE "PUT REAL EMP EMP-SALARY" TO DATA-REQUEST.
49 MOVE "9001.90" TO DATA-BUFFER.
50 CALL "DBDATA OF DMINTERPRETER"
51 USING DATA-REQUEST, DATA-BUFFER GIVING RESULT.
52 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
53 MOVE "PUT STRING EMP EMP-LNAME" TO DATA-REQUEST.
54 MOVE "STACK" TO DATA-BUFFER.
55 CALL "DBDATA OF DMINTERPRETER"
56 USING DATA-REQUEST, DATA-BUFFER GIVING RESULT.
57 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
58 MOVE "EMP-FNAME" TO ITEM-NAME.
59 MOVE "CATHY" TO VAR-1.
60 CALL "DBPUTDISPLAY OF DMINTERPRETER" USING DATA-SET-NAME, ITEM-NAME, VAR-1 GIVING RESULT.
61 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
62 CALL "DBBEGINTRANSACTION OF DMINTERPRETER" USING P-AUDIT GIVING RESULT.
63 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
64 CALL "DBSTORE OF DMINTERPRETER" USING DATA-SET-NAME GIVING RESULT.
65 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
66 CALL "DBENDTRANSACTION OF DMINTERPRETER" USING P-AUDIT GIVING RESULT.
67 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
Acima, apresenta-se uma listagem de um programa COBOL, na qual estão numeradas as primeiras 67 linhas de código que compõem o programa. O programa utiliza a definição de base de dados escrita em DASDL, apresentada no código I, e o modo interpretado de acesso a operações sobre SGBDs. Julgue o item, acerca das informações apresentadas.
O programa listado, durante a manipulação da base de dados, armazena, em meio permanente, em arquivo de auditoria, o registro de todas as atualizações realizadas no SGBD entre as linhas 35 e 64 do programa COBOL.
Provas
Disciplina: TI - Desenvolvimento de Sistemas
Banca: CESPE / CEBRASPE
Orgão: DATAPREV
1 IDENTIFICATION DIVISION.
2 ENVIRONMENT DIVISION.
3 CONFIGURATION SECTION.
4 INPUT-OUTPUT SECTION.
5 FILE-CONTROL.
6 SELECT REMOTEFILE ASSIGN TO REMOTE.
7 DATA DIVISION.
8 FILE SECTION.
9 FD REMOTEFILE.
10 RECORD CONTAINS 80 CHARACTERS
11 VALUE OF TITLE IS "REMOTEFILE"
12 VALUE OF FILEUSE IS IO.
13 01 REMOTE-REC PIC X(80).
14 WORKING-STORAGE SECTION.
15 01 DMI-NAME PIC X(24) VALUE "DMINTERPRETER/ EMPJOB".
16 01 DATA-SET-NAME PIC X(17) VALUE IS "EMP".
17 01 ITEM-NAME PIC X(17) VALUE IS SPACES.
18 01 FIRST-1 PIC X(5) VALUE "FIRST".
19 01 P-AUDIT PIC X(5) VALUE "AUDIT".
20 01 OPEN-TYPE PIC X(6) VALUE "AUDIT".
21 01 CONDITION-1 PIC X(9) VALUE "UPDATE".
22 01 SPACE-1 PIC X(1) VALUE " ".
23 01 DATA-BUFFER PIC X(10) VALUE IS SPACES.
24 01 DATA-REQUEST PIC X (40) VALUE IS SPACES.
25 01 VAR-1 PIC X(10) VALUE IS SPACES.
26 01 RESULT PIC 9(1) COMP VALUE IS 0.
27 PROCEDURE DIVISION.
28 MAIN-SECTION.
29 CHANGE ATTRIBUTE TITLE OF "ADMINTERPRETER" TO DMI-NAME.
30 OPEN I-O REMOTEFILE.
31 CALL "DBOPEN OF DMINTERPRETER" USING OPEN-TYPE GIVING RESULT.
32 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
33 CALL "DBBEGINTRANSACTION OF DMINTERPRETER" USING P-AUDIT GIVING RESULT.
34 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
35 CALL "DBDELETE OF DMINTERPRETER" USING FIRST-1, DATA-SET-NAME, CONDITION-1 GIVING RESULT.
36 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
37 MOVE "EMP-NO=12" TO CONDITION-1.
38 CALL "DBDELETE OF DMINTERPRETER" USING FIRST-1, DATA-SET-NAME, CONDITION-1 GIVING RESULT.
39 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
40 CALL "DBENDTRANSACTION OF DMINTERPRETER" USING P-AUDIT GIVING RESULT.
41 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
42 CALL "DBCREATE OF DMINTERPRETER" USING DATA-SET-NAME, SPACE-1 GIVING RESULT.
43 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
44 MOVE "PUT REAL EMP EMP-NO" TO DATA-REQUEST.
45 MOVE "11" TO DATA-BUFFER.
46 CALL "DBDATA OF DMINTERPRETER" USING DATA-REQUEST, DATA-BUFFER GIVING RESULT.
47 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
48 MOVE "PUT REAL EMP EMP-SALARY" TO DATA-REQUEST.
49 MOVE "9001.90" TO DATA-BUFFER.
50 CALL "DBDATA OF DMINTERPRETER"
51 USING DATA-REQUEST, DATA-BUFFER GIVING RESULT.
52 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
53 MOVE "PUT STRING EMP EMP-LNAME" TO DATA-REQUEST.
54 MOVE "STACK" TO DATA-BUFFER.
55 CALL "DBDATA OF DMINTERPRETER"
56 USING DATA-REQUEST, DATA-BUFFER GIVING RESULT.
57 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
58 MOVE "EMP-FNAME" TO ITEM-NAME.
59 MOVE "CATHY" TO VAR-1.
60 CALL "DBPUTDISPLAY OF DMINTERPRETER" USING DATA-SET-NAME, ITEM-NAME, VAR-1 GIVING RESULT.
61 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
62 CALL "DBBEGINTRANSACTION OF DMINTERPRETER" USING P-AUDIT GIVING RESULT.
63 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
64 CALL "DBSTORE OF DMINTERPRETER" USING DATA-SET-NAME GIVING RESULT.
65 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
66 CALL "DBENDTRANSACTION OF DMINTERPRETER" USING P-AUDIT GIVING RESULT.
67 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
Acima, apresenta-se uma listagem de um programa COBOL, na qual estão numeradas as primeiras 67 linhas de código que compõem o programa. O programa utiliza a definição de base de dados escrita em DASDL, apresentada no código I, e o modo interpretado de acesso a operações sobre SGBDs. Julgue o item, acerca das informações apresentadas.
Na linha 30 do programa considerado, tem-se a abertura de um arquivo no modo de leitura e gravação, cujo nome é REMOTEFILE, e que possui registros com tamanho de 80 caracteres alfanuméricos.
Provas
Disciplina: TI - Desenvolvimento de Sistemas
Banca: CESPE / CEBRASPE
Orgão: DATAPREV
1 IDENTIFICATION DIVISION.
2 ENVIRONMENT DIVISION.
3 CONFIGURATION SECTION.
4 INPUT-OUTPUT SECTION.
5 FILE-CONTROL.
6 SELECT REMOTEFILE ASSIGN TO REMOTE.
7 DATA DIVISION.
8 FILE SECTION.
9 FD REMOTEFILE.
10 RECORD CONTAINS 80 CHARACTERS
11 VALUE OF TITLE IS "REMOTEFILE"
12 VALUE OF FILEUSE IS IO.
13 01 REMOTE-REC PIC X(80).
14 WORKING-STORAGE SECTION.
15 01 DMI-NAME PIC X(24) VALUE "DMINTERPRETER/ EMPJOB".
16 01 DATA-SET-NAME PIC X(17) VALUE IS "EMP".
17 01 ITEM-NAME PIC X(17) VALUE IS SPACES.
18 01 FIRST-1 PIC X(5) VALUE "FIRST".
19 01 P-AUDIT PIC X(5) VALUE "AUDIT".
20 01 OPEN-TYPE PIC X(6) VALUE "AUDIT".
21 01 CONDITION-1 PIC X(9) VALUE "UPDATE".
22 01 SPACE-1 PIC X(1) VALUE " ".
23 01 DATA-BUFFER PIC X(10) VALUE IS SPACES.
24 01 DATA-REQUEST PIC X (40) VALUE IS SPACES.
25 01 VAR-1 PIC X(10) VALUE IS SPACES.
26 01 RESULT PIC 9(1) COMP VALUE IS 0.
27 PROCEDURE DIVISION.
28 MAIN-SECTION.
29 CHANGE ATTRIBUTE TITLE OF "ADMINTERPRETER" TO DMI-NAME.
30 OPEN I-O REMOTEFILE.
31 CALL "DBOPEN OF DMINTERPRETER" USING OPEN-TYPE GIVING RESULT.
32 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
33 CALL "DBBEGINTRANSACTION OF DMINTERPRETER" USING P-AUDIT GIVING RESULT.
34 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
35 CALL "DBDELETE OF DMINTERPRETER" USING FIRST-1, DATA-SET-NAME, CONDITION-1 GIVING RESULT.
36 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
37 MOVE "EMP-NO=12" TO CONDITION-1.
38 CALL "DBDELETE OF DMINTERPRETER" USING FIRST-1, DATA-SET-NAME, CONDITION-1 GIVING RESULT.
39 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
40 CALL "DBENDTRANSACTION OF DMINTERPRETER" USING P-AUDIT GIVING RESULT.
41 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
42 CALL "DBCREATE OF DMINTERPRETER" USING DATA-SET-NAME, SPACE-1 GIVING RESULT.
43 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
44 MOVE "PUT REAL EMP EMP-NO" TO DATA-REQUEST.
45 MOVE "11" TO DATA-BUFFER.
46 CALL "DBDATA OF DMINTERPRETER" USING DATA-REQUEST, DATA-BUFFER GIVING RESULT.
47 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
48 MOVE "PUT REAL EMP EMP-SALARY" TO DATA-REQUEST.
49 MOVE "9001.90" TO DATA-BUFFER.
50 CALL "DBDATA OF DMINTERPRETER"
51 USING DATA-REQUEST, DATA-BUFFER GIVING RESULT.
52 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
53 MOVE "PUT STRING EMP EMP-LNAME" TO DATA-REQUEST.
54 MOVE "STACK" TO DATA-BUFFER.
55 CALL "DBDATA OF DMINTERPRETER"
56 USING DATA-REQUEST, DATA-BUFFER GIVING RESULT.
57 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
58 MOVE "EMP-FNAME" TO ITEM-NAME.
59 MOVE "CATHY" TO VAR-1.
60 CALL "DBPUTDISPLAY OF DMINTERPRETER" USING DATA-SET-NAME, ITEM-NAME, VAR-1 GIVING RESULT.
61 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
62 CALL "DBBEGINTRANSACTION OF DMINTERPRETER" USING P-AUDIT GIVING RESULT.
63 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
64 CALL "DBSTORE OF DMINTERPRETER" USING DATA-SET-NAME GIVING RESULT.
65 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
66 CALL "DBENDTRANSACTION OF DMINTERPRETER" USING P-AUDIT GIVING RESULT.
67 IF RESULT = 1 PERFORM EXCEPTION-HANDLER.
Acima, apresenta-se uma listagem de um programa COBOL, na qual estão numeradas as primeiras 67 linhas de código que compõem o programa. O programa utiliza a definição de base de dados escrita em DASDL, apresentada no código I, e o modo interpretado de acesso a operações sobre SGBDs. Julgue o item, acerca das informações apresentadas.
O comando apresentado na linha 29 é o primeiro a ser executado no programa em questão, o qual é um comando WFL, da mesma forma que ocorre na primeira linha do programa DASDL do código I.
Provas
Caderno Container