HP 3000 Manuals HP 3000 Manuals
LIST CHANGE
Provides a list of the changes between an early active version of a
source file and a later active version of the same source file.
Syntax
L[IST] C[HANGE] filename[version range] [|TO| LP]
Parameters
Filename Name of file whose version changes you want to list.
Version Range Specifies the versions of the file. Changes made while
each version was the Latest version will be listed. If
no version is specified, changes are listed for the
Latest version if you own the file and for the reference
version if you do not own it or have issued a USE on it.
TO LP Generates a line printer listing of the version changes.
The output is sent to Toollist instead of to your
terminal ($STDLIST).
Description
If a range of versions is specified, changes are listed for each version
separately. If neither a version designator or a range is specified,
changes will be listed for the:
(1) Latest version of an owned file
(2) Reference version of a file that you do not own or for
which a USE has been done
Records that have been deleted from a version will be listed and labelled
with a "D" . Records that have been added will be labelled with an "A" .
Modified records will be labelled with an "M" followed by another line
containing the modified text.
Example
>>LIST CHANGE YOURFILE#3/#LATEST
-->VERSION #3
A 321
A 321.01 [LINECOUNT -- COUNT LINES IN STANDARD INPUT ]
A 321.02 PROCEDURE LINECOUNT;
A 321.03 VAR NL : INTEGER;
A 321.04 C : CHARACTER;
A 321.05 BEGIN
A 321.06 NL:=0;
A 321.07 WHILE (GETC(C)
ENDFILE) DO
A 321.08 IF (C = NEWLINE THEN NL:= NL+1;
A 321.09 PUTDEC(NL,1);
A 321.1 PUTC(NEWLINE);
A 321.11 END;
-->VERSION #4
M 321.03 VAR NL : INTEGER;
321.03 VAR NL : INTEGER; C : CHARACTER;
D 321.04 C : CHARACTER;
-->VERSION #5
A 61.71
M 321.09 PUTDEC(NL,1);
321.09 PUTDEC(NEWLINE,1);
M 321.1 PUTC(NL);
321.1 PUTC(NEWLINE);
A 322
>>PURGE YOURFILE#4
>>LIST CHANGE YOURFILE#3/#6
-->VERSION #3
A 321
A 321.01 {LINECOUNT -- COUNT LINES IN STANDARD INPUT}
A 321.02 PROCEDURE LINECOUNT;
A 321.03 VAR NL : INTEGER;
A 321.04 C : CHARACTER;
A 321.05 BEGIN
A 321.06 NL:=0;
A 321.07 WHILE (GETC(C)
ENDFILE) DO
A 321.08 IF (C = NEWLINE) THEN NL:= NL+1;
A 321.09 PUTDEC(NL,1);
A 321.1 PUTC(NEWLINE);
A 321.11 END;
M 360 INPUT_PROC;
360 COPY;
-->VERSION #5
A 61.71
M 321.03 VAR NL : INTEGER;
321.03 VAR NL : INTEGER; C : CHARACTER;
D 321.04 C : CHARACTER;
M 321.09 PUTDEC(NL,1);
321.09 PUTDEC(NEWLINE,1);
M 321.1 PUTC(NL);
321.1 PUTC(NEWLINE);
A 322
-->VERSION #6