isCOBOL Evolve : Appendices : Library Routines : C$NCALLRUN
C$NCALLRUN
The C$NCALLRUN library routine returns the number of threads generated by a CALL RUN statement that are still running.
In thin client environment every client session has its own CALL RUN counter.
Syntax:
 CALL "C$NCALLRUN" GIVING threadCount
Parameters:
threadCount
PIC 9(n)
Receives the number of threads generated by a CALL RUN statement that are still running
Examples:
Example - Wait for all threads generated by CALL RUN to terminate before exiting
working-storage section.
77 cr-count pic 9(3).
...
procedure division.
...
  perform test after until cr-count = 0
    call "c$ncallrun" giving cr-count
    call "c$sleep" using 0.5
 end-perform
  goback.