关于邮编号码和电话号码等格式的转变！

cyberspace4601

A数据库里，邮编和电话定义成15A的，显示格式为0411-XXXXXX。
B数据库里，邮编和电话我想显示成没有中间横线的。
从A数据库读数据，写到B数据库中，
用rpgle来编写，有什么关键字可以直接实现吗？？

cyberspace4601

原帖由 mario663 于 2008-4-24 11:34 发表
%scan'-' ,A = s
%substr(A,1,s-1)+%substr(A,s+1,XX)

谢谢，可是如果我这里面有多个横线呢？？
比如，0411-xxxx-xxxx-xxxx

roden

原帖由 mario663 于 2008-4-24 16:13 发表
D   AA       DS
D    AA1        1
D    AA2        1
....
D    AA15      1

MOVE   A to AA
把没有不是'-'加起来就好了!

不错,用数组也可以,可以做个循环

jianzk

可以參考ILE PRG Reference中%check的例子。


*..1....+....2....+....3....+....4....+....5....+....6....+....7...+....
*--------------------------------------------------
* A string contains a series of numbers separated
* by blanks and/or commas.
* Use %CHECK to extract the numbers
*--------------------------------------------------
D string s 50a varying
D inz('12,233 17,1,234')
D delimiters C ' ,'
D digits C '0123456789'
D num S 50a varying
D pos S 10i 0
D len S 10i 0
D token s 50a varying
/free
// make sure the string ends with a delimiter
string = string + delimiters;
dou string = '';
// Find the beginning of the group of digits
pos = %check (delimiters : string);
if (pos = 0);
leave;
endif;
// skip past the delimiters
string = %subst(string : pos);
// Find the length of the group of digits
len = %check (digits : string) - 1;
// Extract the group of digits
token = %subst(string : 1 : len);
dsply ' ' ' ' token;
// Skip past the digits
if (len < %len(string));
string = %subst (string : len + 1);
endif;
enddo;
/end-free

caomangyu

用 %XLATE（） 将‘—‘ 替换成 ' ' 然后%trim
试下