!+
! Process default environment file
!-
lse$get_environment("SYS$LIBRARY:LSE$SYSTEM_ENVIRONMENT",ON);

!+
!  Process our environment file(s)
!-
IF get_info(command_line,"ENVIRONMENT") = 1
THEN
   LOOP
   env_file := get_info(command_line,"ENVIRONMENT_FILE");
   exitif env_file = "";
   lse$$free_language(env_file);
   lse$get_environment("SYS$LIBRARY:" + env_file,ON)
   ENDLOOP
ENDIF;

lse$do_command('save env SYS$LIBRARY:lse$system_environment.env');

quit