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