INTOUCH^® 4GL
A Guide to the INTOUCH Language

EXAMPLE:

INTOUCH ABORT INTOUCH Finished 1-MAY-1996 17:16 FAST$

DESCRIPTION:

ABORT aborts INTOUCH without saving your latest changes.

This statement passes the ABORT status to the operating system. In this way, INTOUCH applications can force a command procedure to abort.

You can also give ABORT an OPTIONAL status value, int_expr, to pass to the operating system. int_expr is an exit status code in decimal. This value will be passed to DCL as the reason why INTOUCH aborted.

INTOUCH ABORT 200 INTOUCH Finished 1-MAY-1996 17:16 %SYSTEM-W-GSDFULL, global section descriptor table is full $

"ABORT 200" produces the same result as:

$ exit %d200 %SYSTEM-W-GSDFULL, global section descriptor table is full $

2.3.5 RUN and RNH

FORMAT:

{RUN | RNH} ['file_spec']

EXAMPLE:

10 INPUT 'Your name, please': name$ 20 PRINT 'Hello, '; name$ 30 END RUN NONAME 21-APR-1996 17:40 Your name, please? Tester Hello, Tester INTOUCH

DESCRIPTION:

Use the RUN or RNH command to execute a program after it has been written.

The RUN command executes programs. RUN with no file specification (as in the above example) runs the current program in memory.

When INTOUCH executes the RUN command, INTOUCH displays a header with the program name, current date and time. INTOUCH then executes the program in memory.

You can give a file specification with the RUN command. If a file specification is provided, INTOUCH searches for the file, loads it, and then runs it. If no extension is given, INTOUCH will use the default extension .INT.

INTOUCH RUN 'testdisk:[programs]print_name' NONAME 21-APR-1996 17:40 Your name, please? Tester Hello, Tester INTOUCH

RNH runs the specified program without displaying the program header. Other than suppressing the header, RNH operates the same as the RUN command.

2.3.6 OLD

FORMAT:

OLD ['file_spec']

INTOUCH OLD 'print_name' Source lines compiled: 3 (6000/min) INTOUCH LIST PRINT_NAME 1-MAY-1996 20:32 10 INPUT 'Your name, please': name$ 20 PRINT 'Hello, '; name$ 30 END INTOUCH

DESCRIPTION:

The OLD command loads a program you have saved. It also shows the number of source lines compiled, and the source lines compiled per minute.

OLD searches for the file specified and loads it into current memory. file_spec is the specification for the file you are loading. If no extension is specified, INTOUCH uses the default extension .INT. If no file_spec is provided with the OLD command, INTOUCH tries to load the file carrying the current workspace name and an extension of .INT.

When INTOUCH loads a file, it assigns the file name (minus the extension) to the current workspace. The file name appears at the "Program:" heading in the upper right corner of the screen.

Note

When the OLD command is executed, any file previously in memory is lost.

The contents of any variables in the new program are cleared (set to zero for numeric variables and a null string for string variables).

If INTOUCH cannot find the file specified, an exception is generated and the file in current memory does not change.

2.3.7 LIST

FORMAT:

{LIST | LNH} [label | line_num | routine {- | ,} ...]

INTOUCH LIST PRINT_NAME 1-MAY-1996 20:32 10 INPUT 'Your name, please': name$ 20 PRINT 'Hello, '; name$ 30 END INTOUCH

DESCRIPTION:

Use the LIST command to display all or part of your program source code.

LIST displays lines from the program in current memory. The listing includes a header with the program name, current date and time. The LNH command suppresses the header. LIST (or LNH) by itself lists the entire program in current memory. It lists the program sorted sequentially by line number. If no program is in current memory, nothing will be listed.

LNH lists the program without displaying the program header. Other than suppressing the header, LNH operates the same as the LIST command.

Specific sections of a program can be listed by referencing the program's line numbers, labels and routines. You can also list a range of line numbers (low to high) and combinations of line numbers, labels and routines. For example:

LIST 500, 630, 710 lists lines 500, 630 and 710

LIST 210-230, 400 lists lines 210 thru 230 and line 400

LIST do_input lists the lines of code under the label "do_input"

LIST date_routine lists the lines in the "date_routine" routine

LIST 210-230, do_input lists a line range and the label lines

LIST 21000 lists from the line number to the end of the program

If a line is specified which does not exist, nothing is listed. INTOUCH displays program lines in the order requested. Therefore, lines can be listed out of sequential order.

2.3.8 LIST ERROR

FORMAT:

[LIST | LNH] ERROR [:label | line_num [- | ,] label | line_num...]

EXAMPLE:

LIST ERROR or LNH ERROR

DESCRIPTION:

LIST ERROR lists compile-time errors to the terminal. LIST ERROR displays the line number and the source code of all lines with errors. LNH ERROR lists the errors without the program header, date and time.

All available options for the LIST command are available with LIST ERROR.

2.3.9 EDIT

FORMAT:

EXAMPLE:

EDIT 410, 510-570, DO_TOTALS

PURPOSE:

EDIT allows you to make changes to your program using a full-screen text editor.

DESCRIPTION:

EDIT transfers control to an editor. The program or a specified part of it is placed in the editor. You can then modify the program using the editor. When the editor is exited, INTOUCH returns to the INTOUCH prompt.

The INTOUCH environment is integrated into the TPU editor with EDT keypad and INTOUCH extended features. The INTOUCH editor is automatically activated when you enter EDIT.

If you do not want to use the INTOUCH editor, you will need to define the logical, INTOUCH_EDITOR, to FALSE and the EDIT symbol to the editor of your choice.

$ DEFINE INTOUCH_EDITOR FALSE $ DEFINE EDIT == "EDIT/EDT"

EDIT by itself, puts the entire program in current memory. The program must be in current memory to use the EDIT command. Specific sections of a file can be edited by referencing the program's line numbers, labels and routines.

All available options for the LIST command are available to the EDIT command.

2.3.10 RENUMBER

FORMAT:

RENUMBER

EXAMPLE:

3 DIM name$(5) 5 FOR i = 1 TO 5 7 INPUT 'Your name, please': name$(i) 8 PRINT 'Hello, '; name$(i) 9 NEXT i 10 END RENUMBER Pass 1, scanning source statements Pass 2, changing line numbers Pass 3, rebuilding source code INTOUCH LNH 1000 DIM name$(5) 1010 FOR i = 1 TO 5 1020 INPUT 'Your name, please': name$(i) 1030 PRINT 'Hello, '; name$(i) 1040 NEXT i 1050 END

PURPOSE:

Use RENUMBER to renumber your program when you run out of room between line numbers.

DESCRIPTION:

RENUMBER operates on the program in current memory. RENUMBER renumbers or resequences the program in current memory. It takes the first line number and renumbers it 1000. Subsequent line numbers are incremented by ten and all references to line numbers are changed to match.

2.3.11 FRAME ON | OFF

FORMAT:

FRAME {ON | OFF}

EXAMPLE:

FRAME ON FRAME OFF

DESCRIPTION:

FRAME OFF clears the screen and turns the INTOUCH frame off. The INTOUCH frame consists of the highlighted bars across the top and bottom of the screen and the information they contain.

FRAME ON clears the screen and turns the INTOUCH frame on.

2.3.12 REFRESH

FORMAT:

REFRESH

EXAMPLE:

REFRESH

DESCRIPTION:

REFRESH repaints the INTOUCH screen. INTOUCH clears the screen and repaints the INTOUCH frame and prompt. This includes any other information that was on the screen.

2.3.13 IDE

FORMAT:

IDE

EXAMPLE:

DESCRIPTION:

IDE causes INTOUCH to display its copyright and version number. Use the version number when contacting Touch Technologies, Inc. with suggestions or problems.

2.3.14 COMPILE

FORMAT:

COMPILE

EXAMPLE:

COMPILE

PURPOSE:

Use COMPILE to compile your finished INTOUCH programs. Compiled INTOUCH programs can be run from outside the INTOUCH environment.

DESCRIPTION:

COMPILE converts the program in current memory into an INTOUCH RUN file. This RUN file can then be executed from outside the INTOUCH environment. COMPILE only works on the program in current memory.

When INTOUCH executes the COMPILE command, it compiles the source code and saves the compiled copy with the current workspace name and the extension .RUN (i.e. PRINT_NAME.RUN). If a compiled version of the file already exists, INTOUCH compiles the new version, saves it and increments the version number by 1.

You can run compiled programs by typing INTOUCH followed by the filename at the system prompt. For example:

$ INTOUCH print_name

The above command starts INTOUCH and runs the compiled version of the PRINT_NAME program. When execution is complete, INTOUCH will be exited and you will return to the system prompt.

2.3.14.1 Compiled Images

INTOUCH procedures and programs can also be compiled into fast-starting memory images. These images are activated within two seconds, regardless of the size of the INTOUCH procedure or program. The drawback of using compiled images is that they are very large. The minimum size is approximately 500 disk blocks. Image sizes increase in 256 block increments.

INTOUCH images are compiled from outside the INTOUCH environment. To compile into an image, use the following command:

$ INTOUCH/COMPILE filename Example: $ INTOUCH/COMPILE print_name

Compiled image files have a file extension of .INT_IMG for VAX systems and .INT_IMG_AXP for Alpha systems.

$ INTOUCH/COMPILE CUSTOMER will create: CUSTOMER.INT_IMG <--- on VAX systems CUSTOMER.INT_IMG_AXP <--- on Alpha systems

2.3.14.2 Running Compiled Images

You can run INTOUCH compiled images from outside of the INTOUCH environment. To run an image, use the following command format:

$ INTOUCH/IMAGE filename Example: $ INTOUCH/IMAGE customer

To set up a DCL symbol to run an INTOUCH compiled image, use the following command format:

$ symbolname :== '$INTOUCH_IMAGE filename/IMAGE' Example: $ MAINTAIN :== '$INTOUCH_IMAGE TTI_RUN:MAINTAIN/IMAGE'

2.3.15 Developing INTOUCH Programs

The following command entered at the system prompt:

$ INTOUCH/DEVELOP filename.INT Example: $ INTOUCH/DEVELOP sample_print.int

puts you into INTOUCH, OLD's in filename.INT and automatically replaces the file when you enter EXIT to exit INTOUCH.

This command streamlines the file change procedures by performing these steps for you:

$ INTOUCH gets into the INTOUCH environment OLD 'filename' brings the file into the workspace REPLACE 'filename' after you make your changes and enter EXIT, INTOUCH adds "1" to the version number and replaces the file

2.3.16 GO

FORMAT:

EXAMPLE:

DESCRIPTION:

Use GO to continue a program after it has been interrupted.

GO resumes program execution after it has been interrupted. Once execution has stopped, you can enter immediate mode and debug commands, change code, etc. GO lets you resume execution even after changing code. If a HALT or BREAK statement was used, execution resumes at the first statement after the HALT or BREAK.

10 DEBUG ON 20 FOR i = 1 TO 6 30 IF i = 4 THEN BREAK 40 NEXT i 50 END INTOUCH RNH BREAK at 30 INTOUCH PRINT SQR(i) 2 INTOUCH 35 PRINT i; GO 4 5 6 INTOUCH

2.3.17 UNSAVE

FORMAT:

UNSAVE ['file_spec']

EXAMPLE:

UNSAVE 'print_name'

DESCRIPTION:

UNSAVE deletes or unsaves the latest version of the file specified. The file_spec is the specification for the file. If no file_spec is given, INTOUCH uses the current workspace name and the default extension .INT. When INTOUCH executes the UNSAVE command, it searches for the file specified and then deletes that file. The source program will still remain in current memory.

Contents

Index

LIST 500, 630, 710	lists lines 500, 630 and 710
LIST 210-230, 400	lists lines 210 thru 230 and line 400
LIST do_input	lists the lines of code under the label "do_input"
LIST date_routine	lists the lines in the "date_routine" routine
LIST 210-230, do_input	lists a line range and the label lines
LIST 21000	lists from the line number to the end of the program

INTOUCH® 4GL A Guide to the INTOUCH Language

EXAMPLE:

DESCRIPTION:

2.3.5 RUN and RNH

FORMAT:

EXAMPLE:

DESCRIPTION:

FORMAT:

DESCRIPTION:

FORMAT:

DESCRIPTION:

FORMAT:

EXAMPLE:

DESCRIPTION:

FORMAT:

EXAMPLE:

PURPOSE:

DESCRIPTION:

FORMAT:

EXAMPLE:

PURPOSE:

DESCRIPTION:

FORMAT:

EXAMPLE:

DESCRIPTION:

FORMAT:

EXAMPLE:

DESCRIPTION:

FORMAT:

EXAMPLE:

DESCRIPTION:

FORMAT:

EXAMPLE:

PURPOSE:

DESCRIPTION:

FORMAT:

EXAMPLE:

DESCRIPTION:

FORMAT:

EXAMPLE:

DESCRIPTION:

INTOUCH^® 4GL
A Guide to the INTOUCH Language