Blog de Tecnologia desenvolvido por Thiago Campos Pereira

Blog criado para documentar e disseminar o conhecimento tecnológico adquirido por Thiago Campos Pereira e colaboradores.

segunda-feira, novembro 01, 2010

PowerBuilder - Funções de conversão ascii para ebcdic/ebcdic para ascii

Função escrita por Jorge Batista Piazzarollo


// Converte ascii para ebcdic
long ll_pos, ll_len

as_ebcdic = ''
// Recupera o tamanho da string
ll_len = Len(as_ascii)

// Converte cada caractere
for ll_pos = 1 to ll_len
 as_ebcdic = as_ebcdic + charA(tabela_toebcdic[AscA(Mid(as_ascii, ll_pos, 1)) + 1])
next

return
=====================================


//Converte ebcdic para ascii
long ll_pos, ll_len

as_ascii = ''
// Recupera o tamanho da string
ll_len = Len(as_ebcdic)

// Converte cada caractere
for ll_pos = 1 to ll_len
 as_ascii = as_ascii + charA(tabela_toascii[AscA(Mid(as_ebcdic, ll_pos, 1)) + 1])
next

return

0 Comentários:

Postar um comentário

Assinar Postar comentários [Atom]

<< Página inicial