Posted by Jim Walker on September 20, 2007 at 09:46:04:
In Reply to: Re: SLAMRUN doesn't work after applying T8C2332 posted by Jim Walker on September 12, 2007 at 15:31:24:
Fix T8C2332 deleted 3 lines, but should have deleted only 2 lines.
The quickest fix will be for you to manually edit the SLAMRUN clist.
FIND PAUSE in column 1
Just after the RETURN statement, insert
ENDO
So the routine now reads:
/*-------Pause subroutine -----------------------------------------*/
PAUSE: PROC 1 SECONDS
OPERCMD ENABLE
PAUSE &EVAL(100 * &SECONDS)
SET PCC = &LASTCC
IF &PCC = 0 THEN RETURN CODE(0)
TSICOPY NAME(OPERCMD) SECTION(PANEL) TO(CLIST)
%SLAMMSG OPERCMD VAR(&OPERCMD) FROM(SLAMRUN)
IF &OPERCMD = RESET THEN SET GOTRESET = YES
RETURN CODE(0)
ENDO
Please excuse this inconvenience.