put outf;
for (IndexIdentifiers) do
statusmessage(AllIdentifiers(IndexIdentifiers));
statusmessage(IdentifierType(IndexIdentifiers));
put AllIdentifiers(IndexIdentifiers);
put " > ";
put IndexIdentifiers;
put " > ";
put IdentifierType(IndexIdentifiers);
endfor;
putclose;
1.000 > PD_Time > declaration
1.000 > pd_tau > parameter
1.000 > pd_dtpo > parameter
1.000 > pd_tpo_card > parameter
1.000 > pd_rdpo_card > parameter
put outf;
for (IndexIdentifiers) do
statusmessage(AllIdentifiers(IndexIdentifiers));
statusmessage(IdentifierType(IndexIdentifiers));
put AllIdentifiers(IndexIdentifiers);
put " > ";
put IndexIdentifiers;
put " > ";
put IdentifierType(IndexIdentifiers);
endfor;
put "_____________\n";
put "_____________\n";
put Card(AllParameters);
putclose;
1.000 > myGMPs > index
1.000 > filen > index
1.000 > foldern > index
1.000 > test001 > procedure _____________
_____________
0.000