Set(_SET_PRINTFILE,"LPT1") - Error TERM/2014 Create error: LPT1 (DOS Error 2)

[Eduardo-DNI]

Hello! I compiled some example code from the Guide for CA_Clipper in Harbor and found an error.

When saved, the current value of _SET_PRINTFILE has the value LPT1.

When will you rewrite the old value.....

SET(nCurrent, aNewSets[nCurrent])

in _SET_PRINTFILE the error occurs:

Error TERM/2014 Create error: LPT1 (DOS Error 2)

If the same code is compiled in Clipper5.2 _SET_PRINTFILE has no prior value. No execution error occurring.

Code:

include "Set.ch"

Main()

Function Main() Local aSets[_SET_COUNT]

    CLS
?"Starting..."

aSets := SetAll()
   SetAll(aSets)

?"Finished!"

Return(Nil)

Function SetAll( aNewSets ) Local aCurrentSets[_SET_COUNT], nCurrent If ( aNewSets != NIL ) // Set new and return current For nCurrent := 1 to _SET_COUNT aCurrentSets[nCurrent] := ; SET(nCurrent, aNewSets[nCurrent]) Next Else For nCurrent := 1 to _SET_COUNT aCurrentSets[nCurrent] := Set(nCurrent) Next Endif Return (aCurrentSets)