Re: Zadania do wykonania

Autor: Adam Płaszczyca (_555_at_irc.pl)
Data: Wed 28 Oct 1998 - 01:35:50 MET


Przemysław Pawełczyk <warpman_at_friko5.onet.pl> wrote:

>>>d) archiwum os.os2!
>>Jest na man.lodz.pl, czy warto przenosic na Team? Musialbym pozatym uzgodnic
>>wszystko (miejsce dyskowe) z Calderem :)

> Gdyby było u nas możnaby je przeszukiwać on-line. A potem spakować
> automatycznie wszystkie znalezione listy i wysłać do zainteresowanego.

/* hau */
parse upper arg szukane
st='select temat, tresc from archiwum where UCASE(temat) LIKE %'szukane'%'
SQLEXEC 'PREPARE S1 FROM :st'
SQLEXEC 'DECLARE C1 CURSOR FOR S1'
DO WHILE SQLCA.SQLCODE=0
   SQLEXEC 'FETCH C1 INTO :temat, :tresc'
   if SQLCA.SQLCODE=0 then
   do
     rc=lineout('temp.txt', temat)
     rc=lineout('temp.txt',)
     rc=lineout('temp.txt', tresc)
     rc=lineout('temp.txt','=====================================')
     rc=lineout('temp.txt',)
  end
end
'sendmail .......... <=wybaczcie, z głowy piszę'
exit

Czy to takie skomplikowane? ;)))))

-- 
     ___________ (R)  
    /_  _______      Adam Płaszczyca (+48 601) 360969
  ___/ /_  ___      ul. Janinówka 13/3, 03-567 Warszawa
 _______/ /_     IRC: _555, http://www.waw.pdi.net/~trzypion/
___________/	 mail: _555_at_irc.pl patrz tez http://www.klubnokia.ats.pl/


To archiwum zostało wygenerowane przez hypermail 2.1.7 : Tue 18 May 2004 - 15:18:47 MET DST