create or replace procedure opiskelija_uusi is
  op_number number;
begin
  iht.header('Uuden opiskelijan lisäys - esimerkkilomake INFO',
                'opsys_help',NULL);
  select info1.opseq.nextval into op_number from sys.dual;
  iht.formFieldsOpen('info1.opiskelija_ins','post');
  iht.formField('Tunnus: ','otunnus',6,6,op_number);
  iht.formField('Nimi: ','onimi',40,40,NULL);
  iht.formField('Pääaine: ','opaa',12,12,'TKT');
  iht.formField('Kaupunki: ','okaupunki',30,30,'Helsinki');
  iht.formField('Aloitusvuosi: ','oaloitus',4,4,NULL);
  iht.formFieldsClose;
  iht.formStandardButtons2('Lisää','Tyhjennä');
  htp.formClose;
  iht.footer(to_char(sysdate,'DD.MM.YY'), 'Esimerkki 3');   
end;
/
grant execute on opiskelija_uusi to www_user;
show errors
exit