$title 'List of all System Suffixes' (SSUFFIX,SEQ=734)

$onText
This test creates and executes a GAMS program that print all system suffixes
with it's current value to a put file.

Contributor: Michael Bussieck, June 2017
$offText

set ssuffix system suffixes / system.SystemSuffixes /
file ef / exec.gms /; put ef 'file fx / systemSuffixes.txt /; put fx "System Suffixes:";';
loop(ssuffix$(not sameas("error",ssuffix)),
  put / 'put / "' ssuffix.tl:23 '[' ssuffix.te(ssuffix):65 ']: >" system.' ssuffix.tl:23 ' "<";';
);
putclose;
execute 'gams exec.gms lo=%gams.lo%'; abort$errorlevel 'problems executing exec.gms. Check exec.lst';