/* COMMAND_MAKE_MAIN.SPL, SEGSRC, TRANSLATOR GROUP, 05/14/82
   Static mode interlude to command_make.
   Copyright (c) 1982, Prime Computer, Inc., Natick, MA 01760 */

/* Description:
/* This module provides an interlude so that command_mode can be run
/* as a static mode program.
/* Abnormal conditions:
/* None.
/* Implementation:
/* Pick up static mode command line and pass to command_make, upon return
/* call setrc$ to pass command_make error code back to system.
/* Modifications:
/*   Date   Programmer     Description of modification
/* 05/14/82 D. Hornbaker   Initial coding.
   */
main:
     procedure;

/* Insert files */

%replace com_lin_size    by 256;
/* External entry points */
declare  get_arg         entry(char(*) var, bin, bin);
declare  command_make    entry(char(com_lin_size) var, bin);
declare  setrc$          entry(bin, bit);

/* Local declarations */
declare  com_lin         character(com_lin_size) varying;
declare (com_status,
         code)           fixed binary(15);


     /* First read in the command line for command_make */
     call get_arg(com_lin, com_lin_size, code);

     /* Now invoke command_make with the command line it needs */
     call command_make(com_lin, com_status);

     /* Now test the return code */
     call setrc$(com_status, '1'B);

     return;
     end;                                    /* command_make_main */