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)"