A instrucao INSPECT pode serusada para contar o numero de ocorrencias de um determinado caractere. Elatambem pode ser usada para substituir um caractere especifico em um campo poroutro.Formato 1 da Instrucao INSPECT: Pode ser usado para realizar acontagem do numero de vezes que um determinado caractere aparece em um campo.Exemplos:1) Contarquantos caracteres em branco existem em CAMPO-1:INSPECT CAMPO-1 TALLYNG QTD-1FOR ALL SPACES.2) Contarquantos caracteres existem antes do primeiro espaco em branco no CAMPO-2:INSPECT CAMPO-2 TALLYNG QTD-2FOR CHARACTERS BEFORE INITIAL SPACE.3) Contarquantos caracteres existem entre zeros no CAMPO-3:INSPECT CAMPO-3 TALLYNG QTD-3FOR CHARACTERS LEADING ZEROS.4) Contarquantos caracteres existem no CAMPO-4 apos o primeiro espaco:INSPECT CAMPO-2 TALLYNG QTD-4FOR CHARACTERS AFTER INITIAL SPACE.Nos exemplos acima, as contagensobtidas sao colocadas, respectivamente, em QTD-1, QTD-2, QTD-3 e QTD-4, quenormalmente sao definidos como itens elementares na WORKING-STORAGE SECTION.Esses campos de contagem NAO sao inicializados automaticamente com o valor ZEROquando a instrucao INSPECT e executada. Sendo assim, o programador deve moverZEROS para o campo de contagem antes de cada instrucao INSPECT.Formato 2 da Instrucao INSPECT: Pode ser usado para substituirocorrencias especificadas de um determinado caractere por outro caractere. Elanao contabilizara o numero de ocorrencias de qualquer caractere.Exemplos:1) Substituir (traco) por / (barra) em um campo que representa uma data:INSPECT DATA-IN REPLACING ALL '-' BY '/'.Antes: 10-05-2011 Depois:10/05/20112) Substituiros caracteres por 3 antes do primeiro caractere 2 em um campo numerico.INSPECT CAMPO-A REPLACINGCHARACTERS BY '3' BEFORE INITIAL '2'.Antes: 112111 Depois:332111Nenhuma operacao de contagem erealizada no formato 2. Ao usar esse formato, aplicam-se as regras parainsercao de caracteres. Admita, por exemplo, que estamos inspecionando um camponumerico que tenha clausula PICTURE de 9s. Nao podemos substituir um digito 5por um 'A' porque 'A' nao e um caractere numerico.Outro formato para a instrucaoINSPECT e util para fazer conversoes.Exemplo:Um uso importante da instrucaoINSPECT e para converter letras maiusculas em minusculas.Na WORKING-STORAGE SECTION,declare os seguintes campos:01 WS-MAIUSCULAS PIC X(026) VALUE 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'.01 WS-MINUSCULAS PIC X(026) VALUE 'abcdefghijklmnopqrstuvwxyz'.Suponhamos que exista um CAMPO-1 comvalor 'LUIZ PREZA'Para converter o conteudo desse campode MAIUSCULO para minusculo, basta utilizar a instrucao INSPECT da seguinteforma:INSPECTCAMPO-1 CONVERTING WS-MAIUSCULAS TO WS-MINUSCULAS.O resultado obtido seria: CAMPO-1 comvalor 'luiz preza'.Para converter o conteudo desse campode minusculo para MAIUSCULO, basta utilizar a instrucao INSPECT da seguinteforma:INSPECTCAMPO-1 CONVERTING WS-MINUSCULAS TO WS-MAIUSCULAS.O resultado obtido seria: CAMPO-1 comvalor 'LUIZ PREZA'.Espero ter ajudado.Ate a proxima. Prezados Leitores,Ai vao mais algumas dicas de literatura a respeito de Analise de Pontos de Funcao, Logica, COBOL, DB2, CICS e JCL.A P FAnalise de Pontos de FuncaoAutor: Carlos J. E. de CamposPaginas: 258Formato: 17 x 24Sao PauloTerceira edicao2013O livro de APF, alem de trazer todo conteudo da metrica, tras exemplos para exercitar e pensamentos para orientar a correta aplicacao, assim como, a reflexao para a justa aplicacao da metrica independente de onde o profissional esta atuando. E preciso formar cidadaos seguindo a reta justica, mesmo que os espelhos a nossa volta sejam distorcidos. Os conceitos e regras sao destacados e agrupados por capitulos e, seguem uma nova sequencia. Desta forma, o encadeamento dos conceitos melhora o raciocinio e a metrica fica mais facil de ser entendida.LOGICADesenvolvimento COBOL MainframeAutor: Carlos J. E. de CamposPaginas: 340Formato: 17 x