?? RIGHT := 110 ??
MODULE ram$go;

*copyc osd$default_pragmats
?? PUSH (LISTEXT := ON) ??
*copyc clp$end_scan_command_file
*copyc clt$parameter_list
*copyc rav$intervene_in_deadstart_name

?? POP ??

*copyc rah$go

  PROCEDURE [XDCL, #GATE] rap$go (parameter_list: clt$parameter_list;
    VAR status: ost$status);

    clp$end_scan_command_file (rav$intervene_in_deadstart_name, status);
    IF NOT status.normal THEN
      RETURN;
    IFEND;

  PROCEND rap$go;
MODEND ram$go
