SETUPV - A sub-routine to display specified data to the current SYS$OUTPUT
             when control-V is typed.

        SETUPV takes two arguments by reference.

            1.  The first is the starting address of the data to be displayed
                (in COBOL, this is the dataname).

            2.  The second is an integer specifying the number of consecutive
                bytes after the above address to be displayed. In COBOL, use
                a COMP SYNC data item.

        EXAMPLE:

IDENTIFICATION DIVISION.
PROGRAM-ID.   VTEST.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER.  VAX-11.
OBJECT-COMPUTER.  VAX-11.
SPECIAL-NAMES.
    CONSOLE IS CONSOL.
*
*INPUT-OUTPUT SECTION.
*
*FILE-CONTROL.
/
DATA DIVISION.
*FILE SECTION.

/
WORKING-STORAGE SECTION.
77  CHARSTRING         PIC X(6).
77  NUM-SIX            PIC 9 VALUE 6 COMP SYNC.
/
PROCEDURE DIVISION.
*
MAIN-PROC-DRIVER.
    CALL "SETUPV" USING BY REFERENCE CHARSTRING
                        BY REFERENCE NUM-SIX.
0100-AGAIN.
    MOVE "ZERO"   TO CHARSTRING.
    MOVE "ONE"    TO CHARSTRING.
    MOVE "TWO"    TO CHARSTRING.
    MOVE "THREE"  TO CHARSTRING.
    MOVE "FOUR"   TO CHARSTRING.
    MOVE "FIVE"   TO CHARSTRING.
    MOVE "SIX"    TO CHARSTRING.
    MOVE "SEVEN"  TO CHARSTRING.
    MOVE "EIGHT"  TO CHARSTRING.
    MOVE "NINE"   TO CHARSTRING.
    GO TO 0100-AGAIN.
0200-EXIT.
    STOP RUN.