代码如下:
[code]#include
by lonelyair - 内核/嵌入技术 - 2006-07-31 11:24:06 阅读(1519) 回复(18)
PGM (&INPUT &REMAINDER) /* SEARCH */ DCL &INPUT *CHAR LEN(50) DCL &REMAINDER *CHAR LEN(50) DCL &X *DEC LEN(2 0) VALUE(03) DCL &L *DEC LEN(2 0) /* REMAINING LENGTH */ SCAN: IF (%SST(&INPUT &X 1) *EQ '.') THEN(DO) CHGVAR VAR(&L) VALUE(50-&X) CHGVAR VAR(&X) VALUE(&X+1) CHGVAR VAR(&REM...
PGM (&INPUT &REMAINDER) /* SEARCH */ DCL &INPUT *CHAR LEN(50) DCL &REMAINDER *CHAR LEN(50) DCL &X *DEC LEN(2 0) VALUE(03) DCL &L *DEC LEN(2 0) /* REMAINING LENGTH */ SCAN: IF (%SST(&INPUT &X 1) *EQ '.') THEN(DO) CHGVAR VAR(&L) VALUE(50-&X) CHGVAR VAR(&X) VALUE(&X+1) CHGVAR VAR(&REM...