send a table between 2 pgms in freeform
Posted: Fri Jan 14, 2022 9:01 am
Hi folks
i have a program X who call a pgm Y
this pgm Y feed a table and i want to consume it in the X pgm
i know i have to use pointer but i dont know how
my pgms are in free form
this the table in the pgm Y
// *** Definition de la DS de reception du Json
dcl-s num_sample int(5);
dcl-ds sample qualified dim(003);
codeActiviteFm char(10);
isAs400FiniPousserDansFm char(9);
isOverlogFiniPousserDansFm char(9);
isPrevisionsPretesPourIntegration char(20);
modificateur char(20);
dcl-ds traceabilites dim(002);
propriete char(20);
horodatage char(20);
modificateur char(20);
end-ds;
end-ds;
i have a program X who call a pgm Y
this pgm Y feed a table and i want to consume it in the X pgm
i know i have to use pointer but i dont know how
my pgms are in free form
this the table in the pgm Y
// *** Definition de la DS de reception du Json
dcl-s num_sample int(5);
dcl-ds sample qualified dim(003);
codeActiviteFm char(10);
isAs400FiniPousserDansFm char(9);
isOverlogFiniPousserDansFm char(9);
isPrevisionsPretesPourIntegration char(20);
modificateur char(20);
dcl-ds traceabilites dim(002);
propriete char(20);
horodatage char(20);
modificateur char(20);
end-ds;
end-ds;