The CA OPS/MVS product implements its own version of EXECIO as a TSO host command. You can use EXECIO, as documented for TSO/E REXX, in an OPS/REXX program. You cannot use EXECIO in a rule of any kind. The OPS/REXX version of EXECIO:
The following OPS/REXX program segment demonstrates how you might use the EXECIO command to read and display the first 72 characters from each record in a sequential data file:
ADDRESS TSO "ALLOC F(DD77) DA('SOME.DATASET.NAME') SHR REU" IF RC <> 0 THEN DO SAY "ALLOC RC="RC /* Error recovery */ EXIT END "EXECIO * DISKR DD77 (FINIS" IF RC <> 0 THEN DO SAY "EXECIO RC="RC /* Error recovery */ END DO WHILE QUEUED() > 0 PULL REC SAY SUBSTR(REC,1,72) END "FREE F(DD77) IF RC <> 0 THEN SAY "FREE FAILED; RC="RC
Copyright © 2014 CA.
All rights reserved.
|
|