Utility Routines

*TOOLS/STRIPLINES

Strip Line Numbers

Invocation

CALL "*tools/StripLines", progname$, password$, lbl_pfx$, lbl_opt, emsg$

Where:

progname$	Required	Input	Path of the program that you want to have line numbers stripped from.
password$	Optional	Input	Program password if required (null if no password).
lbl_pfx$	Optional	Input	Prefix for the label names to replace statement references (e.g. prefix "LBL" *(Default)* results in label names such as LBL_00010).
lbl_opt	Optional	Input	Determines the format of the numeric part of the label name: 0 = Uses sequential numbers *(Default)* 1 = Uses the original numeric statement reference
emsg$	Optional	Output	Warning messages normally displayed during a SAVE (such as missing/duplicate labels, number of program errors, etc.).

Description

This utility is a CALLed program that strips line numbers from the specified programs, and replaces statement references with labels.

Calling Sequence:

CALL "*tools/StripLines",ERR=*next,progname$,password$,lbl_pfx$,lbl_opt,emsg$

This program can be used to remove all line number references from a program and replace them with labels and/or logical statement labels such as *NEXT or *SAME.

Rules for line number replacement:

References by line number to lines labels will be replaced with reference to the existing label.
References to lines with no label will generate a new label (using the prefix followed by the line/sequence number).
References to line numbers that do not exist (between two lines) will generate new lines with labels.
References to the logical next line will be replaced with reference to *NEXT.
References to the same line will be replaced with reference to *SAME.

Note:
This program will EXIT ERR if an error is encountered.

(The StripLines utility was added in PxPlus v10.20.)

Utility Routines

Invocation

Description

Note: This program will EXIT ERR if an error is encountered.

Note:
This program will EXIT ERR if an error is encountered.