MainPGM

**free

//Compiler
ctl-opt main(Main) bnddir('PGMRKAD/TESTPGMBND');

//Copy
/copy pgmrkad/test,test_h

dcl-proc Main;
  dcl-ds Data likeds(Data_t) dim(anzahlDimensionen);
  if (execRecMain() = true);
    if (TestModel_pruefeAuftragsnummer(getAuftragsnummer()) = true);
      if (TestModel_getData(getAuftragsnummer:Data) = false);
      endif;
      setSubfileData(Data);
      execRecData();
    endif;
  endif;
end-proc;