?? RIGHT := 110 ??
?? NEWTITLE := 'INSTALL_SOFTWARE Utility: Interfaces for the Creation of SCL Variables.' ??
MODULE ram$create_scl_variables;

{ PURPOSE:
{   This module contains the interfaces to create SCL variables.
{   Currently only status variables can be created.
{
{ DESIGN:
{   The compiled module resides in RAF$LIBRARY.
{
{ NOTES:
{


?? NEWTITLE := 'Global Declarations Referenced by This Module', EJECT ??
?? PUSH (LISTEXT := ON) ??
?? POP ??
*copyc clp$create_procedure_variable

?? TITLE := 'Global Declarations Declared by This Module', EJECT ??


?? TITLE := '[XDCL] rap$create_scl_status_variable', EJECT ??

{ PURPOSE:
{   This procedure ..
{
{ DESIGN:
{
{ NOTES:
{

  PROCEDURE [XDCL] rap$create_scl_status_variable
    (    name: clt$variable_name_reference;
     VAR status: ost$status);


{ type
{   type_status: status
{ typend

?? PUSH (LISTEXT := ON) ??

    VAR
      type_specification: [STATIC, READ, cls$declaration_section] record
        header: clt$type_specification_header,
        name: string (11),
      recend := [[1, 11, clc$status_type], 'TYPE_STATUS'];

?? POP ??

    status.normal := TRUE;

    clp$create_procedure_variable (name, clc$local_scope, clc$read_write, clc$immediate_evaluation,
          #SEQ(type_specification), NIL, status);

  PROCEND rap$create_scl_status_variable;

MODEND ram$create_scl_variables;
