HP 3000 Manuals HP 3000 Manuals
MF Table
Directive: MF
Definition: Micro Focus VS COBOL
Feature When Intro- Effect of Status
duced Directive
++INCLUDE 1.1 -
ACCEPT DISPLAY CONTROL clause 2.2
ACCEPT/DISPLAY non-scrolling data item LII -
(ie ADIS)
ACCEPT/DISPLAY non-scrolling data item 1.3 G
enhanced
ACCEPT/DISPLAY screen item 1.3 R
ACCEPT: AT phrase enhanced with LINE 1.3 R
and COLUMN
ACCEPT: NOT ON EXCEPTION and
END-ACCEPT 2.0 -
ACCEPT: ON EXCEPTION 1.3 -
ACCEPT: ON ESCAPE 1.3 -
ASSIGN: all entries but the first are LII - D
documentary
ASSIGN: noise-word DISK before 1.3 R
external file-name
ASSIGN: DISK as external file-name 1.3 R
ASSIGN: DISPLAY as external file-name 1.3 -
ASSIGN: KEYBOARD as external file-name 1.3 R
ASSIGN: PRINTER as external file-name 1.3 R
Feature When Intro- Effect of Status
duced Directive
ASSIGN: PRINTER-1 as external 1.3 -
file-name
ASSIGN: KEYBOARD with external 1.3 R
file-name
ASSIGN: PRINTER with external 1.3 R
file-name
ASSIGN TO LINE ADVANCING LII -
ASSIGN TO MULTIPLE REEL/UNIT (on LII -
floppies)
ASSIGN TO environment-variable 1.2 R
(EXTERNAL)
ASSIGN TO ":CE:" error stream 1.5 -
ASSIGN TO identifier LII -
ASSIGN TO nonnumeric literal LII -
ASSIGN TO DISK FROM 2.0 -
ASSIGN clause enhanced 1.3 G
AUTO clause/option 1.3 R
Alphabet clause forbidden; alphabet LII E
got from O/S
Alphabet-name IS ASCII/EBCDIC 1.5 -
Area-A can contain statements LII -
BACKGROUND-COLOR clause/option 1.3 R
BEEP clause/option 1.3 R
BELL clause/option 1.3 R
BLANK LINE/SCREEN clause 1.3 R
BLANK WHEN ZERO clause in Screen 1.3 -
Section
BLINK clause/option 1.3 R
BLOCK CONTAINS clause LII - D
CALL-CONVENTION 2.2 R
CALL: operand is file-name not LII -
program-id
CALL: sequence of search 1.5 -
CALL: BY VALUE 1.4 -
CALL file-name LII -
CALL parameter SIZE IS clause 2.2
CALLs of non-COBOL subroutines LII -
CALLs of libraries LII -
CANCEL: effect on subprograms in same -
group 1.5
Feature When Intro- Effect of Status
duced Directive
CANCEL: effect on entry-points 1.5 -
CHAIN to run-unit 1.3 R
CHAINING synonymous with USING in PROC 1.3 R
DIV header
CLOSE: NO REWIND phrase is documentary LII -
CODE-SET clause LII - D
CODE-SET: FOR clause 1.5 -
COLOR is data-name 2.2
COLUMN clause 1.3 R
COLUMN clause with + and - signs 1.3 -
COMMIT statement LII -
COMPUTE: Intermediate results; all 36 LII -
digits used
CONSOLE IS CRT LII -
COPY with nonnumeric-literal LII -
COPY-file without quotes 1.3 -
CRT STATUS clause LII -
CRT status key enhanced to 3 bytes 1.3 -
CURRENCY SIGN clause forbidden; c.s. LII I
got from O/S
CURSOR IS data-name LII -
Collating seq for relation conditions LII I
got from O/S
Collating seq for inx files and srt LII I
got from O/S
Color Handling 1.3 G
Comma (as separator) with no following LII -
space
Comma is allowed anywhere between LII -
words
Comment can be indicated by "*" in LII - I
column 1
Comparing non-DISPLAY items with LII -
nonnumeric items
Comp(utational) sub-set LII - I
Comp sub-set: cease to publish 1.5 -
Constant-names (ie level-78s) LII -
DATA RECORD clause in report file 1.3 -
DECIMAL POINT clause forbidden; dec pt LII I
got from O/S
Feature When Intro- Effect of Status
duced Directive
DELETE FILE statement 1.3 R
DISPLAY packed-dec: sign shown as LII -
leading separate
DISPLAY SPACE UPON CRT LII -
DISPLAY UPON CONSOLE LII -
DISPLAY UPON CRT-UNDER LII -
DISPLAY with no operand, to move 1.3 R
cursor
DIVIDE: do subscr of remainder after 1.1 -
store quotnt
Data items aligned as specified by LII - I
directive
Declarative can be entered by
PERFORM or GO TO 1.2 -
Declarative need not have USE 1.5 -
statement
Declarative only executed if file has LII -
status item
Directives embedded in source or in a 1.3 -
file
Divisions, sections & paras up to
W-S are optional LII -
EBCDIC character set (CODE-SET clause) 1.5 -
EBCDIC signs 1.3 -
END-CHAIN 2.2 R
ENTRY . . BY VALUE parameters 2.2
EXECUTE(EXEC for short) 1.2 R
EXIT need not be alone in sentence or LII -
paragraph
EXIT PROGRAM RETURNING 2.2 R
European (Continental) character LII G
handling (most of)
European (Continental) character LII G
handling (rest of)
Exception-phrase in ACCEPT 1.3 R
FOREGROUND-COLOR clause/option 1.3 R
FULL clause/option 1.3 R
File handler (new) 2.0 -
Feature When Intro- Effect of Status
duced Directive
Flagging of features according to 1.2 - I
dialect
Flagging of levels of the 1974
COBOL Standard LII - I
Flagging of features not in SAA 2.0 - I
Foreign language message texts 1.4 -
Function-name COMMAND-LINE LII R
Function-name FORMFEED LII -
Function-name TAB LII -
GOBACK RETURNING 2.2 R
GRID, LEFTLINE and OVERLINE clauses 2.0 -
HIGHLIGHT clause/option 1.3 R
HIGH-VALUE is hex 7F LII -
HIGH-VALUE is hex FF 1.1 E
Hexadecimal nonnumeric literals LII -
(X"nn...")
Hexadecimal numeric literals 1.1 -
(H"nn...")
I-O-status for "file locked" LII -
I-O-status for "record locked" LII -
I-O-statuses: values as in ANSI 74 2.0 - I
even if ANS85
I-O-statuses: values as in RM COBOL 1.5 - I
Index is 2, 4 or 8 bytes COMP-X 1.3 -
Index is 2 bytes COMP LII -
Index is 2 bytes COMP-X 1.3 - I
Index can be set by other than SET LII -
Index can be set by other than SET LII -
Index need be within range only when LII -
used
JUSTIFIED clause in Screen Section 1.3 -
Kanji LII - I
LEFT-JUSTIFY option 1.3 R
LINE clause in Screen Section 1.3 -
LINE clause with + and - signs 1.3 -
LOCAL-STORAGE SECTION 2.2 R
LOCK MODE clause LII -
LOCK MODE: WITH LOCK clause LII -
Limits for SAA 2.0 -
Feature When Intro- Effect of Status
duced Directive
MODE IS BLOCK 1.3 -
MOVE non-integer numeric to LII -
alphanumeric
MOVE non-int num to alphanum: 1.5 -
standardize behavior
MULTIPLE FILE TAPE is documentary LII -
Move record pointer if record locked 1.5 -
Multi-user default MANUAL, LOCK, LII R
MULTIPLE RECORDS
Multi-user files LII R
NUMERIC SIGN IS TRAILING SEPARATE 1.2 R
National Language Support LII G
Nonnumeric characters in numeric items 1.5 -
OCCURS: can subscript with index of LII -
another table
OCCURS DEPENDING: several in record LII -
(not shifted up)
OCCURS 49 deep (but can't subscript so LII -
deep)
OCCURS clause in Screen Section 1.3 -
OCCURS with 01-levels and 77-levels LII -
OPEN EXCLUSIVE LII R
OPEN EXTEND of non-existent file LII -
creates it
OPEN I-O absent file creates, unless LII - I
NOT OPTIONAL
OPEN OUTPUT of existing file deletes LII -
it
ORGANIZATION: LINE SEQUENTIAL LII -
ORGANIZATION: RECORD 1.2 -
SEQUENTIAL(=sequential)
ORGANIZATION SEQUENTIAL on sort-file LII -
Object-computer paragraph is partly LII -
documentary
PICTURE clause in Screen Section 1.3 -
PRINTER IS clause in Special-names 1.3 -
Feature When Intro- Effect of Status
duced Directive
PROC DIV USING: parameters outside 1.3 R
Linkage Section
Procedure pointers 2.2 R
PROMPT clause/option 1.3 R
Paragraph hdr: first in Proc Div or LII -
Sec optional
Program-id paragraph is optional LII -
READ: LOCK phrase before INTO phrase LII R
READ PREVIOUS 1.3 R
READ WITH LOCK/KEPT LOCK LII -
READ WITH NO LOCK 1.1 -
RECORD CONTAINS clause LII - D
RECORD KEY: no restrictions on PICTURE LII -
or USAGE
RECORD KEY: split keys 1.3 -
RENAMES: gets same properties as LII -
RENAMEd item
REQUIRED clause/option 1.3 R
RETURN-CODE 2.2 R
RETURN-CODE length can be specified 2.0 -
REVERSE-VIDEO clause/option 1.3 R
RIGHT-JUSTIFY 1.3 R
ROLLBACK (documentary) LII R
Recursion 2.2
Reference modification: length in 1.4 -
data item can be zero
Reference modifiers out of range at 1.4 -
run-time
RESERVE clause documentary AREA-VALUE LII -
except creates
Reserved words can be changed 1.3 -
Run-time switches: adopt existing & 1.5 -
set up control
Ryan McFarland (RM) COBOL: 1.3 G
functionality from
SCREEN SECTION CONTROL clause 2.2
SECURE clause/option 1.3 R
Feature When Intro- Effect of Status
duced Directive
SEGMENT-LIMIT clause is documentary LII - D
SET POINTER UP/DOWN 2.2
SIGN clause in the Screen Section 1.3 -
SIZE clause/option 1.3 -
SORT STATUS clause 1.3 R
SPACE-FILL option 1.3 R
START LESS THAN, NOT GREATER THAN, etc 1.5 - I
START LESS THAN, NOT GREATER THAN , 2.0 - I
etc generic
STOP RUN RETURNING 2.2 R
SYNCHRONIZED: effect varies; on most LII -
RTSs, none
Screen handling (new) 1.3 G
Screen handling (old) LII G
Screen Section 1.3
Screen Section CONTROL Clause 2.2 -
Screen description clauses 1.3 G
Sections when proc div doesn't start LII -
with section
Sequence numbers zero-suppressed LII - I
Signs as implemented by OEM 1.4 I
Source-computer para is docary except LII -
DEBUGGING
Spaces in numeric items 1.4 - I
Stable sort as if WITH DUP'S 1.5 - I
Subscripting to >3 levels (limit about LII -
9)
Subscripting to 16 levels 1.3 -
Switch-names SWITCH 0 to SWITCH 7 LII -
Switch-name SWITCH 8 1.3 -
Switch-names SWITCH-0 to SWITCH-8 1.3 -
TRAILING-SIGN option 1.3 R
Tracing of execution 1.3 -
Turning reserved words for all MF 1.1 -
features on/off
Turning reserved words for MF dialects 1.3 -
on/off
Feature When Intro- Effect of Status
duced Directive
UNDERLINE clause/option 1.3 R
UNLOCK statement LII R
UPDATE option 1.3 R
USAGE clause: extra options LII -
USAGE COMPUTATIONAL-5/COMP-5 1.3 R
USAGE COMPUTATIONAL-X/COMP-X 1.1 R
USE: implicit default USE-proc on all LII -
files
VALUE: numeric lit allowed with 1.3 -
num-edited item
VALUE OF data-name clause is LII -
documentary
VALUE OF FILE-ID clause 1.3 R
VALUE OF allowed with sort-file LII -
VALUE clause in the Screen Section 1.3 -
WITH phrase in ACCEPT/DISPLAY 1.3 -
WRITE FROM literal 1.3 -
ZERO-FILL clause/option with 1.3 R
nonnumeric items
ZERO-FILL option with numeric items 1.3 R