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

Hi.

I would use a record Id on the input record and put that on the output header.

Don't condition detail output on LR

The program will then copy what ever is in the input file in your example.

I would re-write this for you today but I have a tee time quite soon. If you don't get it done over the weekend I will address it Monday for you - it's a very simple 36 program.

Regards

Kevin Passey

On 29 Jul 2016, at 01:57, CRPence <crpbottle@xxxxxxxxx> wrote:

I will include what I have attempted already, for reference; many would find the Subject request to be improper, without showing some prior effort. But any fully-functional but simple example-sources would be welcome, as there is no specific reason the following code would need to be /corrected/.

The following OCL performs a setup for a RPG36 that will be called. A file S36OUT is created, into which the row should be output\written. Another file is created too, file S36INP, for possible use to obtain as data in the program via a read, so that same data can be written to the S36OUT; note however, that I really do not care if the data written is a literal or that row data.

// FLIB QS36F,LIBL
// DLTF QS36F/S36INP
// DLTF QS36F/S36OUT
// CRTPF QS36F/S36INP RCDLEN(55)
// CRTPF QS36F/S36OUT RCDLEN(55)
// CPYF QIWS/QCUSTCDT QS36F/S36INP FMTOPT(*NOCHK) +
MBROPT(*REPLACE) NBRRCDS(1)
// LOAD INSS36
// FILE NAME-S36INP,DISP-OLD,LABEL-S36INP
// FILE NAME-S36OUT,DISP-OLD,LABEL-S36OUT
// RUN

Having tried to mimic [a poor excuse for] an example from the docs showing some declarative that would enable copying data from one file to another, I culled that example, and combined that with the QPROOF source shipped in QS36SRC of #LIBRARY. I then created my program as *CURLIB/INSS36 from the source member of the same name, but from file QRPGSRC instead of QS36SRC from following source, compiled with a request to:

CRTS36RPG *CURLIB/INSS36 SRCFILE(QRPGSRC) SRCMBR(INSS36)
OPTION(*SOURCE *SECLVL) GENOPT(*LIST) REPLACE(*YES)


FS36INP IP F 55 DISK
FS36OUT O F 55 DISK A
E ARRY 1 3 8
I* .1....+....2....+....3....+....4....+....5....+....6....+.
IS36INP XX
I 1 55 RCDINP
C MOVE ARRY,2 ARRY,3
C MOVE RCDINP RCDOUT 55
C SETON LR
C* .1....+....2....+....3....+....4....+....5....+....6
OS36OUT DADD
O LR RCDOUT 55
**
COMPILE
TIME
ARRAY


After invoking the program as loaded\run by the OCL, my output file S36OUT has a blank record, followed by the expected record. Statement trace seems to show the write at '.DRVFW02' occurring twice, but I have almost no idea why, though possibly something to do with non-detail record output -- I am really quite RPGII illiterate.

If I can finally get a sensible insert, then I want to get an update; I have not even begun to delve into that.

--
Regards, Chuck

--
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.