スレッドを、アプリケーション内で作成された他のスレッドと区別すると役立つことがあります。たとえば 4 つのスレッドをもつアプリケーションで、2 つのスレッドが作成側および使用する側の関係にある場合には、お互いのスレッドのスレッド ハンドルを知ることは、これら連動する 2 つのスレッドにとって役に立ちます。これらのハンドルを取得した後は、CBL_THREAD_SUSPEND および CBL_THREAD_RESUME の呼び出しのみを使用してすべての同期を取ることができます。アプリケーション内の各スレッドが、その機能に関連する名前を作成し、その名前をスレッド ハンドルに関連付けると、連動するスレッドはスレッド名のリストを検索し、お互いのハンドルを検出できます。
グローバルにアクセス可能なデータを各スレッドとそのハンドルに関連付けると、終了フラグを保持し、CBL_THREAD_KILL を使用する可能性を未然に防ぐことができます。アプリケーションの各スレッドは、終了要求を確認するためにその終了フラグをポーリングできます。終了するスレッドは、正常に終了する前に、ロックが保持されていないことと、アクションの同期を取る必要がないことを確認します。
スレッドのグローバルにアクセス可能なデータは、スレッド内で CBL_THREAD_IDDATA_ALLOC ルーチンを実行するとスレッド ハンドルに関連付けられます。スレッド ハンドルがすでに認識されている場合は、CBL_THREAD_IDDATA_GET ルーチンを使用してこのデータを取得します。一方、スレッド ハンドルが認識されていない場合は、CBL_THREAD_LIST_n ルーチンを使用してこのデータを取得します。
例 - グローバルにアクセス可能なデータとスレッド ハンドルの関連付け
次の例では、スレッド内で CBL_THREAD_IDDATA_ALLOC を呼び出して、グローバルにアクセス可能なデータをスレッド ハンドルに関連付ける方法を示します。スレッド ハンドルがすでに認識されている場合は、CBL_THREAD_IDDATA_GET を呼び出してデータを取得します。スレッド ハンドルが認識されていない場合は、CBL_THREAD_LIST_n ルーチンを使用してこのデータを取得します。
*************** MAINPROG.CBL ************************
identification division.
program-id. mainprog.
Data Division.
Local-Storage Section.
01 ret-wait usage pointer.
01 iddata-ptr usage pointer.
01 sub-iddata-ptr usage pointer.
01 sub-handle usage thread-pointer.
Linkage Section.
01 iddata-record.
05 iddata-name pic x(20).
05 iddata-term pic x comp-x value 0.
Procedure Division.
* Establish identification data - don't provide
* initialization data when it is allocated, instead
* initialize it after the pointer is retrieved.
call 'CBL_THREAD_IDDATA_ALLOC' using
by value zero
length of iddata-record
call 'CBL_THREAD_IDDATA_GET' using iddata-ptr
omitted
set address of iddata-record to iddata-ptr
move 'main' to iddata-name
* Create sub-thread
start 'SUBPROG ' identified by sub-handle
* Wait until child creates its iddata and then flag
* termination
set sub-iddata-ptr to NULL
perform until 1 = 0
call 'CBL_THREAD_IDDATA_GET' using sub-iddata-ptr
by value sub-handle
if sub-iddata-ptr not = null
exit perform
end-if
call 'CBL_THREAD_YIELD'
end-perform
set address of iddata-record to sub-iddata-ptr
move 1 to iddata-term
* Wait until the child ends
wait for sub-handle *> clear up thread's resources
display 'All synchronization is complete on ' &
'RTS termination'
stop run.
end program mainprog.
*************** SUBPROG.CBL ************************
identification division.
program-id. subprog.
Data Division.
Working-Storage Section.
01 sub-iddata.
05 sub-name pic x(20) value 'sub'.
05 sub-term pic x comp-x value 0.
Local-Storage Section.
01 iddata-ptr usage pointer.
01 thread-handle usage pointer.
01 thread-state pic x(4) comp-x.
01 parent-handle usage pointer.
Linkage Section.
01 iddata-record.
05 iddata-name pic x(20).
05 iddata-term pic x comp-x value 0.
Procedure Division.
* Establish identification data - provide
* initialization data
call 'CBL_THREAD_IDDATA_ALLOC'
using sub-iddata
by value length of sub-iddata
* Find our parent thread and resume him
call 'CBL_THREAD_LIST_START'
using thread-handle
thread-state
iddata-ptr
set parent-handle to NULL
perform until thread-handle = null
or return-code not = 0
if iddata-ptr not = null
set address of iddata-record to iddata-ptr
if iddata-name = 'main'
set parent-handle to thread-handle
exit perform
end-if
end-if
call 'CBL_THREAD_LIST_NEXT' using thread-handle
thread-state
iddata-ptr
end-perform
call 'CBL_THREAD_LIST_END'
if parent-handle = NULL
display 'synchronization error'
stop run
end-if
call 'CBL_THREAD_IDDATA_GET' using iddata-ptr
omitted
set address of iddata-record to iddata-ptr
perform until iddata-term = 1
call 'CBL_THREAD_YIELD'
end-perform
exit program.
end program subprog.
この例では、スレッドとアプリケーションを終了するためのハンドシェイクを確立します。このようなハンドシェイクは、主スレッドのハンドルをパラメーターとして子スレッドに渡すことで、より簡単に行えることに注目してください。この方法を使用すると、識別データに依存したり、スレッド リストをステップ実行したりする必要はありません。
このサンプルについては、次の点に注意してください。
アプリケーションで使用する方法は、識別データで予測される競合のレベルによって異なります。
スレッドが CBL_THREAD_LIST_n ルーチンを使用する場合：
このため、次を行うことをお勧めします。
これらの制限は、CBL_THREAD_LIST_END の呼び出しによってリストのステップ実行が終了してはじめて解除されます。