EXECIO Does Not Process Multiple Uses of STEM Correctly

[marXtevens]

EXECIO Does Not Process Multiple Uses of STEM Correctly

[marXtevens]

EXECIO is on the MAINT 093 minidisk, as DMSXIO ASSEMBLE, and is part of VM/370 CE. The reason the problem occurs is that the right parenthesis used ')' for example in the following:

'EXECIO * CP ( STEM CPinfo. STRING ' CP_Command ' )'

Is consumed by the STRING parameter and passed to CP, causing an error. Therefor the solution is to NOT use the right parenthesis. Hence, the following code works as is needed.

/**********************************************************************/
ADDRESS 'COMMAND'                      /* Strict command evaluation.  */
SIGNAL ON SYNTAX                       /* Handle syntax errors.       */
SIGNAL ON NOVALUE                      /* Handle bad/no value errors. */


fn = 'GCC'
ft = 'EXEC'
fm = 'Y'

/**********************************************************************/
/* Scan specified file for string and place results in RDR spool file */
/**********************************************************************/

CPinfo. = ''
CP_Command = 'QUERY VIRTUAL 00C'
SAY CP_Command
'EXECIO * CP ( STEM CPinfo. STRING ' CP_Command

Counter = 0
DO UNTIL Counter > CPinfo.0
   SAY 'CPinfo.'Counter ' = ' CPinfo.Counter
   Counter = Counter + 1
END

/**********************************************************************/

New_Class = 'T'
CPinfo. = ''
CP_Command ='SPOOL CONSOLE START TO * TERM'
SAY CP_Command

'EXECIO * CP ( STEM CPinfo. STRING ' CP_Command

Counter = 0
DO UNTIL Counter > CPinfo.0
   SAY 'CPinfo.'Counter ' = ' CPinfo.Counter
   Counter = Counter + 1
END


New_Class = 'T'
CPinfo. = ''
CP_Command ='SPOOL CONSOLE START TO * TERM'
SAY CP_Command

'EXECIO * CP ( STEM CPinfo. STRING ' CP_Command

Counter = 0
DO UNTIL Counter > CPinfo.0
   SAY 'CPinfo.'Counter ' = ' CPinfo.Counter
   Counter = Counter + 1
END

/**********************************************************************/

PUSH '&ARGS'

'SCAN' fn ft fm

/**********************************************************************/

CPinfo. = ''
CP_Command = 'SPOOL CONSOLE STOP CLOSE TERM'
SAY CP_Command
'EXECIO * CP ( STEM CPinfo. STRING ' CP_Command

Counter = 0
DO UNTIL Counter > CPinfo.0
   SAY 'CPinfo.'Counter ' = ' CPinfo.Counter
   Counter = Counter + 1
END

PARSE VAR CPinfo.1 WITH . . SpoolID .
SAY 'Spool ID: ' SpoolID

IF SpoolID = '' THEN
   DO
      SAY 'Error: SpoolID ('SpoolID') not valid.'

Counter = 0
DO UNTIL Counter > CPinfo.0
   SAY 'CPinfo.'Counter ' = ' CPinfo.Counter
   Counter = Counter + 1
END

PARSE VAR CPinfo.1 WITH . . SpoolID .
SAY 'Spool ID: ' SpoolID

IF SpoolID = '' THEN
   DO
      SAY 'Error: SpoolID ('SpoolID') not valid.'
      RETURN 8
   END

/**********************************************************************/

CPinfo. = ''
CP_Command = 'CHANGE RDR ' SpoolID ' CLASS A'
SAY CP_Command

'EXECIO * CP ( STEM CPinfo. STRING ' CP_Command

Counter = 0
DO UNTIL Counter > CPinfo.0
   SAY 'CPinfo.'Counter ' = ' CPinfo.Counter
   Counter = Counter + 1
END

/**********************************************************************/

CPinfo. = ''
CP_Command = 'ORDER RDR ' SpoolID
SAY CP_Command

'EXECIO * CP ( STEM CPinfo. STRING ' CP_Command

Counter = 0
'EXECIO * CP ( STEM CPinfo. STRING ' CP_Command

Counter = 0
DO UNTIL Counter > CPinfo.0
   SAY 'CPinfo.'Counter ' = ' CPinfo.Counter
   Counter = Counter + 1
END

/**********************************************************************/

CPinfo. = ''
CP_Command = 'ORDER RDR ' SpoolID
SAY CP_Command

'EXECIO * CP ( STEM CPinfo. STRING ' CP_Command

Counter = 0
DO UNTIL Counter > CPinfo.0
   SAY 'CPinfo.'Counter ' = ' CPinfo.Counter
   Counter = Counter + 1
END

/**********************************************************************/

'EXECIO * CARD ( STEM RDRLINE.'

SAY RDRLINE.0 ' lines read.'

Counter = 0
DO UNTIL Counter > RDRLINE.0
   SAY 'RDRLINE.'Counter ' = ' RDRLINE.Counter
   Counter = Counter + 1
END

/**********************************************************************/
/* Exit cleanly.                                                      */
/**********************************************************************/
RETURN rc

[BobBolch]

')' character included in the string which was issued as a CP command caused the command failure. IBM deocuments that the trailing ')' should not be included when an EXECIO is issued with the STRING option.