! LSE$VMS_SCA.TPU
!
!*************************************************************************
!									 *
! © Copyright 2005 Hewlett-Packard Development Company, L.P.		 *
!									 *
! Confidential computer software. Valid license  from  HP  required  for *
! possession, use or copying. Consistent with  FAR  12.211  and  12.212, *
! Commercial Computer Software,  Computer  Software  Documentation,  and *
! Technical  Data  for  Commercial  Items  are  licensed  to  the   U.S. *
! Government under vendor's standard commercial license.		 *
!									 *
!*************************************************************************
!
!++
! FACILITY:
!	VAX Language-Sensitive Editor
!                               
! ABSTRACT:
!	This file contains the grammar syntax for the old-style integration
!   with SCA.
!
! ENVIRONMENT:
!	Portable/LSE
!
! Author: Sharon H. Eikenberry
!
! CREATION DATE: 21-February-1992
!
! MODIFIED BY:
!
!   X4.0-1  SHE	21-Feb-92   Forgot to write out latest version
!   X4.0-2  SHE	25-Apr-92   Added vmssca_enable_vmssca_bindings
!				  vmssca_disable_vmssca_bindings
!   X4.0-3  SHE 29-Apr-92   Handle unspecified parameters
!   X4.0-4  SHE	10-Jun-92   Added error traps
!


procedure lse$vms_sca_module_ident

return "X4.6-3";

endprocedure;


procedure vmssca_find (;find_exp)
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the SCA command FIND. 
!
! DESCRIPTION:
!    <X>(FIND)
!    For detailed information see SCA help.
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    local
	sca_str;

    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmssca_find");
    ENDON_ERROR;

    if find_exp = tpu$k_unspecified 
    then
	sca_str := '';
    else
	sca_str := find_exp;
    endif;

    return lse$do_command ('FIND ' + str(sca_str));

endprocedure;


procedure vmssca_goto_declaration (;goto_exp)
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the SCA command GOTO DECLARATION/PRIMARY.
!
! DESCRIPTION:
!    <X>(GOTO DECLARATION)
!    For detailed information see SCA help.
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    local
	sca_str;

    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmssca_goto_declaration");
    ENDON_ERROR;

    if goto_exp = tpu$k_unspecified 
    then
	sca_str := '';
    else
	sca_str := goto_exp;
    endif;

    return vmssca_goto_primary_declaration (sca_str);

endprocedure;


procedure vmssca_goto_primary_declaration (;goto_exp)
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the SCA command GOTO DECLARATION/PRIMARY.
!
! DESCRIPTION:
!    <X>(GOTO PRIMARY DECLARATION)
!    For detailed information see SCA help.
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    local
	sca_str;

    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmssca_goto_primary_declaration");
    ENDON_ERROR;

    if goto_exp = tpu$k_unspecified 
    then
	sca_str := '';
    else
	sca_str := goto_exp;
    endif;

    return lse$do_command ('GOTO DECLARATION/PRIMARY ' + str(sca_str));

endprocedure;


procedure vmssca_goto_indicated_declaration 
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the SCA command GOTO DECLARATION/INDICATED.
!
! DESCRIPTION:
!    <X>(GOTO INDICATED DECLARATION)
!    For detailed information see SCA help.
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmssca_goto_indicated_declaration");
    ENDON_ERROR;

    return lse$do_command ('GOTO DECLARATION/INDICATED ');

endprocedure;


procedure vmssca_goto_context_declaration (;goto_exp)
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the SCA command GOTO DECLARATION/CONTEXT_DEPENDENT.
!
! DESCRIPTION:
!    <X>(GOTO CONTEXT DECLARATION)
!    For detailed information see SCA help.
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    local
	sca_str;

    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmssca_goto_context_declaration");
    ENDON_ERROR;

    if goto_exp = tpu$k_unspecified 
    then
	sca_str := '';
    else
	sca_str := goto_exp;
    endif;

    return lse$do_command ('GOTO DECLARATION/CONTEXT_DEPENDENT ' + str(sca_str));

endprocedure;


procedure vmssca_goto_associated_declaration (;goto_exp)
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the SCA command GOTO DECLARATION/ASSOCIATED.
!
! DESCRIPTION:
!    <X>(GOTO ASSOCIATED DECLARATION)
!    For detailed information see SCA help.
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    local
	sca_str;

    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmssca_goto_associated_declaration");
    ENDON_ERROR;

    if goto_exp = tpu$k_unspecified 
    then
	sca_str := '';
    else
	sca_str := goto_exp;
    endif;

    return lse$do_command ('GOTO DECLARATION/ASSOCIATED ' + str(sca_str));

endprocedure;


procedure vmssca_inspect (;inspect_exp)
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the SCA command INSPECT.
!
! DESCRIPTION:
!    <X>(INSPECT)
!    For detailed information see SCA help.
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    local
	sca_str;

    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmssca_inspect");
    ENDON_ERROR;

    if inspect_exp = tpu$k_unspecified 
    then
	sca_str := '';
    else
	sca_str := inspect_exp;
    endif;

    return lse$do_command ('INSPECT' + str(sca_str));

endprocedure;


procedure vmssca_next_symbol
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the SCA command NEXT SYMBOL.
!
! DESCRIPTION:
!    <X>(NEXT SYMBOL)
!    For detailed information see SCA help.
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmssca_next_symbol");
    ENDON_ERROR;

    return lse$do_command ('NEXT SYMBOL');

endprocedure;


procedure vmssca_previous_symbol
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the SCA command PREVIOUS SYMBOL.
!
! DESCRIPTION:
!    <X>(PREVIOUS SYMBOL)
!    For detailed information see SCA help.
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmssca_previous_symbol");
    ENDON_ERROR;

    return lse$do_command ('PREVIOUS SYMBOL');

endprocedure;


procedure vmssca_next_occurrence
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the SCA command NEXT OCCURRENCE.
!
! DESCRIPTION:
!    <X>(NEXT OCCURRENCE)
!    For detailed information see SCA help.
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmssca_next_occurrence");
    ENDON_ERROR;

    return lse$do_command ('NEXT OCCURRENCE');

endprocedure;


procedure vmssca_previous_occurrence
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the SCA command PREVIOUS OCCURRENCE.
!
! DESCRIPTION:
!    <X>(PREVIOUS OCCURRENCE)
!    For detailed information see SCA help.
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmssca_previous_occurrence");
    ENDON_ERROR;

    return lse$do_command ('PREVIOUS OCCURRENCE');

endprocedure;


procedure vmssca_next_step
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the SCA command NEXT STEP.
!
! DESCRIPTION:
!    <X>(NEXT STEP)
!    For detailed information see SCA help.
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmssca_next_step");
    ENDON_ERROR;

    return lse$do_command ('NEXT STEP');

endprocedure;


procedure vmssca_previous_step
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the SCA command PREVIOUS STEP.
!
! DESCRIPTION:
!    <X>(PREVIOUS STEP)
!    For detailed information see SCA help.
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmssca_previous_step");
    ENDON_ERROR;

    return lse$do_command ('PREVIOUS STEP');

endprocedure;


procedure vmssca_delete_query (;query)
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the SCA command DELETE QUERY.
!
! DESCRIPTION:
!    <X>(DELETE QUERY)
!    For detailed information see SCA help.
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    local
	sca_str;

    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmssca_delete_query");
    ENDON_ERROR;

    if query = tpu$k_unspecified 
    then
	sca_str := '';
    else
	sca_str := query;
    endif;

    return lse$do_command ('DELETE QUERY ' + str(sca_str));

endprocedure;


procedure vmssca_goto_query (;query)
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the SCA command GOTO QUERY.
!
! DESCRIPTION:
!    <X>(GOTO QUERY)
!    For detailed information see SCA help.
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    local
	sca_str;

    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmssca_goto_query");
    ENDON_ERROR;

    if query = tpu$k_unspecified 
    then
	sca_str := '';
    else
	sca_str := query;
    endif;

    return lse$do_command ('GOTO QUERY ' + str(sca_str));

endprocedure;


procedure vmssca_next_query
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the SCA command NEXT QUERY.
!
! DESCRIPTION:
!    <X>(NEXT QUERY)
!    For detailed information see SCA help.
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmssca_next_query");
    ENDON_ERROR;

    return lse$do_command ('NEXT QUERY');

endprocedure;


procedure vmssca_previous_query 
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the SCA command PREVIOUS QUERY.
!
! DESCRIPTION:
!    <X>(PREVIOUS QUERY)
!    For detailed information see SCA help.
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmssca_previous_query");
    ENDON_ERROR;

    return lse$do_command ('PREVIOUS QUERY');

endprocedure;


procedure vmssca_show_query (;query)
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the SCA command SHOW QUERY.
!
! DESCRIPTION:
!    <X>(SHOW QUERY)
!    For detailed information see SCA help.
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    local
	sca_str;

    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmssca_show_query");
    ENDON_ERROR;

    if query = tpu$k_unspecified 
    then
	sca_str := '';
    else
	sca_str := query;
    endif;

    return lse$do_command ('SHOW QUERY ' + str(sca_str));

endprocedure;


procedure vmssca_analyze (;file_spec)
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the SCA command ANALYZE/NODESIGN.
!
! DESCRIPTION:
!    <X>(ANALYZE)
!    For detailed information see SCA help.
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    local
	sca_str;

    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmssca_analyze");
    ENDON_ERROR;

    if file_spec = tpu$k_unspecified 
    then
	sca_str := '';
    else
	sca_str := file_spec;
    endif;

    return lse$do_command ('ANALYZE/NODESIGN ' + str(sca_str));

endprocedure;


procedure vmssca_convert_library (;sca_library)
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the SCA command CONVERT LIBRARY.
!
! DESCRIPTION:
!    <X>(CONVERT LIBRARY)
!    For detailed information see SCA help.
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    local
	sca_str;

    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmssca_convert_library");
    ENDON_ERROR;

    if sca_library = tpu$k_unspecified 
    then
	sca_str := '';
    else
	sca_str := sca_library;
    endif;

    return lse$do_command ('CONVERT LIBRARY ' + str(sca_str));

endprocedure;


procedure vmssca_create_library (;sca_library)
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the SCA command CREATE LIBRARY.
!
! DESCRIPTION:
!    <X>(CREATE LIBRARY)
!    For detailed information see SCA help.
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    local
	sca_str;

    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmssca_create_library");
    ENDON_ERROR;

    if sca_library = tpu$k_unspecified 
    then
	sca_str := '';
    else
	sca_str := sca_library;
    endif;

    return lse$do_command ('CREATE LIBRARY ' + str(sca_str));

endprocedure;


procedure vmssca_delete_library (;sca_library)
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the SCA command DELETE LIBRARY.
!
! DESCRIPTION:
!    <X>(DELETE LIBRARY)
!    For detailed information see SCA help.
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    local
	sca_str;

    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmssca_delete_library");
    ENDON_ERROR;

    if sca_library = tpu$k_unspecified 
    then
	sca_str := '';
    else
	sca_str := sca_library;
    endif;

    return lse$do_command ('DELETE LIBRARY ' + str(sca_str));

endprocedure;


procedure vmssca_delete_module (;sca_module)
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the SCA command DELETE MODULE.
!
! DESCRIPTION:
!    <X>(DELETE MODULE)
!    For detailed information see SCA help.
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    local
	sca_str;

    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmssca_delete_module");
    ENDON_ERROR;

    if sca_module = tpu$k_unspecified 
    then
	sca_str := '';
    else
	sca_str := sca_module;
    endif;

    return lse$do_command ('DELETE MODULE ' + (sca_str));

endprocedure;


procedure vmssca_load_module (;sca_module)
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the SCA command LOAD.
!
! DESCRIPTION:
!    <X>(LOAD MODULE)
!    For detailed information see SCA help.
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    local
	sca_str;

    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmssca_load_module");
    ENDON_ERROR;

    if sca_module = tpu$k_unspecified 
    then
	sca_str := '';
    else
	sca_str := sca_module;
    endif;

    return lse$do_command ('LOAD ' + str(sca_str));

endprocedure;


procedure vmssca_reorganize_library (;sca_library)
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the SCA command REORGANIZE.
!
! DESCRIPTION:
!    <X>(REORGANIZE LIBRARY)
!    For detailed information see SCA help.
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    local
	sca_str;

    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmssca_reorganize_library");
    ENDON_ERROR;

    if sca_library = tpu$k_unspecified 
    then
	sca_str := '';
    else
	sca_str := sca_library;
    endif;

    return lse$do_command ('REORGANIZE ' + str(sca_str));

endprocedure;


procedure vmssca_set_library (;sca_library)
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the SCA command SET LIBRARY.
!
! DESCRIPTION:
!    <X>(SET LIBRARY)
!    For detailed information see SCA help.
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    local
	sca_str;

    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmssca_set_library");
    ENDON_ERROR;

    if sca_library = tpu$k_unspecified 
    then
	sca_str := '';
    else
	sca_str := sca_library;
    endif;

    return lse$do_command ('SET LIBRARY ' + str(sca_str));

endprocedure;


procedure vmssca_set_nolibrary (;sca_library)
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the SCA command SET NOLIBRARY.
!
! DESCRIPTION:
!    <X>(SET NOLIBRARY)
!    For detailed information see SCA help.
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    local
	sca_str;

    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmssca_set_nolibrary");
    ENDON_ERROR;

    if sca_library = tpu$k_unspecified 
    then
	sca_str := '';
    else
	sca_str := sca_library;
    endif;

    return lse$do_command ('SET NOLIBRARY ' + str(sca_str));

endprocedure;


procedure vmssca_show_library (;sca_library)
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the SCA command SHOW LIBRARY/BRIEF.
!
! DESCRIPTION:
!    <X>(SHOW LIBRARY)
!    For detailed information see SCA help.
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    local
	sca_str;

    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmssca_show_library");
    ENDON_ERROR;

    if sca_library = tpu$k_unspecified 
    then
	sca_str := '';
    else
	sca_str := sca_library;
    endif;

    return vmssca_show_brief_library (sca_str);

endprocedure;


procedure vmssca_show_brief_library (;sca_library)
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the SCA command SHOW LIBRARY/BRIEF.
!
! DESCRIPTION:
!    <X>(SHOW BRIEF LIBRARY)
!    For detailed information see SCA help.
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    local
	sca_str;

    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmssca_show_brief_library");
    ENDON_ERROR;

    if sca_library = tpu$k_unspecified 
    then
	sca_str := '';
    else
	sca_str := sca_library;
    endif;

    return lse$do_command ('SHOW LIBRARY/BRIEF ' + str(sca_str));

endprocedure;


procedure vmssca_show_full_library (;sca_library)
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the SCA command SHOW LIBRARY/FULL.
!
! DESCRIPTION:
!    <X>(SHOW FULL LIBRARY)
!    For detailed information see SCA help.
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    local
	sca_str;

    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmssca_show_full_library");
    ENDON_ERROR;

    if sca_library = tpu$k_unspecified 
    then
	sca_str := '';
    else
	sca_str := sca_library;
    endif;

    return lse$do_command ('SHOW LIBRARY/FULL' + str(sca_str));

endprocedure;


procedure vmssca_show_module (;sca_module)
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the SCA command SHOW MODULE/BRIEF.
!
! DESCRIPTION:
!    <X>(SHOW MODULE)
!    For detailed information see SCA help.
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    local
	sca_str;

    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmssca_show_module");
    ENDON_ERROR;

    if sca_module = tpu$k_unspecified 
    then
	sca_str := '';
    else
	sca_str := sca_module;
    endif;

    return vmssca_show_brief_module (sca_str);

endprocedure;


procedure vmssca_show_brief_module (;sca_module)
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the SCA command SHOW MODULE/BRIEF.
!
! DESCRIPTION:
!    <X>(SHOW BRIEF MODULE)
!    For detailed information see SCA help.
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    local
	sca_str;

    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmssca_show_brief_module");
    ENDON_ERROR;

    if sca_module = tpu$k_unspecified 
    then
	sca_str := '';
    else
	sca_str := sca_module;
    endif;

    return lse$do_command ('SHOW MODULE/BRIEF ' + str(sca_str));

endprocedure;


procedure vmssca_show_full_module (;sca_module)
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the SCA command SHOW MODULE/FULL.
!
! DESCRIPTION:
!    <X>(SHOW FULL MODULE)
!    For detailed information see SCA help.
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    local
	sca_str;

    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmssca_show_full_module");
    ENDON_ERROR;

    if sca_module = tpu$k_unspecified 
    then
	sca_str := '';
    else
	sca_str := sca_module;
    endif;

    return lse$do_command ('SHOW MODULE/FULL' + str(sca_str));

endprocedure;


procedure vmssca_verify_library (;sca_library)
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the SCA command VERIFY/NORECOVER.
!
! DESCRIPTION:
!    <X>(VERIFY LIBRARY)
!    For detailed information see SCA help.
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    local
	sca_str;

    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmssca_verify_library");
    ENDON_ERROR;

    if sca_library = tpu$k_unspecified 
    then
	sca_str := '';
    else
	sca_str := sca_library;
    endif;

    return lse$do_command ('VERIFY/NORECOVER ' + str(sca_str));

endprocedure;


procedure vmssca_recover_library (;sca_library)
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the SCA command VERIFY/RECOVER.
!
! DESCRIPTION:
!    <X>(RECOVER LIBRARY)
!    For detailed information see SCA help.
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    local
	sca_str;

    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmssca_recover_library");
    ENDON_ERROR;

    if sca_library = tpu$k_unspecified 
    then
	sca_str := '';
    else
	sca_str := sca_library;
    endif;

    return lse$do_command ('VERIFY/RECOVER ' + str(sca_str));

endprocedure;


procedure vmssca_goto_source 
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the SCA command GOTO SOURCE.
!
! DESCRIPTION:
!    <X>(GOTO SOURCE)
!    For detailed information see SCA help.
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmssca_goto_source");
    ENDON_ERROR;

    return lse$do_command ('GOTO SOURCE');

endprocedure;


procedure vmssca_expand 
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the SCA command EXPAND.
!
! DESCRIPTION:
!    <X>(EXPAND)
!    For detailed information see SCA help.
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmssca_expand");
    ENDON_ERROR;

    return lse$do_command ('EXPAND');

endprocedure;


procedure vmssca_collapse
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the SCA command COLLAPSE.
!
! DESCRIPTION:
!    <X>(COLLAPSE)
!    For detailed information see SCA help.
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmssca_collapse");
    ENDON_ERROR;

    return lse$do_command ('COLLAPSE');

endprocedure;


procedure vmssca_check_calls (;routine)
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the SCA command CHECK CALLS.
!
! DESCRIPTION:
!    <X>(CHECK CALLS)
!    For detailed information see SCA help.
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    local
	sca_str;

    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmssca_check_calls");
    ENDON_ERROR;

    if routine = tpu$k_unspecified 
    then
	sca_str := '';
    else
	sca_str := routine;
    endif;

    return lse$do_command ('CHECK CALLS ' + str(sca_str));

endprocedure;


procedure vmssca_extract_module (;sca_module)
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the SCA command EXTRACT MODULE.
!
! DESCRIPTION:
!    <X>(EXTRACT MODULE)
!    For detailed information see SCA help.
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    local
	sca_str;

    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmssca_extract_module");
    ENDON_ERROR;

    if sca_module = tpu$k_unspecified 
    then
	sca_str := '';
    else
	sca_str := sca_module;
    endif;

    return lse$do_command ('EXTRACT MODULE ' + str(sca_str));

endprocedure;


procedure vmssca_report (;report_name)
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the SCA command REPORT.
!
! DESCRIPTION:
!    <X>(REPORT)
!    For detailed information see SCA help.
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    local
	sca_str;

    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmssca_report");
    ENDON_ERROR;

    if report_name = tpu$k_unspecified 
    then
	sca_str := '';
    else
	sca_str := report_name;
    endif;

    return lse$do_command ('REPORT ' + str(sca_str));

endprocedure;


procedure vmssca_enable_vmssca_bindings

    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmssca_enable_vmssca_bindings");
    ENDON_ERROR;

    if lse$$x_vmssca_bindings_enabled = tpu$k_unspecified
    then
	lse$$x_vmssca_bindings_enabled := false;
    endif;

    if lse$$x_vmssca_bindings_enabled 
    then
	return;
    else
	lse$$x_vmssca_bindings_enabled := true;
    endif;

    lse$$save_key ("CTRL/D");
    lse$$save_key ("GOLD-CTRL/D");
    lse$$save_key ("GOLD-CTRL/F");

    lse_new_key ("CTRL/D", "TPU LSE$DO_COMMAND ('GOTO DECLARATION/PRIMARY/INDICATED')",
	"GOTO_DECLARATION", "", "Goto Primary Decl", 
	"LSE$DO_COMMAND ('GOTO DECLARATION/PRIMARY/INDICATED')");

    lse_new_key ("GOLD-CTRL/D", "TPU LSE$DO_COMMAND ('GOTO DECLARATION/CONTEXT/INDICATED')",
	"Goto_Decl_by_Context", "", "Goto Decl by Context",
	"LSE$DO_COMMAND ('GOTO DECLARATION/CONTEXT/INDICATED')");

    lse_new_key ("GOLD-CTRL/F", "TPU LSE$DO_COMMAND ('FIND EXPAND INDICATED()')",
	"FIND", "", "Find Indicated", 
	"LSE$DO_COMMAND ('FIND EXPAND INDICATED()')");

    lse$$save_menu_label ("Find Occurrences");
    lse$$save_menu_label ("Goto Declaration");

    lse$modify_pulldown_label ("Find Occurrences", "LSE$DO_COMMAND ('FIND EXPAND INDICATED()')");
    lse$modify_pulldown_label ("Goto Declaration", "LSE$DO_COMMAND ('GOTO DECLARATION/INDICATED')");

endprocedure;

procedure vmssca_disable_vmssca_bindings

    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmssca_disable_vmssca_bindings");
    ENDON_ERROR;

    if lse$$x_vmssca_bindings_enabled = tpu$k_unspecified
    then
	return;
    endif;

    if not lse$$x_vmssca_bindings_enabled 
    then
	return;
    endif;

    lse$$x_vmssca_bindings_enabled := false;

    lse$$restore_key ("CTRL/D");
    lse$$restore_key ("GOLD-CTRL/D");
    lse$$restore_key ("GOLD-CTRL/F");

    lse$$restore_menu_label ("Find Occurrences");
    lse$$restore_menu_label ("Goto Declaration");

endprocedure;


variable
    lse$$x_vmssca_bindings_enabled;