HP OpenVMS Systems

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)

A=SPACE$(20)

PRINT A;TAB(20);B

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%

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

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")

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

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:

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

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

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)