07. 02. 2011. | #1 |
Siva eminencija
Grand Master
|
Danasnja omladina
Slucajno sam poslednih para dana imao srecu da prepravljam neki kod koji trci na VAX VMS, pisan u DEC BASICU koji radi na serveru koji niija gasen od 1989.
To me je podstaklo da napisem sledecu poruku danasnjim generacijama: "JOJ, KAKO JE VAMA DOBRO!" Pozelis da ucis programiranje, a na raspolaganju ti Google, forumi, OOP, klase, IDE-i, dzabe knjige, serveri sa x GB i n jezgara na y Ghz. Kao slatkis ide parce koda: Kôd:
! Get the beginning purge date. CALL DT_ADD_MONTHS(DATE_NOW$,-cActLogKeep,R.DATE$,STS) ! Primary key is descending. Delete anything on or before the ! beginning purge date. KEY_925$ = SEG$(R.DATE$,1,6) CALL CGI_READ_APX_REGARDLESS(KEY_925$,gCHAN(925),0,STS) EOF_925 = (STS<>0) 5010 WHILE NOT EOF_925 DEL_CNT = DEL_CNT+1 DEL_KEY$ = F925L001$+F925L002$ CALL CGI_DBDELETE(DEL_KEY$,gCHAN(925),0,STS) ! Ignore errors and return. RETURN IF STS<>0 CALL CGI_READ_NEXT_REGARDLESS(gCHAN(925),0,STS) ! Only delete a max of 100 records per session. EOF_925 = (STS<>0) OR (DEL_CNT>=100) NEXT CALL CGI_CLOSE_FILE(925,STS) RETURN |
"Hvala" McKracken za poruku: |
|
|