HP 3000 Manuals HP 3000 Manuals
OSVS Table
Directive: OSVS
Definition: IBM OS/VS COBOL
Feature When Intro- Effect of Status
duced Directive
ACCEPT FROM CONSOLE LII R
ACCEPT FROM function-name 1.1 -
ACCEPTed items are converted to USAGE LII -
of target
ANSI 68: support for some features 1.1 G
ARE in relation conditions 1.5 -
ASSIGN: character denoting 1.1 - D
organization
Abbreviated conditions with 1.1 -
parentheses
Apostrophe can be used as quotation LII -
mark
Arithmetic operators except "-" don't 1.5 -
need spaces
BASIS statement 1.1 R
BLANK WHEN ZERO overrides 1.1 -
zero-suppression
BLANK WHEN ZERO(E)(S) 2.0 -
Feature When Intro- Effect of Status
duced Directive
BLOCK CONTAINS 0 CHARACTERS/RECORDS 1.1 -
CALL: parameters need not be 01- or LII -
77-levels
CLOSE REEL WITH LOCK: equivalent to 1.1 -
FOR REMOVAL
CLOSE WITH DISP 1.1 - D
CODE clause has noise-word WITH 1.2 -
COLUMN NUMBER sequence not enforced 1.2 -
COMPUTE: Intermediate results; >=30 1.1 -
digits used
COMPUTE: EQUALS or EQUAL instead of 1.1 -
"="
COPY: preceding data-name is replaced 1.1 - I
COPY with SUPPRESS 1.1 R
CORRESPONDING: items under FILLER can 1.1 -
match
CORRESPONDING with several targets in 1.1 -
MOVE
CURRENT-DATE 1.1 R
Comment-entry after program-id 1.1 -
Comment-entry in area-A in ID DIVISION 1.1 -
Comment-entry terminated by keyword in 1.1 -
ID DIV
Compatibility with IBM OS/VS COBOL 1.1 G
Compiler messages of several levels 1.5 -
Configuration Section is optional 1.1 -
DELETE statement in BASIS mechanism 1.1 -
DISPLAYed items are converted to USAGE LII -
DISPLAY
DISPLAY UPON function-name 1.1 R
Data-names need not be unique unless 1.1 -
referenced
Date format configurable 2.1 I
Declarative for label (documentary 1.1 -
unless PERFORMed)
Feature When Intro- Effect of Status
duced Directive
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
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 C12 1.1 R
(documentary)
Function-name C01 as paper-tape loop 1.5 R
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 numeric 1.1 -
DISPLAY
IBM: Alignment rules like IBM with 1.1 - I
TRUNC directive
ID DIVISION paragraphs in any order 1.1 -
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
Feature When Intro- Effect of Status
duced Directive
Index-name: duplicates allowed but 1.5 -
can't be used
Index-name can have SYNC clause 1.1 -
Indexing on table with no INDEXED BY LII -
clause
Index can be used on another table if LII -
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 same LII -
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 within 1.1 -
the table
OCCURS DEPENDING with non-subordinate 1.1 -
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 seq 1.5 -
access mode
Object-computer paragraph is optional 1.1 -
PASSWORD clause 1.1 R D
PERFORM: nested PERFORM or GO can go LII -
to exit
PERFORM inter-segment 1.1 -
PERFORM without stacked returns (flat 1.5 - I
PERFORMs)
PRINT-SWITCH register 1.1 R
Program-id can be a nonnumeric literal 1.1 -
Feature When Intro- Effect of Status
duced Directive
READY TRACE statement 1.3 R I
RECORD CONTAINS 0 CHARACTERS/RECORDS 1.1 - D
RECORD KEY item can be 2-byte numeric 1.1 -
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 REDEFINES 1.1 -
clause
REDEFINEing item can be smaller than 1.1 -
REDEFINEd
REDEFINES at 01 level in File Section 1.1 -
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 FINAL 1.2 -
RESET TRACE statement 1.3 R I
RETURN-CODE 1.1 R
REWRITE: INV KEY allowed on inx file, 1.3 -
seq access
Record area available when file not LII -
open
Records are allowed for Report File 1.1 -
Report file: record descr's can 1.2 -
follow the fd
Report Writer: extensions for OS/VS 1.2 G
compatibility
SEARCH ALL with identifier first 1.1 -
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 cover 1.1 -
many segments
SORT-CORE-SIZE register 1.1 R
Feature When Intro- Effect of Status
duced Directive
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 be LII -
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 optional 1.1 -
Subscript allowed to be out of range 1.1 - I
Subscript out of range gets correct 1.5 - I
data
Switch-names UPSI-0 to UPSI-7 1.1 -
TALLY 1.1 R
THAN allowed with < or > in condition 1.1 -
THEN between statements LII -
TIME-OF-DAY 1.1 R
TO allowed with = in condition 1.1 -
TRANSFORM statement 1.1 R
Trunc' to space avail' not PIC size on 1.5 - I
all COMP
Trunc' to PIC size on all COMP 1.5 - I
USAGE COMPUTATIONAL-3/ COMP-3 LII R
USAGE COMPUTATIONAL-4/ COMP-4 (means 1.1 R
COMP)
USAGE INDEX item can be used as 1.1 -
subscript
USE AFTER ERROR procedure implicit on LII -
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