Foram encontradas 60 questões.
09:33:28 TID 39 FUNDATEC User OPER01 20.08.12
-- COM-PASS -- USTS
Suspended Programs Program Services 1/3
--------------------------------- ---------------------------------------
Programs Name C Level PF Service Description Programs ID PF
-------- -------- - ----- -- -------------------- -------- -- --
UEDIT JOBCTL U 1 01 E D I T O R UEDIT A
UPDS ADADBSNF U 2 02 B R O W S E UPDS B
3 NATURAL ONLINE NAT427 C
4 S P O O L NSPOOL D
5 Q U E U E S UQ E
UQ ADABAS U 6 * DATA SET UTILITY UDS F
PRINTOUT SPOOLING USPOOL G
PGMLIB MAINTENANCE ULIB H
U C T R L UCTRL I
Enter Input: HELP ?
-------------------------------------------------------------------------------
LU Name: FUN00084 HC TID: 4 Recall: = Language: 001
Devtype: 3279 V Device: PRT01017 Suspend: < PA1 Case : UPPER
Lines : 24 Key: PA2 Jump: ¢
Columns: 80
Considere que você esteja utilizando o utilitário UEDIT no nível 1 do utilitário COM-PASS e deseja navegar ( ir ) diretamente para o utilitário UQ suspenso no nível 6. O comando a ser dado para realizar está navegação é:
Provas
Programa: PPGM001
0010 DEFINE DATA LOCAL
0020 1 TAB (N1/1:5)
0030 END-DEFINE
0040 CALLNAT 'NPGM001' TAB(1:3)
0050 END
Subprograma: NPGM001
0100 DEFINE DATA PARAMETER
0200 1 TAB (N1/1:V)
0300 END-DEFINE
0400 WRITE *OCCURRENCE(TAB,1)
0500 WRITE *PROGRAM
0600 END
Ao se executar o programa PPGM001, o valor mostrado no comando WRITE da linha 0500 do subprograma NPGM001 é:
Provas
Para responder às questões de números 47 e 48, utilize, como referência, os fontes do programa PPGM001 e do subprograma NPGM001 abaixo:
Programa: PPGM001
0010 DEFINE DATA LOCAL
0020 1 TAB (N1/1:5)
0030 END-DEFINE
0040 CALLNAT 'NPGM001' TAB(1:3)
0050 END
Subprograma: NPGM001
0100 DEFINE DATA PARAMETER
0200 1 TAB (N1/1:V)
0300 END-DEFINE
0400 WRITE *OCCURRENCE(TAB,1)
0500 WRITE *PROGRAM
0600 END
Ao se executar o programa PPGM001, o valor mostrado no comando WRITE da linha 0400 do subprograma NPGM001 é
Provas
JCL:
//FUNDATEC JOB CLASS=E,MSGCLASS=O
//* ----------------------------------------------------------
//STEP02 EXEC NATPROC
//*
//CMWKF01 DD DSN=ARQ.DEPITEM.SET2012,DISP=(,CATLG),UNIT=SYSDA,
// SPACE=(TRK,(1,1)),VOL=SER=DISCOA,DCB=(LRECL=40,RECFM=FB)
//CMWKF02 DD DSN=ARQ.DEPITEM.AGO2012,DISP=OLD
//SORTWK01 DD UNIT=SYSDA,SPACE=(TRK,(250,50)),DISP=(,PASS)
//SORTWK02 DD UNIT=SYSDA,SPACE=(TRK,(250,50)),DISP=(,PASS)
//SYSIN DD *
LOGON FUNDATEC
PMANITEM
1,10
FIN
//
Programa PMANITEM:
0010 DEFINE DATA LOCAL
0020 1 #REGISTRO
0030 2 #REG-DEPTO (A03)
0040 2 #REG-ITEM (N05)
0050 2 #REG-VALOR (N15,2)
0060 2 #REG-ESTOQUE(N15)
0070 *
0080 1 #INDICE (N1,2)
0090 END-DEFINE
0100 *
0110 INPUT #INDICE
0120 *
0130 READ WORK FILE 2 #REGISTRO
0140 MULTIPLY #REG-VALOR BY #INDICE
0150 WRITE WORK FILE 1 #REGISTRO
0160 LOOP(0130)
0170 END
A classe de execução na qual o JCL executará é
Provas
JCL:
//FUNDATEC JOB CLASS=E,MSGCLASS=O
//* ----------------------------------------------------------
//STEP02 EXEC NATPROC
//*
//CMWKF01 DD DSN=ARQ.DEPITEM.SET2012,DISP=(,CATLG),UNIT=SYSDA,
// SPACE=(TRK,(1,1)),VOL=SER=DISCOA,DCB=(LRECL=40,RECFM=FB)
//CMWKF02 DD DSN=ARQ.DEPITEM.AGO2012,DISP=OLD
//SORTWK01 DD UNIT=SYSDA,SPACE=(TRK,(250,50)),DISP=(,PASS)
//SORTWK02 DD UNIT=SYSDA,SPACE=(TRK,(250,50)),DISP=(,PASS)
//SYSIN DD *
LOGON FUNDATEC
PMANITEM
1,10
FIN
//
Programa PMANITEM:
0010 DEFINE DATA LOCAL
0020 1 #REGISTRO
0030 2 #REG-DEPTO (A03)
0040 2 #REG-ITEM (N05)
0050 2 #REG-VALOR (N15,2)
0060 2 #REG-ESTOQUE(N15)
0070 *
0080 1 #INDICE (N1,2)
0090 END-DEFINE
0100 *
0110 INPUT #INDICE
0120 *
0130 READ WORK FILE 2 #REGISTRO
0140 MULTIPLY #REG-VALOR BY #INDICE
0150 WRITE WORK FILE 1 #REGISTRO
0160 LOOP(0130)
0170 END
Analisando a lógica do programa PMANITEM conjuntamente com os parâmetros passados no JCL, pode-se afirmar que o programa PMANITEM, em relação ao valor do item lido,
Provas
JCL:
//FUNDATEC JOB CLASS=E,MSGCLASS=O
//* ----------------------------------------------------------
//STEP02 EXEC NATPROC
//*
//CMWKF01 DD DSN=ARQ.DEPITEM.SET2012,DISP=(,CATLG),UNIT=SYSDA,
// SPACE=(TRK,(1,1)),VOL=SER=DISCOA,DCB=(LRECL=40,RECFM=FB)
//CMWKF02 DD DSN=ARQ.DEPITEM.AGO2012,DISP=OLD
//SORTWK01 DD UNIT=SYSDA,SPACE=(TRK,(250,50)),DISP=(,PASS)
//SORTWK02 DD UNIT=SYSDA,SPACE=(TRK,(250,50)),DISP=(,PASS)
//SYSIN DD *
LOGON FUNDATEC
PMANITEM
1,10
FIN
//
Programa PMANITEM:
0010 DEFINE DATA LOCAL
0020 1 #REGISTRO
0030 2 #REG-DEPTO (A03)
0040 2 #REG-ITEM (N05)
0050 2 #REG-VALOR (N15,2)
0060 2 #REG-ESTOQUE(N15)
0070 *
0080 1 #INDICE (N1,2)
0090 END-DEFINE
0100 *
0110 INPUT #INDICE
0120 *
0130 READ WORK FILE 2 #REGISTRO
0140 MULTIPLY #REG-VALOR BY #INDICE
0150 WRITE WORK FILE 1 #REGISTRO
0160 LOOP(0130)
0170 END
Analisando o JCL e o programa PMANITEM, pode-se afirmar que o cartão que indica o arquivo que está sendo gravado é
Provas
Para responder às questões de números 43 a 46, utilize como referência o JCL e o programa Natural PMANITEM mostrados a seguir.
JCL:
//FUNDATEC JOB CLASS=E,MSGCLASS=O
//* ----------------------------------------------------------
//STEP02 EXEC NATPROC
//*
//CMWKF01 DD DSN=ARQ.DEPITEM.SET2012,DISP=(,CATLG),UNIT=SYSDA,
// SPACE=(TRK,(1,1)),VOL=SER=DISCOA,DCB=(LRECL=40,RECFM=FB)
//CMWKF02 DD DSN=ARQ.DEPITEM.AGO2012,DISP=OLD
//SORTWK01 DD UNIT=SYSDA,SPACE=(TRK,(250,50)),DISP=(,PASS)
//SORTWK02 DD UNIT=SYSDA,SPACE=(TRK,(250,50)),DISP=(,PASS)
//SYSIN DD *
LOGON FUNDATEC
PMANITEM
1,10
FIN
//
Programa PMANITEM:
0010 DEFINE DATA LOCAL
0020 1 #REGISTRO
0030 2 #REG-DEPTO (A03)
0040 2 #REG-ITEM (N05)
0050 2 #REG-VALOR (N15,2)
0060 2 #REG-ESTOQUE(N15)
0070 *
0080 1 #INDICE (N1,2)
0090 END-DEFINE
0100 *
0110 INPUT #INDICE
0120 *
0130 READ WORK FILE 2 #REGISTRO
0140 MULTIPLY #REG-VALOR BY #INDICE
0150 WRITE WORK FILE 1 #REGISTRO
0160 LOOP(0130)
0170 END
Analisando o JCL e o programa PMANITEM, pode-se afirmar que o cartão que indica o arquivo que está sendo lido é
Provas
Considere o trecho de programa abaixo:
0010 DEFINE DATA LOCAL
0020 1 #CAMPO (A75)
0030 1 #TAB (A15/5) /* NULL SUPPRESSION OPTION ON
0040 END-DEFINE
0050 *
0060 MOVE 'PROCERGS CONCURSO PROGRAMADOR NATURAL 2012'
0070 TO #CAMPO
0080 SEPARATE #CAMPO INTO #TAB(*)
0090 RESET #TAB(2)
0100 DISPLAY #TAB(3)
0110 END
O valor de #TAB(3), demonstrado ao executar o comando DISPLAY, é
Provas
Considere o trecho de programa abaixo:
0010 DEFINE DATA LOCAL
0020 1 CAMPO-ALFA (A40)
0030 1 CAMPO1 (A10)
0040 1 CAMPO2 (A10)
0050 1 CAMPO3 (A10)
0060 1 CAMPO4 (A10)
0070 END-DEFINE
0080 *
0090 MOVE 'CONCURSO ' TO CAMPO1
0100 MOVE ' PROGRAMAD' TO CAMPO2
0110 MOVE 'OR NATURAL' TO CAMPO3
0120 MOVE ' PROCERGS ' TO CAMPO4
0130 *
0140 COMPRESS CAMPO1 CAMPO2 CAMPO3 CAMPO4 INTO CAMPO1
0150 LEAVING NO SPACE
0160 DISPLAY CAMPO-ALFA
0170 END
As aspas mostradas nas respostas abaixo são apenas delimitadores do conteúdo da variável CAMPO-ALFA, que, ao executar o comando DISPLAY, é
Provas
Considere o trecho de programa abaixo:
0010 DEFINE DATA LOCAL
0020 1 #CAMPO (A12)
0030 1 #CONT (I02)
0040 END-DEFINE
0050 *
0060 MOVE 'PROGRAMADOR' TO #CAMPO
0070 *
0080 EXAMINE FULL #CAMPO FOR 'R' GIVING POSITION #CONT
0090 *
0100 DISPLAY #CONT
0110 END
O valor de #CONT, demonstrado ao executar o comando DISPLAY, é
Provas
Caderno Container