Example: issue a query

/* REXX
AN EXAMPLE OF ISSUING A QUERY
*/

CPC1 = 'IBM390PS.DINO'
IMAGE1 = 'MVSB'

'IMFEXEC HMC  CONNECT(CPC('CPC1')  OUTTOKEN(TOKEN1))'
'IMFEXEC HMC  CONNECT(IMAGE( 'IMAGE1 ') OUTTOKEN(TOKEN2)) TOKEN(TOKEN1)'

'IMFEXEC HMC  QUERY(NAME) TOKEN(TOKEN2)'

IF IMFCC = 0 THEN DO
'IMFEXEC MSG 'LINE.0 ='LINE.0'''

DO I = 1 TO LINE.0
'IMFEXEC MSG 'LINE.'I'='VALUE('LINE.'I)'&&''
END I
END
DROP LINE.

'IMFEXEC HMC  QUERY(OPERSTAT) TOKEN(TOKEN2)'

IF IMFCC = 0 THEN DO
'IMFEXEC MSG 'LINE.0 ='LINE.0'''

DO I = 1 TO LINE.0
'IMFEXEC MSG 'LINE.'I'='VALUE('LINE.'I)'&&''
END I
END
DROP LINE.

'IMFEXEC HMC DISCONNECT TOKEN(TOKEN2)'
'IMFEXEC HMC DISCONNECT TOKEN(TOKEN1)'