/******************************************************/
/* This program evaluates a polynomial expression     */
/* using FLOAT BINARY data.  It also traps the end-of */
/* file condition for the file SYSIN.                 */
/******************************************************/
fltpoly2:
    procedure options(main);
    %replace
        false by '0'b,
        true  by '1'b;
    declare
      (x,y,z) float binary(24),
      eofile bit(1) static initial(false),
      sysin file;

    on endfile(sysin)
        eofile = true;

    do while(true);
       put skip(2) list('Type x,y,z: ');
       get list(x,y,z);

       if eofile then
          stop;

       put skip list('       2');
       put skip list('      x  + 2y + z =',P(x,y,z));
    end;

    P:
     procedure (x,y,z) returns (float binary(24));
     declare 
       (x,y,z) float binary(24);
     return (x * x + 2 * y + z);
    end P;

end fltpoly2;