emacs/nxhtml/tests/in/question49234.sh

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