View

**free

//Compiler
ctl-opt nomain;

//copy
/copy pgmrkad/test,test_h

//Display
dcl-f testdisp workstn handler('PROFOUNDUI(HANDLER)') qualified alias sfile(sflData:recData.rrn);
dcl-ds recMain likerec(testdisp.recMain:*all);
dcl-ds recData likerec(testdisp.recData:*all);
dcl-ds SflData likerec(testdisp.sflData:*all);


//Steuerung
dcl-proc initSubfile export;
  dcl-pi initSubfile ind end-pi;

  recData.loescheSubfile = true;
  write testdisp.recData recData;
  recData.loescheSubfile = false;

  return true;
end-proc;


dcl-proc execRecMain export;
  dcl-pi execRecMain ind end-pi;

  exfmt testdisp.recMain recMain;
  if (recMain.btn_exit = true);
    return false;
  elseif (recMain.btn_check = true);
    return true;
  endif;
end-proc;


dcl-proc execRecData export;
  dcl-pi execRecData ind end-pi;

  exfmt testdisp.recData recData;
  if (recData.btn_exit = true);
    return false;
  else;
    return true;
  endif;
end-proc;


//Getter
dcl-proc getAuftragsnummer export;
  dcl-pi getAuftragsnummer char(11) end-pi;

  return recMain.i_auftragsnummer;
end-proc;

dcl-proc getSubfileDataLine export;
  dcl-pi getSubfileDataLine ind;
    SubfileDataLine likeds(Data_t) dim(anzahlDimensionen);
  end-pi;

  return true;
end-proc;


//Setter
dcl-proc setSubfileData export;
  dcl-pi setSubfileData ind;
    Data likeds(Data_t) dim(anzahlDimensionen) const;
  end-pi;
  dcl-s x int(10) inz;

  recData.rrn = 1;
  for x = 1 to anzahlDimensionen;
    if (Data(x).auftragsnummer = *blank) and (Data(x).auftragsart = *blank);
      leave;
    endif;
    SflData.o_id = Data(x).id;
    SflData.o_auftragsnummer = Data(x).auftragsnummer;
    SflData.o_auftragsart = Data(x).auftragsart;
    write testdisp.sflData SflData;
    recData.rrn += 1;
  endfor;

  return true;
end-proc;