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


  • Subject: Re:V4R1 RPT compiler
  • From: Buck Calabro <mcalabro@xxxxxxxxxxxx>
  • Date: Wed, 24 Dec 1997 09:48:01 -0500

>Can anyone help with this problem? We compile an RPT program with V4R1.
>Internally defined array. Copy Book also, with an internally defined array.
>Copy book array ends up in wrong place...... help? They think it is a bug in
>the compiler????

Is the member type set to RPT?  

I tried this code on my V4 machine:

RPT member RPGPTM:
     F* Test autocopy module                           
     F/COPY QRPGSRC,AUTOCPY                            
     E                    DTA         5 10             
     C                     MOVEL'X'       DTA,1        
     C                     SETON                     LR
     OQSYSPRT H  203   1P                              
     O                         UDATE Y    8            
     O                         PAGE     132            

RPG member AUTOCPY:
     F* This program contains Auto Copy module AUTOCPY 
     FQSYSPRT O   F     132     OF     PRINTER         
     E                    NAM        10 30             
     C           1         DO   10        X       50   
     C                     MOVELX         NAM,X        
     C                     ENDDO                       
     C*                                                
     CLR         1         DO   10        X       50   
     CLR                   EXCPTPRTNAM                 
     CLR                   ENDDO                       
     OQSYSPRT E  1             PRTNAM                  
     O*                                                
     O                         NAM,X     30            

I got these results (from the compile listing):
H                                                  
F* Test autocopy module                            
F*/COPY QRPGSRC,AUTOCPY                            
F* This program contains Auto Copy module AUTOCPY  
FQSYSPRT O   F     132     OF     PRINTER          
E                    NAM        10 30              
E                    DTA         5 10              
C           1         DO   10        X       50    
C                     MOVELX         NAM,X         
C                     ENDDO                        
C*                                                 
C                     MOVEL'X'       DTA,1         
C                     SETON                     LR 
CLR         1         DO   10        X       50    
CLR                   EXCPTPRTNAM                  
CLR                   ENDDO                
OQSYSPRT E  1             PRTNAM           
O*                                         
O                         NAM,X     30     
OQSYSPRT H  203   1P                       
O                         UDATE Y    8     
O                         PAGE     132     

Notice that the /COPY'd "E" spec sorts prior to the inline "E" spec.
I hope this helps...

Buck Calabro
Commsoft

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to "MIDRANGE-L@midrange.com".
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---


As an Amazon Associate we earn from qualifying purchases.

This thread ...


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.