HP 3000 Manuals HP 3000 Manuals
OSVS Table
Directive: OSVS
Definition: IBM OS/VS COBOL
--------------------------------------------------------------------------------------------------
| | | | |
| Features | When Introduced | Effect of | Status |
| | | Directive | |
| | | | |
--------------------------------------------------------------------------------------------------
| | | | |
| ACCEPT FROM CONSOLE | LII | | R |
| | | | |
| ACCEPT FROM function-name | 1.1 | | |
| | | | |
| ACCEPTed items are converted to | LII | | |
| USAGE of target | | | |
| | | | |
| ANSI 68: support for some | 1.1 | | G |
| features | | | |
| | | | |
| ARE in relation conditions | 1.5 | | |
| | | | |
| ASSIGN: character denoting | 1.1 | | D |
| organization | | | |
| | | | |
| Abbreviated conditions with | 1.1 | | |
| parentheses | | | |
| | | | |
| Apostrophe can be used as | LII | | |
| quotation mark | | | |
| | | | |
| Arithmetic operators except "-" | 1.5 | - | |
| don't need spaces | | | |
| | | | |
| 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 | | | |
| | | | |
| CLOSE REEL WITH LOCK: equivalent | 1.1 | | |
| to FOR REMOVAL | | | |
| | | | |
| CLOSE WITH DISP | 1.1 | | D |
| | | | |
| CODE clause has noise-word WITH | 1.2 | | |
| | | | |
--------------------------------------------------------------------------------------------------
Table 23-0. (cont.)
--------------------------------------------------------------------------------------------------
| | | | |
| Features | When Introduced | Effect of | Status |
| | | Directive | |
| | | | |
--------------------------------------------------------------------------------------------------
| | | | |
| COLUMN NUMBER sequence not | 1.2 | | |
| enforced | | | |
| | | | |
| COMPUTE: Intermediate results; | 1.1 | | |
| >=30 digits used | | | |
| | | | |
| COMPUTE: EQUALS or EQUAL instead | 1.1 | | |
| of "=" | | | |
| | | | |
| COPY: preceding data-name is | 1.1 | | I |
| replaced | | | |
| | | | |
| COPY with SUPPRESS | 1.1 | R | |
| | | | |
| CORRESPONDING: items under FILLER | 1.1 | | |
| can match | | | |
| | | | |
| CORRESPONDING with several targets | 1.1 | | |
| in MOVE | | | |
| | | | |
| CURRENT-DATE | 1.1 | R | |
| | | | |
| Comment-entry after program-id1.1 | | | |
| | | | |
| Comment-entry in area-A in ID | 1.1 | | |
| DIVISION | | | |
| | | | |
| Comment-entry terminated by | 1.1 | | |
| keyword in ID DIV | | | |
| | | | |
| Compatibility with IBM OS/VS COBOL | 1.1 | G | |
| | | | |
| Compiler messages of several | 1.5 | | |
| levels | | | |
| | | | |
| Configuration Section is optional | 1.1 | | |
| | | | |
| DELETE statement in BASIS | 1.1 | | |
| mechanism | | | |
| | | | |
| 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 configurable | 2.1 | I | |
| | | | |
| Declarative for label (documentary | 1.1 | | |
| unless PERFORMed) | | | |
| | | | |
| EBCDIC collating sequence | 1.1 | | |
| | | | |
| EJECT statement | 1.1 | R | |
| | | | |
| ENTER statement | LII | | D |
| | | | |
| ENTRY statement | 1.1 | R | D |
| | | | |
--------------------------------------------------------------------------------------------------
Table 23-0. (cont.)
--------------------------------------------------------------------------------------------------
| | | | |
| Features | When Introduced | Effect of | Status |
| | | Directive | |
| | | | |
--------------------------------------------------------------------------------------------------
| | | | |
| ENTRY statement is not documentary | 1.1 | | I |
| | | | |
| EXAMINE | 1.1 | R | |
| | | | |
| EXHIBIT | 1.1 | R | |
| | | | |
| EXHIBIT statement enhanced | 1.3 | | |
| | | | |
| FILLER is allowed on group item | LII | | |
| | | | |
| 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 | |
| | | | |
| 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 | | | |
| | | | |
| 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 OTHERWISE | 1.1 | R | |
| | | | |
| IF with THEN | LII | | |
| | | | |
| INSERT statement | 1.1 | R | |
| | | | |
| INVALID KEY on REWRITE on inx file | 1.1 | | |
| with seq access | | | |
| | | | |
--------------------------------------------------------------------------------------------------
Table 23-0. (cont.)
--------------------------------------------------------------------------------------------------
| | | | |
| Features | When Introduced | Effect of | Status |
| | | Directive | |
| | | | |
--------------------------------------------------------------------------------------------------
| | | | |
| Index-name: duplicates allowed | 1.5 | | |
| but can't be used | | | |
| | | | |
| 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 | | |
| | | | |
| LINE IS NEXT PAGE | 1.2 | | |
| | | | |
| Level-numbers of unequal value at | LII | | |
| same level | | | |
| | | | |
| MORE-LABELS | 1.1 | R | |
| | | | |
| NOTE statement | 1.1 | R | |
| | | | |
| NP need not have a line number | 1.1 | | |
| | | | |
| NUMERIC test on COMP-3 items | 1.1 | | |
| | | | |
| OCCURS: key need be unique only in | 1.1 | | |
| the table | | | |
| | | | |
| OCCURS DEPENDING with | 1.1 | | |
| non-subordinate items after | | | |
| | | | |
| OCCURS DEPENDING: several in same | 1.1 | | |
| record | | | |
| | | | |
| OCCURS DEPENDING: subsequent items | 2.0 | I | |
| shifted up | | | |
| | | | |
| OCCURS DEPENDING with -1 omitted | 1.1 | | |
| integer | | | |
| | | | |
| ON statement | 1.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 | | | |
| | | | |
--------------------------------------------------------------------------------------------------
Table 23-0. (cont.)
--------------------------------------------------------------------------------------------------
| | | | |
| Features | When Introduced | Effect of | Status |
| | | Directive | |
| | | | |
--------------------------------------------------------------------------------------------------
| | | | |
| PERFORM inter-segment | 1.1 | | |
| | | | |
| PERFORM without stacked returns | 1.5 | | I |
| (flat PERFORMs) | | | |
| | | | |
| PRINT-SWITCH register | 1.1 | R | |
| | | | |
| Program-id can be a nonnumeric | 1.1 | | |
| | | | |
| literal READY TRACE statement | 1.3 | R | I |
| | | | |
| 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 |
| | | | |
| REDEFINES can be after PICTURE or | 1.1 | | |
| USAGE clause | | | |
| | | | |
| 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 | | | |
| | | | |
| REMARKS paragraph | 1.1 | R | |
| | | | |
| RERUN clause is documentary | LII | | D |
| | | | |
| RESERVE NO AREAS | 1.1 | | |
| | | | |
| RESERVE...ALTERNATE AREAS | 1.1 | | |
| | | | |
| RESET FINAL needn't have CONTROL | 1.2 | | |
| FINAL | | | |
| | | | |
| RESET TRACE statement | 1.3 | R | I |
| | | | |
| RETURN-CODE | 1.1 | R | |
| | | | |
| REWRITE: INV KEY allowed on inx | 1.3 | | |
| file, seq access | | | |
| | | | |
| Record area available when file | LII | | |
| not open | | | |
| | | | |
| Records are allowed for Report | 1.1 | | |
| File | | | |
| | | | |
| Report file: record descr's can | 1.2 | | |
| follow the fd | | | |
| | | | |
| Report Writer: extensions for | 1.2 | G | |
| OS/VS compatibility | | | |
| | | | |
| SEARCH ALL with identifier first | 1.1 | | |
| | | | |
--------------------------------------------------------------------------------------------------
Table 23-0. (cont.)
--------------------------------------------------------------------------------------------------
| | | | |
| Features | When Introduced | Effect of | Status |
| | | Directive | |
| | | | |
--------------------------------------------------------------------------------------------------
| | | | |
| 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/MERGE: inp/outp procs can | 1.1 | | |
| cover many segments | | | |
| | | | |
| 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 | | | |
| | | | |
| SYNCHRONIZED on group item | 1.1 | | |
| | | | |
| Sequence numbers (cols 1-6) not | LII | | |
| sequence-checked | | | |
| | | | |
| Sign is trailing by default | LII | | |
| | | | |
| Source-computer paragraph is | 1.1 | | |
| optional | | | |
| | | | |
| 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 | | |
| | | | |
| TIME-OF-DAY | 1.1 | R | |
| | | | |
| TO allowed with = in condition | 1.1 | | |
| | | | |
--------------------------------------------------------------------------------------------------
Table 23-0. (cont.)
--------------------------------------------------------------------------------------------------
| | | | |
| Features | When Introduced | Effect of | Status |
| | | Directive | |
| | | | |
--------------------------------------------------------------------------------------------------
| | | | |
| TRANSFORM statement | 1.1 | R | |
| | | | |
| 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 | | | |
| | | | |
| USE AFTER ERROR procedure implicit | LII | | |
| on all files | | | |
| | | | |
| USE with BEGINNING | 1.1 | R | |
| | | | |
| USE with ENDING | 1.1 | R | |
| | | | |
| VALUES IS and VALUE ARE | LII | | |
| | | | |
| VALUES in non-88-level | 1.1 | | |
| | | | |
| WHEN-COMPILED | 1.1 | R | |
| | | | |
| WRITE AFTER POSITIONING | 1.1 | R | |
| | | | |
| WRITE to full disk causes "invalid | 1.1 | C | |
| key" condition | | | |
| | | | |
--------------------------------------------------------------------------------------------------