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

 Download do Analisador da DIRF 2002 - IBM / MVS

 [ INLINE ] P04809N2 MVS ( 92 Kb )

 Instrues para IBM / MVS

 1 - Executar o DOWNLOAD do mdulo .

 2 - Transferncia do PROGRAMA para o MAIN-FRAME ( MVS ou OS / 390 ) :

 2.a - Pr-alocar um data-set em um volume " non-SMS " , com alocao

 primria de 10 trilhas , e os seguintes sub-parametros de DCB :

 RECFM = FB LRECL = 80 BLKSIZE = 800 DSORG = PS

 2.b - Transferir o mdulo do micro para o data-set pr-alocado .

 Utilizar , por exemplo , o FTP , lembrando que a transferencia deve ter o

 atributo " BINARY " .

 2.c - Converter o data-set que agora j contem o PROGRAMA , em uma

 BIBLIOTECA DE EXECUO , customizando o JCL abaixo .

 - Indicar o nome do data-set pr-alocado ( item 2.a ) , no par metro

 DSNAME = biblioteca-de-execuo == >> OBS .1

 No estranhar que o data-set pr alocado  sequencial ( DSORG = PS ) , e

 est sendo referenciado

 como " biblioteca " .
  que na realidade o recebido foi uma biblioteca na

 forma " UNLOAD " , e que

 ser convertida pelo IEHMOVE para o seu formato original , isto  , com

 DSORG = PO .

 - Indicar o volume que contm este data-set nos parmetros

 VOL = SER = vvvvvv do JCL , e tambm

 no parmetro TO = SYSDA = vvvvvv do comando MOVE

 ..................................................................

 == >> OBS .2

 Se couber na mesma linha ( at a col 71 ) , o parmetro TO = SYSDA = vvvvvv

 poder ser colocado na

 pos.seguinte  virgula da linha anterior , e neste caso , retirar a

 indicao de continuao da col. 72 .

 - Aps a execuo deste procedimento , o programa P04809N2 estar

 disponvel nesta biblioteca , e se for

 conveniente , poder ser copiado para outra biblitoeca , utilizando-se

 por exemplo o utilitrio IEBCOPY

 col col col

 1 16 72

 // RELOAD EXEC PGM = IEHMOVE

 // SYSPRINT DD SYSOUT = *

 // SYSUT1 DD UNIT = SYSDA , VOL = SER = vvvvvv , DISP = OLD

 << == OBS .2

 // DDNQQ DD UNIT = SYSDA , VOL = SER = vvvvvv , DISP = OLD

 << == OBS .2

 // SYSIN DD *

 MOVE DSNAME = biblioteca-de-execuo , X

 << == OBS .1

 TO = SYSDA = vvvvvv

 << == OBS .2

 / *

 3 - Execuo do PROGRAMA analisador da fita DIRF :

 Customizar o seguinte JCL , onde :

 Biblioteca-de-execuo -  o data-set gerado conforme o item 2.c

 Biblioteca-do-COBOL - CEE.SCEERUN ( nome original IBM ) se ambiente

 Language Environment

 SYS1.VSCLLIB para cobol for vs ( se ambiente no L.E. ) CEE.SCEELKED

 para cobol for MVS / VM .

 Obs. : Esta concatenao s  necessria , se a biblioteca do COBOL nao

 estiver

 contida na LINKLIST ( consulte o pessoal de suporte ) .

 // stepname EXEC PGM = P04809N2

 // STEPLIB DD DSN = Biblioteca-de-execuo , DISP = SHR

 << == OBS .1

 // DD DSN = Biblioteca-do-COBOL , DISP = SHR

 // SYS004 DD Definio do arquivo DIRF a ser analisado

 // SYS005 DD Definio do arquivo DIRF a ser enviado  SRF

 // SYS006 DD Relatrio de CRTICA / RECIBO

 A Receita Federal agradece a sua visita .
 Para informaes sobre

 poltica de privacidade e uso , clique aqui .

 Atualize sua pgina

