系统函数 SysLib.convert 在 EBCDIC(主机)与 ASCII(工作站)格式之间转换数据,或者在单一格式内执行代码页转换。可将 SysLib.convert 用作函数调用语句中的函数名。
SysLib.convert( target anyFixedItemOrRecordOrFormVariable inout, direction enumerationConversionDirection in, conversionTable CHAR(8) in)
可以使用链接选项部件来请求为远程调用生成自动数据转换、启动远程异步事务或者进行远程文件访问。总是使用对要进行转换的自变量定义的数据结构来执行自动转换。如果自变量具有多种格式,则不要请求进行自动转换。或者,将程序编写为使用重新定义的记录声明(它正确地映射自变量的当前值)来显式地调用 SysLib.convert。
Record RecordA record_type char(3); item1 char(20); end Record RecordB record_type char(3); item2 bigint; item3 decimal(7); item4 char(8); end Program ProgramX type basicProgram myRecordA RecordA; myRecordB RecordB {redefines = "myRecordA"}; myConvTable char(8); function main(); myConvTable = "ELACNENU"; // conversion table for US English if (myRecordA.record_type == "00A") SysLib.convert(myRecordA, "L", myConvTable); else; SysLib.convert(myRecordB, "L", myConvTable); end call ProgramY myRecordA; end end
相关概念
EGL 函数的语法图