例
dcl Result fixed bin;
dcl 1 Str1,
2 B fixed bin(31),
2 C pointer,
2 * union,
3 D char(4),
3 E fixed bin(31),
3 *,
4 * char(3),
4 F fixed bin(8) unsigned,
2 * char(0);
dcl 1 Template nonasgn static,
2 * fixed bin(31) init(16), /* ''X */
2 * pointer init(null()),
2 * char(4) init(''),
2 * char(0);
call plimove(addr(Str1), addr(Template), stg(Str1));
Result = compare(addr(Str1), addr(Template), stg(Str1)); /* 0 */
D = 'DSA ';
Result = compare(addr(Str1), addr(Template), stg(Str1)); /* 1 */
B = 15; /* '00000F00'X */
D = 'DSA ';
Result = compare(addr(Str1), addr(Template), stg(Str1)); /* -1 */
|
This information center is powered by Eclipse technology. (http://www.eclipse.org)