On the F-spec: UPE for Update, Primary, End Of File, the A for add records to a file designated as Update should be somewhere in the 70's position range on the same F-spec. The E is for switching on the LR indicator automatically at EOF.
O is for output only, this works for diskfiles too, not just for printer output.
Indexed files and/or file indexes could be used like this, but also randomly (UF ).
You have to put an I somewhere and position and length of the key (or some keyword for a non- contiguous key), all in the same F-spec.
Regards,
Leo
-----Oorspronkelijk bericht-----
Van: "midrange" <franz9000@xxxxxxxxx>
Verzonden: 31-7-2016 21:09
Aan: "'RPG programming on the IBM i (AS/400 and iSeries)'" <rpg400-l@xxxxxxxxxxxx>
Onderwerp: RE: RPG36 with OCL examples desired; 1) insert-a-record 2) update-that-record
70's hardware.. IBM put the M36 environment on certain models after the V3r2
RISC conversion so this is mid 90's? - I forget the models.
I'm aware of several of those still running (but I don't work on them).
Jim
-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Booth
Martin
Sent: Saturday, July 30, 2016 9:45 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: Re: RPG36 with OCL examples desired; 1) insert-a-record 2)
update-that-record
The distant fog of my brain suggests to me that the "A" was for Add-only and
was seen as only moving the file's end-marker.
The "U"pdate allowed update, and add. There was no concept of an indexed
and keyed file at that time so there was no such thing as an insert. Why
would there be, since there was no random access.
(fwiw, it was mentioned that you can use AS400's RPG in the Sys36
environment. Its hard for me to believe that there is any 1970s hardware
still in use. Working with a more modern compiler would make any work in
that system a whole lot easier, plus give much better
performance.)
On 7/30/2016 4:38 PM, CRPence wrote:
...Apparently the designation (Desig=S) as secondary file along with
File Addition (Add=A) on the F-spec is not compatible; msg QRG2174
"File-Addition entry of A invalid." And that invalidate the ADD in
positions 16-18 of the O-spec; ...
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.
Please contact support@xxxxxxxxxxxx for any subscription related questions.
midrange.com
