Job Control Routine

[mdbatra]

Hi All,
I wrote a server job control with the below code:

CompSt = pCompareSt(job param, an integer)

CompEnd = pCompareEnd(job param, an integer)

output_file = pOutputFile(full path for o/p file)

loop_count = ( CompSt- CompEnd) + 1



current_date = DATE()



OPENSEQ output_file TO open_file

ELSE Call DSLogFatal("Unable to open: ":output_file,"In Job Control")




LOOP

UNTIL loop_count > 0

compare_date = current_date + CompSt

WRITESEQ compare_date TO open_file ELSE STOP

WEOFSEQ open_file

loop_count = loop_count - 1

CompSt = CompSt + 1

REPEAT

CLOSESEQ open_file





this loop is runniing forever and not stopping. i couldn't figure out the problem here , i have used the same code for some other job controls as well.
could anybody please suggest what's the issue here ?

[mdbatra]

i used WHILE , working perfect.
Thanks.