\* --------------------------------------------------------------------
\* STN Express Script
\* Name:  pnlist2.sc
\* Function: Scanning project numbers and 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 numbers:
_pubnr = "c:\\stnexp\\trnscrpt\\pnlist2.txt"

=> file stnguide
echo ""
echo ""
open <_pubnr>

@start
read _line
if (_$filerror = 0) begin
if _line = "lastline"
goto @end

end
_projnum = SUBSTR(_line,1,9)
_pnum = SUBSTR(_line,11,12)
_both = "_projnum"+" - "+"_pnum"
if (_$filerror = 0) begin
echo _both
goto @start
end
close

@end
echo ""
echo ""
=> fil stnguide

\* --------------------------------------------------------------------