|
V5R3 machine: FGOOFY IF E K DISK USROPN rename(goofy:goofyr) D SKELETON PR 1a D Parm1 1a P SKELETON B EXPORT D SKELETON PI 1a D Parm1 1a /free Open(e) goofy; chain(e)Parm1 goofy; return MyChar; /end-free P SKELETON E CREATE TABLE ROB/GOOFY (MYKEY CHAR ( 1) NOT NULL WITH DEFAULT, MYCHAR CHAR ( 1) NOT NULL WITH DEFAULT, PRIMARY KEY (MYKEY)) INSERT INTO ROB/GOOFY VALUES('A', 'X') create function rob/iocount ( CHAR(1)) RETURNS CHAR (1) LANGUAGE RPGLE DETERMINISTIC NO SQL RETURNS NULL ON NULL INPUT SIMPLE CALL EXTERNAL NAME 'ROB/TONYSRV(SKELETON)' CREATE TABLE ROB/goofyX (MYCHAR CHAR (1 ) NOT NULL WITH DEFAULT) INSERT INTO ROB/goofyX VALUES('A') (repeated for a total of 15 times) SELECT MYCHAR, IOCOUNT(MYCHAR) FROM ROB/goofyX DSPJOB 14. Display open files, if active F11=Display I/O details Member/ Record File I/O File Library Device Format Type Count GOOFY ROB GOOFY GOOFY PHY 15 Granted, it will be cached. But evidently DETERMINISTIC didn't quite do what we thought. Rob Berendt -- Group Dekko Services, LLC Dept 01.073 PO Box 2000 Dock 108 6928N 400E Kendallville, IN 46755 http://www.dekko.com
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.