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

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com