Category : Databases and related files
Archive   : DLITE10.ZIP
Filename : OUTPUT.FRB

RF
ÞÜï ­ €
3
PFLAG­=
OÓ
 OUT_SPEC)(

„ ­!
 OUT_SPEC3
TMPFILE­=
O­*
 FILENAME
.OUTd3
TMPFILE­=
O­'OÓ
TMPFILE) ­!

OUTPUT -
 FILENAMEd3

„@S

ˆT@s

„@“

„­ H­ 

„ð?3

„“
TMPFILE
) (the OUTPUT file spec) cannot be found.d­:
OÓ
TONES ­!

Œ‰@3

„ð?

ˆ.@­O­'

Ì Œ@3

„ð?

ˆ.@­­
­3
­ O­'OÓ
 CRITERIA)(

„A ­!
SELREC­+`
O­'

OUTPUT - 
 FILENAMEd3

ˆ5@S

ˆT@s

„@“

„­ H­ ï
USE &FILENAME-ÿOÓ  ­!3

„@S

ˆT@­ HOÓ
TONES ­!

Œ‰@3

„ð?

ˆ.@­O­'

Ì Œ@3

„ð?

ˆ.@­

„ð?3

„“
%File is empty. OUTPUT not available.­:
­
­3
­ O­'­4
­4


3
OUTINDX­=
OÓ
 INI_SPEC)(

„ ­!
 INI_SPEC3
TMPFIL2­=
O­*
 FILENAME
.INId3
TMPFIL2­=
O­'OÓ
TMPFIL2) ­!
TMPFIL23

„ð?­%
/Ó

„ð?) ­+


TMPFLD3

„ð?­%€OÓ

„ð?)
TMPFLD

„ð?

„ð?iK
*¡ ­!

3
OOPS­=

OOPS=MESSAGE()­ï
&TMPFLD-ÿ­OÓ
OOPS)(

„¡ ­!3
_ERRORS
OOPS
CODE:
TMPFLDd
FILE:
TMPFIL2d­=`
O­'O­'/­(
3

„ð?­%O­'­+Ó
OUTINDX)(

„ ­5ï
SET INDEX TO &OUTINDX-ÿÓ
 LEADINDX)(

„ ­5ï
SET INDEX TO &LEADINDX-ÿ­)OÓ
 CRITERIA)(

„ ­!ï
SET FILTER TO &CRITERIA-ÿO­'­#

Í Press to abort. ÍÍÍ­ N
TMPFILE3

„ð?­%
/Ó

„ð?) ­+


TMPFLD3

„ð?­%€OÓ

„ð?)
TMPFLD

„ð?

„ð?iK
*¡ ­!

3
OOPS­=

OOPS=MESSAGE()­ï
&TMPFLD-ÿ­OÓ
OOPS)(

„¡ ­!3
_ERRORS
OOPS
CODE:
TMPFLDd
FILE:
TMPFILEd­=`
O­'O­'/­(
3

„ð?­%­ I­3OÓ
PFLAG ­!­
O­*OÓ
 LPTRESET)(

„ ­!
 LPTRESET­;O­'­ ­ €O­'OÓ
 RST_SPEC)(

„ ­!
 RST_FILE3
TMPFIL2­=
O­*
 FILENAME
.RSTd3
TMPFIL2­=
O­'OÓ
TMPFIL2) ­!
TMPFIL23

„ð?­%
/Ó

„ð?) ­+


TMPFLD3

„ð?­%€OÓ

„ð?)
TMPFLD

„ð?

„ð?iK
*¡ ­!

3
OOPS­=

OOPS=MESSAGE()­ï
&TMPFLD-ÿ­OÓ
OOPS)(

„¡ ­!3
_ERRORS
OOPS
CODE:
TMPFLDd
FILE:
TMPFIL2d­=`
O­'O­'/­(
3

„ð?­%O­'­3
­