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