Environment versions
Network:
Windows 2000 Server
Thank you for the information. We are currently blanking out the TAG and TAG2 fields. We are also modifying the EXPR field, replacing various values. The code we are using is overkill, but it is in place to fix a prior error.
IF '***DUPLEX' $ Expr
REPLACE Expr WITH STRTRAN(Expr, "***DUPLEX", "*DUPLEX")
ENDIF
IF '***DEVICE' $ Expr
REPLACE Expr WITH STRTRAN(Expr, "***DEVICE", "*DEVICE")
ENDIF
IF '***DRIVER' $ Expr
REPLACE Expr WITH STRTRAN(Expr, "***DRIVER", "*DRIVER")
ENDIF
IF '***OUTPUT' $ Expr
REPLACE Expr WITH STRTRAN(Expr, "***OUTPUT", "*OUTPUT")
ENDIF
IF '***DEFAULT' $ Expr
REPLACE Expr WITH STRTRAN(Expr, "***DEFAULT", "*DEFAULT")
ENDIF
IF '***PRINTQUALITY' $ Expr
REPLACE Expr WITH STRTRAN(Expr, "***PRINTQUALITY", "*PRINTQUALITY")
ENDIF
IF '***YRESOLUTION' $ Expr
REPLACE Expr WITH STRTRAN(Expr, "***YRESOLUTION", "*YRESOLUTION")
ENDIF
IF '***TTOPTION' $ Expr
REPLACE Expr WITH STRTRAN(Expr, "***TTOPTION", "*TTOPTION")
ENDIF
IF '**DUPLEX' $ Expr
REPLACE Expr WITH STRTRAN(Expr, "**DUPLEX", "*DUPLEX")
ENDIF
IF '**DEVICE' $ Expr
REPLACE Expr WITH STRTRAN(Expr, "**DEVICE", "*DEVICE")
ENDIF
IF '**DRIVER' $ Expr
REPLACE Expr WITH STRTRAN(Expr, "**DRIVER", "*DRIVER")
ENDIF
IF '**OUTPUT' $ Expr
REPLACE Expr WITH STRTRAN(Expr, "**OUTPUT", "*OUTPUT")
ENDIF
IF '**DEFAULT' $ Expr
REPLACE Expr WITH STRTRAN(Expr, "**DEFAULT", "*DEFAULT")
ENDIF
IF '**PRINTQUALITY' $ Expr
REPLACE Expr WITH STRTRAN(Expr, "**PRINTQUALITY", "*PRINTQUALITY")
ENDIF
IF '**YRESOLUTION' $ Expr
REPLACE Expr WITH STRTRAN(Expr, "**YRESOLUTION", "*YRESOLUTION")
ENDIF
IF '**TTOPTION' $ Expr
REPLACE Expr WITH STRTRAN(Expr, "**TTOPTION", "*TTOPTION")
ENDIF
IF '*DEVICE' $ Expr
ELSE
REPLACE Expr WITH STRTRAN(Expr, "DEVICE", "*DEVICE")
ENDIF
IF '*DRIVER' $ Expr
ELSE
REPLACE Expr WITH STRTRAN(Expr, "DRIVER", "*DRIVER")
ENDIF
IF '*OUTPUT' $ Expr
ELSE
REPLACE Expr WITH STRTRAN(Expr, "OUTPUT", "*OUTPUT")
ENDIF
IF '*DEFAULT' $ Expr
ELSE
REPLACE Expr WITH STRTRAN(Expr, "DEFAULT", "*DEFAULT")
ENDIF
IF '*PRINTQUALITY' $ Expr
ELSE
REPLACE Expr WITH STRTRAN(Expr, "PRINTQUALITY", "*PRINTQUALITY")
ENDIF
IF '*YRESOLUTION' $ Expr
ELSE
REPLACE Expr WITH STRTRAN(Expr, "YRESOLUTION", "*YRESOLUTION")
ENDIF
IF '*TTOPTION' $ Expr
ELSE
REPLACE Expr WITH STRTRAN(Expr, "TTOPTION", "*TTOPTION")
ENDIF
IF '*DUPLEX' $ Expr
ELSE
REPLACE Expr WITH STRTRAN(Expr, "DUPLEX", "*DUPLEX")
ENDIF
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only