C+ C 7.1.9 C C C Send Parameters Subroutine (SNDPRM) C C C FUNCTION: C This subroutine is used to send parameters C to a program and activate. C C C CALLING SEQUENCE: C C CALL SNDPRM (NPRM, PRMBUF, ERROR) C C WHERE: C ARGUMENT = DESCRIPTION ACCESS C NPRM = Number of parameters PA C (zero is valid) C PRMBUF = Program name and parameter buffer. PA C Name of program to activate C (RAD-50 (2 words)) - C followed by parameters. C ERROR = Status of the operation. RE C 1 - success C C SUBROUTINES REFERENCED: C PIPE C C C DESCRIPTION: C SNDPRM sends the parameters to task 'RUNNER' which will C decide whether the program needs to be 'flying' installed. C Then the parameters will be sent to the task then activated. C C SPECIAL CONSIDERATIONS: C 1. The queue name must be the same as the program name. C C- SUBROUTINE SNDPRM (NPRM, PRMBUF, ERROR) IMPLICIT INTEGER(A-Z) DIMENSION PGMNAM(1), PRMBUF(1), RUNNER(2) DATA RUNNER / 3RRUN, 3RNER / NWDS = NPRM + 2 CALL PIPE( 3, 1, RUNNER, PRMBUF, NWDS, ERROR) RETURN END