RESUMEN: PROC OPTIONS(MAIN);
  %INCLUDE $STSDEF;
  %INCLUDE SYS$RESUME;
  %INCLUDE 'GETMSG.INC';

  DCL 
	LIB$GET_FOREIGN EXTERNAL ENTRY(
			        CHAR(*),
                                CHAR(*),
                                FIXED BIN(15))
                                RETURNS (FIXED BIN(31))
                                OPTIONS(VARIABLE);

  DCL
       COMMAND_STRING           CHAR(20),
       RETURN_LENGTH            FIXED BIN(15);
 

  DCL
        PROCESS_NAME 			CHAR(15) VARYING;

  STS$VALUE = LIB$GET_FOREIGN(COMMAND_STRING,,RETURN_LENGTH);
  IF ^STS$SUCCESS THEN CALL GETMSG(STS$VALUE);
  PROCESS_NAME = SUBSTR(COMMAND_STRING,1,RETURN_LENGTH);
  STS$VALUE = SYS$RESUME (,PROCESS_NAME);
  IF ^STS$SUCCESS THEN CALL GETMSG(STS$VALUE);
END RESUMEN;