* Už to nemůžete vydržet? Napište nám! * We can speak English.
* SUALEPH © 1996-2001 * Aktualizováno 04/07/2001

Příklad konverze z A500 do A300

#!/bin/csh
set llib=`echo $1|read_line -l`
set ulib=`echo $1|read_line -u`
set konvlog=$0.log
set konvlog=$konvlog:t
date >& $TMPDIR/$konvlog
set pomdir=/aleph1/aleph/konvdata

a01a:
# prace v XXX01:
echo '###' INICIALIZACE XXX01 >>& $TMPDIR/$konvlog
dlib ${llib}01
$aleph_proc/util_a_17_b table all >>& $TMPDIR/$konvlog
$aleph_proc/util_a_17_b index all >>& $TMPDIR/$konvlog
source /aleph/eutil/for_ipri/util_g_03
foreach c ( 1 2 3 4 5 6 7 8 9 )
if ( -f $pomdir/303${llib}01_${c}.dat ) then
cd /aleph/eutil/conv
echo '###' KONV BIB - PAVEL $c >>& $TMPDIR/$konvlog
${llib}konv.sh $pomdir/303${llib}01_${c}.dat > $pomdir/303${llib}01_${c}.dat1
cd $pomdir
# rm 303${llib}01.dat
grep "^${ulib}" 303${llib}01_${c}.dat1 | cut -b5- > 303${llib}01_${c}.dat2
ls -l 303${llib}* >>& $TMPDIR/$konvlog
rm 303${llib}01_${c}.dat1
echo '###' KONV BIB DO ANSEL >>& $TMPDIR/$konvlog
~ptacko/konv_ansel 303${llib}01_${c}.dat2 $data_scratch/303${llib}01_${c}.dat3 >>& $TMPDIR/$konvlog
ls -l 303${llib}* >>& $TMPDIR/$konvlog
rm 303${llib}01_${c}.dat2
echo '###' p_manage_18 BIB >>& $TMPDIR/$konvlog
csh /aleph/a50_5/aleph/proc/p_manage_18 ${ulib}01,303${llib}01_${c}.dat3,xxx,OLD,NO-FIX,N,PARTIAL,REP,X,50,BATCH,0,00, >>& $TMPDIR/$konvlog
mv $data_scratch/303${llib}01_${c}.dat3 $pomdir/303${llib}01_${c}.dat3
endif
end

a02a:
# prace v XXX02:
echo '###' INICIALIZACE XXX02 >>& $TMPDIR/$konvlog
dlib ${llib}02
$aleph_proc/util_a_17_b table all >>& $TMPDIR/$konvlog
$aleph_proc/util_a_17_b index all >>& $TMPDIR/$konvlog
source /aleph/eutil/for_ipri/util_g_03
cd /aleph/eutil/conv
echo '###' KONV BIB - PAVEL >>& $TMPDIR/$konvlog
${llib}konv.sh $pomdir/303${llib}02.dat > $pomdir/303${llib}02.dat1
cd $pomdir
# rm 303${llib}02.dat
grep "^${ulib}" 303${llib}02.dat1 | cut -b5- > 303${llib}02.dat2
ls -l 303${llib}* >>& $TMPDIR/$konvlog
rm 303${llib}02.dat1
echo '###' KONV BIB DO ANSEL >>& $TMPDIR/$konvlog
~ptacko/konv_ansel 303${llib}02.dat2 $data_scratch/303${llib}02.dat3 >>& $TMPDIR/$konvlog
ls -l 303${llib}* >>& $TMPDIR/$konvlog
rm 303${llib}02.dat2
echo '###' p_manage_18 BIB >>& $TMPDIR/$konvlog
csh /aleph/a50_5/aleph/proc/p_manage_18 ${ulib}02,303${llib}02.dat3,xxx,OLD,NO-FIX,N,PARTIAL,REP,X,50,BATCH,0,00, >>& $TMPDIR/$konvlog

a50:
# prace v XXX50:
echo '###' INICIALIZACE XXX50 >>& $TMPDIR/$konvlog
dlib ${llib}50
$aleph_proc/util_a_17_b table all >>& $TMPDIR/$konvlog
$aleph_proc/util_a_17_b index all >>& $TMPDIR/$konvlog
source /aleph/eutil/for_ipri/util_g_03
cd $data_files
foreach c ( z30_copies.seq_$llib z30_issue.seq_$llib z601.seq_$llib z601_alc.seq_$llib )
if (!( -f $c )) touch $c
end
sort -m z30_copies.seq_$llib z30_issue.seq_$llib > z30.seq_$llib
sort -m z601.seq_$llib z601_alc.seq_$llib > z601.seq_$llib
# cat z30_copies.seq_$llib z30_issue.seq_$llib | sort -m > z30.seq_$llib
# cat z601.seq_$llib z601_alc.seq_$llib | sort -m > z601.seq_$llib
# konverze do CP 1250
echo '###' p_manage_22 Z30 DO WIN >>& $TMPDIR/$konvlog
csh -f $aleph_proc/p_manage_22 ${ulib}50,../files/z30.seq_$llib,../files/z30.seqw,L,W,N,0,00, >>& $TMPDIR/$konvlog
echo '###' p_manage_22 Z303 DO WIN >>& $TMPDIR/$konvlog
csh -f $aleph_proc/p_manage_22 ${ulib}50,../files/z303.seq_$llib,../files/z303.seqw,L,W,N,0,00, >>& $TMPDIR/$konvlog
echo '###' p_manage_22 Z304 DO WIN >>& $TMPDIR/$konvlog
csh -f $aleph_proc/p_manage_22 ${ulib}50,../files/z304.seq_$llib,../files/z304.seqw,L,W,N,0,00, >>& $TMPDIR/$konvlog
echo '###' p_manage_22 Z70 DO WIN >>& $TMPDIR/$konvlog
csh -f $aleph_proc/p_manage_22 ${ulib}50,../files/z70.seq_$llib,../files/z70.seqw,L,W,N,0,00, >>& $TMPDIR/$konvlog
echo '###' p_manage_22 Z72 DO WIN >>& $TMPDIR/$konvlog
csh -f $aleph_proc/p_manage_22 ${ulib}50,../files/z72.seq_$llib,../files/z72.seqw,L,W,N,0,00, >>& $TMPDIR/$konvlog
df1
foreach c ( z*.seq_$llib )
mv $c $c:r.seq
end
foreach c ( z*.seqw )
mv $c $c:r.seq
end
echo '###' ADRESY.GLOBF Z304 >>& $TMPDIR/$konvlog
/aleph/bin/globalexf /aleph/eutil/for_ipri/adresy.globf z304.seq >>& $TMPDIR/$konvlog
ds
foreach c ( adm*.seq_$llib )
mv $c $c:r.seq
end
echo '###' p_manage_18 PODKLADOVE ADM ZAZNAMY >>& $TMPDIR/$konvlog
cd $pomdir
set maxsn=`ls -1 303${llib}01_?.dat | tail -1`
# set maxsn=`cut -c5-11 $maxsn | sort -nu | tail -1`
set maxsn=`tail -1 $maxsn | cut -c5-11`
ds
set maxsn=`tail -1 101${llib}02.dat | cut -c1-7 | awk '//END{print "'$maxsn'"}' | sort -n | tail -1`
awk 'BEGIN{for(i=1;i<='$maxsn';i++) printf "%07i\n",i}' | \
awk -f /aleph/eutil/conv/bezlkr.awk -v lib=${ulib}01 > adm_test
csh -f $aleph_proc/p_manage_18 ${ulib}50,adm_test,,OLD,NO-FIX,N,PARTIAL,REP,X,,,,0,00, >>& $TMPDIR/$konvlog
cut -c1-7 101${llib}02.dat | \
awk -f /aleph/eutil/conv/bezlkr.awk -v lib=${ulib}02 > adm_test02
csh -f $aleph_proc/p_manage_18 ${ulib}50,adm_test02,,OLD,NO-FIX,N,PARTIAL,REP,X,,,,0,00, >>& $TMPDIR/$konvlog
cd /aleph/eutil/conv
echo '###' KONV BIB - PAVEL 50 >>& $TMPDIR/$konvlog
${llib}50konv.sh $pomdir/303${llib}50.dat > $pomdir/303${llib}50.dat1
cd $pomdir
# rm 303${llib}01.dat
grep "^${ulib}" 303${llib}50.dat1 | cut -b5- > 303${llib}50.dat2
ls -l 303${llib}* >>& $TMPDIR/$konvlog
rm 303${llib}50.dat1
echo '###' KONV BIB DO ANSEL >>& $TMPDIR/$konvlog
~ptacko/konv_ansel 303${llib}50.dat2 $data_scratch/303${llib}50.dat3 >>& $TMPDIR/$konvlog
ls -l 303${llib}* >>& $TMPDIR/$konvlog
rm 303${llib}50.dat2
echo '###' p_manage_18 BIB >>& $TMPDIR/$konvlog
csh /aleph/a50_5/aleph/proc/p_manage_18 ${ulib}50,303${llib}50.dat3,xxx,OLD,NO-FIX,N,PARTIAL,APP,X,50,BATCH,0,00, >>& $TMPDIR/$konvlog
mv $data_scratch/303${llib}50.dat3 $pomdir/303${llib}50.dat3
# echo '###' p_manage_18 adm_copies >>& $TMPDIR/$konvlog
# csh -f $aleph_proc/p_manage_18 ${ulib}50,adm_copies.seq,match,OLD,NO-FIX,N,NONE,REP,X,,,0,00, >>& $TMPDIR/$konvlog
# cut -c 1-7 ${llib}lk.dat | awk -f /aleph/eutil/conv/bezlkr.awk > adm_lkr.seq
# echo '###' p_manage_18 adm_lkr >>& $TMPDIR/$konvlog
# csh -f $aleph_proc/p_manage_18 ${ulib}50,adm_lkr.seq,match,OLD,NO-FIX,N,NONE,REP,X,,,0,00, >>& $TMPDIR/$konvlog
# echo '###' p_manage_18 adm_issue >>& $TMPDIR/$konvlog
# csh -f $aleph_proc/p_manage_18 ${ulib}50,adm_issue.seq,match,OLD,NO-FIX,N,NONE,REP,X,,,0,00, >>& $TMPDIR/$konvlog
echo '###' p_manage_18 adm_order >>& $TMPDIR/$konvlog
csh -f $aleph_proc/p_manage_18 ${ulib}50,adm_order.seq,match,OLD,NO-FIX,N,NONE,REP,X,,,0,00, >>& $TMPDIR/$konvlog
df1
echo '###' p_file_04 z30 >>& $TMPDIR/$konvlog
csh -f $aleph_proc/p_file_04 ${ulib}50,z30,0,,00 >>& $TMPDIR/$konvlog
echo '###' p_file_04 z08 >>& $TMPDIR/$konvlog
csh -f $aleph_proc/p_file_04 ${ulib}50,z08,0,,00 >>& $TMPDIR/$konvlog
echo '###' p_file_04 z09 >>& $TMPDIR/$konvlog
csh -f $aleph_proc/p_file_04 ${ulib}50,z09,0,,00 >>& $TMPDIR/$konvlog
echo '###' p_file_04 z14 >>& $TMPDIR/$konvlog
csh -f $aleph_proc/p_file_04 ${ulib}50,z14,0,,00 >>& $TMPDIR/$konvlog
echo '###' p_file_04 z16 >>& $TMPDIR/$konvlog
csh -f $aleph_proc/p_file_04 ${ulib}50,z16,0,,00 >>& $TMPDIR/$konvlog
echo '###' p_file_04 z17 >>& $TMPDIR/$konvlog
csh -f $aleph_proc/p_file_04 ${ulib}50,z17,0,,00 >>& $TMPDIR/$konvlog
echo '###' p_file_04 z18 >>& $TMPDIR/$konvlog
csh -f $aleph_proc/p_file_04 ${ulib}50,z18,0,,00 >>& $TMPDIR/$konvlog
echo '###' p_file_04 z22 >>& $TMPDIR/$konvlog
csh -f $aleph_proc/p_file_04 ${ulib}50,z22,0,,00 >>& $TMPDIR/$konvlog
echo '###' p_file_04 z36 >>& $TMPDIR/$konvlog
csh -f $aleph_proc/p_file_04 ${ulib}50,z36,0,,00 >>& $TMPDIR/$konvlog
echo '###' p_file_04 z304 >>& $TMPDIR/$konvlog
csh -f $aleph_proc/p_file_04 ${ulib}50,z304,0,,00 >>& $TMPDIR/$konvlog
echo '###' p_file_04 z305 >>& $TMPDIR/$konvlog
csh -f $aleph_proc/p_file_04 ${ulib}50,z305,0,,00 >>& $TMPDIR/$konvlog
echo '###' p_file_04 z76 >>& $TMPDIR/$konvlog
csh -f $aleph_proc/p_file_04 ${ulib}50,z76,0,,00 >>& $TMPDIR/$konvlog
echo '###' p_file_04 z72 >>& $TMPDIR/$konvlog
csh -f $aleph_proc/p_file_04 ${ulib}50,z72,0,,00 >>& $TMPDIR/$konvlog
echo '###' p_file_04 z68 >>& $TMPDIR/$konvlog
csh -f $aleph_proc/p_file_04 ${ulib}50,z68,0,,00 >>& $TMPDIR/$konvlog
echo '###' p_file_04 z601 >>& $TMPDIR/$konvlog
csh -f $aleph_proc/p_file_04 ${ulib}50,z601,0,,00 >>& $TMPDIR/$konvlog
echo '###' p_file_04 z75 >>& $TMPDIR/$konvlog
csh -f $aleph_proc/p_file_04 ${ulib}50,z75,0,,00 >>& $TMPDIR/$konvlog
echo '###' p_file_04 z78 >>& $TMPDIR/$konvlog
csh -f $aleph_proc/p_file_04 ${ulib}50,z78,0,,00 >>& $TMPDIR/$konvlog
echo '###' p_file_04 z82 >>& $TMPDIR/$konvlog
csh -f $aleph_proc/p_file_04 ${ulib}50,z82,0,,00 >>& $TMPDIR/$konvlog
echo '###' p_file_04 z31 >>& $TMPDIR/$konvlog
csh -f $aleph_proc/p_file_04 ${ulib}50,z31,0,,00 >>& $TMPDIR/$konvlog
echo '###' p_file_04 z37 >>& $TMPDIR/$konvlog
csh -f $aleph_proc/p_file_04 ${ulib}50,z37,0,,00 >>& $TMPDIR/$konvlog
df1
echo '###' p_cir_30 z303 >>& $TMPDIR/$konvlog
csh -f $aleph_proc/p_cir_30 ${ulib}50,z303.seq,z303,NEW >>& $TMPDIR/$konvlog
echo '###' p_cir_30 z70 >>& $TMPDIR/$konvlog
csh -f $aleph_proc/p_cir_30 ${ulib}50,z70.seq,z70,NEW >>& $TMPDIR/$konvlog
# echo '###' USRPOZN >>& $TMPDIR/$konvlog
sqlplus ${llib}50/`get_ora_passwd ${llib}50` @/aleph/eutil/sql/usrpozn.sql >>& $TMPDIR/$konvlog
echo '###' p_manage_12 VAZBY >>& $TMPDIR/$konvlog
csh -f $aleph_proc/p_manage_12 ${ulib}50,Y,Y,0000000,9999999,0,01, >>& $TMPDIR/$konvlog

a10:
# prace v XXX10:
echo '###' INICIALIZACE XXX10 >>& $TMPDIR/$konvlog
dlib ${llib}10
$aleph_proc/util_a_17_b table all >>& $TMPDIR/$konvlog
$aleph_proc/util_a_17_b index all >>& $TMPDIR/$konvlog
source /aleph/eutil/for_ipri/util_g_03
ds
grep -v NKCAU accref.s > accref.s1
grep -v NKCMT accref.s1 > accref.s2
echo '###' KONV DO ANSEL ACCREF >>& $TMPDIR/$konvlog
~ptacko/konv_ansel accref.s2 accref.seq
echo '###' p_manage_18 accref >>& $TMPDIR/$konvlog
csh -f $aleph_proc/p_manage_18 ${ulib}10,accref.seq,match,OLD,NO-FIX,N,NONE,REP,X,,,0,00, >>& $TMPDIR/$konvlog

# a60:
# prace v XXX60:
# echo '###' INICIALIZACE XXX60 >>& $TMPDIR/$konvlog
# dlib ${llib}60
# $aleph_proc/util_a_17_b table all >>& $TMPDIR/$konvlog
# $aleph_proc/util_a_17_b index all >>& $TMPDIR/$konvlog
# source /aleph/eutil/for_ipri/util_g_03
# ds
# echo '###' KONVERZE HOL_COPIES DO ANSEL >>& $TMPDIR/$konvlog
# ~ptacko/konv_ansel hol_copies.s hol_copies.seq >>& $TMPDIR/$konvlog
# # csh -f $aleph_proc/p_manage_22 ${ulib}60,hol_iss.s,hol_iss.seq,L,W,N,0,00,
# grep '^.\{29\}15' issue.seq > issue.s
# echo '###' POZNAMKY K SERIALUM >>& $TMPDIR/$konvlog
# awk -f /aleph/eutil/conv/issuenote -v f1=issue.s hol_iss.s > hol_iss.s1
# grep -v '^#######' hol_iss.s1 > hol_iss.s2
# ~ptacko/konv_ansel hol_iss.s2 hol_iss.seq >>& $TMPDIR/$konvlog
# echo '###' p_manage_18 hol_copies >>& $TMPDIR/$konvlog
# csh -f $aleph_proc/p_manage_18 ${ulib}60,hol_copies.seq,match,OLD,NO-FIX,N,NONE,REP,X,,,0,00, >>& $TMPDIR/$konvlog
# echo '###' p_manage_18 hol_iss >>& $TMPDIR/$konvlog
# csh -f $aleph_proc/p_manage_18 ${ulib}60,hol_iss.seq,match,OLD,NO-FIX,N,NONE,REP,X,,,0,00, >>& $TMPDIR/$konvlog
# echo '###' uz je uplne konec >>& $TMPDIR/$konvlog

a01b:
# prace v XXX01:
dlib ${llib}01
echo '###' p_manage_02 REJSTRIKY >>& $TMPDIR/$konvlog
csh -f $aleph_proc/p_manage_02 ${ulib}01,N,0000000,9999999,0,00, >>& $TMPDIR/$konvlog
echo '###' p_manage_05 INDEXY >>& $TMPDIR/$konvlog
csh -f $aleph_proc/p_manage_05 ${ulib}01,0,00, >>& $TMPDIR/$konvlog
echo '###' p_manage_01 SLOVA >>& $TMPDIR/$konvlog
csh -f $aleph_proc/p_manage_01 ${ulib}01,N,0000000,9999999,0,00, >>& $TMPDIR/$konvlog
echo '###' p_manage_27 SORT >>& $TMPDIR/$konvlog
csh -f $aleph_proc/p_manage_27 ${ulib}01,0,00, >>& $TMPDIR/$konvlog
# csh -f /aleph/a50_5/aleph/proc/p_manage_29 ${ulib}01,20000505,0000000,9999999,0,01, >>& $TMPDIR/$konvlog

a02b:
# prace v XXX02:
dlib ${llib}02
echo '###' p_manage_02 REJSTRIKY >>& $TMPDIR/$konvlog
csh -f $aleph_proc/p_manage_02 ${ulib}02,N,0000000,9999999,0,00, >>& $TMPDIR/$konvlog
echo '###' p_manage_05 INDEXY >>& $TMPDIR/$konvlog
csh -f $aleph_proc/p_manage_05 ${ulib}02,0,00, >>& $TMPDIR/$konvlog
echo '###' p_manage_01 SLOVA >>& $TMPDIR/$konvlog
csh -f $aleph_proc/p_manage_01 ${ulib}02,N,0000000,9999999,0,00, >>& $TMPDIR/$konvlog
echo '###' p_manage_27 SORT >>& $TMPDIR/$konvlog
csh -f $aleph_proc/p_manage_27 ${ulib}02,0,00, >>& $TMPDIR/$konvlog

a50b:
# prace v XXX50:
dlib ${llib}50
echo '###' p_manage_02 REJSTRIKY >>& $TMPDIR/$konvlog
csh -f $aleph_proc/p_manage_02 ${ulib}50,N,0000000,9999999,0,00, >>& $TMPDIR/$konvlog
echo '###' p_manage_05 INDEXY >>& $TMPDIR/$konvlog
csh -f $aleph_proc/p_manage_05 ${ulib}50,0,00, >>& $TMPDIR/$konvlog
echo '###' p_manage_01 SLOVA >>& $TMPDIR/$konvlog
csh -f $aleph_proc/p_manage_01 ${ulib}50,N,0000000,9999999,0,00, >>& $TMPDIR/$konvlog
echo '###' p_manage_27 SORT >>& $TMPDIR/$konvlog
csh -f $aleph_proc/p_manage_27 ${ulib}50,0,00, >>& $TMPDIR/$konvlog
# csh -f /aleph/a50_5/aleph/proc/p_manage_29 ${ulib}02,20000505,0000000,9999999,0,01, >>& $TMPDIR/$konvlog

konec:
echo '###' uz je uplne konec ale doopravdy >>& $TMPDIR/$konvlog