You need to create your work file in QTEMP so that the Mimix Object
Replicator doesn't interfere with your work file
"tomasz" wrote in message
news:dd3a6a2b-7241-46b4-b27e-f085f1bbec0e@d45g2000hsc.googlegroups.com...
> Hi.
>
> I've just written simple CL which looks like this:
>
> PGM
>
> DCLF FILE(MYLIB/DGSTS) ALWGRAPHIC(*YES)
> LOOP: DLYJOB DLY(5)
> DLTF MYLIB/DGSTS
> MIMIX/WRKDG DGDFN(LIMSP) STATUS(*NO) OUTPUT(*OUTFILE) +
> OUTFILE(MYLIB/DGSTS)
> MONMSG MSGID(LVE3019) EXEC(GOTO CMDLBL(LOOP))
> RCVF
> MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(ENDPGM))
> IF COND(&DBAPYBKLG *EQ 0) THEN(GOTO LOOP)
> CRTLIB LIB(xxx)
> GOTO CMDLBL(LOOP)
> GOTO CMDLBL(ENDPGM)
> ENDPGM: ENDPGM
>
> problem is that program runs once, so command MIMIX/WRKDG creates
> table MYLIB/DGSTS
> then check if one of fields value is equal 0 and tries to run again
> but it can't perform DLTF command
> because DGSTS table is locked, also second run of MIMIX/WRKDG goes
> wrong because of that lock.
>
> Can I release my DGSTS file after I check if '&DBAPYBKLG *EQ 0' to be
> able to run LOOP again ?
>
>
> Tomasz