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...
在pthread里call这两个函数,行为很怪异,下面慢慢道来 今天出了一个core,gdb一看这个core是由exit调用引起的,该exit是在一个pthread中调用的,于是查了一些资料,写了一些测试例子,但还是不能很圆满地解释,因此发帖询问。 问题描述:在线程中,先调用了printf打印一个字符串,由于异常情况,传入的指针在合法的范围内没有0,因此printf可能访问越界了,printf之后是一个exit函数,exit执行时程序core dump了,原因猜测可能是p...
RPG01中包括如下语句: call 'QCMDEXC' P@CMDE CL01中用SBMJOB命令,如下: SBMJOB (call PGM(RPG01)) call CL01时会报错, 想问一下,QCMDEXEC是不是不能用SBMJOB运行的?