×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
Il 04/03/2020 17:47, Patrik Schindler ha scritto:
I don't think that works with V4R5 RPG, since there's no "free" and I can't remember to have additional arguments for SETGT allowed. Yes, really classic.:-)
Yep. 4.5.0 is really,old, so i forgot to cconsider you're not free :)
Works the same way at that time, you just have to define a klist or two.
First example : read all row
OrdNum setgt OrdRow
Ordnum Readpe Ordrow
(since it's just a filed, you may use it directly)
Read in the middle of the key :
kOrds klist
kfld OrdNum
kfld OrdRow
kOrdr klist
kfld OrdNum
z-add 100 OrdRow
kOrds setgt OrdRow
kOrdr Readpe Ordrow
I'm pretty sure it works at v4r5, as i'm pretty sure i used it on v4r4
(i then skip to the 5.1) and it works even in RPGIII...
This mailing list archive is Copyright 1997-2024 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.
midrange.com
