;+ ; 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