CBLEEMEM('GETWK ')

PROCEDURE DIVISIONの指定

CALL 'CBLEEMEM' USING 一意名1 一意名2

DATA DIVISIONの指定

01 一意名1.
  02 データ名A  PIC X(8) VALUE 'GETWK   '.
  02 データ名B  PIC X(5).
  02 FILLER      PIC X(3).
  02 データ名C  PIC S9(9) COMP VALUE ZERO.
01 一意名2.
  02 データ名D  PIC X(1).
  02 FILLER      PIC X(3).
  02 データ名E  PIC  9(9) COMP.
  02 データ名F  ADDRESS.

●データ名A

ワークセグメントの割り当てを示す要求コードを「VALUE 'GETWK△△△'」と設定します。

●データ名C

0を設定します。

●データ名D

ワークセグメントの利用形態によって，次のように設定します。

VALUE 'U'

TASK属性セグメント（ワークセグメントのうち，該当するトランザクションでだけ使用できるセグメント）

VALUE 'F'

FREE属性セグメント（ワークセグメントのうち，複数のトランザクション間で使用できるセグメント）

●データ名E

割り当てるワークセグメントの長さを設定します（単位：バイト）。1〜16777216の範囲で指定してください。

●データ名B

ステータスコードが，5けたの数字で返されます。

●データ名F

ワークセグメントのアドレスが返されます。