 Programa Analisador e Instrues para equipamentos IBM / VSE - COBOL / VM

 Download do Analisador da DIRF 2002 - IBM / VSE

 [ INLINE ] P04809N1 VSE ( 437 Kb )

 Instrues para IBM / VSE

 1 - Executar o DOWNLOAD do mdulo .

 2 - Transferncia do PROGRAMA para o MAIN-FRAME :

 2a - Transferir o programa do micro para o main-frame , utilizando

 software disponvel na sua instalao .
 Lembrar que a transferncia

 deve ter o atributo " BINARY " .

 3 - Instalao do programa em ambiente VSE :

 Usar o JCL listado abaixo , para a Linkedio do programa " P04809N1 " .

 Obs. :

 AJUSTE OS CARTES DO POWER ( JOB E LST ) SE NECESSRIO , ASSIM COMO O

 CARTO JOB VSE DE ACORDO COM A SUA INSTALAO .

 SE A " PHASE " NO FOR RESIDIR NA " CIL " DO SISTEMA , AJUSTAR O CARTO

 " LIBDEF " PARA APONTAR PARA A DEVIDA " PRIVATE CIL " LEMBRANDO DE

 APONTAR TAMBM NO JCL DE EXECU O DO PROGRAMA .

 IDENTIFICAR A UNIDADE DE DISCO ( X'CUU ' ) QUE SER USADA PARA LER O

 ARQUIVO DISTRIBUIDO .

 * $ $ JOB JNM = LINKDIRF

 < - - - OBS. 1

 * $ $ LST LST = SYSLST

 < - - - OBS. 1

 // JOB LINKDIRF

 < - - - OBS. 1

 * LIBDEF CL , ...

 < - - - OBS. 2

 // ASSGN SYS001 , X"CUU "

 < - - - OBS. 3

 // ASSGN SYSIPT , SYS001

 // LIBDEF PHASE , CATALOG = LIB.SUBLIB

 // OPTION CATAL

 INCLUDE

 / *

 // EXEC LNKEDT

 / &

 * $ $ EOJ

 4 - Execuo em ambiente VSE :

 Usar o JCL listado abaixo , para a execuo do programa " P04809N1 " .

 Obs. :

 AJUSTE OS CARTES DO POWER ( JOB E LST ) SE NECESSRIO , ASSIM COMO O

 CARTO JOB VSE DE ACORDO COM A SUA INSTALAO .

 INCLUA UM CARTO // LIBDEF CL , ...
 IDENTIFICANDO A CIL QUE CONTM A

 PHASE , SE NO FOR A CIL DO SISTEMA .

 IDENTIFICAR AS UNIDADES DE FITAS ( X'CUU ' ) QUE SERO USADAS PARA OS

 ARQUIVOS DE ENTRADA E DE SADA .

 * $ $ JOB JNM = JOBDIRF

 < - - - OBS .
 A

 * $ $ LST LST = SYSLST

 < - - - OBS .
 A

 // JOB JOBDIRF

 < - - - OBS .
 A

 * LIBDEF CL , ...

 < - - - OBS. B

 // ASSGN SYS004 , X"CUU " ENTRADA

 < - - - OBS. C

 // ASSGN SYS005 , X"CUU " SADA

 < - - - OBS. C

 // ASSGN SYS006 , SYSLST "

 // LIBDEF * , SEARCH = LIB.SUBLIB

 // EXEC P04809N1

 // MTC RUN , SYS004

 // MTC RUN , SYS005

 / &

 * $ $ EOJ

 A Receita Federal agradece a sua visita .
 Para informaes sobre

 poltica de privacidade e uso , clique aqui .

 Atualize sua pgina

