Model

**free

//Compiler
ctl-opt nomain;

//Copy
/copy pgmrkad/test,test_h

//Prozeduren
dcl-proc TestModel_pruefeAuftragsnummer export;
  dcl-pi TestModel_pruefeAuftragsnummer ind;
    auftragsnummer char(11) const;
  end-pi;
  dcl-s count int(10) inz;

  exec sql
    select count(*)
      into :count
      from mvctestdb
      where auftragsnummer = :auftragsnummer;

  if (sqlcode <> 0) and (sqlcode <> 100);
    // TODO Fehlerprozedur - Allgemein
    return false;
  elseif (sqlcode = 100);
    // TODO Fehlerprozedur - Nicht in DB
    return false;
  else;
    return true;
  endif;
end-proc;

dcl-proc TestModel_getData export;
  dcl-pi TestModel_getData ind;
    auftragsnummer char(11) const;
    Data likeds(data_t) dim(anzahlDimensionen);
  end-pi;
  dcl-ds TempSqlData likeds(data_t);
  dcl-s x int(10) inz;
  dcl-s count int(10) inz;

 exec sql
   declare getData cursor for
     select uniqueid,auftragsnummer,auftragsart
     from mvctestdb
     where auftragsnummer = :auftragsnummer;

  exec sql
    select count(*)
      into :count
      from mvctestdb
      where auftragsnummer = :auftragsnummer;

  if (sqlcode <> 0);
    return false;
  endif;

  exec sql
   open getData;

  for x = 1 to count;
   exec sql
     fetch next from getData into :TempSqlData;
     Data(x) = TempSqlData;
  endfor;

  exec sql
   close getData;

  return true;

end-proc;