× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@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                                         
              



As an Amazon Associate we earn from qualifying purchases.

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