?? TITLE := 'NOS/VE:  BASIC ACCESS METHOD, TASK SERVICES' ??
MODULE bam$us_blk_variable_rec_fap;
?? RIGHT := 110 ??

?? NEWTITLE := '    Global Declarations Referenced By This Module', EJECT ??
?? PUSH (LISTEXT := ON) ??
*copyc amc$condition_code_limits
*copyc ame$improper_file_id
*copyc ame$unimplemented_request
*copyc amt$fap_declarations
*copyc bat$task_file_table
?? POP ??
*copyc baf$task_file_entry_p
*copyc amp$set_file_instance_abnormal
*copyc bap$close
*copyc osp$set_status_abnormal
*copyc bav$task_file_table
?? OLDTITLE ??
?? NEWTITLE := 'BAP$US_BLK_VARIABLE_REC_FAP', EJECT ??

  PROCEDURE [XDCL, #GATE] bap$us_blk_variable_rec_fap
    (    file_identifier: amt$file_identifier;
         call_block: amt$call_block;
         layer_number: amt$fap_layer_number;
     VAR status: ost$status);

    VAR
      file_instance: ^bat$task_file_entry;

    file_instance := baf$task_file_entry_p (file_identifier);
    IF file_instance = NIL THEN
      osp$set_status_abnormal (amc$access_method_id, ame$improper_file_id, '', status);
      RETURN; {----->
    IFEND;

    CASE call_block.operation OF
    = amc$close_req =
      bap$close (file_identifier, status);
    ELSE
      amp$set_file_instance_abnormal (file_identifier, ame$deleted_bt_rt, call_block.operation, '', status);
    CASEND;

  PROCEND bap$us_blk_variable_rec_fap;
?? OLDTITLE ??
MODEND bam$us_blk_variable_rec_fap;
