HP 3000 Manuals HP 3000 Manuals
VSC2 Table
Directive: VSC2
Definition: IBM VS COBOL II
--------------------------------------------------------------------------------------------------
| | | | |
| Features | When Introduced | Effect of | Status |
| | | Directive | |
| | | | |
--------------------------------------------------------------------------------------------------
| | | | |
| ACCEPT FROM DAY-OF-WEEK | 1.1 | R | |
| | | | |
| ACCEPT FROM function-name | 1.1 | | |
| | | | |
| ACCEPTed items are converted to | LII | | |
| USAGE of target | | | |
| | | | |
| ALPHABETIC-UPPER & -LOWER class | 1.1 | R | |
| tests | | | |
| | | | |
| ALTERNATE RECORD KEY: RECORD is | 1.1 | | |
| noise-word | | | |
| | | | |
| Abbreviated conditions with | 1.1 | | |
| parentheses | | | |
| | | | |
| Apostrophe can be used as | LII | | |
| quotation mark | | | |
| | | | |
| BASIS statement | 1.1 | R | |
| | | | |
| BLANK WHEN ZERO overrides | 1.1 | | |
| zero-suppression | | | |
| | | | |
| BLANK WHEN ZERO(E)(S) | 2.0 | | |
| | | | |
| BLOCK CONTAINS 0 | 1.1 | | |
| CHARACTERS/RECORDS | | | |
| | | | |
| CALL: parameters need not be 01- | LII | | |
| or 77-levels | | | |
| | | | |
--------------------------------------------------------------------------------------------------
Table 23-0. (cont.)
--------------------------------------------------------------------------------------------------
| | | | |
| Features | When Introduced | Effect of | Status |
| | | Directive | |
| | | | |
--------------------------------------------------------------------------------------------------
| | | | |
| CALL: ADDRESS OF phrase (not | 1.3 | R | |
| special register) | | | |
| | | | |
| CALL: LENGTH OF phrase (not | 1.3 | | |
| special register) | | | |
| | | | |
| CALL: BY REFERENCE/CONTENT | 1.1 | R | |
| identifier | | | |
| | | | |
| CALL: literal in BY CONTENT phrase | 1.1 | | |
| | | | |
| COMPUTE: Intermediate results; >= | 1.1 | | |
| 30 digits used | | | |
| | | | |
| COMPUTE: EQUALS or EQUAL instead | 1.1 | | |
| of "=" | | | |
| | | | |
| CONTINUE statement | 1.1 | R | |
| | | | |
| COPY with SUPPRESS | 1.1 | R | |
| | | | |
| COPY with nested COPY | 1.1 | | |
| | | | |
| CORRESPONDING: items under FILLER | 1.1 | | |
| can match | | | |
| | | | |
| Compatibility with IBM VS COBOL II | 1.1 | G | |
| | | | |
| Compiler messages of several | 1.5 | | |
| levels | | | |
| | | | |
| Condition-name on group with | LII | | |
| non-DISPLAY sub-items | | | |
| | | | |
| Configuration Section is optional | 1.1 | | |
| | | | |
| DBCS | 2.0 | | I |
| | | | |
| DISPLAYed items are converted to | LII | | |
| USAGE DISPLAY | | | |
| | | | |
| DISPLAY UPON function-name | 1.1 | R | |
| | | | |
| Data-names need not be unique | 1.1 | | |
| unless referenced | | | |
| | | | |
| Date format as in IBM 370 COBOL | 1.1 | C | |
| | | | |
| Date format configurable | 2.1 | | I |
| | | | |
| Declarative for label (documentary | 1.1 | | |
| unless PERFORMed) | | | |
| | | | |
--------------------------------------------------------------------------------------------------
Table 23-0. (cont.)
--------------------------------------------------------------------------------------------------
| | | | |
| Features | When Introduced | Effect of | Status |
| | | Directive | |
| | | | |
--------------------------------------------------------------------------------------------------
| | | | |
| Declaratives: don't need all Proc | 1.1 | | |
| Div in sections | | | |
| | | | |
| Declaratives: don't need | 1.1 | | |
| following paragraph-name | | | |
| | | | |
| Declarative that hasn't exited can | LII | | |
| be invoked | | | |
| | | | |
| EBCDIC collating sequence | 1.1 | | |
| | | | |
| EJECT statement | 1.1 | R | |
| | | | |
| ENTER statement | LII | | D |
| | | | |
| ENTRY statement | 1.1 | R | D |
| | | | |
| ENTRY statement is not documentary | 1.1 | | I |
| | | | |
| EVALUATE: ALSO can be omitted | 1.1 | | I |
| | | | |
| EVALUATE | 1.1 | | |
| | | | |
| Explicit scope | 1.1 | | I |
| terminators:conditional phrase | | | |
| needed | | | |
| | | | |
| Explicit scope terminators | 1.1 | R | |
| | | | |
| FILLER is allowed on group item | LII | | |
| | | | |
| File-Control paragraph is optional | 1.1 | | |
| | | | |
| Function-name CSP | 1.1 | R | |
| | | | |
| Function-name S01 (documentary) | 1.1 | R | |
| | | | |
| Function-name S02 (documentary) | 1.1 | R | |
| | | | |
| Function-name C01 (documentary) | 1.1 | R | |
| | | | |
| Function-names C02 to | 1.1 | R | |
| C12(documentary) | | | |
| | | | |
| Function-name C01 as paper-tape | 1.5 | R | |
| loop | | | |
| | | | |
| Function-names C02 to C12 as | 1.5 | R | |
| paper-tape loop | | | |
| | | | |
| Function-name SYSIN | 1.1 | R | |
| | | | |
| Function-name SYSIPT | 1.1 | R | |
| | | | |
--------------------------------------------------------------------------------------------------
Table 23-0. (cont.)
--------------------------------------------------------------------------------------------------
| | | | |
| Features | When Introduced | Effect of | Status |
| | | Directive | |
| | | | |
--------------------------------------------------------------------------------------------------
| | | | |
| Function-name SYSLIST | 1.1 | R | |
| | | | |
| Function-name SYSLST | 1.1 | R | |
| | | | |
| Function-name SYSOUT | 1.1 | R | |
| | | | |
| Function-name SYSPNCH | 1.1 | R | |
| | | | |
| Function-name SYSPUNCH | 1.1 | R | |
| | | | |
| GOBACK statement | 1.1 | R | |
| | | | |
| I-O-status item can be 2-byte | 1.1 | | |
| numeric DISPLAY | | | |
| | | | |
| I-O-status: second item | 1.1 | | |
| (documentary) | | | |
| | | | |
| I-O-Control clauses in any order | 1.1 | | |
| | | | |
| IBM: Alignment rules like IBM with | 1.1 | | I |
| TRUNC directive | | | |
| | | | |
| ID DIVISION paragraphs in any | 1.1 | | |
| order | | | |
| | | | |
| ID abbreviation for IDENTIFICATION | 1.1 | R | |
| | | | |
| IF with THEN | LII | | |
| | | | |
| INITIALIZE statement | 1.1 | R | |
| | | | |
| INSERT statement | 1.1 | R | |
| | | | |
| INSPECT CONVERTING | 1.1 | R | |
| | | | |
| INVALID KEY on REWRITE on inx file | 1.1 | | |
| with seq access | | | |
| | | | |
| Index-name can have SYNC clause | 1.1 | | |
| | | | |
| Indexing on table with no INDEXED | LII | | |
| BY clause | | | |
| | | | |
| Index can be used on another table | LII | | |
| if same stride | | | |
| | | | |
| LABEL RECORD clause is documentary | LII | | |
| | | | |
| LABEL RECORD is data-name | 1.1 | | |
| | | | |
| Level-numbers of unequal value at | LII | | |
| l same level | | | |
| | | | |
--------------------------------------------------------------------------------------------------
Table 23-0. (cont.)
--------------------------------------------------------------------------------------------------
| | | | |
| Features | When Introduced | Effect of | Status |
| | | Directive | |
| | | | |
--------------------------------------------------------------------------------------------------
| | | | |
| NOT conditional phrases | 1.1 | | |
| | | | |
| NULL figurative constant | 1.1 | R | |
| | | | |
| NUMERIC test on COMP-3 items | 1.1 | | |
| | | | |
| OCCURS DEPENDING item can be zero | 1.1 | | |
| | | | |
| OCCURS DEPENDING: subsequent items | 2.0 | | I |
| shifted up | | | |
| | | | |
| OCCURS DEPENDING with integer-1 = | 1.1 | | |
| zero | | | |
| | | | |
| OCCURS DEPENDING with | 1.1 | | |
| non-subordinate items after | | | |
| | | | |
| OCCURS DEPENDING with omitted | 1.1 | | |
| integer-1 | | | |
| | | | |
| OPEN EXTEND on inx file, provided | 1.5 | | |
| seq access mode | | | |
| | | | |
| Object-computer paragraph is | 1.1 | | |
| optional | | | |
| | | | |
| PASSWORD clause | 1.1 | R | D |
| | | | |
| PERFORM: nested PERFORM or GO can | LII | | |
| go to exit | | | |
| | | | |
| PERFORM in-line | 1.1 | | |
| | | | |
| PERFORM with TEST AFTER/BEFORE | 1.1 | R | |
| | | | |
| PERFORM without stacked returns | 1.5 | | I |
| (flat PERFORMs) | | | |
| | | | |
| PURGE statement | 1.4 | R | U |
| | | | |
| Period is allowed after SKIP1,2,3 | 1.1 | | |
| | | | |
| Periods are optional in | 1.1 | | |
| Identification Division | | | |
| | | | |
| Program-id can be a nonnumeric | 1.1 | | |
| literal | | | |
| | | | |
--------------------------------------------------------------------------------------------------
Table 23-0. (cont.)
--------------------------------------------------------------------------------------------------
| | | | |
| Features | When Introduced | Effect of | Status |
| | | Directive | |
| | | | |
--------------------------------------------------------------------------------------------------
| | | | |
| RECORD CONTAINS 0 | 1.1 | | D |
| CHARACTERS/RECORDS | | | |
| | | | |
| RECORD KEY item can be 2-byte | 1.1 | | |
| numeric DISPLAY | | | |
| | | | |
| RECORDING MODE IS F V U or S | 1.1 | | D |
| | | | |
| REDEFINEing item can have | 1.1 | | |
| REDEFINES clause | | | |
| | | | |
| REDEFINEing item can be smaller | 1.1 | | |
| than REDEFINEd | | | |
| | | | |
| REDEFINES at 01 level in File | 1.1 | | |
| Section | | | |
| | | | |
| RERUN clause is documentary | LII | | D |
| | | | |
| RETURN-CODE | 1.1 | R | |
| | | | |
| REWRITE: INV KEY allowed on inx | 1.3 | | |
| file, seq access | | | |
| | | | |
| Record area available when file | LII | | |
| not open | | | |
| | | | |
| SAME AREA: only one file-name | LII | | |
| required | | | |
| | | | |
| SERVICE statement | 1.1 | | |
| | | | |
| SET condition-name TRUE | 1.1 | R | |
| | | | |
| SET identifier UP/DOWN | 1.3 | | |
| | | | |
| SKIP1,2,3 statements | 1.1 | R | |
| | | | |
| SORT/MERGE: rel and inx files in | 1.1 | | |
| USING/GIVING | | | |
| | | | |
| SORT/MERGE: inp/outp procs access | LII | | |
| other sections | | | |
| | | | |
| SORT-CONTROL register | 1.1 | R | |
| | | | |
| SORT-CORE-SIZE register | 1.1 | R | |
| | | | |
| SORT-FILE-SIZE register | 1.1 | R | |
| | | | |
| SORT-MESSAGE-REGISTER | 1.1 | R | |
| | | | |
| SORT-MODE-SIZE register | 1.1 | R | |
| | | | |
| SORT-RETURN register | 1.1 | R | |
| | | | |
| START: key subord to rec key can | LII | | |
| be 9(n) DISPLAY | | | |
| | | | |
| Sequence numbers (cols 1-6) not | LII | | |
| sequence-checked | | | |
| | | | |
--------------------------------------------------------------------------------------------------
Table 23-0. (cont.)
--------------------------------------------------------------------------------------------------
| | | | |
| Features | When Introduced | Effect of | Status |
| | | Directive | |
| | | | |
--------------------------------------------------------------------------------------------------
| | | | |
| Sign is trailing by default | LII | | |
| | | | |
| Source-computer paragraph is | 1.1 | | |
| optional | | | |
| | | | |
| Source- and object-computer paras | 1.1 | | |
| in any order | | | |
| | | | |
| Subscript allowed to be out of | 1.1 | | I |
| range | | | |
| | | | |
| Subscript out of range gets | 1.5 | - | I |
| correct data | | | |
| | | | |
| Switch-names UPSI-0 to UPSI-7 | 1.1 | | |
| | | | |
| TALLY | 1.1 | R | |
| | | | |
| THAN allowed with < or > in | 1.1 | | |
| condition | | | |
| | | | |
| THEN between statements | LII | | |
| | | | |
| TITLE statement | 1.1 | R | |
| | | | |
| TO allowed with = in condition | 1.1 | | |
| | | | |
| Trunc' to space avail' not PIC | 1.5 | | I |
| size on all COMP | | | |
| | | | |
| Trunc' to PIC size on all COMP | 1.5 | | I |
| | | | |
| USAGE COMPUTATIONAL-3/ COMP-3 | LII | R | |
| | | | |
| USAGE COMPUTATIONAL-4/ COMP-4 | 1.1 | R | |
| (means COMP) | | | |
| | | | |
| USAGE INDEX item can be used as | 1.1 | | |
| subscript | | | |
| | | | |
| USAGE PACKED-DECIMAL (synonymous | 1.1 | R | |
| COMP-3) | | | |
| | | | |
| USAGE POINTER | 1.2 | | |
| | | | |
| USE AFTER ERROR procedure implicit | LII | | |
| on all files | | | |
| | | | |
| User-defined-name can be same as a | 1.1 | | |
| system-name | | | |
| | | | |
| VALUE clause in the File Section | 1.1 | | |
| | | | |
| VALUE clause in the Linkage | 1.1 | | |
| Section | | | |
| | | | |
| VALUES IS and VALUE ARE | LII | | |
| | | | |
| VALUES in non-88-level | 1.1 | | |
| | | | |
| WHEN-COMPILED | 1.1 | R | |
| | | | |
--------------------------------------------------------------------------------------------------