Re:V4R1 RPT compiler

[Buck Calabro <mcalabro@xxxxxxxxxxxx>]

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