The VAX BASIC or DEC BASIC SUBEND statement is a synonym for the END statement used in combination with the block keyword SUB. See the END statement for more information on the END statement.

Translated Equivalent

The VAX BASIC or DEC BASIC SUBEXIT statement is a synonym for the EXIT statement used in combination with the block keyword SUB. See the EXIT statement for more information.

Translated Equivalent

The VAX BASIC or DEC BASIC SUM$ function returns a string whose value is the sum of two numeric strings.

Translated Equivalent

Remarks

The VAX BASIC or DEC BASIC SWAP% function transposes a WORD integer's bytes.

Translated Equivalent

Remarks

When used inside the VAX BASIC or DEC BASIC PRINT statement, the TAB function moves the cursor or print mechanism to a specified column. When used outside the VAX BASIC or DEC BASIC PRINT statement, the TAB function creates a string containing the specified number of spaces.

Translated Equivalent

Inside PRINT Statement
DECBAS_TAB

Outside PRINT Statement
Space

Remarks

Example

A = TAB(20)

Translator Output

A=SPACE$(20)

VAX BASIC or DEC BASIC Input (Outside PRINT Statement)

PRINT A;TAB(20);B

Translator Output

DECBAS_PRINT 0,A,DECBAS_SEMI,(20),DECBAS_TAB+DECBAS_SEMI,B,DECBAS_EOL

The VAX BASIC or DEC BASIC TAN function returns the tangent of an angle in radians or degrees.

Translated Equivalent

Remarks

The VAX BASIC or DEC BASIC TIME function returns the time of day (in seconds) as a floating-point number. The TIME function can also return process CPU time and connect time.

Translated Equivalent

Remarks

The VAX BASIC or DEC BASIC TIME$ function returns a string displaying the time of day in the form hh:mm A.M. or hh:mm P.M.

Translated Equivalent

The VAX BASIC or DEC BASIC TRM$ function removes all trailing blanks and tabs from a specified string.

Translated Equivalent

The VAX BASIC or DEC BASIC UBOUND function returns the upper bounds of a compile-time or run-time dimensioned array.

Translated Equivalent

The VAX BASIC or DEC BASIC UNLESS qualifier modifies a statement. The compiler executes the modified statement only if a conditional expression is false.

Translated Equivalent

The VAX BASIC or DEC BASIC UNLOCK statement unlocks the current record or bucket locked by the last FIND or GET statement.

Translated Equivalent

Example

UNLOCK #3%

Translator Output

DECBAS_UNLOCK 3

The VAX BASIC or DEC BASIC UNTIL statement marks the beginning of an UNTIL loop or modifies the execution of another statement.

Translated Equivalent

The VAX BASIC or DEC BASIC UPDATE statement replaces a record in a file with the record in the record buffer. The UPDATE statement is valid on sequential, relative, and indexed files.

Translated Equivalent

[ ,COUNT_SIZE:= int-exp ]

Remarks

Example

UPDATE #4, COUNT 3

Translator Output

DECBAS_UPDATE CHANNEL:= 4,COUNT_SIZE:= 3

The VAX BASIC or DEC BASIC VAL function converts a numeric string to a floating-point value.

Translated Equivalent

Remarks

VAL("3 45")

Alternatively given the following example, VAX BASIC or DEC BASIC returns an error message and Visual Basic returns 1615198 :

VAL("1615 198th street N.E.")

The VAX BASIC or DEC BASIC VAL% function converts a numeric string to an integer.

Translated Equivalent

Remarks

VAX BASIC or DEC BASIC VMSSTATUS function returns the underlying OpenVMS condition code when control is transferred to a VAX BASIC or DEC BASIC error handler.

Translated Equivalent

Remarks

The VAX BASIC or DEC BASIC WAIT statement specifies the number of seconds that the program waits for terminal input before signaling an error.

Translated Equivalent

Example

WAIT 60

Translator Output

DECBAS_WAIT 60

The VAX BASIC or DEC BASIC WHEN ERROR statement marks the beginning of a WHEN ERROR construct. The WHEN ERROR construct contains a protected region and can include an attached handler or identify a detached handler.

Translated Equivalent

Remarks

Examples

HANDLER HAND1 ! Handler SELECT ERR CASE = 50 CONTINUE CASE ELSE EXIT HANDLER END SELECT END HANDLER

Translator Output

GOTO DECBAS_000025 HAND1: ! Handler SELECT CASE DECBAS_ERR CASE=50 RESUME NEXT CASE ELSE ERR.RAISE NUMBER=ERR.NUMBER END SELECT RESUME NEXT DECBAS_000025:

VAX BASIC or DEC BASIC Input (Block Example)

WHEN ERROR USE HAND1 ! WHEN block X = Y/0 END WHEN

Translator Output

ON ERROR GOTO HAND1 X=Y/0 ON ERROR GOTO 0

VAX BASIC or DEC BASIC Input (with Attached Handler)

WHEN ERROR IN ! WHEN block X = Y/0 USE ! Handler SELECT ERR CASE = 50 CONTINUE CASE ELSE Y = 0 RETRY END SELECT END WHEN

Translator Output

ON ERROR GOTO DECBAS_000001 ! WHEN block X=Y/0 ON ERROR GOTO 0 GOTO DECBAS_000002 DECBAS_000001: ! Handler SELECT CASE DECBAS_ERR CASE=50 RESUME NEXT CASE ELSE Y=0 RESUME END SELECT RESUME NEXT DECBAS_000002:

The VAX BASIC or DEC BASIC WHILE statement marks the beginning of a WHILE loop or modifies the execution of another statement.

Translated Equivalent

The VAX BASIC or DEC BASIC XLATE$ function translates one string to another by referencing a table string that you supply.

Translated Equivalent

<recto_head>(cancel_h) <verso_head>(cancel_h)