HP 3000 Manuals HP 3000 Manuals
ANS85I Table
Directive: ANS85
Definition: ANSI'85 Standard COBOL at Low and Intermediate
Levels
--------------------------------------------------------------------------------------------------
| | | | |
| Features | When Introduced | Effect of | Status |
| | | 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 | | |
| clause | | | |
| | | | |
| ALPHABETIC-UPPER & -LOWER class | 1.1 | | |
| tests | | | |
| | | | |
| ALPHABETIC test includes | 1.1 | C | |
| lower-case | | | |
| | | | |
| ANSI 85 Intermediate certification | 1.4 | | G |
| | | | |
| ASSIGN TO nonnumeric literal | LII | | |
| | | | |
| Area-A can contain | LII | | |
| level-no/indicator | | | |
| | | | |
| Area-A can contain word after | LII | | |
| level-no/indicator | | | |
| | | | |
| BLOCK CONTAINS:none means | LII | | |
| o/s-standard blocking | | | |
| | | | |
| CALL: item that REDEFINEs param | 1.1 | | |
| can be referenced | | | |
| | | | |
| CALL: parameters need not be 01- | LII | | |
| or 77-levels | | | |
| | | | |
| CALL: parameters can be | 1.1 | | |
| subscripted | | | |
| | | | |
| CLASS clause and class test | 1.4 | | |
| | | | |
| CODE-SET on mass-storage seq files | 1.1 | | |
| | | | |
| CONTINUE statement | 1.1 | | |
| | | | |
| COPY: debug lines work even if not | 1.4 | | |
| debug mode | | | |
| | | | |
| COPY on a comment-line is a | LII | | |
| comment | | | |
| | | | |
| CURRENCY SIGN clause: fig | LII | | |
| constants not allowed | | | |
| | | | |
--------------------------------------------------------------------------------------------------
Table 23-0. (cont.)
--------------------------------------------------------------------------------------------------
| | | | |
| Features | When Introduced | Effect of | Status |
| | | Directive | |
| | | | |
--------------------------------------------------------------------------------------------------
| | | | |
| Collating seq: native used for | LII | | |
| ordering inx file | | | |
| | | | |
| Comma and space interchangeable | 1.1 | | |
| | | | |
| 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 | LII | | |
| line afterwards | | | |
| | | | |
| Data Division is optional | 1.1 | | |
| | | | |
| Data-names need not be unique | 1.1 | | |
| unless referenced | | | |
| | | | |
| EXIT PROGRAM implicit at end of | LII | | |
| every 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 | | |
| | | | |
--------------------------------------------------------------------------------------------------
Table 23-0. (cont.)
--------------------------------------------------------------------------------------------------
| | | | |
| Features | When Introduced | Effect of | Status |
| | | Directive | |
| | | | |
--------------------------------------------------------------------------------------------------
| | | | |
| INSPECT: subscripts evaluated at | LII | | |
| start 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 in | 1.1 | | |
| the table | | | |
| | | | |
| ORGANIZATION a noise-word | 1.4 | | |
| | | | |
| Object-computer paragraph is | 1.1 | | |
| optional | | | |
| | | | |
| 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 | 1.1 | | |
| | | | |
| Picstring with "P"; 0s assumed | LII | | |
| sometimes | | | |
| | | | |
| Procedure Division is optional | 1.1 | | |
| | | | |
| REDEFINEing item can be bigger | LII | | |
| than 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 | 1.1 | | |
| that on group | | | |
| | | | |
| SORT/MERGE: rel and inx files in | 1.1 | | |
| USING/GIVING | | | |
| | | | |
--------------------------------------------------------------------------------------------------
Table 23-0. (cont.)
--------------------------------------------------------------------------------------------------
| | | | |
| Features | When Introduced | Effect of | Status |
| | | Directive | |
| | | | |
--------------------------------------------------------------------------------------------------
| | | | |
| SORT/MERGE: inp/outp procs access | LII | | |
| other sections | | | |
| | | | |
| SORT/MERGE: input/output procs can | LII | | |
| be paragraphs | | | |
| | | | |
| SORT/MERGE: GIVING multiple | 1.4 | | |
| file-names | | | |
| | | | |
| SORT: USING and GIVING files on | 1.4 | | |
| same reel | | | |
| | | | |
| SORT: DUPLICATES phrase | 1.4 | | |
| | | | |
| STANDARD-2 (ISO character set) | 1.4 | | |
| | | | |
| STOP RUN closes all open files in | LII | | |
| the run-unit | | | |
| | | | |
| Sequence numbers can be nonnumeric | 1.1 | | |
| | | | |
| Source-computer paragraph can be | 1.1 | | |
| empty | | | |
| | | | |
| Source-computer paragraph is | 1.1 | | |
| optional | | | |
| | | | |
| Special-names: IS a noise-word | 1.1 | | |
| | | | |
| Subscripts and indexes can be | 1.1 | | |
| mixed | | | |
| | | | |
| 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 | 1.4 | | |
| on open-mode | | | |
| | | | |
| User-defined-name can be same as a | 1.1 | | |
| system-name | | | |
| | | | |
| VALUE with or subordinate to | 1.4 | | |
| OCCURS | | | |
| | | | |
--------------------------------------------------------------------------------------------------