GAMS Data Exchange API

Example 2: C program
Page 14
begin
WriteLn('**** Could not find variable X');
Halt(1);
end;
GDXSymbolInfo(PGX,VarNr,VarName,Dim,VarTyp);
if (Dim 2) or (VarTyp gms_dt_var)
then
begin
WriteLn('**** X is not a two dimensional variable');
Halt(1);
end;
if GDXDataReadStrStart(PGX,VarNr,NrRecs) = 0
then
ReportGDXError(PGX);
WriteLn('Variable X has ',NrRecs,' records');
while GDXDataReadStr(PGX,Indx,Values,N) 0
do begin
if Values[vallevel] = 0.0 //skip level = 0.0 is default
then
continue;
for D := 1 to Dim
do begin
Write(Indx[D]);
if D < Dim
then
Write('.');
end;
WriteLn(' = ',Values[vallevel]:7:2);
end;
WriteLn('All solution values shown');
GDXDataReadDone(PGX);
end;
ErrNr := GDXClose(PGX);
if ErrNr 0
then
ReportIOError(ErrNr);
end.
1.6.2 Example 2: C program
This is a simplified version of the gdxdump program written in C
/*
Use this command to compile the example:
cl gdxdumpc.c ../../gmstest/apifiles/C/api/gdxcc.c ../../gmstest/apifiles/C/api/gclgms.c -
I../../gmstest/apifiles/C/api/
*/
#include
#include
#include "gdxcc.h"
#include "gclgms.h"
char *val2str(gdxHandle_t Tptr, double val, char *s) {
int sv;
if (gdxAcronymName(Tptr, val, s)) {
return s;
} else {
gdxMapValue(Tptr, val, &sv);
if (sv_normal != sv)
sprintf(s,"%s", gmsSVText[sv]);
else
sprintf(s,"%g", val);
GDX GAMS Data Exchange Example
programs
GAMS Data Exchange API
1.6
Page 14 2.4
12/3/2012