HP 3000 Manuals HP 3000 Manuals
ANS85I Table
Directive: ANS85
Definition: ANSI 85 Standard COBOL at Low and Intermaediate
Feature When Intro- Effect of Status
duced Directive
ADD GIVING: TO is allowed 1.5 -
ALL literal with no data item is 1.1 -
length of literal
ALPHABET allowed in alphabet-name 1.4 R
clause
ALPHABETIC-UPPER & -LOWER class tests 1.1 R
ALPHABETIC test includes lower-case 1.1 C
ANSI 85 Intermediate certification 1.4 G
ASSIGN TO nonnumeric literal LII -
Area-A can contain level-no/indicator LII -
Area-A can contain word after LII -
level-no/indicator
BLOCK CONTAINS:none means o/s-standard LII -
blocking
CALL: item that REDEFINEs param can be 1.1 -
referenced
CALL: parameters need not be 01- or LII -
77-levels
CALL: parameters can be subscripted 1.1 -
CLASS clause and class test 1.4 -
CODE-SET on mass-storage seq files 1.1 -
CONTINUE statement 1.1 R
COPY: debug lines work even if not 1.4 -
debug mode
COPY on a comment-line is a comment LII -
CURRENCY SIGN clause: fig constants LII -
not allowed
Collating seq: native used for LII -
ordering inx file
Comma and space interchangeable 1.1 -
Feature When Intro- Effect of Status
duced Directive
Conditional expressions evaluated LII -
left-to-right
Conditional exps: evaluation ends LII -
when value found
Configuration Section is optional 1.1 -
DISPLAY: ALL literal 1.1 -
DISPLAY: device to start of next line LII -
afterwards
Data Division is optional 1.1 -
Data-names need not be unique unless 1.1 -
referenced
EXIT PROGRAM implicit at end of every LII -
subprogram
EXIT PROGRAM need not be alone in LII -
sentence or para
Environment Division is optional 1.1 -
Explicit scope terminators 1.1 R
FILLER is allowed on group item LII -
FILLER is optional 1.1 -
FILLER can have REDEFINES clause 1.1 -
File position indicator 1.4 -
File-Control paragraph is optional 1.1 -
GO DEPENDING can have a single 1.1 -
procedure-name
I-O-statuses: new values 1.4 C
I-O-Control paragraph is optional 1.1 -
I-O-Control clauses in any order 1.1 -
IF with THEN LII -
INSPECT: subscripts evaluated at start LII -
of statement
LABEL RECORD clause is optional LII -
Lower-case letters LII -
NOT conditional phrases 1.1 -
Nonnumeric literal up to 160 1.1 -
characters
OCCURS: key need be unique only within 1.1 -
the table
ORGANIZATION a noise-word 1.4 -
Object-computer paragraph is optional 1.1 -
Feature When Intro- Effect of Status
duced Directive
PERFORM finishes if active when LII -
subprogram exits
PERFORM in-line 1.1 -
Picstring can end in comma 1.1 -
Picstring can end in dot sometimes LII -
Procedure Division is optional 1.1 -
REDEFINEing item can be bigger than LII -
REDEFINEd
Relation condition with >= and <= 1.1 -
Relation condition with 1.1 -
GREATER/LESS THAN OR EQUAL
Relative subscripting LII -
SET: index-names & identifiers as 1.1 -
receiving items
SET mnemonic-name ON/OFF 1.1 -
SIGN on elementary item overrides that 1.1 -
on group
SORT/MERGE: rel and inx files in 1.1 -
USING/GIVING
SORT/MERGE: inp/outp procs access LII -
other sections
SORT/MERGE: input/output procs can be LII -
paragraphs
SORT/MERGE: GIVING multiple file-names 1.4 -
SORT: USING and GIVING files on same 1.4 -
reel
SORT: DUPLICATES phrase 1.4 -
STANDARD-2 (ISO character set) 1.4 -
STOP RUN closes all open files in the LII -
run-unit
Sequence numbers can be nonnumeric 1.1 -
Source-computer paragraph can be empty 1.1 -
Source-computer paragraph is optional 1.1 -
Special-names: IS a noise-word 1.1 -
Subscripts and indexes can be mixed 1.1 -
Feature When Intro- Effect of Status
duced Directive
Switch with no condition-name 1.1 -
USAGE BINARY 1.1 R
USAGE PACKED-DECIMAL (synonymous 1.1 R
COMP-3)
USE: on file takes precedence over on 1.4 -
open-mode
User-defined name can be same as a 1.1 -
system-name
VALUE with or subordinate to OCCURS 1.4 -