PROCEDURE dum$get_xcb, get_xcb, getxcb (
  xcb: (VAR) integer = $optional
  status)

 " This procedure gets the pva of the current tasks execution control block
 " If someone has a better way of doing this please change!

  set_file_attributes $local.disep fc=legible pf=continuous pw=78
  display_exchange_package o=$local.disep
  EDIT_FILE $local.disep o=$null p=$null
    p 'base const'
    left = $lt()(14, 4)
    left = '0'//left//'(16)'
    p
    right = $lt()(14, 4)
    right = '0'//right//'(16)'
    local_xcb = ($integer(left)*10000(16))+$integer(right)
    local_xcb = 300000000(16) + local_xcb
    IF $specified(xcb) THEN
      xcb = local_xcb
    ELSE
      disv local_xcb
    IFEND
  QUIT

PROCEND dum$get_xcb
