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



Before I call IBM, I though I'll check to see if anybody has encountered this 
before.
 
---- Some background ---------------------------------------------------------
I've a program that has a multi occurrence DS in the main procedure:  
D Mcradd          Ds                  Occurs(12) likeds(sfAddDS)
 
In this program there is a sub-procedure that accept point of the above DS as a 
parm:
P chkAddingWgrp   B                                             
D                 PI              N                             
D addDSPtr                        *   value                     
                                                                
D addDS           DS                  likeDS(SFAddDS) occurs(12)
D                                     based(addDSPtr)           

---- Problem (Note: This rarely happen.  In most case, it work just fine.) 
-----------------------
When the main procedure does the following 
    chkAddingWgrp(%addr(mcrAdd))

In debug mode:  The 4th occurrence data is out of sync between the Mcradd in 
main procedure and the addDS in sub-procedure:  See below
 
MCRADD.UNLIKESWAP I(4) = ' '       
MCRADD.DSFECINOLD I(4) = ' '       
MCRADD.DSFEC(4) = '   '            
MCRADD.SVID(4) = '          '      
MCRADD.TLA(4) = 000.               
MCRADD.TLNO(4) = 00000000000000000.
MCRADD.TLP(4) = 000.               
MCRADD.TLS(4) = 0000.              
MCRADD.TLX(4) = 0000000.           
MCRADD.PGTR(4) = '   '             
MCRADD.SFRRN(4) = 0000.            
MCRADD.FEARRN(4) = 0000.           
MCRADD.FEC(4,1) = '   '            

 
ADDDS.UNLIKESWAP I(4) = '0'       
ADDDS.DSFECINOLD I(4) = '0'       
ADDDS.DSFEC(4) = '000'            
ADDDS.SVID(4) = '0000000000'      
ADDDS.TLA(4) = 000.               
ADDDS.TLNO(4) = 00000000000000000.
ADDDS.TLP(4) = 000.               
ADDDS.TLS(4) = 0000.              
ADDDS.TLX(4) = 0000000.           
ADDDS.PGTR(4) = '000'             
ADDDS.SFRRN(4) = 000 .            
ADDDS.FEARRN(4) =     .           
ADDDS.FEC(4,1) = '   '            


 

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.