×

Good News Everybody!

The new search engine is LIVE!

Please report any problems to david (at) midrange.com.




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                                         
              



This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2026 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.