Header

        //Konstante
        dcl-c true *on;
        dcl-c false *off;
        dcl-c anzahlDimensionen 999;

        //Template
        dcl-ds Data_t qualified template;
          id int(10);
          auftragsnummer char(11);
          auftragsart char(20);
        end-ds;

        //Protoypen
        dcl-pr TestModel_pruefeAuftragsnummer ind;
          auftragsnummer char(11) const;
        end-pr;

        dcl-pr TestModel_getData ind;
          auftragsnummer char(11) const;
          Data likeds(data_t) dim(anzahlDimensionen);
        end-pr;

        dcl-pr getSubfileDataLine ind;
          SubfileDataLine likeds(Data_t) dim(anzahlDimensionen);
        end-pr;

        dcl-pr setSubfileData ind;
          Data likeds(Data_t) dim(anzahlDimensionen) const;
        end-pr;
        dcl-pr initSubfile ind end-pr;
        dcl-pr execRecMain ind end-pr;
        dcl-pr execRecData ind end-pr;
        dcl-pr getAuftragsnummer char(11) end-pr;