Re: How to retrieve SQL results into CL pgm

if you happen to be on V7.4 i thought this was fun :-)

RUNSQL SQL('CALL QSYS2.CREATE_USER_SPACE(
USER_SPACE => ''USRSPC1'',
USER_SPACE_LIBRARY => ''QGPL'',
SIZE => 10,
PUBLIC_AUTHORITY => ''*USE'')')
COMMIT(*NONE)

RUNSQL SQL('CALL QSYS2.CHANGE_USER_SPACE(
USER_SPACE => ''USRSPC1'',
USER_SPACE_LIBRARY => ''QGPL'',
DATA => (SELECT COUNT(*)
FROM QSYS2.ASP_INFO),
START_POSITION => 1)')
COMMIT(*NONE)

simple verification from commandline
dspf '/qsys.lib/qgpl.lib/usrspc1.usrspc'

https://www.ibm.com/docs/en/i/7.4?topic=as-change-user-space-change-user-space-binary-procedures
https://www.ibm.com/docs/en/i/7.4?topic=services-create-user-space-procedure

--
Bryan

Steve McKay wrote on 6/3/2022 4:31 PM:

SELECT COUNT(*) FROM QSYS2.ASP_INFO