RE: Complier is not recognize CALLP with procptr array -- RPG400-L

× 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: Complier is not recognize CALLP with procptr array
From: Tom Daly <Tdaly@xxxxxxxxxxxxxx>
Date: Thu, 29 May 2003 17:26:16 -0400
List-archive: <http://archive.midrange.com/rpg400-l>
List-help: <mailto:rpg400-l-request@midrange.com?subject=help>
List-id: RPG programming on the AS400 / iSeries <rpg400-l.midrange.com>
List-post: <mailto:rpg400-l@midrange.com>
List-subscribe: <http://lists.midrange.com/mailman/listinfo/rpg400-l>,<mailto:rpg400-l-request@midrange.com?subject=subscribe>
List-unsubscribe: <http://lists.midrange.com/mailman/listinfo/rpg400-l>,<mailto:rpg400-l-request@midrange.com?subject=unsubscribe>

Lim,
I think you need to ALIGN the genChgDs datastructure.


Tom Daly

 |  why is complier not able to recognize that factor 2 on 
 |  'CALLP  genChgA(ix)' statement is an array of procptr?  
 |  What did I do wrong?  Other than using CALLB, is there a 
 |  better way to go around it.  
 |  
 |  Partial program list: 
 |  
 |  D  genChg1        pr                                        
 |             
 |  D  genChg2        pr                                        
 |             
 |  D  genChg3        pr                                        
 |             
 |                                                              
 |             
 |   * -- procedure pointer 
 |  -----------------------------------------      
 |  D genChgDs        ds                                        
 |             
 |  D  genChg1Ptr                     *   procptr 
 |  inz(%paddr('genChg1'))   
 |  D  genChg2Ptr                     *   procptr 
 |  inz(%paddr('genChg2'))   
 |  D  genChg3Ptr                     *   procptr 
 |  inz(%paddr('genChg3'))   
 |  D  genChgA                        *   dim(3) procptr 
 |  overlay(genChgDS) 
 |

As an Amazon Associate we earn from qualifying purchases.

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