HP 3000 Manuals HP 3000 Manuals
VSC2 Table
Directive: VSC2
Definition: IBM VS COBOL II
Feature When Intro- Effect of Status
duced Directive
ACCEPT FROM DAY-OF-WEEK 1.1 R
ACCEPT FROM function-name 1.1 -
ACCEPTed items are converted to USAGE LII -
of target
ALPHABETIC-UPPER & -LOWER class tests 1.1 R
ALTERNATE RECORD KEY: RECORD is 1.1 -
noise-word
Abbreviated conditions with 1.1 -
parentheses
Apostrophe can be used as quotation LII -
mark
BASIS statement 1.1 R
BLANK WHEN ZERO overrides 1.1 -
zero-suppression
BLANK WHEN ZERO(E)(S ) 2.0 -
BLOCK CONTAINS 0 CHARACTERS/RECORDS 1.1 -
Feature When Intro- Effect of Status
duced Directive
CALL: parameters need not be 01- or LII -
77-levels
CALL: ADDRESS OF phrase (not special 1.3 R
register)
CALL: LENGTH OF phrase (not special 1.3 -
register)
CALL: BY REFERENCE/CONTENT identifier 1.1 R
CALL: literal in BY CONTENT phrase 1.1 -
COMPUTE: Intermediate results; >= 30 1.1 -
digits used
COMPUTE: EQUALS or EQUAL instead of 1.1 -
"="
CONTINUE statement 1.1 R
COPY with SUPPRESS 1.1 R
COPY with nested COPY 1.1 -
CORRESPONDING: items under FILLER can 1.1 -
match
Compatibility with IBM VS COBOL II 1.1 G
Compiler messages of several levels 1.5 -
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 USAGE LII -
DISPLAY
DISPLAY UPON function-name 1.1 R
Data-names need not be unique unless 1.1 -
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)
Declaratives: don't need all Proc Div 1.1 -
in sections
Declaratives: don't need following 1.1 -
paragraph-name
Declarative that hasn't exited can be LII -
invoked
EBCDIC collating sequence 1.1 -
Feature When Intro- Effect of Status
duced Directive
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 terminators:conditional 1.1 - I
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 C12 1.1 R
(documentary)
Function-name C01 as paper-tape loop 1.5 R
Function-names C02 to C12 as
paper-tape loop 1.5 R
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
I-O-status: second item (documentary) 1.1 -
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 order 1.1 -
ID abbreviation for IDENTIFICATION 1.1 R
IF with THEN LII -
INITIALIZE statement 1.1 R
Feature When Intro- Effect of Status
duced Directive
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 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 -
Level-numbers of unequal value at l LII -
same leve
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 = zero 1.1 -
OCCURS DEPENDING with non-subordinate 1.1 -
items after
OCCURS DEPENDING with omitted 1.1 -
integer-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 in-line 1.1 -
PERFORM with TEST AFTER/BEFORE 1.1 R
PERFORM without stacked returns (flat 1.5 - I
PERFORMs)
PURGE statement 1.4 R U
Period is allowed after SKIP1,2,3 1.1 -
Feature When Intro- Effect of Status
duced Directive
Periods are optional in Identification 1.1 -
Division
Program-id can be a nonnumeric literal 1.1 -
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
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 -
RERUN clause is documentary LII - D
RETURN-CODE 1.1 R
REWRITE: INV KEY allowed on inx file, 1.3 -
seq access
Record area available when file not LII -
open
SAME AREA: only one file-name required LII -
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 be LII -
9(n) DISPLAY
Sequence numbers (cols 1-6) not LII -
sequence-checked
Feature When Intro- Effect of Status
duced Directive
Sign is trailing by default LII -
Source-computer paragraph is optional 1.1 -
Source- and object-computer paras in 1.1 -
any order
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 -
TITLE statement 1.1 R
TO allowed with = in condition 1.1 -
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
USAGE PACKED-DECIMAL (synonymous 1.1 R
COMP-3)
USAGE POINTER 1.2 -
USE AFTER ERROR procedure implicit on LII -
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 Section 1.1 -
VALUES IS and VALUE ARE LII -
VALUES in non-88-level 1.1 -
WHEN-COMPILED 1.1 R