Re: RPG36 with OCL examples desired; 1) insert-a-record 2) update-that-record

Leo,

There are a few inaccuracies (or clarifications needed) in your statement.

1) The 'A' (for add) goes in position 66 of the F spec.

2) The 'E' is NOT required to set on LR. It comes into play if you are using a secondary file and want LR to turn on before it naturally would. Example:
FFILEA IP
FFILEB IS

The "natural" cycle would read all the record in FILEA, then all the records in FILEB. Once the program read all the records in FILEB LR would get turned on. If you put the E on the primary file, the secondary file would not get read. Used in this fashion this feature would not seem to be very useful... But, if you are using matching records then that ability becomes quite useful, as I can now establish that if there are no more records in FILEA I do not want to continue processing FILEB.

3) The "keyword" you are referring to is not really a keyword per se (as we would refer to it in RPGLE), rather it replaces the area used for the beginning position of the key with 'EXTK' (meaning external key) and is generally used with a compound key, in non-contiguous positions.

-mark

On 7/31/2016 4:07 PM, Leo Ridderikhoff wrote:

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.