ÍNDICE
NAVEGAÇÃO NO TERMINAL NAVEGAÇÃO TERMINAL....................... .............................................. .............................................. .............................................. ............................................. ............................... ............. ....22 TRANSFERIR ARQUIVO....................... .............................................. .............................................. .............................................. .............................................. ............................................. ......................22 EDITAR ROTINA COBOL...................... ............................................. .............................................. .............................................. .............................................. ................................ ............... ............ ......22 COMANDOS COMANDO S DO DO EDITOR...................... ............................................. .............................................. .............................................. .............................................. ................................ ............... ............ ......22 COBOL BÁSICO..................... ............................................ .............................................. .............................................. .............................................. .............................................. ................................ .............. .......3 ADICIONAR AO ENDEVOR POR POR FOREEGROUND FOREEGROUND...................... ............................................. .............................................. ............................. ............ ............ ............ ......33 CRIAR PACOTE PACOTE PARA ENDEVOR.................... ........................................... .............................................. .............................................. ...................................... ..................... ............ .......... ....44 ADICIONAR AO ENDEVOR ENDEVOR POR BATCH BATCH...................... ............................................. .............................................. ........................................... .......................... ............ ........... ........ ...44 NAVEGAÇÃO NAVEGAÇÃ O NO CICS...................... ............................................. .............................................. .............................................. .............................................. ............................. ........... ........... ............ ........7 CADASTRAR CADASTRA R PROGRAMA NO CICS (ON-LINE / SUBROTINA).................... ........................................... .................................... ................... ............ ......... ...77 CADASTRAR CADASTRA R TRANSAÇÃO TRANSAÇÃO NO CICS...................... ............................................. .............................................. ........................................... .......................... ............ ............ ............ ..........88 CADASTRAR CADASTRA R DB2ENTRY NO NO CICS....................... .............................................. .............................................. .............................................. ....................................... ...................... .......... ....88 CALCULAR TAMANHO TAMANHO DE UM BOOK....................... .............................................. .............................................. .............................................. ....................................... .................... ....88 COMPILAR PROGRAMA.................... ........................................... .............................................. .............................................. .............................................. .................................. ................. ............ ........9 DEBUGAR PROGRAMA PROGRAMA CICS....................... .............................................. .............................................. .............................................. .............................................. ................................... ..............9 DEBUGAR PROGRAMA BATCH.................... ........................................... .............................................. .............................................. ........................................ ....................... ............ ......... ...10 10 CONSULTAR BANCO DE DADOS DB2 DB2.................... ........................................... .............................................. .............................................. .............................. ............. ............ ..........11 11 EXECUTAR PASSO A PASSO PASSO ROTINA PO NO CICS CICS...................... ............................................. ............................................. ............................ ............ ............ ......... ...12 12 EXECUTAR ROTINA PO NO CICS....................... .............................................. .............................................. ............................................ ........................... ............ ............ ............ .......... ....12 12 CONSULTAR ARQUIVO VSAM NO CICS...................... ............................................. .............................................. ........................................ ....................... ............ ............ ......... ...12 12 BROWSE DO ARQUIVO ARQUIVO VSAM NO CICS CICS.................... ........................................... .............................................. .............................................. ................................... .................. ......12 12 CONSULTAR FILA MQSERIES MQSERIES....................... .............................................. .............................................. .............................................. ........................................... .......................... ............ ......12 12 ALOCAR ARQUIVO...................... ............................................. .............................................. .............................................. .............................................. ............................... .............. ............ ............ ..........13 13 ALOCAR ARQUIVO VSAM..................... ............................................ .............................................. .............................................. .............................................. ............................. ............ ........... .....13 13 MONITORAR MENSAGENS SIROT ....................................................................................................................14 ....................................................................................................................14 DESENHAR TELAS NO SDF ................................................................................................................................14 ................................................................................................................................14 GERADOR DE REQUISIÇÃO DE INCLUSÃO DE ELEMENTOS CICS ...........................................................18 ...........................................................18 EXPLICAÇÃO SOBRE OS ABENDS DO CICS ...................................................................................................18 ...................................................................................................18 TESTAR ATIVIDADE DA CONEXÃO DB2 ........................................................................................................18 ........................................................................................................18 ALTERAR DADOS/ESTRUTURA DADOS/ESTRUTURA EM TABELAS NO HMP....................... .............................................. ........................................ ....................... ............ .......... ....18 18
1
NAVEGAÇÃO NO TERMIN NAVEGAÇÃO TERMINAL AL ========================
TAB / shift TAB - navega entre as opções da tela em espiral
F2 - abre 2ª seção F9 - alterna entre as seções – SWAP List (navegar entre as sessões)
CTRL - navega entre as opções da tela colunarmente
HOME - vai para 1ª linha e coluna da tela ESC - libera terminal
Entrar no EXTRA EXTRA com opção: 7
27 TRANSFERIR ARQUIVO ====================
Selecionar opção M Transferir Arquivos Digitar S (selecionar) Nome destino: 'des.MEX.book(nome_arq)' Digitar P (PDF) HOST = acd1 (minusc.) Digitar 6 (command) EDITAR ROTINA COBOL ====================
Selecionar opção M
Digitar P (PDF)
Digitar S (selecionar)
Digitar 2 (edit) Edit Entry Panel
Command ===> ISPF Library: Project . . Group . . . Type . . . Member . .
. P955455 . DES . CNTL .
EDIT P955455.DES.CNTL Command ===> Name Prompt . MEXBB901 S MEXPO008 . MEXPO900 **End**
. . .
. . .
. . .
(Blank or pattern for member selection list)
Size
Created
660 498
2002/11/18 2003/11/07
Row 00001 of 00003 Scroll ===> PAGE Changed ID 2003/11/07 16:58:52 2003/11/07 17:02:41
P955455 P955455
COMANDOS DO EDITOR ===================== << - identa um bloco X colunas à esquerda <> - identa um bloco X colunas à direita >>X A – move o bloco para a linha posterior à indicada AUTOSAVE OFF – pergunta se deseja salvar o arquivo qdo tecla-se F3. B – move o bloco para a linha anterior à indicada Bottom - vai para o fim do arquivo. C – Copia linha CC – Copia bloco de linhas CAMPO SCROLL – PAGE – pula de página em página CHANGE ‘string’ ‘novastring’ ALL – muda a ocorrência de ‘string’ para ‘novastring’. ALL muda todas. COLS – (digitar sobre um número de linha) exibe régua de colunas CONTROL+HOME – insere linha guia CSR – pula orientado pelo cursor D – apaga uma linha DD – apaga um bloco F2 - abre 2ª seção - F9 alterna entre as seções abertas F5 – continua última busca F7 – serão avançadas NNNN linhas. F8 - serão retrocedidas NNNN linhas. FIND – pesquisa string na rotina. Se for numérico, colocar entre aspas. UNDO – desfaz alterações
FIND ‘100’ 8 – procura a string na coluna 8 FIND PREV – procura para cima. HELP – mostra explicação de cada comando I – insere uma linha após a indicada I NNNN – insere numero de linhas desejadas L NNNN – pula para a linha NNNN. M – move uma linha MM – move um bloco: M+F7 – vai para o início do arquivo. M+F8 – vai para o final do arquivo. ON – não pergunta PROFILE (PROF)- permite configurar opções de personalização CAPS ON – habilita letra maiuscula RECOVERY ON – habilita undo RESET (RES) – remove qualquer mensagem que não faça parte da rotina R – replica linha ROW – EXIBE TABELA NA HORIZONTAl RR – replica um bloco RRX – replica um bloco X vezes SAVE – salva a rotina TOP – vai para o inicio do arquivo. TSO COMP – entra direto no compilador. OBS: Sempre que compilar uma rotina PO ou BB, atualizar a cópia no CICS com: NEWC nome do programa
2
(somente funciona após teclarmos enter na alteração de uma linha)
COBOL BÁSICO ===================== ACCEPT – ACEITA ENTRADA DE DADOS ATRAVÉS DO USÚARIO AND – E (COMPARA OS DOIS OPERADORES) CLOSE – SAIR DO ARQUIVO COMPUTE – OPERCAO ARITIMÉTICA DISPLAY - MENSAGEM DISTINCT – ELIMINA LINHAS DE VALORES IGUAIS NA TABELA ELSE – SE NÃO (ALTERNATIVA NA RESPOSTA) END-EXIT. - FINALIZA EQUAL – IGUAL (=) EVALUATE – COMPARAÇÃO EXIT - FIM FILLER - CARACTÉRES FROM – INDICA LOCAL GOBACK – FINALIZA E VOLTA PARA O CHAMADOR GREATER – MAIOR (>) HIGH – VALUES – MAIOR VALOR IF – SE (PERGUNTA) INITIALIZE – INICIALIZA UMA VARIÁVEL INPUT – LEITURA DO ARQUIVO I-O – LÊ E GRAVA LESS – MENOR (<) LOW-VALUES – MENOR VALOR MOVE – MOVER DADOS NEXT SENTENCE – DESVIO PARA A PROMIXA SENTENÇA
NOT – NÃO (INVERTE O VALOR À SER OPERADO) NOT EQUAL – DIFERENTE (≠) NOT GREATER – MENOR OU IGUAL NOT LESS – MAIOR OU IGUAL OPEN – ABRE ARQUIVO OR – OU(COMPARA OS DOIS OPERADORES) OUTPUT – GRAVA ARQUIVO PERFORM – EXECUTAR RED – LER ARQUIVO REDEFINES – REDEFINE UM CAMPO DA WORK ROW – EXIBE TABELA NA HORIZONTAl TABLE – EXIBE TABELA NA VERTICAL SELECT – SELECIONA SPACES - ESPAÇOS STOP RUN – FINALIZA O PROGRAMA TO - PARA THRU – LIMITACAO ENTRE DOIS OU + DADOS UNTIL – ATÉ QUE (FINALIZA) VARAING – CONTROLE DE VARIAÇÃO WHEN – RESPOSTA COMPARATIVA WHERE – ONDE SEJA WRITE – GRAVA WS – EXIBE CAMPOS MOVIMENTADOS NO PROGRAMA EM DBUG
ADICI ADICIONAR ONAR AO ENDEVO ENDEVOR R POR FORE FOREEGROU EGROUND ND =====================================================
Digitar G ( produtos)
Selecionar 3 (Batch)
Digitar 6 (Endevor) Selecionar 1 (CEFDES)Normal ou 3(CEFPRD)Emergencial BATCH ------------------------ Batch Options Menu ----------------------------OPTION ===> Digitar 1 1 2 3 4 5
BUILD SCL EDIT SUBMIT VALIDATE BUILD JCL
-
Build batch SCL actions Edit request data set Submit job for batch processing Check request data set for syntax errors Enter additional JCL to be included with the job
Request Data Set: Project ===> F596148 Group ===> DES Type ===> CNTL Member ===> Nome qualquer
Append ===> N (Y/N) Include JCL ===> N (Y/N) STOPRC ===> 16 RC to stop processing Concurrent Action Processing ===> N (Y/N) Concurrent Number ===> 00 Max 00 Other Partitioned or Sequential Data Set: DSNAME ===>
Job Statement Information: ===> //MEXJCL61 JOB (MEX,SP,72664,09,30),'&SYSUID',MSGLEVEL=(1,1),CLASS=N, ===> // NOTIFY=&SYSUID,M SGCLASS=T,TIME= (,),REGION=0M ===> F1=HELP F2=SPLIT F3=END F4=RETURN F5=RFIND F6=RCHANGE F7=UP F8=DOWN F9=SWAP F10=LEFT F11=RIGHT F12=RETRIEVE ------------------------------------------------------------------------------
Próxima Tela escolher a opção 2 ADD/Update
3
-------------- -------------blank - Member list TO ENDEVOR: ENVIRONMENT SYSTEM SUBSYSTEM ELEMENT TYPE STAGE:
===> ===> ===> ===> ===>
COMMENT
===>
ADD/UPDATE ELEMENTS
A - Add an element
U - Update an element
ACTION OPTIONS: CCID GENERATE ELEMENT DELETE INPUT SOURCE NEW VERSION OVERRIDE SIGNOUT PROCESSOR GROUP UPDATE IF PRESENT
CEFDES SIMEX SIMEX MEXPO016 T
FROM ISPF LIBRARY: PROJECT ===> DES LIBRARY ===> MEX TYPE ===> BOOK MEMBER ===>
---------------- ----------
LIST OPTIONS: DISPLAY LIST
===> ===> ===> ===> ===> ===> ===>
Y (Y/N) N (Y/N) Y (Y/N) * y (Y/N)
===> Y (Y/N)
THRU MEMBER ===>
OPTION ===> A -----------------------------------------------------------------------------Escolher as opções: CT – para JOBS de execução COBOL – para Programas Batch e On line QUERY – Para solicitação Querys ou demais para outros... Digitar S na opção selecionada Agora retorne 2 telas anteriores e escolha a opção 3 Submit Importante aguardar o Retorne Cod CRIAR PACOTE PARA ENDEVOR ============================
Selecionar opção 4 Selecionar opção ZT0 Digitar G (PRODUTOS) Digitar 4 (CA - ENDEVOR) Para transferência normal: Digitar 1 (CEFDES)
Para EMERGENCIAL :
Digitar 2 (CEFPRD) OBS.: EM CARÁTER EMERGENCIAL OS PRGS DEVEM SER COPIADOS DE “DES.MEX.LIB” PARA O ESTÁGIO “E” E DEPOIS CRIADO UM PACOTE PARA MOVÊ-LOS PARA O ESTÁGIO “P”. ADICI ADICIONAR ONAR AO ENDEVOR ENDEVOR POR BATCH BATCH =================================
Digitar 3 (BATCH) Aparecerá a tela: BATCH -------------- --------1 2 3 4 5
BUILD SCL EDIT SUBMIT VALIDATE BUILD JCL
-
BATCH OPTIONS MENU
---------------- ------------
Build batch SCL actions Edit request data set Submit job for batch processing Check request data set for syntax errors Enter additional JCL to be included with the job
REQUEST DATA SET: PROJECT ===> DES
APPEND
===> N (Y/N)
4
GROUP TYPE MEMBER
===> MEX ===> JCL ===> MEXtemp
INCLUDE JCL ===> N (Y/N) <<< This field is for the scl only
OTHER PARTITIONED OR SEQUENTIAL DATA SET: DSNAME ===> JOB STATEMENT INFORMATION: ===> //MEXOP1PK JOB (MEX,SP,72664,09 ,30),'P982406', MSGLEVEL=(1,1),C LASS=N, ===> // MSGCLASS=T,TIME =(90),NOTIFY=P98 2406 ===> OPTION ===> Digitar um nome qualquer em MEMBER. Ex.: MEXTEMP Digitar 1
Aparacerá a tela:: ----------------------------------- ------------------------1 2 3 4 5 6 7 8 9 10 11 12 13
DISPLAY ADD/UPDATE RETRIEVE GENERATE MOVE DELETE PRINT ELEMENT SIGNIN TRANSFER PRINT MEMBER LIST ELEMENT LIST MEMBER ARCHIVE
-
SCL GENERATION
------------------------------------- ---------------------
Display an element Add or update an element into entry stage Retrieve or copy an element Execute the Generate Processor for this element Move an element to the next inventory location Delete an element Print elements, changes and detail change history Explicitly sign-in an element Transfer elements between two locations Print a compressed listing or member Create List actions for elements Create List actions for external members Archive elements
Digitar 2 para adicionar o programa para o SCL.
OPTION
===>
-------------- -------------blank - Member list TO ENDEVOR: ENVIRONMENT SYSTEM SUBSYSTEM ELEMENT TYPE STAGE: COMMENT
ADD/UPDATE ELEMENTS
A - Add an element
---------------- ------------
U - Update an element
ACTION OPTIONS: CCID GENERATE ELEMENT DELETE INPUT SOURCE NEW VERSION OVERRIDE SIGNOUT PROCESSOR GROUP UPDATE IF PRESENT
===> CEFDES ===> SIMEX ===> SIMEX ===> ===> T
===> ===> ===> ===> ===> ===> ===>
Y (Y/N) N (Y/N) Y (Y/N) Y (Y/N)
===>
FROM ISPF LIBRARY: PROJECT ===> DES LIBRARY ===> MEX TYPE ===> JCL MEMBER ===>
LIST OPTIONS: DISPLAY LIST
===> Y (Y/N)
THRU MEMBER ===>
FROM OTHER PARTITIONED OR SEQUENTIAL DATA SET: OPTION ===> Informar o programa/book em ELEMENT
Aparecerá a tela: ADD/UPDATE ---------------- MEMBER SELECTION LIST ------------ Row 1 to 2 of 2 FROM TO
Data set: DES.MEX.JCL Environment: CEFDES System: SIMEX
MEMBER a MEXPB900
ELEMENT
TYPE
COMMENT
Subsystem: SIMEX
Stage: T NEW VERSION
5
a MEXPB901 ******************************* Bottom of data ******************************** Digitar A em cada elemento mostrado Aparecerá a tela: ---------------------------- TYPE SELECTION LIST ----------- Row 1 to 13 of 24 MEMBER: CURRENT ENV: NEXT ENV: TYPE CT CPYNNN01 SDFNCL01 ASMNCL01 ASMNBL01 ASMNBL02 EASNBL01 s CLEDBL01 CLEDCL01 CLENBL01 CLENBL02 CLENBL03 CLENCL01
MEXPB900 CEFDES CEFDES
STAGE ID: STAGE ID:
T H
SYSTEM: SYSTEM:
SIMEX SIMEX
TYPE DESCRIPTION COMUNICACAO TECNICA COPY BOOK SDF - MAPA CICS ASSEMBLER ONLINE ASSEMBLER BATCH ASSEMBLER BATCH SEM OS PARMS RENT E REUS EASYTRIEVE COBOL LE - DB2 - BATCH COBOL LE - DB2 - CICS COBOL LE - BATCH COBOL LE - BATCH - EXCI COBOL LE - BATCH COM SUBROTINA DB2 COBOL LE - CICS
COMMAND ===>
SCROLL ===> CSR
Informar o tipo do elemento a ser compilado Voltar a tela: BATCH OPTION MENU e escolher 3 (SUBMIT) Voltar a tela do ENDEVOR e digitar 1 (DISPLAY), para verificar o elemento gerado Digitar 1 (ELEMENT) Informar o nome do elemento Uma tela informará as versões existentes. CRIAR O PACOTE: =============== Voltar a tela do ENDEVOR e digitar 4 (PACKAGE) Aparecerá a tela:
---------------------- Package Foreground Options Menu -----------------------Option ===> 1 2 3 4 5 6 7 8 9
DISPLAY CREATE/MODIFY CAST REVIEW EXECUTE SHIP BACKOUT COMMIT UTILITIES UTI LITIES
-
Display Package Information Create or Modify Package Prepare Package for Review Approve or Deny Package Submit or Execute Package Ship Packages Perform Backout or Backin Processing Clear Backout Information Reset, Delete, or Export Package
Package ID ===> Limit selection list options. These options are used by the DISPLAY and UTILITIES functions: In-Edit........ . Y In-Approval.... . Y Denied......... . Y
In-Execution.. .. Y Executed...... .. Y Committed..... .. Y
Pesquisar os pacotes existentes para saber qual o nome do próximo: Informar: MEX* em PACKAGE ID e escolher a opção 1 Os pacotes existentes serão listados. Informar o nome do pacote em PACKAGE ID. Ex.: MEX0034H Deixar todas as outras opções com Y. Digitar 2 (CREATE/MODIFY) Aparecerá a tela: MODIFY -------------------- CREATE/MODIFY PACKAGE ----------------------------OPTION ===> B - Build Package Actions E - Edit Package
I C
- Import SCL - Copy Package
6
N - Add Notes to Package PACKAGE ID: MEXTESTE DESCRIPTION ===> CATALOGAR PRG EM HMP PACKAGE TYPE ===> STANDARD SHARABLE PACKAGE ===> N (Y/N) ENABLE BACKOUT ===> Y (Y/N) EXECUTION WINDOW FROM ===> 10FEB04 00:00
STATUS: IN-EDIT APPEND TO PACKAGE ===> N (Y/N) TO ===> 31DEC79 00:00
INPUT PACKAGE ID ===> FROM ISPF LIBRARY: PROJECT ===> GROUP ===> TYPE ===> MEMBER ===> Informar a descrição em DESCRIPTION. Digitar STANDARD em PACKAGE TYPE. Escolher a opção N, para as anotações. Aparecerá a tela: ----------------------------- Package Note Text ------------------------------1. 2. 3. 4. 5. 6. 7. 8.
.........1.........2.........3.........4.........5.........6 ANALISTA RESP./RAMAL: LUIZ CARLOS VEDOVELLI MOTIVO DA INCLUSAO/ALTERA CAO: ADEQUACAO DOS PROGRAMAS PARA ZERAREM O CONTROLE DE REINICIO QUANDO HOUVER TERMINO NORMAL ____________________________________________________________ PROCEDIMENTOS: CATALOGAR OS PRGS EM HMP E MOVER PARA PRD ____________________________________________________________ EM CASO DE TERMINO ANORMAL: CONTATAR O ANALISTA RESPONSAVEL ____________________________________________________________
Press ENTER to process the Package Notes. When all the note text has been entered, press ENTER and then enter the END command. To cancel the Package Notes, enter the END command. Command ==> Informar os campos conforme exemplo acima. De volta à tela anterior, escolher a opção B Escolher a opção 5 (MOVE) Informar o nome do elemento (PROGRAMA, BOOK, QUERY) Informar T em STAGE Na próxima tela, informar O (MOVE) para cada elemento desejado Voltar a tela de pacotes e escolher a opção 3 (CAST) Digitar C (CAST) Digitar 4 (REVIEW) Digitar A (APPROVE) O pacote está pronto. Se quiser acompanhar o andamento, digitar: Digitar 1 (DISPLAY) Digitar A (APPROVERS) Preparar o e-mail utilizando o anexo em: G:\REDEASP14\SIMEX\Implantação do Sistema\Controle de Encaixe\Anexos REROP NAVEGAÇÃO NO CICS NAVEGAÇÃO CICS ====================
CECI – mostra comandos do CICS CEDA – mostra comandos do utilitário de cadastro de programas e transações
PG DN END – PAUSE OFF –
– muda tela apaga linha – limpa tela sai do CICS
CADASTRAR PROGRAMA NO CICS (ON-LINE / SUBROTINA) ================================================== OBS.: sempre cadastrar nos dois CICS C ICS (desenvolvimento (CICSD) e teste (CICST)). CEDA DI G(SIMEX) PROGRAM(MEXPO*) – SIMEX = nome do sistema; MEXPO* = programa que se deseja listar. Aparecerá a tela: DI G(SIMEX) PROGRAM(MEXPO*) ENTER COMMANDS NAME TYPE GROUP DATE TIME
7
MEXPOXX4 PROGRAM SIMEX 03.282 13.08.50 MEXPOXX8 PROGRAM SIMEX 03.282 13.32.12 MEXPOX99 PROGRAM SIMEX 03.282 13.32.52 MEXPO001 PROGRAM SIMEX 03.300 10.29.24 MEXPO002 PROGRAM SIMEX 03.295 17.52.31 MEXPO003 PROGRAM SIMEX C AS (MEXPO008) 03.287 09.57.24 MEXPO004 PROGRAM SIMEX obs: c = copia 03.295 10.09.01 MEXPO007 PROGRAM SIMEX a = altera 03.317 09.20.56 MEXPO008 PROGRAM SIMEX v = visualiza 03.317 14.17.32 MEXPO020 PROGRAM SIMEX 03.286 10.27.27 Digite na frente de um dos programas: C AS (nomedoseuprograma) para copiar a definição. CEDA ALT (ou DEF) G(SIMEX) PROGRAM(MEXPO008) Aparecerá a tela: DEF G(SIMEX) PROGRAM(MEXPO008) OVERTYPE TO MODIFY CICS RELEASE = 0620 CEDA DEFine PROGram( MEXPO008 ) PROGram : MEXPO008 Group : SIMEX DEscription ==> CONSULTAR DEPOSITOS A VISTA Language ==> CObol CObol | Assembler | Le370 | C | Pli RELoad ==> No No | Yes RESident ==> No No | Yes USAge ==> Normal Normal | Transient USElpacopy ==> No No | Yes Status ==> Enabled Enabled | Disabled RSl : 00 0-24 | Public CEdf ==> Yes Yes | No DAtalocation ==> Below Below | Any EXECKey ==> User User | Cics COncurrency ==> Quasirent Quasirent | Threadsafe REMOTE ATTRIBUTES DYnamic ==> No No | Yes + REMOTESystem ==> S Object already exists in this group. Digite a descrição do programa. Se o programa utilizar comandos DB2, cadastrar DB2ENTRY, conforme abaixo. CADASTRAR TRANSAÇÃO NO CICS ============================== OBS.: sempre cadastrar nos dois CICS C ICS (desenvolvimento (CICSD) e teste (CICST)). Usar a mesma sintaxe dos comandos de cadastro de programas, porém onde estiver PROGRAMA, leia-se TRANS
CADASTRAR DB2ENTRY NO CICS ============================== OBS.: sempre cadastrar nos dois CICS C ICS (desenvolvimento (CICSD) e teste (CICST)). Usar a mesma sintaxe dos comandos de cadastro de programas, porém onde estiver PROGRAMA, leia-se DB2ENTRY. Cadastrar para o programa e a transação. Após o cadastro, instalar usando: CEDA I G(SIMEX)
CALCULAR TAMANHO DE UM BOOK =============================== Digitar: G Digitar: 24 Apare Aparecerá cerá a tela: tela: CAIXA ECONOMICA FEDERAL
-
REDEA
-
SAO PAULO
CONVERSAO DE BOOK COBOL PARA BOOK EASYTRIEVE
Biblioteca de Origem Nome do book book
: DES.MEX.BOOK : MEXWS026 MEXWS026
Mensa Mensagem: gem: (nest (neste e campo campo aparec aparecerá erá um endereç endereço o onde onde estará estará o resultad resultado) o) Complete os campos acima e tecle ENTER. PF3/PF15 -Retorna
8
COMPILAR PROGRAMA ====================
Digitar G Digitar 1 Definir o tipo do programa Informar o nome do programa Informar biblioteca de origem: DES.MEX.LIB, P955455.DES.CNTL, etc Informar biblioteca de destino: DES.TESTEO.LINKLIB – programas on-line E subrotina DES.TESTEB.LINKLIB – programas batch Informar XPEDITER: Y Após compilação, voltar (F3) até menu principal e: Digitar S Digitar ST Escolher no menu suspenso: FILTER – para filtrar somente os JOBs do usuário OWNER (3) Informar: P955455 (usuário) Escolher um JOB para detalhar com ? na frente dele. Na lista de logs, digitar S na frente de: SYSPRINT (COBCICS) – resultado da compilação (erros, warnings, etc) EQCREL – análise do ECCOX (se está em conformidade com padrão) Q508CS – análise do DB2 (se está em conformidade com padrão) SYSOUT (NEWCOPY) – (análise do CICS – transação cadastrada, etc) (um de cada vez)
DEBUGAR PROGRAMA CICS =========================
Entrar no CICS Digitar: XPED nomedoprograma (o programa é listado) Digitar B no nº da linha desejada, para marcar um breakpoint (ENTER) Na linha de comando digitar: =1.6 Aparecerá a tela: ---------------------- XPEDITER/CICS - TRAP SUMMARY (1.6) -----------------D1DS COMMAND ===> SCROLL ===> CSR PROGRAM: MEXPO950 MODULE: MEXPO950 COMPILED ON 01 MAR 2004 AT 15.46.00 ENTRY 000001 LINE COMMANDS: A (After) B (Before) C (Copy) D (Delete) I (Insert) M (Move) CMD
USER ID NETNAME NETN AME TERM TRAN PROGRAM TRAP ABEND ...................... TRAP CONDITION ....................... -------------------------------------------------------------------_ ******** ******** **** TV08 MEXPO008 YES > _ ________ ________ ____ ____ ________ ___ > _ ________ ________ ____ ____ ________ ___ > _ ________ ________ ____ ____ ________ ___ > _ ________ ________ ____ ____ ________ ___ > _ ________ ________ ____ ____ ________ ___ > _ ________ ________ ____ ____ ________ ___
Colocar tudo *****, com exceção de: PROGRAM, que deverá conter o nome do programa (MEXPO008) TRAP ABEND = YES (listar todos os programas relacionados que se deseja incluir no DEBUG) Teclar: F4 Digitar: N em END SECTION Iniciar normalmente a transação F9 – avança linha a linha F12 – avança até o fim. Na linha de comando: K nomedavariavel (exibe o conteúdo da variável, fixando-a na tela) Após um EXEC CICS RETURN, o debugador demora um pouco. Ao retornar, digitar GO, para terminar. Se o programa ficar “preso” no XPED: Digitar no CICS: XPSP Digitar: 9 Digitar: P Digitar: R na frente do programa que se deseja liberar.
9
DEBUGAR PROGRAMA BATCH ===========================
Digitar: M Digitar: G Digitar: 10 Digitar: XP Digitar: 2 (TSO) Aparecerá a tela: Profile: DEFAULT -----COMMAND ===>
XPEDITER/TSO - STANDARD (2.1)
---------------- -------
COMMANDS:
SEtup (Display Setup Menu) PROFile (Display Profile List) TEST SELECTION CRITERIA: Program ===> MEXPB030 Entry Point ===> Load Module ===> Initial Script ===> Post Script ===> PARM
( Caps = YES ) ===>
File List/JCL Member ===> 'DES.MEX.JCL(MEXDJ030)' Preview Files? ===> NO Is This a DB2 Test? ===> NO Press ENTER to process
Plan ===> or
System ===>
enter END command to terminate
Informar o nome do programa em ”Program”. Informar o nome da JCL em “File List/JCL Member”. Se houver chamadas DB2, digitar: “YES” em “Is This a DB2 Test?” e o nome do plano (geralmente o mesmo nome do programa) em “Plan”. Se o SETUP já tiver sido rodado, teclar ENTER para debugar, senão: Digitar: SETUP, na linha de comando. Digitar: 0 (ENVIRONMENT) Digitar: 1 Digitar: 1 (LOADLIBS) Informar os campos (1) e (2), conforme a tela abaixo: Profile: DEFAULT ---- XPEDITER/TSO - LOAD MODULE LIBRARIES ---------------- -COMMAND ===> COMMANDS: DOWN (for additional User Libraries) User Libraries: --->>> Include ALL libraries your program requires <<<--(Even if the library is in LINKLST, ie. COBOL or LE runtime libraries) (1) ===> 'DES.TESTEB.XPEDITER' (2) ===> 'DES.TESTEB.LINKLIB' (3) ===> (4) ===> (5) ===> (6) ===> (7) ===> (8) ===> Installation Libraries: (Changes made to this list override installed default (9) ===> (10) ===> (11) ===> (12) ===> (13) ===> (14) ===> (15) ===> (16) ===> Teclar: ENTER. Digitar: 2 (DDIO) Digitar na linha (1): 'CPWD1.CX.DDIO' Teclar: ENTER. Digitar: 6 (DSNLOAD) Informar os campos (1) e (2), conforme a tela abaixo: Profile: DEFAULT ----- XPEDITER/TSO - DSNLOAD LIBRARIES COMMAND ===> NAME
-------------- -------
DSNLOAD DSNAME
(1) ===> D610 ===> 'DSN610.D610.SDSNEXIT'
10
(2) (3) (4) (5) (6) (7) (8)
===> D610 ===> 'DSN610.SDSNLOAD' ===> ===> ===> ===> ===> ===> ===> ===> ===> ===> ===> ===>
Note: Changes made to this screen override installed defaults Teclar ENTER. Teclar F3. Teclar ENTER, para debugar. F9 – avança linha a linha F12 – avança até o fim. Na linha de comando: K nomedavariavel (exibe o conteúdo da variável, fixando-a na tela) Para entrar no código de uma subrotina utilizar, na linha de comando: INTERCEPT MEXBBXXX
CONSULTAR BANCO DE DADOS DB2 ================================
Digitar G (Produtos) Digitar 8 (Compuware) Digitar FD (File-Aid/DB2) Digitar 1 (Browse) Aparecerá a tela: File-AID for DB2 ----------------- Browse Options ----------------------------COMMAND ===> SSID ===> DBD0 Specify DB2 Table (* or pattern for list) Location ID ===> Creator ===> MEX Table Name ===> MEXTBE10_DPSTOV STA Specify Edit Template Information: Use Existing Criteria ===> NO Edit Criteria Dataset ===> Member ===> Specify Browse Options: Initial Display Mode
Optional: Database Tablespace
===> ===>
(Yes or No) (Blank or Pattern for list)
===> 1
(1 - Table, Multiple rows per screen 2 - Row, One row per screen) Use Uncommitted Read ===> NO (Yes or No) Maximum Rows To Select ===> 2000 (* for all rows) Relationship Dataset ===> 'CPWD1.FADB2.V4 R6M1.RELATE'
Teclar ENTER Aparecerá a tela: File-AID for DB2 -------- BROWSE Selection Template ---------- Row 1 to 4 of 4 COMMAND ===> SCROLL ===> PAGE SSID: DBD0 Use EXEC to continue Use SQL to view/edit the SQL source for MEX.MEXTBE10_DPSTOVSTA Save Edit Criteria Information: Save Template Criteria On Execute Criteria Dataset Name ===> Member ===> Max Rows to Select
===> 2000
===> NO
(Yes or No)
(* = ALL ROWS)
SEL COLUMN NAME TYPE(LEN) ORDER (A/D) WHERE More: > --- --------------- --- -------------- ---- -----+---10---- +---20----+ ___ NU_UNIDADE SMALLINT =167 ___ DT_DEPOSITO DATE ___ VR_DEPOSITO DECIMAL(18,2) ___ VR_TRANSITO DECIMAL(18,2) ******************************* Bottom of data ********************************
11
EXECUTAR PASSO A PASSO ROTINA PO NO CICS ===========================================
Digitar: CEDX TVZ0 [enter] Digitar: TVZ0 [enter] ENTER – avança comando a comando CICS.
EXECUTAR ROTINA PO NO CICS ============================
Se o PO é chamado por um pacote ISO, apenas copie o mapa de chamada para a tela do CICS e tecle ENTER. Se o PO não for chamado via pacote ISO, apenas digitar o nome da sua transação (ex.: TVZ0 [enter]) Listar as transações em execução: CEMT I TAS TRA(nomedatransação) “” “” USE(matriculado usuário) PG – derruba a transação F – força “ “ “ Listar informações do programa: CEMT S PROG(nomedoprograma)
CONSULTAR ARQUIVO VSAM NO CICS =================================
Digitar: CEMT I FILE(MEX*) Aparecerá a tela: I FILE (MEX*) STATUS: RESULTS - OVERTYPE TO MODIFY Fil(MEXVSERR) Vsa Ope Ena Rea Upd Add Dsn( DES2.MEX.MZ.BB 00.MEXBB021 Fil(MEXVSRST) Vsa Clo Ena Rea Upd Add Dsn( DES.MEX.MZ.BAM 1.MEXBB023
Sha ) Sha )
Digitar: CLO no campo após Vsa, para fechar o arquivo. OPE – abre o arquivo. BROWSE DO ARQUIVO VSAM NO CICS =================================
Digitar: Digitar: Digitar: Digitar: Digitar:
XPSP 5 1 2 DSNAME do arquivo (MEXVSERR) CONSULTAR FILA MQSERIES =========================
Digitar: M Digitar: TSO MQBRO Aperecerá a tela: ------------------------ MQM Queue Browse - Entry Panel ---------------------COMMAND ===> TSO MQBRO Connect to MQM Queue Name
===> SPD1 ===> LQ.RSP.SIMEX
Hex MsgId or MsgId
===> 0000000000 ----+----1----+----2----+----3----+----4----+--===>
Hex CorrelId or CorrelId
===> 0000000000000000 ----+----1----+----2----+----3----+----4----+--===>
MQMD Display
===> OFF
Caps
===> ON
12
ALOCAR ARQUIVO ALOCAR ARQUIVO =================
Digitar: M Digitar: P Digitar: 3.2 Aparecerá a tela: Data Set Utility Option ===> A A R D blank
Allocate new data set Rename entire data set Delete entire data set Data set information
C U S V
Catalog data set Uncatalog data set Short data set information VSAM Utilities
ISPF Library: Project . . Group . . . Type . . . . Other Partitioned, Sequential or VSAM Data Set: Data Set Name . . . 'DES.MEX.MZ.BAM1.MEXPB715' Volume Serial . . . (If not cataloged, required for option "C") Data Set Password
. .
(If password protected)
Digitar: A em “Option” Digitar: localização e nome do arquivo em “Data Set Name”. OBS.: NÃO ESQUECER DE COLOCAR O DSNAME ENTRE ASPAS SIMPLES, SENÃO O ARQUIVO SERÁ CRIADO NA ÁREA DO USUÁRIO. Aparecerá a tela: Allocate New Data Set Command ===> More: + Data Set Name . . . : DES.MEX.MZ.BAM1. MEXAB715 Management class Storage class . Volume serial . Device type . . Data class . . . Space units . .
. . . . . .
. . . . . .
Average record unit Primary quantity . Secondary quantity Directory blocks . Record format . . . Record length . . . Block size . . . . Digitar: Digitar: Digitar: Digitar: Copiar o
. . . . . . TRKs . 5 10 . 0 . FB . 200 .
(Blank for default management class) (Blank for default storage class) (Blank for system default volume) ** (Generic unit or device address) ** (Blank for default data class) (BLKS, TRKS, CYLS, KB, MB, BYTES or RECORDS) (M, K, or U) (In above units) (In above units) (Zero for sequential data set) *
TRKS em “Space Units” 5 em “Primary quantity” e 10 em “Secondary quantity” FB em “Record format” o tamanho do registro em “Record length” arquivo da plataforma baixa para a alta. ALOCA ALOCAR R ARQUIVO ARQUIVO VSAM =======================
Digitar: M Digitar: G.8.FA Digitar: 3.5 Aparecerá a tela: File-AID ---------------- ----OPTION ===> A S X B BLANK
-
VSAM Utility
Allocate cluster Allocate dataspace Allocate alternate index Build alternate index Display dataset information
--------------- ---------------- -D DR T P R M
-
Delete Delete/Define Delete dataspace Allocate path Rename component Modify component
Specify Dataset Information: Dataset name ===> 'DES2.MEX.MZ.B B00.MEXBB021' Volume serial ===> (Required for options S & T)
13
Process Online or Batch
===> O
(O = Online; B = Batch)
Specify Model Dataset Information: Dataset name ===> Specify Catalog to use if other than Default System Catalog: Catalog name ===> Catalog password ===> (If catalog is password protected) Digitar: A em “OPTION” Digitar: DSNAME em ‘Dataset name’ Digitar: O ou B em ‘Process Online or Batch’ Aparecerá a tela: File-AID --------------- Allocate New VSAM Cluster -------------- -----------COMMAND ===> Component names: Cluster: 'DES2.MEX.MZ.BB00.MEXBBTST' Data component ===> 'DES2.MEX.MZ.BB 00.MEXBBTST.DAT A' Index component ===> 'DES2.MEX.MZ.BB 00.MEXBBTST.IND EX' Dataset type ===> KSDS (KSDS; ESDS; RRDS; LINEAR) Owner ID ===> Specify SMS Class Information: Storage ===> Data ===> Management ===> Space Allocation: Volume serial Units Primary Secondary Reuseable Key length Key position Average Recordsize Maximum Recordsize Expiration date Digitar: Digitar: Digitar: Digitar: Digitar: Digitar: Digitar: Digitar: Digitar: Digitar: Digitar:
DATA ===> ===> ===> ===> ===> ===> ===> ===> ===> ===>
Component TRKS 4 1 11 0 17 17
KSDS INDEX Component (Blank for default) ===> ===> TRKS (TRKs; CYLs; RECs; K; M) ===> 4 (Amount in above units) ===> 1 (Amount in above units) (Y = Yes; N = No) (1 - 255 - Required for KSDS only) (0 - maximum record - KSDS only) (Not allowed for LINEAR) (Not allowed for LINEAR) (YYYY/MM/DD or blank)
'DES2.MEX.MZ.BB00.MEXBBTST' em “Cluster” 'DES2.MEX.MZ.BB00.MEXBBTST.DATA' em “Data component” 'DES2.MEX.MZ.BB00.MEXBBTST.INDEX' em “Index component” KSDS em “Dataset type” TRKS em “Units” (2 lados) 4 em “Primary” (2 lados) ‘ em “Secondary” (2 lados) 11 em “Key length” (tamanho do campo da chave primária) 0 em “Key position” (posição do início do campo da chave primária) 17 em “Average Recordsize” (tamanho total do registro) 17 em “Maximum Recordsize” (tamanho máximo do registro)
MONIT MONITORAR ORAR MENSA MENSAGENS GENS SIRO SIROT T =============================
Digitar: R802 no CICS.
DESENHAR TELAS NO SDF ========================
Digitar: M Digitar: G.11 Aparecerá a tela: -------------- -------------OPTION
==>
INITIAL SELECTION 1 2 3 4 5 6 7 8 9 10 11 12
-
--------------- --------------
MAP EDITOR MAP SET EDITOR LIBRARY MANAGEMENT CICS/VS BMS GENERATOR PAGE EDITOR PRINT AND UNLOAD UTILITIES PROFILE EDITOR USER ENVIRONMENT EDITOR DEMO SESSION EDITOR PARTITION SET EDITOR TUTORIAL NEWS
USE END KEY (PF03) TO TERMINATE
14
Digitar: 1 Digitar o nome do “MAP SET” e do “MAP” desejado. (Ex.: MEXM950. Usa-se o mesmo nome para os dois campos e um MAP SET para cada MAP) Se o mapa não existir, será necessário informar “DEVICE”: 3270. Aparecerá a tela: 1 --------- MAP EDITOR STEP SELECTION ------------ MEXM950 MEXM950 3270 OPTION
==>
1 2 3 4 5 6 7 8
-
ALL FUNCTIONS MAP CHARACTERISTICS FIELD DEFINITION FIELD ATTRIBUTE DEFINITION FIELD INITIALIZATION APPLICATION STRUCTURE SPECIFICATION APPLICATION STRUCTURE REVIEW TEST
USE END KEY (PF03) TO FILE AND EXIT Digitar: 1 (faz executar seqüencialmente as opções 2 a 7) Aparecerá a tela: 1.2 ---------- MAP CHARACTERISTICS -------------- - MEXM950 MAP SIZE:
DEPTH
==> 024
WIDTH
==> 080
POSITION: JUSTIFY:
LINE LINE
==> NEXT ==>
COLUMN COLUMN
==> SAME ==> LEFT
STRUCTURE FORMAT
=
FIELD
I/O AREA PREFIX
MEXM950
3270
==> YES
MAP ATTRIBUTE
==>
OUTBOARD FORMAT
=
***
FREE KEYBOARD
==> YES
PRINT WIDTH
==> EOM
ALARM RESET MDT START PRINTER
AUTOMATIC NAMING GENERATION SEQ. LVL NUMBER START
==> YES ==> 001 ==> 01
NAME PREFIX ==> M950 FIELD SEPARATOR ==> 60 LVL NUMBER INCR. ==> 02
PARTITION NAME
==>
ACTIVE PARTITION ==> NO
DSECT ATTRIBUTES
==>
==> YES ==> NO ==> NO
Normalmente os campos tem os valores acima, com exceção de: NAME PREFIX: repete-se os 4 últimos caracteres do nome do MAP. Usado para nomeação automática de variáveis de campo. FIELD SEPARATOR: 60 – equivalente ao caracter “-“ Teclar F3 para concluir as informações. Aparecerá a tela: 1.3 ------------ FIELD DEFINITION --------------- - MEXM950 MEXM950 3270 ==> LINES 1 20 --------------- C(¢) V(¬ ) G(%) S(@) -------------- COLS 1 75 1 ¢TVY0 SISTEMA DE ADMINISTRACAO DE TESOURARIA E VALORES ¬DD/MM/ 2 ¢CAIXA - SIMEX MEXPO950#20 MEXM950 ¬HH:M 3 ¢-------------------------------------------------------------------------4 ¢MENU PRINCIPAL DO MODULO DE MONITORACAO¢ 5 6 ¢ 1. TESTAR FILA MQSERIES¢ 7 ¢ 2. TESTAR TABELAS E VIEWS DO SISTEMA¢ 8 ¢ 3. VERIFICAR PROCESSAMENTOS BATCH¢ 9 ¢ 4. EXECUTAR TODOS OS PROCEDIMENTOS ACIMA¢ 10 ¢ 5. LISTAR LOG DE ERROS DO SISTEMA ¢ 11 ¢ 6. LISTAR LOG DE MENSAGENS MQ REJEITADAS¢ 12 ¢ 7. LISTAR LOG DE REINICIO DE PROCESSAMENTO BATCH¢ 13 14 ¬ ¢ OPCAO¢ 15 16 17 18 19 20 ¢-------------------------------------------------------------------------Desenhar a tela conforme o padrão CAIXA. Teclando-se F5, teremos a relação de símbolos de identificação de campos, onde estes poderão ser editados ou excluídos. Para editar ou criar novo símbolo, informe o símbolo à direita e as características à esquerda. Para excluir um símbolo, apague suas características e no lugar digite: NULL.
15
Se um dos símbolos padrão forem alterados (ver primeira linha de separação da tela: C(¢) V(¬ ) G(%) S(@)), deve-se usar o comando: CODE para atualizar as definições. Ex.: se o símbolo de constante for alterado (C(¢)), digitar: CODE C #, onde # é o novo símbolo. Para criar um campo tipo array (OCCURS), criar o(s) campo(s) na linha desejada e digitar na linha de comando: REPEAT qtdelinhas STRUCTURED. Obs.: após a linha a ser repetida, não deve haver outras linhas. Teclar F3 para concluir as informações. Aparecerá a tela: 1.4 ------- FIELD ATTRIBUTE DEFINITION ----------- MEXM950 MEXM950 3270 ==> LINES 1 20 ---------------- ----- %$@|}¢ ---- ---------------- - COLS 1 75 1 ¢ VY0 SISTEMA DE ADMINISTRACAO DE TESOURARIA E VALORES ¢ D/MM/ 2 ¢ AIXA - SIMEX MEXPO950#20 MEXM950 ¢ H:M 3 ¢ ------------------------------------------------------------------------4 ¢ ENU PRINCIPAL DO MODULO DE MONITORACA ¢ 5 6 ¢ 1. TESTAR FILA MQSERIE ¢ 7 ¢ 2. TESTAR TABELAS E VIEWS DO SISTEM ¢ 8 ¢ 3. VERIFICAR PROCESSAMENTOS BATC ¢ 9 ¢ 4. EXECUTAR TODOS OS PROCEDIMENTOS ACIM ¢ 10 ¢ 5. LISTAR LOG DE ERROS DO SISTEMA ¢ 11 ¢ 6. LISTAR LOG DE MENSAGENS MQ REJEITADA ¢ 12 ¢ 7. LISTAR LOG DE REINICIO DE PROCESSAMENTO BATC ¢ 13 14 ; ¢ OPCA ¢ 15 16 17 18 19 20 ¢ ------------------------------------------------------------------------Nesta tela pode-se personalizar as definições dos campos, além dos padrões. Digite: A na linha de comando e posicione o cursor sobre o início do campo desejado e tecle ENTER. Os atributos serão exibidos na linha de comando, onde poderão ser editados. Teclar F3 para concluir as informações. Aparecerá a tela: 1.6 ---------------- FULL SCREEN NAMING ------------ MEXM950 MEXM950 3270 ==> NAME IND NAME IND NAME IND 1 2 3 4 5 6 7 8 9 LINES 1 16 ---------------- -- PREFIX=M950 -------------- ------ COLS 1 75 1 TVY0 SISTEMA DE ADMINISTRACAO DE TESOURARIA E VALORES :-DATA 2 CAIXA - SIMEX MEXPO950#20 MEXM950 :-HO 3 -------------------------------------------------------------------------4 MENU PRINCIPAL DO MODULO DE MONITORACAO 5 6 1. TESTAR FILA MQSERIES 7 2. TESTAR TABELAS E VIEWS DO SISTEMA 8 3. VERIFICAR PROCESSAMENTOS BATCH 9 4. EXECUTAR TODOS OS PROCEDIMENTOS ACIMA 10 5. LISTAR LOG DE ERROS DO SISTEMA 11 6. LISTAR LOG DE MENSAGENS MQ REJEITADAS 12 7. LISTAR LOG DE REINICIO DE PROCESSAMENTO BATCH 13 14 + OPCAO 15 16 Nesta tela podemos visualizar as variáveis juntamente com seus nomes. O símbolo “:” indica onde será colocado o prefixo padrão, definido na primeira tela. O sinal “+” indica que não é possível exibir o nome da variável naquele espaço. Teclar F3 para concluir as informações. Aparecerá a tela: 1.7 -------- APPLICATION STRUCTURE REVIEW -------- MEXM950 MEXM950 3270 ==>
1 2 3 4 5 6 7
LVL OCC --- MAP --NO. NAME URS LEN ROW COL P P COMMENT --------------------------------------------------------------------------01 MEXM950 03 M950-DATA 10 1 69 03 M950-HORA 8 2 71 03 M950-OPCAO 1 14 11 03 M950-MSG1 78 21 1 03 M950-MSG2 78 22 1 03 M950-MSG3 78 23 1
Nesta tela podemos editar o nome das variáveis da tela.
16
Teclar F3 para concluir as informações. De volta ao menu, se digitarmos 8 poderemos testar as funcionalidades da tela. Teclar F3 para sair do teste e do menu. Na tela de informação do nome do MAP, teclar F3 para voltar ao menu principal. No menu principal, digitar: 4, para compilar a tela. Aparecerá a tela: 4 --------------- --------- CICS/VS BMS GENERATOR ---------------- ----------ENTER IDENTIFICATION OF MAP SET OR PARTITION SET TO BE GENERATED OBJECT NAME ==> SPECIFY TARGET LOAD AND SOURCE LIBRARIES LOAD ==> DES.TESTEO.LINKL IB SOURCE ==> DES.TESTEO.COPYL IB ONLINE ==> USER ID ==> PASSWORD
==>
SPECIFY GENERATION PARAMETERS FOR MAP SETS LANGUAGE ==> ALIGNMENT ==> NO SPECIFY JOB CONTROL PARAMETERS PARAMETER 1 ==> PARAMETER 2 ==> PARAMETER 3 ==> USE END KEY (PF03) TO TERMINATE Digitar o nome do MAP em OBJECT NAME. Digitar COBOL em LANGUAGE. Aparecerá a tela: 4 --------------- SPECIFICATION SELECTION
--------------- - MEXM950
==> APPLICATION STRUCTURE: JCL PRESENTATION ==> NO JCL MASK ==> A CONTROL BLOCK(S): JCL PRESENTATION ==> NO JCL MASK ==> C ENTER: S TO SELECT ITEM(S) TO BE GENERATED M TO SELECT ITEM(S) FOR BMS MACRO GENERATION E TO USE USER EXIT. EXIT NAME: ==> -----------------------------------------------------------------------------APPLICATION STRUCTURE(S) S 3270 Digitar: YES nos campos JCL PRESENTATION. Digitar: S nos campos: APPLICATION STRUCTURE(S) 3270 Aparecerá a tela: 4.3 ---------------- --- JCL PRESENTATION ---------------- -- MEXM950 DSECT DVD4504W USER JCL MASK NOT FOUND, SYSTEM MASK PRESENTED ==> MASK A 1 2 3 4 5 6 7 LINE ----+----0----+----0----+----0----+----0----+----0----+----0----+----0-0001 //DVD6BTCH JOB 0002 //E6BTCH EXEC SDFEXEC 0003 //DVDDSCT DD DSN=&&SOURCE, 0004 // DISP=(NEW,PASS ),UNIT=SYSDA, 0005 // DCB=(RECFM=FB, BLKSIZE=800), 0006 // SPACE=(800,(10 ,10)) 0007 //SYSIN DD * 0008 %DATA 0009 //U6BTCH EXEC PGM=IEBUPDTE,PAR M=NEW 0010 //SYSUT2 DD DISP=SHR,DSN=%SO URCE 0011 //SYSIN DD DSN=&&SOURCE,DISP=(OLD,DEL ETE) 0012 //SYSPRINT DD SYSOUT=A 0013 // * * * END-OF-FILE * * * Na linha 0001, digitar I para incluir uma nova linha abaixo dela. Substituir o conteúdo da linha 0001 e a nova por: //MEXMAPAS JOB (MEX,SP,72664,09,30),'LUIZ-C-', // TIME=3,MSGLEVEL=(1,1),MSGCLASS=T,CLASS=N,NOTIFY=P955455 Teclar F3 para submeter o JOB. Sair do SDF, editar o JOB: SDFUNL, em DES.MEX.JCL, informando o nome do MAP e submeter. No ENDEVOR, para incluir o MAP, informar: DES.TESTEO.COPYSDF, como origem. Cadastrar o MAP no CICS.
17
GERADOR DE REQUISIÇÃO DE INCLUSÃO DE ELEMENTOS CICS =======================================================
Digitar: M Digitar: TSO PCT00
EXPLICAÇÃO SOBRE OS ABENDS DO CICS =====================================
CMAC
TESTAR ATIVIDADE DA CONEXÃO DB2 ===================================
CEMT I DB2C
ALTER ALTERAR AR DADOS/ DADOS/ESTRU ESTRUTURA TURA EM TABELA TABELAS S NO HMP ===============================================
Copiar o arquivo XLS da tabela em questão, do diretório: \\cs7261nt028\hmp documentos\Originais\IntegracoesSimuladas para o diretório: \\cs7261nt028\hmp sistemas\SIMEX\6 - Casos de Testes Verificar se a massa a ser alterada refere-se a processos batch, online ou é massa preexistente. As colunas/dados novos devem ficar na cor azul. As alterações devem ficar na cor amarela. As exclusões devem ficar na cor vermelha.
18
