\* ------------------------------------------------------------------
\* STN Express Script
\* Name:  pnlist1.sc
\* Function: Scanning publication numbers from an external file
\* Author:  Andreas Litscher, InfoLit Infobroker GmbH, CH-Bern
\* Date:  19.12.2007
\* ------------------------------------------------------------------

\* COMPANY SPECIFIC VARIABLES
\* Define the path and file name of the file
\* whitch contains the publication numbers:
_pubnr = "c:\\stnexp\\trnscrpt\\pnlist1.txt"

=> file stnguide
=> del his y

_counter = 0
echo ""
echo ""
open <_pubnr>

@start
read _pnum
_pnum = _pnum+"/pn"
if (_$filerror = 0) begin
echo _pnum
_counter = _counter + 1
goto @start

end
close

echo ""
echo "There are _counter Publication Numbers"
echo ""

=> file inpadocdb
open <_pubnr>

@start1
read _pnum
_pnum = _pnum+"/pn"
if (_$filerror = 0) begin
=> que _pnum
goto @start1

end
close
=> que L1-L_counter \> _pn

=> fil stnguide
=> d his ful
\* ------------------------------------------------------------------