More people will see your question if you post to the list rather than the newsgroup. But I believe the answer to your question is in the doc:
--- After a STOP command is issued, the system sets the value of CIBCTR to zero to prevent more modify CIB's from being chained. To continue processing modify's after a STOP command, you must use the QEDIT macro to set the CIBCTR to non-zero. --- In article <[email protected]> you wrote: > Hi, I am writing a command processing routine for my own address space and I > am in stuck.. > I want to accept a STOP command and end the address space only when the state > of the core program is proper, If the state is improper, I want to issue a > WTO error/warning message and continue accepting further MODIFY command. > I have tested the following code in order to understand the basic behavior > and I have found that the code cannot receive MODIFY commands from the MVS > and it keeps waiting while the MVS gives me IEE342I MODIFY REJECTED-TASK > BUSY > >>>>>>>>>>>>>>>>>>>>>>>>>> > @ENTRY DS 0H > LA 3,COMADDR Store the COMM AREA onto COMADDR > EXTRACT (3),FIELDS=COMM,MF=(E,EXTRACT) > L 3,COMADDR Fetch the COMM AREA > USING COM,3 > ICM 4,15,COMCIBPT GR4 <- CIB > BZ NOCIB > BAS 14,DOCIB If CIB is present, do process CIB > NOCIB DS 0H > QEDIT ORIGIN=COMCIBPT,CIBCTR=5 ; SET MODIFY LIMIT TO 5 > L 1,COMECBPT Get the ECB > O 1,HIBITON > ST 1,MODECB > * > @WAIT DS 0H > WAIT ECBLIST=ECBS Wait for a ODIFY/STOP > * > ICM 4,15,COMCIBPT > USING CIB,4 GR4 <- CIB > BAS 14,@DOCIB > BAS 14,@DELCIB FREE CIB > B @WAIT WAIT FOR ANOTHER MODIFY > * . > * . > @DELCIB DS 0H > * USE QEDIT TO FREE THE CIB > * QEDIT WILL ALSO CLEAR THE ECB > * > QEDIT ORIGIN=COMCIBPT,BLOCK=(4) FREE THE CIB > BR 14 > ***************************************************** > @DOCIB DS 0H > B @DOCIB_EP > @DOCIB_SV DS 13F > @DOCIB_EP DS 0H > STM 2,14,@DOCIB_SV > WTO 'TEST' > * . > * . > > LM 2,14,@DOCIB_SV > BR 14 > <<<<<<<<<<<<<<<<<<<<<<<<<< > The above code issues 'TEST' WTO message as many as you enter MODIFY command, > However, when you enter STOP command, the code issues 'TEST' WTO message as > expected and the code only accepts STOP command after that. (If you enter > MODIFY, the code does not respond - just waiting ECB - but MVS gives you > IEE342I for further MODIFY commands) > Here is the syslog for your easier undestandings > >>>>>>>>>>>>>>>>>>>>>>>>>> > $HASP373 Q STARTED - INIT 2 - CLASS A > IEF403I Q - STARTED - TIME=19.12.14 > F Q > IEE311I MODIFY PARAMETER MISSING > F Q,A > +TEST > F Q,A > +TEST > P Q > +TEST > F Q,A > IEE342I MODIFY REJECTED-TASK BUSY <<< > F Q,A > IEE342I MODIFY REJECTED-TASK BUSY <<< > P Q > +TEST > P Q > +TEST > <<<<<<<<<<<<<<<<<<<<<<<<<< > Can anybody shed a light on this as to how to achieve my objective? > TIA!! -- Don Poitras - SAS Development - SAS Institute Inc. - SAS Campus Drive [email protected] (919) 531-5637 Cary, NC 27513 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
