
?? RIGHT := 110 ??
MODULE ram$retain_version_routines;
*copy osd$default_pragmats
*copyc ost$status


VAR
  rav$retain_previous_version: [STATIC, XDCL] boolean := TRUE;

PROCEDURE [XDCL, #GATE] rap$set_retain_version_value (VAR retain_previous_version: boolean;
  VAR status: ost$status);

  status.normal := TRUE;
  rav$retain_previous_version := retain_previous_version;

PROCEND rap$set_retain_version_value;

PROCEDURE [XDCL, #GATE] rap$get_retain_version_value (VAR retain_previous_version: boolean;
  VAR status: ost$status);

  status.normal := TRUE;
  retain_previous_version := rav$retain_previous_version;

PROCEND rap$get_retain_version_value;

MODEND ram$retain_version_routines;
