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