Re: DCL_CHECK.COM

On 3/24/2025 5:07 PM, Chris Townley wrote:

On 24/03/2025 20:29, Stephen Hoffman wrote:

On 2025-03-24 14:06:45 +0000, Chris Townley said:

I have version of this dated June 2003
I recall reading there was a newer version (? late 2024) but I cannot find the reference, nor any files online
>
Any suggestions?

>
Latest I'm aware of: https://www.digiater.nl/openvms/freeware/v80/dcl_check/

 Thanks - a lot of fixes in that!

I read the README and HLP and saw:
<quote>
The DCL_CHECK procedure detects a variety of DCL coding errors and
displays  diagnostic  messages  that  allow  you  to  correct  the
problems. See "Diagnostics" for a list of the types of errors that
DCL_CHECK can detect. See "Problems" for information on the limits
of DCL_CHECK.
...
      Errors related to file operations
NLN-S  An OPEN, READ, WRITE or CLOSE statement has no logical name
ONC-E  A file that is opened has no CLOSE statement
INR-E  A file that is opened for read is not read
ANR-E  A file that is opened for append is not written
ONW-E  A file that is opened for write is not written
RNR-S  A file that is not opened for read is being read
WNW-S  A file that is not opened for write or append is being written
UNU-S  A file that is not opened for read and write is being updated
CNO-S  A file that is closed has no OPEN statement
OCE-I  OPEN or CLOSE statement with /END qualifier
      Errors related to if-then-else-endif
INT-S  IF statement not terminated
EFB-S  "=" found between IF and THEN
ICO-S  invalid comparison or logical operator
TML-S  too many levels of IF statements
TRH-S  THEN statement required here
TNA-S  THEN statement not allowed here
ENA-S  ELSE statement not allowed here
DNA-S  ENDIF statement not allowed here
WCT-E  wrong constant type for comparison
MEC-S  missing expression for comparison
      Errors related to subroutines
SNT-S  SUBROUTINE statement not terminated
TMS-S  too many levels of IF and SUBROUTINE statements
RNA-S  ENDSUBROUTINE statement not allowed here
LNS-S  referenced label "<label>" is not in this subroutine
      Errors related to labels
DL--E  duplicate label "<label>"
RLI-S  referenced label "<label>" is in if-group at lines <range>
RLS-W  referenced label "<label>" is in subroutine at lines <range>
LNF-S  label "<label>" not found
TLS-I  target label "<label>" provided by symbol substitution
LDS-I  label "<label>" defined by symbol substitution
LNR-I  label "<label>" not referenced
      Errors related to parentheses and quotes
UMP-S  unmatched parentheses (not in quoted string)
USP-W  unmatched parentheses in quoted string
UMB-S  unmatched brackets (not in quoted string)
USB-W  unmatched brackets in quoted string
UPQ-S  unpaired quotation marks (")
PSQ-W  possible error using single-quote (') in quoted string
PRQ-E  probable error using single-quote (')
      Errors related to lexical functions
PTL-E  possible truncated lexical (<lexical>)
PML-E  possible misspelled lexical (<lexical>)
      Errors related to unreachable lines
CRE-W  code cannot be reached due to EXIT at line <line>
CRG-W  code cannot be reached due to GOTO at line <line>
      Errors related to continuation lines
CLD-S  continuation line starts with "$"
NCL-S  no continuation line at EOF
CCN-I  continuation character ("-") not preceded by space
CLS-I  comment line separates continuation line
      Errors related to $DECK and $EOD
DED-E  /DOLLARS w/ "$" does not work correctly
NED-S  no $EOD for $DECK at <line>
DFB-I  $DECK found between $DECK and $EOD
EFN-W  $EOD found with no corresponding $DECK
      Miscellaneous errors
ADE-E  equal sign (=) in ASSIGN or DEFINE
LC--S  line contains END_IF, END IF, GO_TO, GO TO, GO_SUB or GO SUB
BL--I  blank line
LOD-I  line contains only "$"
LFF-I  line contains only form-feed (<FF>)
LND-E  line does not start with "$"
ICF-W  invalid character found (#, %, ^ or &)
</quote>
Is it good?
Arne