This is an example of an RPG program that uses the QCMDEXC API to call the Java™ Hello program.
D* DEFINE THE PARAMETERS FOR THE QCMDEXC API
D*
DCMDSTRING S 25 INZ('JAVA CLASS(''com.ibm.as400.system.Hello'')')
DCMDLENGTH S 15P 5 INZ(25)
D* NOW THE CALL TO QCMDEXC WITH THE 'JAVA' CL COMMAND
C CALL 'QCMDEXC'
C PARM CMDSTRING
C PARM CMDLENGTH
C* This next line displays 'DID IT' after you exit the
C* Java Shell via F3 or F12.
C 'DID IT' DSPLY
C* Set On LR to exit the RPG program
C SETON LR
C