Imbedded SQL in CL.

I know that one can execute SQL from CL in a myriad of ways including
RUNSQL, qsHell, REXX, etc but with all these new DB2 for i Services I
really wished we could have true imbedded SQL within CL.

SELECT restricted_state
FROM TABLE(QSYS2.SYSTEM_STATUS()) SysInfo

could be
SELECT restricted_state into :&Restricted
FROM TABLE(QSYS2.SYSTEM_STATUS()) SysInfo

If (&Restricted = 'YES') THEN(...)

Is just one small sample.

I know, I know, there's a bazillion ways to determine restricted state but
these services just make things so darn easy.

Rob Berendt