External Product Interface › CA7MVS—Sample CA 7 Interface Routine

CA7MVS—Sample CA 7 Interface Routine

The routine CA7MVS in the REXX library (data set SYS1.OPS.CCLXEXEC documented in the CA OPS/MVS Administration Guide) is an OPS/REXX program that issues CA 7 commands and gets responses returned in the external data queue of the calling program.

• This syntax issues the CA 7 LACT command:

  CALL CA7MVS 'LACT|EXECUTE'
  

  Vertical bar |

  The default command separator. Editing the CA7MVS separator parameter can modify the default command separator.

  EXECUTE command

  The equivalent of pressing the Enter key. A simple DO WHILE QUEUED() loop can process the returned response lines.

• To enter data on a multiple field screen, you can input using the split vertical bar.

  For example, This syntax places the command PF in the first (top) input field, the command I20 in the second input field, and then presses the Enter key (EXECUTE command):

  CALL CA7MVS 'PF|I20|EXECUTE'
  

• You can make multiple calls to CA7MVS and cause input to be stacked until you call CA7MVS with the EXECUTE command. The previous example could have been written:

  CALL CA7MVS 'PF'
  CALL CA7MVS 'I20'
  CALL CA7MVS 'EXECUTE'
  

  or

  CALL CA7MVS 'PF|I20'
  CALL CA7MVS 'EXECUTE'
  

  or

  CALL CA7MVS 'PF'
  CALL CA7MVS 'I20|EXECUTE'
  

By default, EXECUTE presses the Enter key, which can be overridden by specifying a PF key or other attention key (PF1, ..., PF24, PA1, PA2, PA3, CLEAR, or Enter). For example:

CALL CA7MVS 'EXECUTE CLEAR'
CALL CA7MVS 'LACT|EXECUTE ENTER'