Revision as of 19:16, 14 January 2014 (view source) rosettacode>Edward H m (Fixed bugs.) ← Older edit		Latest revision as of 08:39, 1 September 2022 (view source) PureFox (talk \| contribs) m (Fixed syntax highlighting.)
Line 8: snusp.cob: <~~lang~~syntaxhighlight lang="cobol"> >>SOURCE FREE IDENTIFICATION DIVISION. PROGRAM-ID. snusp-interpreter. Line 394: "memory as a number." . END PROGRAM display-help.</~~lang~~syntaxhighlight> dd-code-area.cpy: <~~lang~~syntaxhighlight lang="cobol">01 code-area. 03 num-lines PIC 9(4) COMP. 03 code-lines OCCURS 1 TO 1024 TIMES DEPENDING ON num-lines INDEXED BY line-idx. 05 code-chars PIC X OCCURS 100 TIMES.</~~lang~~syntaxhighlight> dd-flag-constants.cpy: <~~lang~~syntaxhighlight lang="cobol">01 Flag-Indicator CONSTANT "-". 01 Help-Flag-Char CONSTANT "h". 01 Read-Num-Flag-Char CONSTANT "r". 01 Write-Num-Flag-Char CONSTANT "w".</~~lang~~syntaxhighlight> dd-program-arguments.cpy: <~~lang~~syntaxhighlight lang="cobol">01 program-arguments. 03 code-file-path PIC X(100). 03 read-flag PIC X. 88 read-numbers VALUE "N". 03 write-flag PIC X. 88 write-numbers VALUE "N".</~~lang~~syntaxhighlight>

RCSNUSP/COBOL: Difference between revisions

RCSNUSP/COBOL (view source)