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



In fixed we work with external data structures to received information and
pass information between programs.
*---------------------------------------------------------------------------------------------
D er6005ds e ds extname(er6005ds)

D wrtprba 4 dim(50) overlay(#tractprba)
Tp Reembolso Anteci.
D wrdesc 80 dim(50) overlay(#tracdesc)
Desc. Tp Reemb. Ant.
*---------------------------------------------------------------------------------------------
C *entry plist
C parm er6005ds

And now we have to used FREE and maintain the same structure.
DCL-DS ER6005DS extname('ER6005DS') inz;
wrtprba char(4) dim(50) overlay(#tractprba);
wrdesc char(80) dim(50) overlay(#tracdesc);

but i can use the same ext DS in the procedure interface:
DCL-PI *N;
p_er6005ds like(ER6005DS);
END-PI;

The information from the caller is on P_ER6005DS.

And i have on the pcpgm always to do:

ER6005DS = P_ER6005DS;

e the ucpgm the inverse:

P_ER6005DS = ER6005DS;

Theres any way of receive the information not in P_ER6005DS, but in the DS
declare with the arrays???

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

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.