Compaq DEC Text Processing Utility AA-PWCBD-TE - Manual (Page 7)

A Sample DECTPU Procedures
A.1 Line-Mode Editor . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . A–1
A.2 Translation of Control Characters . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . A–2
A.3 Restoring Terminal Width Before Exiting from DECTPU . . . . . . . . . . . . . A–6
A.4 Running DECTPU from an OpenVMS Subprocess . . . . . . . . . . . . . . . . . . A–7
B DECTPU Terminal Support
B.1 Using Screen-Oriented Editing on Supported Terminals . . . . . . . . . . . . . . B–1
B.1.1 Terminal Settings on OpenVMS Systems That Affect DECTPU . . . . . B–1
B.1.2 SET TERMINAL Command . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . B–3
B.2 Using Line-Mode Editing on Unsupported Terminals . . . . . . . . . . . . . . . . B–3
B.3 Using Terminal Wrap . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . B–3
C DECTPU Debugger Commands
Index
Examples
1–1 Sample User-Written Procedure . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 1–7
2–1 DCL Command Procedure FILENAME.COM . . . . . . . . . . . . . . . . . . . . 2–4
2–2 DCL Command Procedure FORTRAN_TS.COM . . . . . . . . . . . . . . . . . 2–4
2–3 DCL Command Procedure INVISIBLE_TPU.COM . . . . . . . . . . . . . . . 2–5
2–4 DECTPU Command File GSR.TPU . . . . . . . . . . . . . . . . . . . . . . . . . . . 2–5
3–1 Suppressing the Addition of Padding Blanks . . . . . . . . . . . . . . . . . . . . 3–10
4–1 Global and Local Variable Declarations . . . . . . . . . . . . . . . . . . . . . . . . 4–5
4–2 Global and Local Constant Declarations . . . . . . . . . . . . . . . . . . . . . . . 4–6
4–3 Procedure That Uses Relational Operators on Markers . . . . . . . . . . . . 4–11
4–4 Simple Procedure with Parameters . . . . . . . . . . . . . . . . . . . . . . . . . . . 4–16
4–5 Complex Procedure with Optional Parameters . . . . . . . . . . . . . . . . . . . 4–17
4–6 Procedure That Returns a Result . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 4–18
4–7 Procedure Within Another Procedure . . . . . . . . . . . . . . . . . . . . . . . . . . 4–18
4–8 Recursive Procedure . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 4–19
4–9 Procedure That Uses the CASE Statement . . . . . . . . . . . . . . . . . . . . . 4–22
4–10 Procedure That Uses the ON_ERROR Statement . . . . . . . . . . . . . . . . 4–24
4–11 Procedure with a Case-Style Error Handler . . . . . . . . . . . . . . . . . . . . . 4–26
4–12 Procedure That Returns a Value . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 4–28
4–13 Procedure That Returns a Status . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 4–29
4–14 Using RETURN in an ON_ERROR Section . . . . . . . . . . . . . . . . . . . . . 4–29
4–15 Simple Error Handler . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 4–30
5–1 SHOW (SUMMARY) Display . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 5–2
5–2 Syntax of a DECTPU Program . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 5–3
5–3 Sample DECTPU Programs . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 5–4
5–4 Sample Program for a Section File . . . . . . . . . . . . . . . . . . . . . . . . . . . . 5–20
5–5 Source Code for Minimal Interface to DECTPU . . . . . . . . . . . . . . . . . . 5–22
5–6 Command File for GOTO_TEXT_MARKER . . . . . . . . . . . . . . . . . . . . . 5–25
5–7 SHOW DEFAULTS BUFFER Display . . . . . . . . . . . . . . . . . . . . . . . . . 5–27
vii