make_lis_files.pro (Kronos IDL library)

;+
; Contains the make_lis_files procedure
;
; :Author:
;    Baptiste Cecconi
;
; :History:
;    2004/07/30: Created
;
;    2004/07/30: Last Edit
;-
;
;+
; production de LIS journaliers
;
; :Uses:
;    delpath, extpath, liste_comp
;
; :Params:
;    datedeb: in, required, type=sometype
;       A parameter named datedeb
;    datefin: in, required, type=sometype
;       A parameter named datefin
;
; :Keywords:
;    nblocks: in, optional, type=sometype
;       A keyword named nblocks
;-
pro MAKE_LIS_FILES, datedeb,datefin, nblocks = nblocks

if not(keyword_set(nblocks)) then nblocks = 1 

for i=datedeb,datefin do begin
	
	pFileList=make_file_list(i, 0l, i, 24l, level='k', /noemptyfiles)
	if (ptr_valid(pFileList)) then begin
		FileList=*pFileList
		ptr_free, pFileList
	
	 fichier=FileList[0]
	 f = DELPATH(fichier)
	 faaaajjj = long(strmid(f,1,7))
		path=EXTPATH(fichier)
		path=strmid(path,0,strlen(path)-2)
		nom=strtrim(long(i),2)
		nomlis=path+'lis/'+nom+'.lis'
		LISTE_COMP, i, 0, i, 24, nomlis, 0
		print,nomlis
	endif
endfor

; Update the Kronos Database with the new files
spawn, [getenv('ROOT_RPWS') + '/pro/kronosdb/upsert.sh', '-l', 'lis', string(format='(I7)', datedeb), string(format='(I7)', datefin)], /NOSHELL

return
end