AS/400采用EBCDIC编码保存在QSYS.LIB中的所有中文字符,而在pc端winows 95,
windows NT采用GBK内码保 存中文字符,两者之间在进行中文数据传输的时候,会遇到EBCDIC和GBK的相互转换。所以,掌握EBCDIC和GBK 的转换码表对于程序员非常重要。
1 收集GBK字符文件
首先必须根据GBK的编码原则得到GBK的汉字库。GBK的编码区间为0X8140到0XFEFE。整个码表分为5个区间,称为GBK1(A1A1 A9FE)、GBK2(B0A1 F7EE)、GBK3(8140 A0FE)、GBK4(AA40 FEA0)、GBK5(A840 A9A0).其中GBK1包括符号717个,GBK2包括GB2312汉字6763个,GBK3包括GB13000.1中的汉字6080个,GBK4包括增补的汉字8160个,GBK5包括扩充汉字符号166个。
程序1:
/* file1.c */
#include<stdio.h>
void main(void)
{
FILE *fp;
char ch[4],file[10],enter[2],hi,lo;
long int i;
enter[0]=0x0d;
enter[1]=0x0a;
printf("please input the file name:\n");
scanf("%s",file);
if((fp=fopen(file,"wb"))==NULL)
{
printf("cannot open %s\n",file);
exit(0);
}
hi=0xa7;
lo=0x40;
for(i=0;i<2*191;i++)
{
ch[0]=0x22;
if(i%191==0)
hi=hi+1;
ch[1]=hi;
ch[2]=(lo+i%191);
ch[3]=0x22;
fwrite(ch,sizeof(char),4,fp);
fwrite(enter,sizeof(char),2,fp);
}
}
程序说明:
(1).OX22是'"'(双引号)的16进制代码,0X0D 0X0A是换行符号的16进制代码,在每一个字符的两旁增加双引号和缓行符号是为了满足CPYFRMIMPF对Import file的格式要求而特别增加的。
(2).结果文件假设命名为GBK.TXT,文件样本见附件。
程序2:得到没有" "和0X0D 0X0A的汉字字库文件
#include<stdio.h>
void main(void)
{
FILE *fp;
char ch[2],file[10],hi,lo;
long int i;
printf("please input the file name:\n");
scanf("%s",file);
if((fp=fopen(file,"wb"))==NULL)
{
printf("cannot open %s\n",file);
exit(0);
}
hi=0x80;
lo=0x40;
for(i=0;i<126*191;i++)
{
if(i%191==0)
hi=hi+1;
ch[0]=hi;
ch[1]=(lo+i%191);
fwrite(ch,sizeof(char),2,fp);
}
fclose(fp);
}
[注]:
假设结果文件命名为GBK_01.TXT
2.利用FTP把GBK.TXT上传到AS400的IFS的目录下,例如/home目录,注意ftp在传输双字节的时候需要制定AS400端CCSID的值。如果只传输GB2312汉字,指定CCSID=1381;如果传输GBK汉字,指定CCSID=1386.
[注]:
如果传输正确,使用DSPF或EDTF可以看到正确的中文字符。
3.利用STRSQL交互式SQL生成接受GBK汉字的数据库文件
CREATE TABLE GBK(COL CHAR(4) CCSID 1388)
4.利用CPYFRMIMPF把流文件数据导入GBK数据库文件
CPYFRMIMPF FROMSTMF('/home/gbk.txt')
TOFILE(GBK/QGPL)
RCDDLM(*LF)
5. 利用FTP的BIN方式,把GBK的文件下传到PC的得到GBK.MBR,从PC端用NOTEPAD观察可以看到文件有许多乱码,这是因为GBK.MBR使用的是EBCDIC,许多编码在PC上无法识别,而且可以发现每个汉字EBCDIC代码的两旁有0E..0F的标识符,这样观察起来很不方便,使用下面的程序把0E..0F剔除。
程序3: 剔除.mbr中的0E..0F字符
#include<stdio.h>
void main(void)
{
FILE *fp1,*fp2;
char f1[10],f2[10],ch[4];
scanf("%s",f1);
scanf("%s",f2);
if((fp1=fopen(f1,"rb"))==NULL)
{
printf("error open input file %s\n",f1);
exit(0);
}
if((fp2=fopen(f2,"wb"))==NULL)
{
printf("error open output file %s\n",f2);
exit(0);
}
while(!feof(fp1))
{
fread(ch,4,1,fp1);
if((ch[0]==0x0E)&&(ch[3]==0x0F))
{
fwrite(&ch[1],1,1,fp2);
fwrite(&ch[2],1,1,fp2);
}
}
fclose(fp1);
fclose(fp2);
}
[注]:
假设得到的没有0E..0F标识的文件名称为GBK_01.MBR
6.利用GBK_O1.TXT,GBK_01.MBR得到EBCDIC< >GBK的转换码表文件
程序: 得到最终转换文件
#include<stdio.h>
void main(void)
{
int i;
FILE *in,*out,*gb;
unsigned char ch[2],ch2[2];
char str[40],str2[40];
char enter[2],space=' ';
enter[0]=0x0d;
enter[1]=0x0a;
if((in=fopen("gbk_01.mbr","rb"))==NULL)
{
printf("cannot open file\n");
exit(0);
}
if((out=fopen("gbk_cvt.txt","wb"))==NULL)
{
printf("cannot open outfile\n");
exit(0);
}
if((gb=fopen("gbk_01.txt","rb"))==NULL)
{
printf("cannot open hzgb.txt\n");
exit(0);
}
while(!feof(in))
{
fread(ch,2,1,in);
fread(ch2,2,1,gb);
sprintf(str,"%02x%02x",ch[0],ch[1]);
sprintf(str2,"%02x%02x",ch2[0],ch2[1]);
fwrite(ch2,2,1,out);
fwrite(&space,1,1,out);
fwrite(str,5,1,out);
fwrite(str2,5,1,out);
fwrite(enter,2,1,out);
}
fclose(in);
fclose(out);
fclose(gb);
}
[注]:
假设最终得到的转换文件为GBK_CVT.TXT
原文地址 http://www.900.ibm.com/cn/support/viewdoc/detail?DocId=2222001000000
分享到:
相关推荐
在ssis 中实现ebcdic到ascii码的转换控件,控件的使用方法详细在用法说明中,很好使用。解决你在ssis中不能ebcdic到ascii码转换的问题
ebidic转码,提供了java的测试程序,仅供参考,本人挪用
在ssis中 实现ebcdic到ascii码大的转换控件,很好使用,控件的使用方法详细的使用说明中,很好使用。解决你在ssis中ebcdic到ascii码的转换问题。
Ebcdic-ascii 对照表. UTF-EBCDIC is a character encoding used to represent Unicode characters. It is meant to be EBCDIC-friendly, so that legacy EBCDIC applications on mainframes may process the ...
ebcdic编码与ascii编码互转,仅供参考,如果用于报文编码转换,需进行字段拆解转码,否则会造成报文长度错误
IBM MainFrame(AS400,S/390)与UNIX/Windows之间的编码转换
IBM Ebcdic和ASCII字符对照表
Ebcdic和ASCII字符对照表
GBK / IBM1388字符集转换GBK是PC上使用的主要简体中文字符集,而IBM1388在大型机上。 这两个字符集不能通过像Unicode在UTF-8和UTF-16之间所做的操作来直接互换。 它们基于具有不同汉字顺序的不同编码(ASCII / ...
AS/400异步短连接接收工具。自带EBCDIC编码转换。使用共享内存作为LR与工具间通信方法。 上传原因:近期有一个神马的性能测试人员离职。这些代码原本是几年前神马一个性能测试团队中其他人编写的工具。项目结束后他...
EBCDIC编码,ASCII码与EBCDIC编码进行转换的编码表
包含EBCDIC 和 ASCII, BINARY 的编码对照关系
对于EBCDIC码,可以批量转换,可以安装到右键,可以对目录进行转码
EBCDIC -> ASCII, ASCII -> EBCDIC conversion routines.
解决无法将 Unicode 字符串转换为 Ebcdic 字符串的问题
jar包,官方版本,自测可用
Oracle P/L SQL实现FTP上传、下载功能,以下是此过程包的头部,包体经常打包处理plb,感兴趣用户可以下载下来。 --Oracle上的FTP功能 Create or Replace Package UTL_FTP AUTHID CURRENT_USER as Type Connection ...
COBOL/EBCDIC 二进制文件作为 Spark 数据帧和流。 将大型机作为数据工程策略的来源。 动机 在这个项目的动机中,可以强调: 缺乏 Cobol 生态系统的专业知识,这使得很难将大型机集成到数据工程策略中 缺乏开源社区对...