• Subject: CISC vs RISC RPGLE
  • From: Debbie Helms <DHelms@xxxxxxxxx>
  • Date: Wed, 24 Nov 1999 16:05:45 -0500

Over the weekend we implemented a new system.  This system was thoroughly
tested on a 320 CICS box 3.2...Sunday all the programs were moved over to a
640 RISC box 4.1.  One of the programs absolutely would not execute the
same.  Being sure it was a file problem much time was spent looking there.
Finally being exhausted a debug was setup.   The program is an RPGLE.  We
had to put a "key" on the second read to make it execute properly.  Is there
a list of differences between boxes or is it versions?    


0377.00 C                   IF        *IN(35) = *ON                      
0378.00 C                   READE(N)  ITRMREC                            
0379.00 C                   MOVE      TRAISLE       SaveAisle            
0380.00 C                                                                
0381.00 C*  Obtain Number of Pallets to Retrieve and to Store for Aisles 
0382.00 C                   DOW       *IN(34) = *OFF   AND               
0383.00 C                              SaveAisle = TRAISLE                
0384.00 C                   IF        TRCODE = 'R'                       
0385.00 C                   ADD       1             RtreveCnt            
0386.00 C                   ENDIF                                        
0387.00 C                   IF        TRCODE = 'I'                       
0388.00 C                   ADD       1             StoreCnt             
0389.00 C                   ENDIF                                        
0390.00 C     Saveaisle     READE(N)  ITRMREC                            
0391.00 C                   ENDDO                                        

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@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
+---

This thread ...


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

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