{ PROCEDURE (osm$vedu_purid) purge_incremental_data, purid (
{   names, n, name: key
{       all
{       (unit_statistic_display, unit_statistic, usd, us)
{       (initiated_job_display, ijd, job_statistic, js)
{     keyend = $required
{   status)

?? PUSH (LISTEXT := ON) ??
?? FMT (FORMAT := OFF) ??

  VAR
    pdt: [STATIC, READ, cls$declaration_section] record
      header: clt$pdt_header,
      names: array [1 .. 4] of clt$pdt_parameter_name,
      parameters: array [1 .. 2] of clt$pdt_parameter,
      type1: record
        header: clt$type_specification_header,
        qualifier: clt$keyword_type_qualifier,
        keyword_specs: array [1 .. 9] of clt$keyword_specification,
      recend,
      type2: record
        header: clt$type_specification_header,
      recend,
    recend := [
    [1,
    [99, 3, 26, 13, 42, 51, 814],
    clc$command, 4, 2, 1, 0, 0, 0, 2, 'OSM$VEDU_CHAUSD'], [
    ['N                              ',clc$alias_entry, 1],
    ['NAME                           ',clc$abbreviation_entry, 1],
    ['NAMES                          ',clc$nominal_entry, 1],
    ['STATUS                         ',clc$nominal_entry, 2]],
    [
{ PARAMETER 1
    [3, clc$normal_usage_entry, clc$non_secure_parameter,
    $clt$parameter_spec_methods[clc$specify_by_name, clc$specify_positionally],
    clc$pass_by_value, clc$immediate_evaluation, clc$standard_parameter_checking, 340,
  clc$required_parameter, 0, 0],
{ PARAMETER 2
    [4, clc$normal_usage_entry, clc$non_secure_parameter,
    $clt$parameter_spec_methods[clc$specify_by_name],
    clc$pass_by_reference, clc$immediate_evaluation, clc$standard_parameter_checking, 3,
  clc$optional_parameter, 0, 0]],
{ PARAMETER 1
    [[1, 0, clc$keyword_type], [9], [
    ['ALL                            ', clc$nominal_entry, clc$normal_usage_entry, 1],
    ['IJD                            ', clc$alias_entry, clc$normal_usage_entry, 3],
    ['INITIATED_JOB_DISPLAY          ', clc$nominal_entry, clc$normal_usage_entry, 3],
    ['JOB_STATISTIC                  ', clc$alias_entry, clc$normal_usage_entry, 3],
    ['JS                             ', clc$abbreviation_entry, clc$normal_usage_entry, 3],
    ['UNIT_STATISTIC                 ', clc$alias_entry, clc$normal_usage_entry, 2],
    ['UNIT_STATISTIC_DISPLAY         ', clc$nominal_entry, clc$normal_usage_entry, 2],
    ['US                             ', clc$abbreviation_entry, clc$normal_usage_entry, 2],
    ['USD                            ', clc$alias_entry, clc$normal_usage_entry, 2]]
    ],
{ PARAMETER 2
    [[1, 0, clc$status_type]]];

?? FMT (FORMAT := ON) ??
?? POP ??

    CONST
      p$names = 1,
      p$status = 2;

    VAR
      pvt: array [1 .. 2] of clt$parameter_value;

