Como converter um endereço IP em hexadecimal e vice-versa
Os verbos TCP-IP são passados, no COBOL, via CALL ‘EZASOKET’ USING.
Os endereços IP devem ser informados em hexadecimal, numa FULLWORD, para o progarama EZASOKET.
Este código converte um endereço TCP-IP do formato 999.999.999.999 para uma FULLWORD, e vice-versa.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 |
ID DIVISION. PROGRAM-ID. SWXTCPIP. AUTHOR. HUMBERTO HENRIQUE CANCELINHA. * SUBROTINA Converte um endereco IP, do formato: * 1 - hexadecimal para o formato NNN.NNN.NNN.NNN. ou * 2 - do formato NNN.NNN.NNN.NNN para o hexadecimal * DATA 02 de maio de 2007 * OBJETIVO 1 - Recebe um endereco IP em HEXA ou NNN.NNN.NNN.NNN * 2 - Converte para o formato oposto ao recebido. * 3 - Devolve o IP convertido. * *----------------------------------------------------------------- * HISTORICO DAS MANUTENCOES * ---------- ----------------------------------------------------- * ANALISTA DESCRICAO *CANCELINHA Permitir a conversao do formato hexa para o formato * NNN.NNN.NNN.NNN e vice-versa. *----------------------------------------------------------------- ENVIRONMENT DIVISION. CONFIGURATION SECTION. SPECIAL-NAMES. DECIMAL-POINT IS COMMA. DATA DIVISION. WORKING-STORAGE SECTION. 01 FILLER. 03 W-ALFA. 05 W-ALFA1 PIC 9(03). 05 FILLER PIC X(01) VALUE '.'. 05 W-ALFA2 PIC 9(03). 05 FILLER PIC X(01) VALUE '.'. 05 W-ALFA3 PIC 9(03). 05 FILLER PIC X(01) VALUE '.'. 05 W-ALFA4 PIC 9(03). 03 W-FULL. 05 W-F1 PIC X(01). 05 W-F2 PIC X(01). 05 W-F3 PIC X(01). 05 W-F4 PIC X(01). 03 W-BINARY PIC 9(04) COMP. 03 FILLER REDEFINES W-BINARY. 05 W-B1 PIC X(01). 05 W-B2 PIC X(01). *----------------------------------------------------------------- LINKAGE SECTION. 01 LK-IP-HEXA PIC X(04). 01 LK-IP-ALFA PIC X(15). *----------------------------------------------------------------- PROCEDURE DIVISION USING LK-IP-HEXA LK-IP-ALFA. * Para converter de hexadecimal para NNN.NNN.NNN.NNN: * LK-IP-HEXA deve conter o IP em hexadecimal * LK-IP-ALFA deve conter SPACES ou LOW-VALUES * A rotina retorna o IP convertido em LK-IP-ALFA. * * Para converter de NNN.NNN.NNN.NNN para hexadecimal: * LK-IP-HEXA deve conter SPACES ou LOW-VALUES * LK-IP-ALFA deve conter o IP NNN.NNN.NNN.NNN. * A rotina retorna o IP convertido em LK-IP-HEXA. *----------------------------------------------------------------- IF LK-IP-ALFA EQUAL SPACES OR LK-IP-ALFA EQUAL LOW-VALUES MOVE LK-IP-HEXA TO W-FULL MOVE ZEROS TO W-BINARY MOVE W-F1 TO W-B2 MOVE W-BINARY TO W-ALFA1 MOVE W-F2 TO W-B2 MOVE W-BINARY TO W-ALFA2 MOVE W-F3 TO W-B2 MOVE W-BINARY TO W-ALFA3 MOVE W-F4 TO W-B2 MOVE W-BINARY TO W-ALFA4 MOVE W-ALFA TO LK-IP-ALFA GOBACK. MOVE LK-IP-ALFA TO W-ALFA. MOVE SPACES TO W-FULL. MOVE W-ALFA1 TO W-BINARY. MOVE W-B2 TO W-F1. MOVE W-ALFA2 TO W-BINARY. MOVE W-B2 TO W-F2. MOVE W-ALFA3 TO W-BINARY. MOVE W-B2 TO W-F3. MOVE W-ALFA4 TO W-BINARY. MOVE W-B2 TO W-F4. MOVE W-FULL TO LK-IP-HEXA. GOBACK. *====================== PROGRAM END ============================== *================ MANUAL DE USO DA ROTINA ======================== 1 - Definir os campos HEXA e ALFA. HEXA he uma FULLWORD para endereco IP em formato HEXADECIMAL. 01 AX-HEXA-X PIC X(04). ALFA he um campo alfanumerico, com 15 bytes, para endereco IP no formato NNN.NNN.NNN.NNN 01 AX-ALFA-X PIC X(15). 2 - Para converter de HEXA para NNN.NNN.NNN.NNN: . AX-HEXA-X deve conter o endereco IP em hexadecimal . AX-ALFA-X deve conter o SPACES ou LOW-VALUES. . A rotina devolve o IP convertido em AX-ALFA-X. Para converter de NNN.NNN.NNN.NNN para HEXA: . AX-HEXA-X deve conter o SPACES ou LOW-VALUES . AX-ALFA-X deve conter o endereco IP no formato NNN.NNN.NNN.NNN. . A rotina devolve o IP convertido em AX-HEXA-X. 3 - Fazer a chamada com CALL estatico. CALL 'SWXTCPIP' USING AX-HEXA-X AX-ALFA-X. |
Carregando...
Você pode se interessar
Artigos
79 visualizações
Artigos
79 visualizações
Windows 11 vem aí?!
Carlos L. A. da Silva - 15 de junho de 2021Depois de mais de cinco anos, há claros sinais de que o Windows 10 será substituído por uma próxima versão do sistema operacional da Microsoft.
Artigos
227 visualizações
Artigos
227 visualizações
As “gambiarras” que os desenvolvedores de jogos utilizam
Carlos L. A. da Silva - 6 de junho de 2021Não seja tão duro com você mesmo! O caminho da programação está lotado de "gambiarras" e até jogos conhecidos apelam para alguns truques.
Artigos
334 visualizações
Artigos
334 visualizações
Qual framework de PHP é o melhor para 2021?
Carlos L. A. da Silva - 27 de maio de 2021A Theme Selection fez um comparativo das opções disponíveis no mercado e você vai bater o martelo sobre qual é o melhor framework para suas necessidades.
Mais publicações
Artigos
443 visualizações
443 visualizações
Artigos
559 visualizações
559 visualizações
O que é o FLoC e como ele afeta sua privacidade na internet?
Carlos L. A. da Silva - 5 de maio de 2021
Artigos
798 visualizações
798 visualizações
Artigos
950 visualizações
950 visualizações
15 ferramentas de desenvolvimento para melhorar sua produtividade em 2021 sem gastar nada
Carlos L. A. da Silva - 2 de abril de 2021Artigos
443 visualizações
443 visualizações
Adeus a Mandic, um dos “pais” da internet brasileira
Carlos L. A. da Silva - 18 de maio de 2021Artigos
559 visualizações
559 visualizações
O que é o FLoC e como ele afeta sua privacidade na internet?
Carlos L. A. da Silva - 5 de maio de 2021Artigos
798 visualizações
798 visualizações
Como planejar e construir um projeto de programação
Carlos L. A. da Silva - 19 de abril de 2021
Windows 11 vem aí?!
15 de junho de 2021
As “gambiarras” que os desenvolvedores de jogos utilizam
6 de junho de 2021
Qual framework de PHP é o melhor para 2021?
27 de maio de 2021
Adeus a Mandic, um dos “pais” da internet brasileira
18 de maio de 2021
Deixe um Comentário