Antes recebíamos cartuchos com as versões dos software como Adabas, Predict, Natural entre outros (que chegavam pelo correio ou malotes) hoje com a velocidade da internet esperar o correio ou o malote entregar não é mais interessante a Software AG que hoje disponibiliza para download ou envia CD com os software de seus produtos, esse CD vem com o arquivo no formato XMIT, para converter este arquivo em datasets no mainframe com os softwares que você vai usar vou explicar abaixo;
Primeiro Passo - Vamos criar a area para com LRECL 80 igual abaixo para fazer FTP do arquivo XMIT do micro para o mainframe.
Segundo Passo - Fazer um FTP (BINARIO) do arquivo XMIT de seu micro para este arquivo (LRECL 80) que acabou de criar.
Terceiro Passo - Rodar um job que faz o receive dos arquivos binarios que foi transferido para o mainframe.
Quarto Passo - Rodar o job que vai pegar este arquivo XMIT que esta no mainframe e extrair os arquivos do Adabas versão 8 (vem junto a nova versão do Natural, Complete, Entire entre outros), no JCL que a Software AG nos enviou ele grava no mainframe estes arquivos, vamos pegar estes arquivos e gravar em um cartucho quando quiser é só baixar os arquivos necessarios.
Pronto, arquivos do novo adabas baixados.
Siglas
Primeiro Passo - Vamos criar a area para com LRECL 80 igual abaixo para fazer FTP do arquivo XMIT do micro para o mainframe.
MEMBER=AAA2 000012 REC SAVE:29.08.2008 16:47 BY USERID DBA0045 R=00000001 DSN=OPD.PRODUCAO.TSS LIB=TS VOL=PRL302 UNIT=1021 ....+....1....+....2....+....3....+....4....+....5....+....6 //AACCBR14 JOB (AACC,SCHE),'PRODUCAO',CLASS=S,MSGCLASS=A //*UQ ALLOW //* ------------------------------------------------------- //* CRIA DATASETS //* ONDE: XXX.S.XXXXX E O NOME DO ARQUIVO //* ------------------------------------------------------- // EXEC PGM=IEFBR14 //DD1 DD DSN=AAB.SAG.CLAU.AGO08, // DISP=(NEW,CATLG,DELETE), // UNIT=SYSDA,VOL=SER=PRD301,SPACE=(CYL,(800,2),RLSE), // DCB=(LRECL=80,RECFM=FB,BLKSIZE=3120,DSORG=PS) /*
Segundo Passo - Fazer um FTP (BINARIO) do arquivo XMIT de seu micro para este arquivo (LRECL 80) que acabou de criar.
Terceiro Passo - Rodar um job que faz o receive dos arquivos binarios que foi transferido para o mainframe.
MEMBER=XMIT 000012 REC SAVE:29.08.2008 16:47 BY USERID DBA0045 R=00000001
DSN=AAB.SUPORTE.JCLS LIB=TS VOL=PRL302 UNIT=1021
....+....1....+....2....+....3....+....4....+....5....+....6
//AACCBR14 JOB (AACC,SCHE),'PRODUCAO',CLASS=S,MSGCLASS=A
//*UQ ALLOW
//RECEIVE EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//STEPLIB DD DSN=PROD.LOADLIB,DISP=SHR
//SYSTSIN DD *
RECEIVE INDSNAME('NOME.DO.ARQUIVO.XMIT')
DSNAME('NOME.DO.ARQUIVO.CONVERTIDO')
/*
Quarto Passo - Rodar o job que vai pegar este arquivo XMIT que esta no mainframe e extrair os arquivos do Adabas versão 8 (vem junto a nova versão do Natural, Complete, Entire entre outros), no JCL que a Software AG nos enviou ele grava no mainframe estes arquivos, vamos pegar estes arquivos e gravar em um cartucho quando quiser é só baixar os arquivos necessarios.
MEMBER=AABSRESC 000018 REC SAVE:01.09.2008 15:05 BY USERID DBA0045 R=00000001 DSN=AAB.SUPORTE.JCLS LIB=S5 VOL=PRL304 UNIT=1003 ....+....1....+....2....+....3....+....4....+....5....+....6 //AABSREST JOB (AABS,DIST),CLAUD,CLASS=S,MSGCLASS=K TYPRUN=HOLD //*UQ ALLOW //* ------------------------------------------------------ //* PEGAR O ARQUIVO XMIT E EXTRAIR OS ARQUIVOS //* ------------------------------------------------------ //RESTORE EXEC PGM=ADRDSSU //DUMPFILE DD DSN=AAB.S.T88183.CDFILE,DISP=SHR //SYSPRINT DD SYSOUT=* //DASD DD UNIT=SYSDA,VOL=SER=ADAW07,DISP=SHR //SYSIN DD * RESTORE INDDNAME (DUMPFILE) - OUTDDNAME(DASD) - RENAMEUNCONDITIONAL ( - (ADABAS)) - DATASET (INCLUDE ( - SAG.A*.*)) - CATALOG /*
Pronto, arquivos do novo adabas baixados.
Menu Options View Utilities Compilers Help
DSLIST - Data Sets on volume ADAW07 Row 1 of 14
Command - Enter "/" to select action Message Volume
-------------------------------------------------------------------------------
ADABAS.ADA813.EC00 ADAW07
ADABAS.ADA813.EMPL ADAW07
ADABAS.ADA813.ERRN ADAW07
ADABAS.ADA813.INPL ADAW07
ADABAS.ADA813.JOBS ADAW07
ADABAS.ADA813.LICS ADAW07
ADABAS.ADA813.LOAD ADAW07
ADABAS.ADA813.MISC ADAW07
ADABAS.ADA813.SRCE ADAW07
ADABAS.ADA813.VEHI ADAW07
ADABAS.ADA813.Z000 ADAW07
ADABAS.AOS813.IS02 ADAW07
ADABAS.AOS813.LOAD ADAW07
ADABAS.DB240.WORK ADAW07
***************************** End of Data Set list ****************************
Command ===> Scroll ===> PAGE
F1=Help F2=Split F3=Exit F5=Rfind F7=Up F8=Down F9=Swap
F10=Left F11=Right F12=Cancel
Siglas
ADA - Adabas ACI - Adabas CICS Interface ACF - Adabas Caching Services COR - Adabas Coordinator AFP - Adabas Fasthpath AOS - Adabas Online Services ASM - Adabas Parallel Services REV - Adabas Review AAF - Adabas SAF Security ATM - Adabas Transaction Manager AVB - Adabas VSAM Bridge AVI - Adabas Vista COM - Com-plete WCP - Entire Net-work WCP - Entire Net-work TCP/IP NPR - Entire System Server EXX - EntireX Communication NAT - Natural NCI - Natural CICS Interface NCF - Natural Com-plete Interface NTC - Natural Connection NDB - Natural DB2 Interface ISP - Natural ISPF NTI - Natural TSO Interface NVS - Natural VSAM Interface
0 comentários:
Enviar um comentário