box locations of tapes

input files

col 1 = tape number
col 2 = n

col 1 = tape number
col 2 = u

output file

to read:

e_scan("tapebox.txt",character(),sep=",")
f_matrix(e,ncol=4,byrow=T)

f[,1]	tapeno	tape number
f[,2]	n or u	NOR-CAL or UCDATA
f[,3]	boxno	box number
f[,4]	boxseq	sequence number in box

method

NOR-CAL tapes (117 boxes)
# 1914 tape numbers from FPro database
cd $PDOCS/gss/norcal
cp -p ../tlist.bynumber.txt temp.1

splus
e_scan("temp.1",character(),sep="\t")
f_matrix(e,ncol=14,byrow=T)
cat(f[,4],fill=6,file="1914tapes.txt")
q()

cp 1914tapes.txt norcal_tapes.txt
# edit from handwritten sheets (117 boxes)
vi norcal_tapes.txt
rm temp.1

UCDATA tapes (12 boxes)
# 230 tape numbers from FPro high use database
cd $PDOCS/gss/norcal
cp -p ../50bslot.txt temp.2

splus

g_scan("temp.2",character(),sep="\t")
h_matrix(g,ncol=14,byrow=T)
cat(h[,4],fill=6,file="230tapes.txt")
cp 230tapes.txt ucdata_tapes.txt
# edit from handwritten sheets (12 boxes)
vi ucdata_tapes.txt
rm temp.2

to write:
cd $PDOCS/gss/norcal

splus

# box numbers
a_sort(rep(558043:558171,17))
# sequence numbers within boxes
b_rep(c(1:17),129)

# tape numbers and u/n codes
i1_scan("norcal_tapes.txt",character(),sep=",")
i1a_matrix(i1,ncol=2,byrow=T)
i2_scan("ucdata_tapes.txt",character(),sep=",")
i2a_matrix(i2,ncol=2,byrow=T)
i_rbind(i1a,i2a)
# tape numbers, u/n codes, box numbers, sequence numbers
d_cbind(i,a,b)
cat(t(d),sep=",",fill=18,file="tapebox.txt")