|
With the help of everyone that has responded to my earlier message, this project is moving along. I now need help updating my file. When I try to update the file I get the following message: ** Message ID . . . . . . : CPF5153 Date sent . . . . . . : 02/11/04 Time sent . . . . . . : 08:44:52 Message . . . . : Member SLJOIN has more than one based-on member. Cause . . . . . : Member SLJOIN file SLJOIN in library TESTFILE has more than one based-on member; therefore, the control list must specify which based-on member to use. Recovery . . . : Specify either a record format name, or a record format name and member number in the control list. Then try the request again. ** I have enclosed example of my file and the select/update part of the RPG program. What I need to know is what am I overlooking? Any and all help would be appreciated. Willie... FILE** * R DS PFILE(TESTFILE/SLDS) K DSRCID K DSFIL1 K DSORDN K DSITMN * R MM PFILE(TESTFILE/SLMM) K MMRCID K MMFIL1 K MMORDN K MMITMN * RPG Program** IORDWRK NS 04 1 CM 2 CM I 9 10 ITEMNO I 11 16 MATNO I 17 263QUORD I 27 28 UNIT I 29 43 SIZE I 1 192 MM IORDWRK NS 05 1 CD 2 CS I 1 192 DS C MOVEL'MM' WRKKEY C WRKKEY CHAINORDWRK 45 C 45 GOTO NOMOR C EXCPT C SETOF 04 C MOVEL'DS' WRKKEY C WRKKEY CHAINORDWRK 45 C EXCPT C SETOF 05 C* OORDWRK EADD 04 O MM 192 O 3 ' ' O NEWNUM 8 OORDWRK EADD 05 O DS 192 O 3 ' ' O NEWNUM 8
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.