COMMON picsDataBase,  picsdb,picsdbu
COMMON picsParaBlock, pbd,pb1,pb2,pb3,pb4,pb5,pb6,pb7,pb8,pb9,pb10, pblock,pb_default
COMMON simulation, simul_flag, simul_fname, simuldb
COMMON pics_ag, ag_path, pbag, CCDAG_drawNumber,lcutag,hcutag,clutag,a_shut_open
COMMON picsPATH,      basepath, dpath, logpath, pblpath
COMMON images,        CCD1,CCD2,CCD1_hdr,CCD2_hdr,CCD1_fname,CCD2_fname, $
                      lcut1,hcut1,lcut2,hcut2,clut1,clut2

pics_db_create,e,picsdb,picsdbu,/DUMMY
fxaddpar,picsdb,'A_IMGDIR','/home/mmr/data/AGSIMUL' 
fxaddpar,picsdb,'A_PREFIX','agtest_'
fxaddpar,picsdb,'A_EXTENS','fits'

openw,lun,strtrim(fxpar(picsdb,'A_IMGDIR'),2)+'/picsdb.txt',/get_lun
for i=0,n_elements(picsdb)-1 do printf,lun,picsdb(i)
free_lun,lun,/force

END