436 CL Help!

[Tim Truax <truax@xxxxxxxxx>]

Hello all and Thanks in advance for your answers:

We have the CL below that we put together but the submitted CHGDTAARA
command is not working...why?  This job was put together to hold up our
S36 side processing until we are sure that several 3rd party software
SUBMITTED AS400 jobs have copmpleted running.  Initially we put the word
MOVING into the data array then we submit the CHGDTAARA that will not
run until all the previously submitted As400 jobs are complete then the
data array will have the value DONE placed in it, then our CL Loop will
self terminate...we thought... The submitted CHGDTAARA command isn't
working but when we go in from a screen and do the CHGDTAARA command to
change our data array to be DONE it stops the loop sequence.

             PGM                                                        
             DCL        VAR(&TEST) TYPE(*CHAR) LEN(6)                   
/* -------------------------------------------------- */ 
/* INIIALIZE MOVETEST DATA AREA WITH 'MOVING'         */ 
/* --------------------------------------------------
*/                                                                     
             CHKOBJ     OBJ(EDIDATA/MOVETEST) OBJTYPE(*DTAARA)          
             MONMSG     MSGID(CPF9801) EXEC(CRTDTAARA +                 
                          DTAARA(EDIDATA/MOVETEST) TYPE(*CHAR) +        
                          LEN(6))                                       
             CHGDTAARA  DTAARA(EDIDATA/MOVETEST (1 6)) VALUE('MOVING')  
                                                                        
/* ---------------------------------------------------- */ 
/* SUBMIT A JOB TO CHANGE DATA AREA THEN TEST FOR CHANGE*/ 
/* -----------------------------------------------------*/ 
                                                                        
             SBMJOB     CMD(CHGDTAARA DTAARA(EDIDATA/MOVETEST (1 6)) +  
                          VALUE('DONE  ')) JOBPTY(5)                    
 TESTIT:     RTVDTAARA  DTAARA(EDIDATA/MOVETEST (1 6)) RTNVAR(&TEST)    
             IF         COND(&TEST *EQ 'MOVING') THEN(GOTO +            
                          CMDLBL(TESTIT))                               
                                                                        
             ENDPGM                                                     

-- 
/=/=/=/=/=/=/=/=/=/
 Tim Truax 
\=\=\=\=\=\=\=\=\=\
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the Midrange System Mailing List!  To submit a new message,   *
* send your mail to "MIDRANGE-L@midrange.com".  To unsubscribe from     *
* this list send email to MAJORDOMO@midrange.com and specify            *
* 'unsubscribe MIDRANGE-L' in the body of your message.  Questions      *
* should be directed to the list owner / operator: david@midrange.com   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *