1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
#!/bin/ksh
. /bin/shared/.mkt.cfg
STORE_TMP=/tmp/stores.txt
cd /spool/xml
rm -f $STORE_TMP
bteq << EOF
.SESSIONS 1
.LOGON $UserId,$Password;
.EXPORT DATA FILE "$STORE_TMP"
select division_id,store_id,
trim(store)||' '||trim(store_addr_line2_txt)||', '||
trim(store_city)
from stores
where status_id='A'
and division_id in (517,1920,2445)
order by division_id,store_city,store_id;
.EXIT 0
EOF
perl <<EOF > $1
print qq(<?xml version="1.0" encoding="utf-8"?>\n<stores>);
open IN, '<$STORE_TMP';
while (read IN,\$info, 12) {
my (\$div, \$s) = unpack 'x2 i i', \$info; # read binary nums
\$_ = <IN>; # Read store name
chop; # Remove newline
s/(\w+)/\u\L\$1/g; # Title case
s/&/&/g; # Fix ampersands
s/"/"/g; # Fix quotes
printf qq(<s d="%02d" i="%d" n="%s"/>\n),\$div,\$s,\$_;
}
print "</stores>";
EOF
rm $STORE_TMP
|
