Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Branch: master
Fetching contributors…

Cannot retrieve contributors at this time

15735 lines (12610 sloc) 375.143 kB
!
! This file was converted from DEC LSE format to ELSE format
! by Douglas Harter (djharter@aol.com)
! Send an email to that address with any problems, concerns,
! or comments.
!
! This is the DEC implementation of COBOL on the mainframe.
! It might not comform exactly to the COBOL you are using
! on your computer.
!
!*************************************************************************
! *
! © 2000 BY *
! COMPAQ COMPUTER CORPORATION *
! © 1998, 2000 BY *
! ELECTRONIC DATA SYSTEMS LIMITED *
! *
! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *
! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *
! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *
! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *
! OTHER PERSON. NO TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY *
! TRANSFERRED. *
! *
! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *
! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY COMPAQ COMPUTER *
! CORPORATION OR EDS. *
! *
! NEITHER COMPAQ NOR EDS ASSUME ANY RESPONSIBILITY FOR THE USE OR *
! RELIABILITY OF THIS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY *
! COMPAQ. *
! *
!*************************************************************************
DELETE LANGUAGE "cobol"
DEFINE LANGUAGE "cobol" -
/VALID_IDENTIFIER_CHARACTERS="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789$_-" -
/INITIAL_STRING="[program module]" -
/PUNCTUATION_CHARACTERS=".,;" -
/INDENT_SIZE=4 -
/VERSION="V2.2-622+" -
END DEFINE
DELETE PLACEHOLDER "({ARITHMETIC-EXPRESSION}...)" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "({ARITHMETIC-EXPRESSION}...)" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"({arithmetic-expression}...)"
END DEFINE
DELETE PLACEHOLDER "({LEFTMOST-CHARACTER-POSITION} : [{LENGTH}])" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "({LEFTMOST-CHARACTER-POSITION} : [{LENGTH}])" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"({leftmost-character-position} : [{length}])"
END DEFINE
DELETE PLACEHOLDER "01 [GROUP-DATA-NAME] .." -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "01 [GROUP-DATA-NAME] .." -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"01 [group-data-name]"
" [LINE NUMBER IS {{line-num1} [ON NEXT PAGE]|PLUS {line-num-plus}}]"
" [NEXT GROUP IS {{next-group-line-num}|PLUS {next-group-line-num-plus}|NEXT PAGE}]"
" [TYPE IS {{REPORT|PAGE|CONTROL} HEADING|DETAIL|{CONTROL|PAGE|REPORT} FOOTING}]"
" [USAGE IS DISPLAY]."
" [follows-report-group-description-entry]"
END DEFINE
DELETE PLACEHOLDER "66 {NEW-NAME} RENAMES {RENAME-START} [THROUGH {RENAME-END}]." -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "66 {NEW-NAME} RENAMES {RENAME-START} [THROUGH {RENAME-END}]." -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"66 {new-name} RENAMES {rename-start} [THROUGH {rename-end}]."
END DEFINE
DELETE PLACEHOLDER "88 {CONDITION-NAME} VALUE IS {{LOW-VALUE} [THROUGH {HIGH-VALUE}]}...." -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "88 {CONDITION-NAME} VALUE IS {{LOW-VALUE} [THROUGH {HIGH-VALUE}]}...." -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"88 {condition-name} VALUE IS {{low-value} [THROUGH {high-value}]}...."
END DEFINE
DELETE PLACEHOLDER "=={PSEUDO-TEXT-1}==" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "=={PSEUDO-TEXT-1}==" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"=={pseudo-text-1}=="
END DEFINE
DELETE PLACEHOLDER "=={PSEUDO-TEXT-1}== BY =={PSEUDO-TEXT-2}==" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "=={PSEUDO-TEXT-1}== BY =={PSEUDO-TEXT-2}==" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
" =={pseudo-text-1}== BY =={pseudo-text-2}=="
END DEFINE
DELETE PLACEHOLDER "=={PSEUDO-TEXT-2}==" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "=={PSEUDO-TEXT-2}==" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"=={pseudo-text-2}=="
END DEFINE
DELETE PLACEHOLDER ACCEPT1 -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER ACCEPT1 -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="ACCEPT [FROM input-source]" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"ACCEPT {dest-item1} [FROM {input-source}]"
" [at-end-phrase]"
"END-ACCEPT"
END DEFINE
DELETE PLACEHOLDER ACCEPT2 -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER ACCEPT2 -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="ACCEPT FROM {DATE|DAY|DAY-OF-WEEK|TIME}" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"ACCEPT {dest-item1} FROM {DATE|DAY|DAY-OF-WEEK|TIME}"
END DEFINE
DELETE PLACEHOLDER ACCEPT3 -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER ACCEPT3 -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="ACCEPT screen extensions" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"ACCEPT {dest-item1}"
" [FROM LINE NUMBER {line-num-options1}]"
" [FROM COLUMN NUMBER {column-num-options1}]"
" [ERASE [TO END OF] {SCREEN|LINE}]"
" [WITH BELL]"
" [UNDERLINED]"
" [BOLD]"
" [WITH BLINKING]"
" [PROTECTED [SIZE {{prot-size-lit}|{prot-size-item}}] [with-options]]"
" [WITH CONVERSION]"
" [REVERSED]"
" [WITH NO ECHO]"
" [DEFAULT IS {default-options}]"
" [CONTROL KEY IN {key-dest-item}]"
" [on-exception-phrase|at-end-phrase]"
"END-ACCEPT"
END DEFINE
DELETE PLACEHOLDER ACCEPT4 -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER ACCEPT4 -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="ACCEPT CONTROL KEY" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"ACCEPT CONTROL KEY IN {key-dest-item}"
" [FROM LINE NUMBER {line-num-options1}]"
" [FROM COLUMN NUMBER {column-num-options1}]"
" [ERASE [TO END OF] {SCREEN|LINE}]"
" [WITH BELL]"
" [on-exception-phrase|at-end-phrase]"
"END-ACCEPT"
END DEFINE
DELETE PLACEHOLDER ACCEPT5 -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER ACCEPT5 -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="ACCEPT X/Open screen extensions for DEC COBOL" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"ACCEPT {screen-name3}"
" [FROM LINE NUMBER {screen-line-num-options}]"
" [FROM COLUMN NUMBER {screen-column-num-options}]"
" [on-exception-phrase]"
"END-ACCEPT"
END DEFINE
DELETE PLACEHOLDER "ACCESS MODE IS SEQUENTIAL" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "ACCESS MODE IS SEQUENTIAL" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"ACCESS MODE IS SEQUENTIAL"
END DEFINE
DELETE PLACEHOLDER "ACCESS MODE IS {SEQUENTIAL|RANDOM|DYNAMIC}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "ACCESS MODE IS {SEQUENTIAL|RANDOM|DYNAMIC}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"ACCESS MODE IS {SEQUENTIAL|RANDOM|DYNAMIC}"
END DEFINE
DELETE PLACEHOLDER "ACCESS MODE IS {{SEQUENTIAL|RANDOM|DYNAMIC} RELATIVE KEY IS {REL-KEY}}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "ACCESS MODE IS {{SEQUENTIAL|RANDOM|DYNAMIC} RELATIVE KEY IS {REL-KEY}}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"ACCESS MODE IS {{SEQUENTIAL|RANDOM|DYNAMIC} RELATIVE KEY IS {rel-key}}"
END DEFINE
DELETE PLACEHOLDER ADD1 -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER ADD1 -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="ADD .. TO" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR=" " -
/TYPE=NONTERMINAL -
"ADD {num-or-func} [{num-or-func}]... TO {{result-n} [ROUNDED]}..."
" [on-size-error-clause]"
"END-ADD"
END DEFINE
DELETE PLACEHOLDER ADD2 -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER ADD2 -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="ADD .. GIVING" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR=" " -
/TYPE=NONTERMINAL -
"ADD {num-or-func} [{num-or-func}]... TO {num-or-func} GIVING {{result-n-or-ne} [ROUNDED]}..."
" [on-size-error-clause]"
"END-ADD"
END DEFINE
DELETE PLACEHOLDER ADD3 -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER ADD3 -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="ADD CORRESPONDING" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"ADD CORRESPONDING {grp} TO {grp} [ROUNDED]"
" [on-size-error-clause]"
"END-ADD"
END DEFINE
DELETE PLACEHOLDER "ADVANCE-NUM" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "ADVANCE-NUM" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is an integer or the identifier of an unsigned data item described"
"as an integer. Its value can be zero."
END DEFINE
DELETE PLACEHOLDER "AFTER INITIAL {DELIM-VAL}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "AFTER INITIAL {DELIM-VAL}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"AFTER INITIAL {delim-val}"
END DEFINE
DELETE PLACEHOLDER "AFTER {VAR} FROM {INIT} BY {INCREM1} UNTIL {CONDITIONAL-EXPRESSION}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "AFTER {VAR} FROM {INIT} BY {INCREM1} UNTIL {CONDITIONAL-EXPRESSION}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR=" " -
/TYPE=NONTERMINAL -
"AFTER {var} FROM {init} BY {increm1} UNTIL {conditional-expression}"
END DEFINE
DELETE PLACEHOLDER ALL -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER ALL -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"ALL"
END DEFINE
DELETE PLACEHOLDER "ALL-PHRASE" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "ALL-PHRASE" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"ALL [FROM {keeplist-name}...|CURRENT]"
END DEFINE
DELETE PLACEHOLDER "ALLOWING NO OTHERS" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "ALLOWING NO OTHERS" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"ALLOWING NO OTHERS"
END DEFINE
DELETE PLACEHOLDER "ALLOWING {UPDATERS|READERS|NO OTHERS}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "ALLOWING {UPDATERS|READERS|NO OTHERS}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"ALLOWING {UPDATERS|READERS|NO OTHERS}"
END DEFINE
DELETE PLACEHOLDER "ALLOWING-FILE-SHARING-OPTIONS" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "ALLOWING-FILE-SHARING-OPTIONS" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR=" " -
/TYPE=NONTERMINAL -
"ALLOWING {allowing-options}"
END DEFINE
DELETE PLACEHOLDER "ALLOWING-OPTIONS" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "ALLOWING-OPTIONS" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR=" " -
/TYPE=MENU -
"NO OTHERS"
"[READERS] [WRITERS] [UPDATERS]"/PLACEHOLDER
"ALL"
END DEFINE
DELETE PLACEHOLDER "ALL|LEADING|FIRST" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "ALL|LEADING|FIRST" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"ALL"
"LEADING"
"FIRST"
END DEFINE
DELETE PLACEHOLDER ALPHA -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER ALPHA -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is an alphabet-name defined in the SPECIAL-NAMES paragraph of the"
"Environment Division."
END DEFINE
DELETE PLACEHOLDER "ALPHABET {ALPHABET-NAME2} IS {ALPHABET-SELECTOR}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "ALPHABET {ALPHABET-NAME2} IS {ALPHABET-SELECTOR}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR=" " -
/TYPE=NONTERMINAL -
"ALPHABET {alphabet-name2} IS {alphabet-selector}"
END DEFINE
DELETE PLACEHOLDER "ALPHABET-NAME1" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "ALPHABET-NAME1" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is the name of a collating sequence defined in the ALPHABET clause of the"
"SPECIAL-NAMES paragraph."
END DEFINE
DELETE PLACEHOLDER "ALPHABET-NAME2" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "ALPHABET-NAME2" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is the user-defined word for a character set and/or collating"
"sequence. It always possesses the global attribute."
END DEFINE
DELETE PLACEHOLDER "ALPHABET-NAME3" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "ALPHABET-NAME3" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is the name of a character set defined in the SPECIAL-NAMES paragraph."
"It cannot be described with literals in the ALPHABET clause."
END DEFINE
DELETE PLACEHOLDER "ALPHABET-SELECTOR" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "ALPHABET-SELECTOR" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"ASCII"
"STANDARD-1"
"STANDARD-2"
"NATIVE"
"EBCDIC"
"{first-literal} [THROUGH {last-literal}|ALSO {lit1}]"/PLACEHOLDER
END DEFINE
DELETE PLACEHOLDER "ALPHA|VAX" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "ALPHA|VAX" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"ALPHA"
"VAX"
END DEFINE
DELETE PLACEHOLDER "ALSO {DATABASE-KEY}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "ALSO {DATABASE-KEY}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"ALSO {database-key}"
END DEFINE
DELETE PLACEHOLDER "ALSO {DATABASE-KEY}|NULL|WITHIN {KEEPLIST-NAME}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "ALSO {DATABASE-KEY}|NULL|WITHIN {KEEPLIST-NAME}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"ALSO {database-key}"/PLACEHOLDER
"NULL"
"WITHIN {keeplist-name}"/PLACEHOLDER
END DEFINE
DELETE PLACEHOLDER "ALSO {EVAL-SUBJECT}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "ALSO {EVAL-SUBJECT}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR=" " -
/TYPE=NONTERMINAL -
"ALSO {eval-subject}"
END DEFINE
DELETE PLACEHOLDER "ALSO {LIT1}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "ALSO {LIT1}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR=" " -
/TYPE=NONTERMINAL -
"ALSO {lit1}"
END DEFINE
DELETE PLACEHOLDER "ALSO {OBJECT-ITEM}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "ALSO {OBJECT-ITEM}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR=" " -
/TYPE=NONTERMINAL -
"ALSO {object-item}"
END DEFINE
DELETE PLACEHOLDER "ALT-KEY" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "ALT-KEY" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is the Alternate Record Key for the file. It is the data-name of a data"
"item in a Record Description entry for the file. The data item must be"
"described as: (1) alphanumeric or alphabetic category, (2) a group item,"
"(3) unsigned numeric display, (4) a COMP-3 integer, or (5) a COMP integer"
"with no more than eighteen digits."
END DEFINE
DELETE PLACEHOLDER "ALT-KEY2" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "ALT-KEY2" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"alt-key"/PLACEHOLDER
"{alt-seg-key = {seg}...}"/PLACEHOLDER
END DEFINE
DELETE PLACEHOLDER "ALT-SEG-KEY" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "ALT-SEG-KEY" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is the Alternate Record Key for the file. It is a segmented-key name"
"that represents the concatenation of one or more (up to eight)"
"occurrences of seg."
END DEFINE
DELETE PLACEHOLDER ALTER -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER ALTER -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="ALTER statement" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"ALTER {{proc} TO PROCEED TO {new-proc}}..."
END DEFINE
DELETE PLACEHOLDER "ALTERNATE RECORD KEY IS {ALT-KEY2} [WITH DUPLICATES] [ASCENDING|DESCENDING]" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "ALTERNATE RECORD KEY IS {ALT-KEY2} [WITH DUPLICATES] [ASCENDING|DESCENDING]" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR=" " -
/TYPE=NONTERMINAL -
"ALTERNATE RECORD KEY IS {alt-key2} [WITH DUPLICATES] [ASCENDING|DESCENDING]"
END DEFINE
DELETE PLACEHOLDER "AND {SEARCH-SELECTOR}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "AND {SEARCH-SELECTOR}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR=" " -
/TYPE=NONTERMINAL -
"AND {search-selector}"
END DEFINE
DELETE PLACEHOLDER "AND|OR" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "AND|OR" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"AND"
"OR"
END DEFINE
DELETE PLACEHOLDER "APPLY [APPLY-OPTIONS] ON {FILE-NAME}..." -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "APPLY [APPLY-OPTIONS] ON {FILE-NAME}..." -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR=" " -
/TYPE=NONTERMINAL -
"APPLY"
" [DEFERRED-WRITE]"
" [EXTENSION {extend-amt}]"
" [FILL-SIZE]"
" [LOCK-HOLDING]"
" [MASS-INSERT]"
" [[CONTIGUOUS|CONTIGUOUS-BEST-TRY] PREALLOCATION {preall-amt}]"
" [PRINT-CONTROL]"
" [WINDOW {window-ptrs}]"
" ON {file-name}..."
END DEFINE
DELETE PLACEHOLDER ARG1 -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER ARG1 -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR=" " -
/TYPE=TERMINAL -
"is the argument. It identifies the data that is available to both the"
"calling and called programs. It is any data item described in the"
"Sub-Schema Section, File Section, Working-Storage Section, or Linkage"
"Section, or it is a nonnumeric literal."
END DEFINE
DELETE PLACEHOLDER ARG2 -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER ARG2 -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is the argument tested against each elemnt in the search. It is an"
"identifier, a literal, or an arithmetic expression."
END DEFINE
DELETE PLACEHOLDER "ARG2-OR-FUNC" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "ARG2-OR-FUNC" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"ARG2"/PLACEHOLDER
"FUNCTION"/PLACEHOLDER
END DEFINE
DELETE PLACEHOLDER "ARITHMETIC-EXPR" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "ARITHMETIC-EXPR" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"One of the following:"
" an identifier of a numeric elementary item"
" a numeric literal"
" two or more of the above choices separated by arithmetic operators"
" two or more arithmetic expressions separated by an arithmetic operator"
" an arithmetic expression enclosed in parentheses"
END DEFINE
DELETE PLACEHOLDER "ARITHMETIC-EXPRESSION" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "ARITHMETIC-EXPRESSION" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"ARITHMETIC-EXPR"/PLACEHOLDER
"FUNCTION"/PLACEHOLDER
END DEFINE
DELETE PLACEHOLDER "ASCENDING|DESCENDING" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "ASCENDING|DESCENDING" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"ASCENDING"
"DESCENDING"
END DEFINE
DELETE PLACEHOLDER "AT COLUMN NUMBER {COLUMN-NUM-OPTIONS2}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "AT COLUMN NUMBER {COLUMN-NUM-OPTIONS2}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"AT COLUMN NUMBER {column-num-options2}"
END DEFINE
DELETE PLACEHOLDER "AT COLUMN NUMBER {SCREEN-COLUMN-NUM-OPTIONS}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "AT COLUMN NUMBER {SCREEN-COLUMN-NUM-OPTIONS}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"AT COLUMN NUMBER {screen-column-num-options}"
END DEFINE
DELETE PLACEHOLDER "AT END {STATEMENT}..." -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "AT END {STATEMENT}..." -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"AT END"
" {statement}..."
END DEFINE
DELETE PLACEHOLDER "AT END-OF-PAGE {STATEMENT}..." -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "AT END-OF-PAGE {STATEMENT}..." -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"AT END-OF-PAGE"
" {statement}..."
END DEFINE
DELETE PLACEHOLDER "AT LINE NUMBER {LINE-NUM-OPTIONS2}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "AT LINE NUMBER {LINE-NUM-OPTIONS2}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"AT LINE NUMBER {line-num-options2}"
END DEFINE
DELETE PLACEHOLDER "AT LINE NUMBER {SCREEN-LINE-NUM-OPTIONS}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "AT LINE NUMBER {SCREEN-LINE-NUM-OPTIONS}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"AT LINE NUMBER {screen-line-num-options}"
END DEFINE
DELETE PLACEHOLDER "AT-END-OF-PAGE-PHRASE" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "AT-END-OF-PAGE-PHRASE" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"[AT END-OF-PAGE {statement}...]"
"[NOT AT END-OF-PAGE {statement}...]"
END DEFINE
DELETE PLACEHOLDER "AT-END-PHRASE" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "AT-END-PHRASE" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"[AT END {statement}...]"
"[NOT AT END {statement}...]"
END DEFINE
DELETE PLACEHOLDER "AT-END-PHRASE|ON-ERROR-PHRASE" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "AT-END-PHRASE|ON-ERROR-PHRASE" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"at-end-phrase"/PLACEHOLDER
"on-error-phrase"/PLACEHOLDER
END DEFINE
DELETE PLACEHOLDER "AUTHOR. [COMMENT-ENTRY]" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "AUTHOR. [COMMENT-ENTRY]" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"AUTHOR. [comment-entry]"
END DEFINE
DELETE PLACEHOLDER AUTO -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER AUTO -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"AUTO"
END DEFINE
DELETE PLACEHOLDER "AXP|VAX" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "AXP|VAX" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"AXP"
"VAX"
END DEFINE
DELETE PLACEHOLDER "BACKGROUND COLOR IS {COLOR-NUM}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "BACKGROUND COLOR IS {COLOR-NUM}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"BACKGROUND COLOR IS {color-num}"
END DEFINE
DELETE PLACEHOLDER "BEFORE INITIAL {DELIM-VAL}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "BEFORE INITIAL {DELIM-VAL}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"BEFORE INITIAL {delim-val}"
END DEFINE
DELETE PLACEHOLDER "BEFORE|AFTER" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "BEFORE|AFTER" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"BEFORE"
"AFTER"
END DEFINE
DELETE PLACEHOLDER BELL -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER BELL -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"BELL"
END DEFINE
DELETE PLACEHOLDER "BLANK SCREEN" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "BLANK SCREEN" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"BLANK SCREEN"
END DEFINE
DELETE PLACEHOLDER "BLANK WHEN ZERO" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "BLANK WHEN ZERO" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"BLANK WHEN ZERO"
END DEFINE
DELETE PLACEHOLDER "BLANK {LINE|SCREEN}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "BLANK {LINE|SCREEN}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"BLANK {LINE|SCREEN}"
END DEFINE
DELETE PLACEHOLDER BLINK -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER BLINK -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"BLINK"
END DEFINE
DELETE PLACEHOLDER "BLOCK CONTAINS [{SMALLEST-BLOCK} TO] {BLOCKSIZE} {RECORDS|CHARACTERS}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "BLOCK CONTAINS [{SMALLEST-BLOCK} TO] {BLOCKSIZE} {RECORDS|CHARACTERS}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"BLOCK CONTAINS [{smallest-block} TO] {blocksize} {RECORDS|CHARACTERS}"
END DEFINE
DELETE PLACEHOLDER BLOCKSIZE -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER BLOCKSIZE -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is an integer literal. It specifies the exact or maximum physical record"
"size."
END DEFINE
DELETE PLACEHOLDER BOLD -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER BOLD -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"BOLD"
END DEFINE
DELETE PLACEHOLDER "BOOL-CONDITION" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "BOOL-CONDITION" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"{src-item1} {bool-operator} {src-item1}"
END DEFINE
DELETE PLACEHOLDER "BOOL-EXP" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "BOOL-EXP" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"[NOT] {bool-condition} [combined-bool-condition]..."
END DEFINE
DELETE PLACEHOLDER "BOOL-OPERATOR" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "BOOL-OPERATOR" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"IS [NOT] EQUAL TO"
"IS [NOT] ="
"IS [NOT] LESS THAN"
"IS [NOT] <"
"IS [NOT] GREATER THAN"
"IS [NOT] >"
"IS GREATER THAN OR EQUAL TO"
"IS >="
"IS LESS THAN OR EQUAL TO"
"IS <="
"DOES [NOT] CONTAINS"
"DOES [NOT] MATCH"
"DOES [NOT] MATCHES"
END DEFINE
DELETE PLACEHOLDER "BOTTOM-LINES" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "BOTTOM-LINES" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is an integer or the data-name of an elementary unsigned integer numeric"
"data item. Its value can be zero. Bottom-lines specifies the number of"
"lines in the bottom margin of the logical page. If bottom-lines is"
"a data-name, it can be qualified."
END DEFINE
DELETE PLACEHOLDER "BY CONTENT {ARG1}..." -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "BY CONTENT {ARG1}..." -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR=" " -
/TYPE=NONTERMINAL -
"BY CONTENT {arg1}..."
END DEFINE
DELETE PLACEHOLDER "BY DESCRIPTOR {ARG1}..." -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "BY DESCRIPTOR {ARG1}..." -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR=" " -
/TYPE=NONTERMINAL -
"BY DESCRIPTOR {arg1}..."
END DEFINE
DELETE PLACEHOLDER "BY REFERENCE {ARG1}..." -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "BY REFERENCE {ARG1}..." -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR=" " -
/TYPE=NONTERMINAL -
"BY REFERENCE {arg1}..."
END DEFINE
DELETE PLACEHOLDER "BY VALUE {ARG1}..." -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "BY VALUE {ARG1}..." -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR=" " -
/TYPE=NONTERMINAL -
"BY VALUE {arg1}..."
END DEFINE
DELETE PLACEHOLDER CALL -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER CALL -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="CALL statement" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"CALL {prog-name1}"
" [USING {first-args} [other-args]...]"
" [GIVING {function-res}]"
" [on-exception-phrase]"
"END-CALL"
END DEFINE
DELETE PLACEHOLDER CANCEL -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER CANCEL -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="CANCEL statement" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"CANCEL {prog-name2}..."
END DEFINE
DELETE PLACEHOLDER "CARD-READER .." -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "CARD-READER .." -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"CARD-READER"
"PAPER-TAPE-READER"
"CONSOLE"
"LINE-PRINTER"
"PAPER-TAPE-PUNCH"
"C01"
END DEFINE
DELETE PLACEHOLDER "CHANNEL-NUM" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "CHANNEL-NUM" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"for VAX COBOL VFU is an integer or the identifier of an unsigned data"
"item described as an integer. Its value can be between zero and 15."
END DEFINE
DELETE PLACEHOLDER CHAR -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER CHAR -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is a one-character nonnumeric literal that specifies the currency symbol."
"It cannot be a symbolic character."
END DEFINE
DELETE PLACEHOLDER "CHAR-VAL" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "CHAR-VAL" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is an integer that indicates the ordinal position of a character in the"
"native character set."
END DEFINE
DELETE PLACEHOLDER "CHARACTER-STRING" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "CHARACTER-STRING" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"contains allowable combinations of characters in the COBOL character set."
"These characters are called the 'symbols' of the PICTURE character-string;"
"character-string can contain from 1 to 255 symbols."
END DEFINE
DELETE PLACEHOLDER "CHARACTERS BY {REPLACE-CHAR} [{BEFORE|AFTER} INITIAL {DELIM-VAL}]..." -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "CHARACTERS BY {REPLACE-CHAR} [{BEFORE|AFTER} INITIAL {DELIM-VAL}]..." -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"CHARACTERS BY {replace-char} [{BEFORE|AFTER} INITIAL {delim-val}]..."
END DEFINE
DELETE PLACEHOLDER "CHG-DATE-AUTHOR-DESC" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "CHG-DATE-AUTHOR-DESC" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"Chg # Date Author Description"
END DEFINE
DELETE PLACEHOLDER "CLASS {CLASS-NAME} IS {CLASS-DEF}..." -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "CLASS {CLASS-NAME} IS {CLASS-DEF}..." -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR=" " -
/TYPE=NONTERMINAL -
"CLASS {class-name} IS {class-def}..."
END DEFINE
DELETE PLACEHOLDER "CLASS-DEF" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "CLASS-DEF" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR=" " -
/TYPE=NONTERMINAL -
"{first-literal} [THROUGH {last-literal}]"
END DEFINE
DELETE PLACEHOLDER "CLASS-NAME" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "CLASS-NAME" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is a user-defined word for a class. It always possesses the global"
"attribute"
END DEFINE
DELETE PLACEHOLDER "CLOSE-OPTION" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "CLOSE-OPTION" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"REEL [FOR REMOVAL|WITH NO REWIND]"/PLACEHOLDER
"UNIT [FOR REMOVAL|WITH NO REWIND]"/PLACEHOLDER
"WITH NO REWIND"
"WITH LOCK"
END DEFINE
DELETE PLACEHOLDER "CODE {REPORT-CODE}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "CODE {REPORT-CODE}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"CODE {report-code}"
END DEFINE
DELETE PLACEHOLDER "CODE-SET IS {ALPHABET-NAME3}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "CODE-SET IS {ALPHABET-NAME3}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"CODE-SET IS {alphabet-name3}"
END DEFINE
DELETE PLACEHOLDER "COLLATING SEQUENCE IS {ALPHA}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "COLLATING SEQUENCE IS {ALPHA}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"COLLATING SEQUENCE IS {alpha}"
END DEFINE
DELETE PLACEHOLDER "COLOR-NUM" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "COLOR-NUM" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"an integer in the range 0-7 specifying a color."
END DEFINE
DELETE PLACEHOLDER "COLUMN NUMBER IS {COLUMN-NUM1}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "COLUMN NUMBER IS {COLUMN-NUM1}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"COLUMN NUMBER IS {column-num1}"
END DEFINE
DELETE PLACEHOLDER "COLUMN NUMBER IS {[PLUS] {SCREEN-POSITION-SPEC}}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "COLUMN NUMBER IS {[PLUS] {SCREEN-POSITION-SPEC}}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"COLUMN NUMBER IS {[PLUS] {screen-position-spec}}"
END DEFINE
DELETE PLACEHOLDER "COLUMN-ID" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "COLUMN-ID" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is the identifier of a data item that provides a column position on the"
"terminal screen."
END DEFINE
DELETE PLACEHOLDER "COLUMN-NUM-OPTIONS1" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "COLUMN-NUM-OPTIONS1" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"COLUMN-NUM2"/PLACEHOLDER
"{column-id} [PLUS [plus-num1]]"/PLACEHOLDER
"PLUS [plus-num1]"/PLACEHOLDER
END DEFINE
DELETE PLACEHOLDER "COLUMN-NUM-OPTIONS2" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "COLUMN-NUM-OPTIONS2" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"COLUMN-NUM2"/PLACEHOLDER
"{column-id} [PLUS [plus-num2]]"/PLACEHOLDER
"PLUS [plus-num2]"/PLACEHOLDER
END DEFINE
DELETE PLACEHOLDER "COLUMN-NUM1" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "COLUMN-NUM1" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is a positive integer greater than zero."
END DEFINE
DELETE PLACEHOLDER "COLUMN-NUM2" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "COLUMN-NUM2" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is a numeric literal that specifies a column position on the terminal"
"screen. Column-num must be a positive integer. It cannot be zero."
END DEFINE
DELETE PLACEHOLDER "COMBINED-BOOL-CONDITION" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "COMBINED-BOOL-CONDITION" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR=" " -
/TYPE=NONTERMINAL -
"{AND|OR} [NOT] {bool-condition}"
END DEFINE
DELETE PLACEHOLDER "COMMENT-ENTRY" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "COMMENT-ENTRY" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"can consist of any combination of characters from the computer character"
"set. Comment-entries can span several lines in Area B. However,"
"they cannot be continued by using a hyphen in the indicator area."
"The end of comment-entry is the line before the next entry in Area A."
END DEFINE
DELETE PLACEHOLDER COMMON -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER COMMON -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"COMMON"
END DEFINE
DELETE PLACEHOLDER "COMPARE-CHAR-CLAUSE" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "COMPARE-CHAR-CLAUSE" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR=" " -
/TYPE=NONTERMINAL -
"{compare-val} [{BEFORE|AFTER} INITIAL {delim-val}]..."
END DEFINE
DELETE PLACEHOLDER "COMPARE-CHARS" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "COMPARE-CHARS" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is the string that contains the individual characters that convert to"
"those in convert-chars. It is the same kind of item as compare-val."
END DEFINE
DELETE PLACEHOLDER "COMPARE-VAL" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "COMPARE-VAL" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is the character-string INSPECT uses for comparison. It is a nonnumeric"
"literal (or figurative constant other than ALL literal) or the identifier"
"of an elementary alphabetic, alphanumeric, or numeric data item with"
"DISPLAY usage."
END DEFINE
DELETE PLACEHOLDER "COMPARE-VAL-CLAUSE" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "COMPARE-VAL-CLAUSE" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"ALL {compare-char-clause}..."
"LEADING {compare-char-clause}..."
"CHARACTERS [{BEFORE|AFTER} INITIAL {delim-val}]... "
END DEFINE
DELETE PLACEHOLDER "COMP|COMP-1|COMP-2|COMP-3|COMP-5|COMP-X|DISPLAY|INDEX|POINTER" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "COMP|COMP-1|COMP-2|COMP-3|COMP-5|COMP-X|DISPLAY|INDEX|POINTER" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"BINARY"
"COMPUTATIONAL"
"COMP"
"COMPUTATIONAL-1"
"COMP-1"
"COMPUTATIONAL-2"
"COMP-2"
"COMPUTATIONAL-3"
"COMP-3"
"COMPUTATIONAL-5"
"COMP-5"
"COMPUTATIONAL-X"
"COMP-X"
"DISPLAY"
"INDEX"
"PACKED-DECIMAL"
"POINTER"
END DEFINE
DELETE PLACEHOLDER "COMP|COMP-1|COMP-2|COMP-3|COMP-5|COMP-X|DISPLAY|INDEX|POINTER|POINTER-64" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "COMP|COMP-1|COMP-2|COMP-3|COMP-5|COMP-X|DISPLAY|INDEX|POINTER|POINTER-64" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"BINARY"
"COMPUTATIONAL"
"COMP"
"COMPUTATIONAL-1"
"COMP-1"
"COMPUTATIONAL-2"
"COMP-2"
"COMPUTATIONAL-3"
"COMP-3"
"COMPUTATIONAL-5"
"COMP-5"
"COMPUTATIONAL-X"
"COMP-X"
"DISPLAY"
"INDEX"
"PACKED-DECIMAL"
"POINTER"
"POINTER-64"
END DEFINE
DELETE PLACEHOLDER "CONCURRENT|EXCLUSIVE|PROTECTED|BATCH" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "CONCURRENT|EXCLUSIVE|PROTECTED|BATCH" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"CONCURRENT"
"EXCLUSIVE"
"PROTECTED"
"BATCH"
END DEFINE
DELETE PLACEHOLDER "COND-NAME" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "COND-NAME" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is a condition-name for the ON or OFF status of the switch."
"It always possesses the global attribute. Its truth value is"
"TRUE when the STATUS phrase matches the status of the switch,"
"FALSE when it does not."
END DEFINE
DELETE PLACEHOLDER "CONDITION-NAME" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "CONDITION-NAME" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"A user-defined word that assigns a name to a subset of values that"
"a conditional variable can assume or names the status of an external"
"switch."
END DEFINE
DELETE PLACEHOLDER "CONDITION-NAME1" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "CONDITION-NAME1" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR=" " -
/TYPE=TERMINAL -
"is a condition-name that must be associated with a conditional variable."
END DEFINE
DELETE PLACEHOLDER "CONDITIONAL-EXPRESSION" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "CONDITIONAL-EXPRESSION" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"[NOT] {conditional-expression} {{AND|OR} [NOT] {conditional-expression}}..."/PLACEHOLDER
"{relation-condition} [{AND|OR} [relational-operator] {relation-object}]..."/PLACEHOLDER
"{identifier} IS [NOT] {NUMERIC|ALPHABETIC|ALPHABETIC-LOWER|ALPHABETIC-UPPER|{class-name}}"/PLACEHOLDER
"CONDITION-NAME"/PLACEHOLDER
"SWITCH-STATUS"/PLACEHOLDER
"{arithmetic-expression} IS [NOT] {POSITIVE|NEGATIVE|ZERO}"/PLACEHOLDER
"DATABASE-CONDITION"/PLACEHOLDER
"{status-code-id} IS {SUCCESS|FAILURE}"/PLACEHOLDER
END DEFINE
DELETE PLACEHOLDER "CONFIGURATION SECTION .." -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "CONFIGURATION SECTION .." -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"CONFIGURATION SECTION."
"[SOURCE-COMPUTER ..]"
"[OBJECT-COMPUTER ..]"
"[SPECIAL-NAMES ..]"
END DEFINE
DELETE PLACEHOLDER "CONTAINED-PROGRAM" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "CONTAINED-PROGRAM" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=VERTICAL -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
""
"{IDENTIFICATION DIVISION ..}"
"[ENVIRONMENT DIVISION ..]"
"[DATA DIVISION ..]"
"[PROCEDURE DIVISION ..]"
"[contained-program]..."
"END PROGRAM {program-name}."
END DEFINE
DELETE PLACEHOLDER "CONTAINS .. CHARACTERS|IS VARYING .." -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "CONTAINS .. CHARACTERS|IS VARYING .." -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"CONTAINS [{shortest-rec} TO] {longest-rec} CHARACTERS"/PLACEHOLDER
"IS VARYING IN SIZE [FROM {shortest-rec}] [TO {longest-rec}] CHARACTERS [DEPENDING ON {depending-item2}]"/PLACEHOLDER
END DEFINE
DELETE PLACEHOLDER "CONTAINS [{SHORTEST-REC} TO] {LONGEST-REC} CHARACTERS" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "CONTAINS [{SHORTEST-REC} TO] {LONGEST-REC} CHARACTERS" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"CONTAINS [{shortest-rec} TO] {longest-rec} CHARACTERS"
END DEFINE
DELETE PLACEHOLDER "CONTIGUOUS|CONTIGUOUS-BEST-TRY" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "CONTIGUOUS|CONTIGUOUS-BEST-TRY" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"CONTIGUOUS"
"CONTIGUOUS-BEST-TRY"
END DEFINE
DELETE PLACEHOLDER "CONTROL FOOTING {{CONTROL-FOOT-NAME}|FINAL}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "CONTROL FOOTING {{CONTROL-FOOT-NAME}|FINAL}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"CONTROL FOOTING {{control-foot-name}|FINAL}"
END DEFINE
DELETE PLACEHOLDER "CONTROL HEADING {{CONTROL-HEAD-NAME}|FINAL}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "CONTROL HEADING {{CONTROL-HEAD-NAME}|FINAL}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"CONTROL HEADING {{control-head-name}|FINAL}"
END DEFINE
DELETE PLACEHOLDER "CONTROL IS {{CONTROL-NAME}|FINAL [CONTROL-NAME]...}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "CONTROL IS {{CONTROL-NAME}|FINAL [CONTROL-NAME]...}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"CONTROL IS {{control-name}|FINAL [control-name]...}"
END DEFINE
DELETE PLACEHOLDER "CONTROL KEY IN {KEY-DEST-ITEM}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "CONTROL KEY IN {KEY-DEST-ITEM}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"CONTROL KEY IN {key-dest-item}"
END DEFINE
DELETE PLACEHOLDER "CONTROL-FOOT-NAME" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "CONTROL-FOOT-NAME" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"must reference a control-name in the report's CONTROL clause."
END DEFINE
DELETE PLACEHOLDER "CONTROL-HEAD-NAME" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "CONTROL-HEAD-NAME" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"names a control-name in the CONTROL clause."
END DEFINE
DELETE PLACEHOLDER "CONTROL-NAME" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "CONTROL-NAME" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR=" " -
/TYPE=TERMINAL -
"is any data-name in the Subschema, File, Working-Storage, or Linkage"
"Section."
END DEFINE
DELETE PLACEHOLDER "CONVERT-CHARS" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "CONVERT-CHARS" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is the string that contains the individual characters to which the"
"characters in compare-chars convert. It is the same kind of item"
"as compare-val."
END DEFINE
DELETE PLACEHOLDER "COUNT IN {COUNTR}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "COUNT IN {COUNTR}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"COUNT IN {countr}"
END DEFINE
DELETE PLACEHOLDER COUNTR -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER COUNTR -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is the identifier of an elementary numeric data item described as an"
"integer. It contains the count of characters moved."
END DEFINE
DELETE PLACEHOLDER "CP-DESCRIPTION" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "CP-DESCRIPTION" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"indicates how the program is called and what other programs are"
"called from within the main program."
END DEFINE
DELETE PLACEHOLDER "CRT STATUS IS {CRT-STS-NAME}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "CRT STATUS IS {CRT-STS-NAME}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION=" : FOR X/Open on DEC COBOL" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"CRT STATUS IS {crt-sts-name}"
END DEFINE
DELETE PLACEHOLDER "CRT-STS-NAME" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "CRT-STS-NAME" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"For X/Open on DEC COBOL: is a group data item declared in program's Working-Storage"
END DEFINE
DELETE PLACEHOLDER "CURRENCY SIGN IS {CHAR}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "CURRENCY SIGN IS {CHAR}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"CURRENCY SIGN IS {char}"
END DEFINE
DELETE PLACEHOLDER "CURRENCY-INDICATORS" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "CURRENCY-INDICATORS" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"[REALM] [RECORD] [[SET] [set-name]...]"
END DEFINE
DELETE PLACEHOLDER CURRENT -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER CURRENT -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"CURRENT"
END DEFINE
DELETE PLACEHOLDER "CURRENT [WITHIN {{RECORD-NAME}|{SET-NAME}|{REALM-NAME}}]" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "CURRENT [WITHIN {{RECORD-NAME}|{SET-NAME}|{REALM-NAME}}]" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"CURRENT [WITHIN {{record-name}|{set-name}|{realm-name}}]"
END DEFINE
DELETE PLACEHOLDER "CURSOR IS {CURSOR-NAME}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "CURSOR IS {CURSOR-NAME}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION=" : FOR X/Open on DEC COBOL" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"CURSOR IS {cursor-name}"
END DEFINE
DELETE PLACEHOLDER "CURSOR-NAME" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "CURSOR-NAME" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"For X/Open on DEC COBOL: is a data item declared in the program's Working-Storage"
END DEFINE
DELETE PLACEHOLDER "DATA DIVISION .." -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "DATA DIVISION .." -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
""
"DATA DIVISION."
"[SUB-SCHEMA SECTION ..]"
"[FILE SECTION ..]"
"[WORKING-STORAGE SECTION ..]"
"[LINKAGE SECTION ..]"
"[REPORT SECTION ..]"
"[SCREEN SECTION ..]"
END DEFINE
DELETE PLACEHOLDER "DATA RECORDS ARE {REC-NAME3}..." -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "DATA RECORDS ARE {REC-NAME3}..." -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"DATA RECORDS ARE {rec-name3}..."
END DEFINE
DELETE PLACEHOLDER "DATA-NAME" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "DATA-NAME" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR=" " -
/TYPE=TERMINAL -
"names a data item in the File, Working-Storage, or Subschema Section."
"Data-name may be qualified."
END DEFINE
DELETE PLACEHOLDER "DATABASE-CONDITION" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "DATABASE-CONDITION" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"[NOT] [set-name] {OWNER|MEMBER|TENANT}"/PLACEHOLDER
"[{set-name} IS] [NOT] EMPTY"/PLACEHOLDER
"{database-key} IS [NOT] {ALSO {database-key}|NULL|WITHIN {keeplist-name}}"/PLACEHOLDER
END DEFINE
DELETE PLACEHOLDER "DATABASE-KEY" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "DATABASE-KEY" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"references a DBMS currency indicator, or a DBMS keeplist entry"
"in the Sub-Schema Section."
END DEFINE
DELETE PLACEHOLDER "DATABASE-KEY-ID" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "DATABASE-KEY-ID" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"CURRENT [WITHIN {{record-name}|{set-name}|{realm-name}}]"/PLACEHOLDER
"{OFFSET {integer-exp}|FIRST|LAST} {WITHIN {keeplist-name}}"/PLACEHOLDER
END DEFINE
DELETE PLACEHOLDER "DATABASE-KEY-ID|ALL-PHRASE" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "DATABASE-KEY-ID|ALL-PHRASE" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"database-key-id"/PLACEHOLDER
"all-phrase"/PLACEHOLDER
END DEFINE
DELETE PLACEHOLDER "DATABASE-NAME" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "DATABASE-NAME" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"represents a complete or partial file specification defining the DBMS "
"database occurrence. A database occurrence is a root file. At run time,"
"database-name points the Data Base Control System (DBCS) to the root file."
END DEFINE
DELETE PLACEHOLDER "DATE [YYYYMMDD]|DAY [YYYYDDD]|DAY-OF-WEEK|TIME" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "DATE [YYYYMMDD]|DAY [YYYYDDD]|DAY-OF-WEEK|TIME" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"DATE [YYYYMMDD]"
"DAY [YYYYDDD]"
"DAY-OF-WEEK"
"TIME"
END DEFINE
DELETE PLACEHOLDER "DATE-COMPILED. [COMMENT-ENTRY]" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "DATE-COMPILED. [COMMENT-ENTRY]" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"DATE-COMPILED. [comment-entry]"
END DEFINE
DELETE PLACEHOLDER "DATE-WRITTEN. [COMMENT-ENTRY]" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "DATE-WRITTEN. [COMMENT-ENTRY]" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"DATE-WRITTEN. [comment-entry]"
END DEFINE
DELETE PLACEHOLDER "DATE|DAY|DAY-OF-WEEK|TIME" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "DATE|DAY|DAY-OF-WEEK|TIME" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"DATE"
"DAY"
"DAY-OF-WEEK"
"TIME"
END DEFINE
DELETE PLACEHOLDER "DB {SUBSCHEMA-NAME} .. [LD {KEEPLIST-NAME}.]..." -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "DB {SUBSCHEMA-NAME} .. [LD {KEEPLIST-NAME}.]..." -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"DB {subschema-name} WITHIN {schema-name} "
" [FOR {database-name}] [THRU {stream-name}]."
"[LD {keeplist-name}.]..."
END DEFINE
DELETE PLACEHOLDER DBKEY -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER DBKEY -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"DBKEY"
END DEFINE
DELETE PLACEHOLDER "DBM$_EXCEPTION-CONDITION" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "DBM$_EXCEPTION-CONDITION" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR=" " -
/TYPE=TERMINAL -
"is a symbolic constant name beginning with the characters 'DBM$_'."
"It identifies a DBMS exception condition."
END DEFINE
DELETE PLACEHOLDER "DECIMAL-POINT IS COMMA" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "DECIMAL-POINT IS COMMA" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"DECIMAL-POINT IS COMMA"
END DEFINE
DELETE PLACEHOLDER "DECLARATIVE-SECTION" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "DECLARATIVE-SECTION" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=VERTICAL -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"{section-name} SECTION [segment-number]."
" {use-statement}."
"[paragraph]..."
END DEFINE
DELETE PLACEHOLDER "DECLARATIVES .." -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "DECLARATIVES .." -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"DECLARATIVES."
"{declarative-section}..."
"END DECLARATIVES."
END DEFINE
DELETE PLACEHOLDER "DEFAULT IS {DEFAULT-OPTIONS}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "DEFAULT IS {DEFAULT-OPTIONS}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"DEFAULT IS {default-options}"
END DEFINE
DELETE PLACEHOLDER "DEFAULT-OPTIONS" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "DEFAULT-OPTIONS" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"DEFAULT-SRC-LIT"/PLACEHOLDER
"DEFAULT-SRC-ITEM"/PLACEHOLDER
"CURRENT VALUE"
END DEFINE
DELETE PLACEHOLDER "DEFAULT-SRC-ITEM" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "DEFAULT-SRC-ITEM" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is the identifier of an alphanumeric data item."
END DEFINE
DELETE PLACEHOLDER "DEFAULT-SRC-LIT" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "DEFAULT-SRC-LIT" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is a nonnumeric literal or a figurative constant. However, it cannot"
"be the figurative constant ALL literal."
END DEFINE
DELETE PLACEHOLDER "DEFERRED-WRITE" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "DEFERRED-WRITE" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"DEFERRED-WRITE"
END DEFINE
DELETE PLACEHOLDER "DELIM-DEST" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "DELIM-DEST" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is the identifier of an alphanumeric data item. It is the receiving"
"field for delimiters."
END DEFINE
DELETE PLACEHOLDER "DELIM-VAL" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "DELIM-VAL" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is the character-string that delimits the INSPECT operation. Its"
"content restrictions are the same as those for compare-val."
END DEFINE
DELETE PLACEHOLDER DELIM1 -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER DELIM1 -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is a nonnumeric literal or the identifier of a DISPLAY data item. It is"
"the delimiter of src-string."
END DEFINE
DELETE PLACEHOLDER DELIM2 -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER DELIM2 -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is a nonumeric literal or the identifier of an alphanumeric data item."
"It is the delimiter for the UNSTRING operation."
END DEFINE
DELETE PLACEHOLDER "DELIMITED BY [ALL] {DELIM2} [OR [ALL] {DELIM2}]..." -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "DELIMITED BY [ALL] {DELIM2} [OR [ALL] {DELIM2}]..." -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"DELIMITED BY [ALL] {delim2} [OR [ALL] {delim2}]..."
END DEFINE
DELETE PLACEHOLDER "DELIMITER IN {DELIM-DEST}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "DELIMITER IN {DELIM-DEST}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"DELIMITER IN {delim-dest}"
END DEFINE
DELETE PLACEHOLDER "DEPENDING ON {DEPENDING-ITEM2}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "DEPENDING ON {DEPENDING-ITEM2}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"DEPENDING ON {depending-item2}"
END DEFINE
DELETE PLACEHOLDER "DEPENDING-ITEM1" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "DEPENDING-ITEM1" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is the data-name of an elementary unsigned integer data item. Its value"
"specifies the current number of occurrences. Depending-item can be"
"qualified."
END DEFINE
DELETE PLACEHOLDER "DEPENDING-ITEM2" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "DEPENDING-ITEM2" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is the data-name of an elementary unsigned integer data item in the"
"Working-Storage or Linkage Section. It specifies the number of"
"character positions for an output operation, and it contains the number"
"of character positions after a successful input operation."
END DEFINE
DELETE PLACEHOLDER "DESCRIPTION OR NONE" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "DESCRIPTION OR NONE" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"NONE"
END DEFINE
DELETE PLACEHOLDER "DEST-AREA" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "DEST-AREA" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is the identifier of the data item to which the returned smrg-file record"
"is moved."
END DEFINE
DELETE PLACEHOLDER "DEST-ITEM1" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "DEST-ITEM1" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is the identifier of a data item into which data is accepted."
END DEFINE
DELETE PLACEHOLDER "DEST-ITEM2" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "DEST-ITEM2" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR=" " -
/TYPE=TERMINAL -
"is an identifier that represents the receiving area."
END DEFINE
DELETE PLACEHOLDER "DEST-ITEM3" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "DEST-ITEM3" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is the identifier of a data item that receives the record accessed by the"
"READ statement."
END DEFINE
DELETE PLACEHOLDER "DEST-STRING" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "DEST-STRING" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is the identifier of an alphanumeric, alphabetic, or numeric DISPLAY"
"data item. It is the receiving field for the data from src-string."
END DEFINE
DELETE PLACEHOLDER "DEST-STRING1" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "DEST-STRING1" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is the identifier of a DISPLAY data item. It cannot be reference"
"modified. Dest-string is the receiving area that contains the result"
"of the concatenated src-strings."
END DEFINE
DELETE PLACEHOLDER "DESTINATION-KEEPLIST" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "DESTINATION-KEEPLIST" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"names a DBMS keeplist in the program's Sub-Schema Section to receive"
"DBMS database key values."
END DEFINE
DELETE PLACEHOLDER "DETAIL-REPORT-GROUP-NAME" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "DETAIL-REPORT-GROUP-NAME" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR=" " -
/TYPE=TERMINAL -
"names a DETAIL report group."
END DEFINE
DELETE PLACEHOLDER "DEVICE-NAME" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "DEVICE-NAME" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is a mnemonic-name for a device or the first line of a logical page"
"(top-of-page). It always possesses the global attribute. Only the"
"ACCEPT, DISPLAY, and WRITE statements can refer to it."
END DEFINE
DELETE PLACEHOLDER "DISK-SEQ-FILE-EXPR" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "DISK-SEQ-FILE-EXPR" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"{EXTERNAL|DYNAMIC} {file-spec1}"
END DEFINE
DELETE PLACEHOLDER DISP -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER DISP -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is any literal, or any figurative constant except ALL literal."
END DEFINE
DELETE PLACEHOLDER "DYNAMIC RELATIVE KEY IS {REL-KEY}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "DYNAMIC RELATIVE KEY IS {REL-KEY}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"DYNAMIC RELATIVE KEY IS {rel-key}"
END DEFINE
DELETE PLACEHOLDER ELEMNT -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER ELEMNT -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is an indexed data-name. It refers to the table element against which the"
"argument is compared."
END DEFINE
DELETE PLACEHOLDER "ELSE {ELSE-PART}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "ELSE {ELSE-PART}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"ELSE"
" {else-part}"
END DEFINE
DELETE PLACEHOLDER "ELSE-PART" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "ELSE-PART" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"STATEMENT"/PLACEHOLDER
"NEXT SENTENCE"
END DEFINE
DELETE PLACEHOLDER "END PROGRAM {PROGRAM-NAME}." -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "END PROGRAM {PROGRAM-NAME}." -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"END PROGRAM {program-name}."
END DEFINE
DELETE PLACEHOLDER "END-IF" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "END-IF" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"END-IF"
END DEFINE
DELETE PLACEHOLDER "END-PROC1" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "END-PROC1" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is the section-name or paragraph-name of the OUTPUT procedure's"
"last section or paragraph."
END DEFINE
DELETE PLACEHOLDER "END-PROC2" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "END-PROC2" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is a procedure-name that identifies a paragraph or section in the"
"Procedure Division. The set of statements in end-proc are the last"
"set of statements in the PERFORM range."
END DEFINE
DELETE PLACEHOLDER "END-PROC3" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "END-PROC3" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is the section-name or paragraph-name of the last section"
"or paragraph of the INPUT or OUTPUT procedure range."
END DEFINE
DELETE PLACEHOLDER "ENVIRONMENT DIVISION .." -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "ENVIRONMENT DIVISION .." -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
""
"ENVIRONMENT DIVISION."
"[CONFIGURATION SECTION ..]"
"[INPUT-OUTPUT SECTION ..]"
END DEFINE
DELETE PLACEHOLDER "EOL|EOS" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "EOL|EOS" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"EOL"
"EOS"
END DEFINE
DELETE PLACEHOLDER "ERASE [TO END OF] {SCREEN|LINE}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "ERASE [TO END OF] {SCREEN|LINE}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"ERASE [TO END OF] {SCREEN|LINE}"
END DEFINE
DELETE PLACEHOLDER "ERASE {EOL|EOS}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "ERASE {EOL|EOS}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"ERASE {EOL|EOS}"
END DEFINE
DELETE PLACEHOLDER "EVAL-SUBJECT" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "EVAL-SUBJECT" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR=" " -
/TYPE=MENU -
"SUBJ-ITEM"/PLACEHOLDER
"FUNCTION"/PLACEHOLDER
"TRUE"
"FALSE"
END DEFINE
DELETE PLACEHOLDER "EXCEPTION|ERROR" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "EXCEPTION|ERROR" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"EXCEPTION"
"ERROR"
END DEFINE
DELETE PLACEHOLDER "EXTEND-AMT" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "EXTEND-AMT" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is an integer from 0 through 65535. It specifies the number of blocks"
"in each extension of a disk file."
END DEFINE
DELETE PLACEHOLDER "EXTEND|OUTPUT" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "EXTEND|OUTPUT" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR=" " -
/TYPE=MENU -
"EXTEND {file-name1}..."
"OUTPUT {{file-name1} [WITH NO REWIND]}..."
END DEFINE
DELETE PLACEHOLDER "EXTENSION {EXTEND-AMT}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "EXTENSION {EXTEND-AMT}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"EXTENSION {extend-amt}"
END DEFINE
DELETE PLACEHOLDER "EXTERNAL {EXTERNAL-NAME}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "EXTERNAL {EXTERNAL-NAME}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"EXTERNAL {external-name}"
END DEFINE
DELETE PLACEHOLDER "EXTERNAL-NAME" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "EXTERNAL-NAME" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"names a COBOL link-time bound constant. It must define a word or longword"
"integer value."
END DEFINE
DELETE PLACEHOLDER "EXTERNAL|DYNAMIC" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "EXTERNAL|DYNAMIC" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"EXTERNAL"
"DYNAMIC"
END DEFINE
DELETE PLACEHOLDER "FD-INDEXED" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FD-INDEXED" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="FD indexed file" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"FD {file-name}"
" [IS EXTERNAL]"
" [IS GLOBAL]"
" [BLOCK CONTAINS [{smallest-block} TO] {blocksize} {RECORDS|CHARACTERS}]"
" [RECORD {CONTAINS .. CHARACTERS|IS VARYING ..}]"
" [LABEL RECORDS ARE {STANDARD|OMITTED}]"
" [VALUE OF ID IS {file-spec2}]"
" [DATA RECORDS ARE {rec-name3}...]"
" [ACCESS MODE IS {SEQUENTIAL|RANDOM|DYNAMIC}]"
" [RECORD KEY IS {rec-key1} [WITH DUPLICATES] [ASCENDING|DESCENDING]]"
" [ALTERNATE RECORD KEY IS {alt-key2} [WITH DUPLICATES] [ASCENDING|DESCENDING]]..."
" [FILE STATUS IS {file-stat}]."
END DEFINE
DELETE PLACEHOLDER "FD-RELATIVE" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FD-RELATIVE" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="FD relative file" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"FD {file-name}"
" [IS EXTERNAL]"
" [IS GLOBAL]"
" [BLOCK CONTAINS [{smallest-block} TO] {blocksize} {RECORDS|CHARACTERS}]"
" [RECORD {CONTAINS .. CHARACTERS|IS VARYING ..}]"
" [LABEL RECORDS ARE {STANDARD|OMITTED}]"
" [VALUE OF ID IS {file-spec2}]"
" [DATA RECORDS ARE {rec-name3}...]"
" [ACCESS MODE IS {{SEQUENTIAL|RANDOM|DYNAMIC} RELATIVE KEY IS {rel-key}}]"
" [FILE STATUS IS {file-stat}]."
END DEFINE
DELETE PLACEHOLDER "FD-REPORT" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FD-REPORT" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="FD report file" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"FD {file-name}"
" [IS EXTERNAL]"
" [IS GLOBAL]"
" [BLOCK CONTAINS [{smallest-block} TO] {blocksize} {RECORDS|CHARACTERS}]"
" [RECORD {CONTAINS .. CHARACTERS|IS VARYING ..}]"
" [LABEL RECORDS ARE {STANDARD|OMITTED}]"
" [VALUE OF ID IS {file-spec2}]"
" [ACCESS MODE IS SEQUENTIAL]"
" REPORTS ARE {report-name}..."
" [CODE-SET IS {alphabet-name3}]"
" [FILE STATUS IS {file-stat}]."
END DEFINE
DELETE PLACEHOLDER "FD-SEQUENTIAL" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FD-SEQUENTIAL" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="FD sequential file" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"FD {file-name}"
" [IS EXTERNAL]"
" [IS GLOBAL]"
" [BLOCK CONTAINS [{smallest-block} TO] {blocksize} {RECORDS|CHARACTERS}]"
" [RECORD {CONTAINS .. CHARACTERS|IS VARYING ..}]"
" [LABEL RECORDS ARE {STANDARD|OMITTED}]"
" [VALUE OF ID IS {file-spec2}]"
" [DATA RECORDS ARE {rec-name3}...]"
" [LINAGE IS {page-lines} LINES]"
" [CODE-SET IS {alphabet-name3}]"
" [ACCESS MODE IS SEQUENTIAL]"
" [FILE STATUS IS {file-stat}]."
END DEFINE
DELETE PLACEHOLDER "FILE SECTION .." -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FILE SECTION .." -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"FILE SECTION."
"[file-description]..."
"[report-file-description]..."
"[sort-merge-file-description]..."
END DEFINE
DELETE PLACEHOLDER "FILE STATUS IS {FILE-STAT}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FILE STATUS IS {FILE-STAT}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"FILE STATUS IS {file-stat}"
END DEFINE
DELETE PLACEHOLDER "FILE-CONTROL .." -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FILE-CONTROL .." -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"FILE-CONTROL."
" {file-control-entry}..."
END DEFINE
DELETE PLACEHOLDER "FILE-CONTROL-ENTRY" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FILE-CONTROL-ENTRY" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=VERTICAL -
/SEPARATOR="" -
/TYPE=MENU -
"SELECT-LINE-SEQUENTIAL" /TOKEN
"SELECT-SEQUENTIAL" /TOKEN
"SELECT-RELATIVE" /TOKEN
"SELECT-INDEXED" /TOKEN
"SELECT-SORT-MERGE" /TOKEN
"SELECT-REPORT" /TOKEN
END DEFINE
DELETE PLACEHOLDER "FILE-DESCRIPTION" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FILE-DESCRIPTION" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=VERTICAL -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"{file-description-entry}"
"{record-description-entry}..."
END DEFINE
DELETE PLACEHOLDER "FILE-DESCRIPTION-ENTRY" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FILE-DESCRIPTION-ENTRY" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"FD-SEQUENTIAL" /TOKEN
"FD-RELATIVE" /TOKEN
"FD-INDEXED" /TOKEN
END DEFINE
DELETE PLACEHOLDER "FILE-NAME" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FILE-NAME" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR=" " -
/TYPE=TERMINAL -
"A user-defined word that names a file connector described in a file"
"description entry or a sort-merge file description entry."
END DEFINE
DELETE PLACEHOLDER "FILE-NAME1" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FILE-NAME1" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR=" " -
/TYPE=TERMINAL -
"is the name of a file described in the Data Division. It cannot be a sort"
"or merge file."
END DEFINE
DELETE PLACEHOLDER "FILE-NAME2" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FILE-NAME2" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is the name of a relative or indexed file described in the Data Division."
"It cannot be the name of a sequential file or a sort or merge file."
END DEFINE
DELETE PLACEHOLDER "FILE-NAME3" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FILE-NAME3" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is the name of an indexed or relative file with sequential or dynamic"
"access. It cannot be the name of a sort or merge file."
END DEFINE
DELETE PLACEHOLDER "FILE-NAME4" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FILE-NAME4" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is the name of a sequential, relative, or indexed file described in the"
"Data Division."
END DEFINE
DELETE PLACEHOLDER "FILE-SPEC-DATANAME-1" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FILE-SPEC-DATANAME-1" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is a the data-name of an alphanumeric Working-Storage Section data item."
"It contains a fullor partial file specification. It can be qualified."
END DEFINE
DELETE PLACEHOLDER "FILE-SPEC-LITERAL-1" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FILE-SPEC-LITERAL-1" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is a nonnumeric literal containing a full or partial file"
"specification."
END DEFINE
DELETE PLACEHOLDER "FILE-SPEC1" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FILE-SPEC1" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"DISK"
"PRINTER"
"{file-spec-literal-1}"
"{file-spec-dataname-1}"
END DEFINE
DELETE PLACEHOLDER "FILE-SPEC2" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FILE-SPEC2" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is a nonnumeric literal or the data-name of an alphanumeric Working-"
"Storage Section data item. It contains the full or partial file"
"specification. File-spec can be qualified."
END DEFINE
DELETE PLACEHOLDER "FILE-SPEC3" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FILE-SPEC3" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"DISK"
"{file-spec-literal-1}"
"{file-spec-dataname-1}"
END DEFINE
DELETE PLACEHOLDER "FILE-STAT" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FILE-STAT" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is the data-name of a two-character alphanumeric Sub-Schema Section,"
"Working-Storage Section, or Linkage Section data item. File-stat is the"
"file's FILE STATUS data item."
END DEFINE
DELETE PLACEHOLDER "FILL-SIZE" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FILL-SIZE" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"FILL-SIZE"
END DEFINE
DELETE PLACEHOLDER "FINAL [CONTROL-NAME]..." -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FINAL [CONTROL-NAME]..." -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"FINAL [control-name]..."
END DEFINE
DELETE PLACEHOLDER "FIRST DETAIL {FIRST-DETAIL-LINE}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FIRST DETAIL {FIRST-DETAIL-LINE}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"FIRST DETAIL {first-detail-line}"
END DEFINE
DELETE PLACEHOLDER "FIRST-ARGS" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FIRST-ARGS" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"ARG1"/PLACEHOLDER
"BY REFERENCE {arg1}..."/PLACEHOLDER
"BY CONTENT {arg1}..."/PLACEHOLDER
"BY DESCRIPTOR {arg1}..."/PLACEHOLDER
"BY VALUE {arg1}..."/PLACEHOLDER
"OMITTED"
END DEFINE
DELETE PLACEHOLDER "FIRST-DETAIL-LINE" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FIRST-DETAIL-LINE" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is a one- to three-digit integer. It defines the first line number for"
"a CONTROL HEADING, DETAIL, and CONTROL FOOTING report group on the"
"logical page."
END DEFINE
DELETE PLACEHOLDER "FIRST-LITERAL" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FIRST-LITERAL" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is a literal. It specifies: (1) the value of one or more alphabetic"
"characters, or (2) the first in a range of values."
END DEFINE
DELETE PLACEHOLDER "FIRST-PROC1" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FIRST-PROC1" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is the section-name or paragraph-name of the OUTPUT procedure's"
"first (or only) section or paragraph."
END DEFINE
DELETE PLACEHOLDER "FIRST-PROC2" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FIRST-PROC2" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is a procedure-name that identifies a paragraph or section in the"
"Procedure Division. The set of statements in first-proc are the"
"first (or only) set of statements in the PERFORM range."
END DEFINE
DELETE PLACEHOLDER "FIRST-PROC3" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FIRST-PROC3" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is the section-name or paragraph-name of the first (or only)"
"section or paragraph of the INPUT or OUTPUT procedure range."
END DEFINE
DELETE PLACEHOLDER "FLD-NAME" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FLD-NAME" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR=" " -
/TYPE=TERMINAL -
"is the identifier of the receiving area data item."
END DEFINE
DELETE PLACEHOLDER "FOLLOWS-REPORT-GROUP-DESCRIPTION-ENTRY" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FOLLOWS-REPORT-GROUP-DESCRIPTION-ENTRY" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=VERTICAL -
/SEPARATOR="" -
/TYPE=MENU -
"REPORT-SUBORDINATE-ENTRY"/PLACEHOLDER
"REPORT-ELEMENTARY-ENTRY"/PLACEHOLDER
END DEFINE
DELETE PLACEHOLDER "FOOTING {FOOTING-LINE2}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FOOTING {FOOTING-LINE2}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"FOOTING {footing-line2}"
END DEFINE
DELETE PLACEHOLDER "FOOTING-LINE1" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FOOTING-LINE1" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is a positive integer or the data-name of an elementary unsigned integer"
"numeric data item. Its value must be greater than zero, but cannot be"
"greater than page-lines. Footing-line specifies the line number where"
"the footing area begins in the page body. If footing-line is a"
"data-name, it can be qualified."
END DEFINE
DELETE PLACEHOLDER "FOOTING-LINE2" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FOOTING-LINE2" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is a one- to three-digit integer. It defines the last line number for a"
"CONTROL FOOTING report group and the first line number for the PAGE"
"FOOTING report group on the logical page."
END DEFINE
DELETE PLACEHOLDER "FOR REMOVAL|WITH NO REWIND" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FOR REMOVAL|WITH NO REWIND" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"FOR REMOVAL"
"WITH NO REWIND"
END DEFINE
DELETE PLACEHOLDER "FOR UPDATE" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FOR UPDATE" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"FOR UPDATE"
END DEFINE
DELETE PLACEHOLDER "FOR {DATABASE-NAME}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FOR {DATABASE-NAME}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"FOR {database-name}"
END DEFINE
DELETE PLACEHOLDER "FOREGROUND COLOR IS {COLOR-NUM}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FOREGROUND COLOR IS {COLOR-NUM}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"FOREGROUND COLOR IS {color-num}"
END DEFINE
DELETE PLACEHOLDER "FP-DESCRIPTION" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FP-DESCRIPTION" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is a description of the meaning of the parameters that are passed."
END DEFINE
DELETE PLACEHOLDER "FROM COLUMN NUMBER {COLUMN-NUM-OPTIONS1}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FROM COLUMN NUMBER {COLUMN-NUM-OPTIONS1}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"FROM COLUMN NUMBER {column-num-options1}"
END DEFINE
DELETE PLACEHOLDER "FROM COLUMN NUMBER {SCREEN-COLUMN-NUM-OPTIONS}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FROM COLUMN NUMBER {SCREEN-COLUMN-NUM-OPTIONS}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"FROM COLUMN NUMBER {screen-column-num-options}"
END DEFINE
DELETE PLACEHOLDER "FROM LINE NUMBER {LINE-NUM-OPTIONS1}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FROM LINE NUMBER {LINE-NUM-OPTIONS1}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"FROM LINE NUMBER {line-num-options1}"
END DEFINE
DELETE PLACEHOLDER "FROM LINE NUMBER {SCREEN-LINE-NUM-OPTIONS}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FROM LINE NUMBER {SCREEN-LINE-NUM-OPTIONS}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"FROM LINE NUMBER {screen-line-num-options}"
END DEFINE
DELETE PLACEHOLDER "FROM {INPUT-SOURCE}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FROM {INPUT-SOURCE}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"FROM {input-source}"
END DEFINE
DELETE PLACEHOLDER "FROM {KEEPLIST-NAME}..." -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FROM {KEEPLIST-NAME}..." -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"FROM {keeplist-name}..."
END DEFINE
DELETE PLACEHOLDER "FROM {KEEPLIST-NAME}...|CURRENT" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FROM {KEEPLIST-NAME}...|CURRENT" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"FROM {keeplist-name}..."/PLACEHOLDER
"CURRENT"/PLACEHOLDER
END DEFINE
DELETE PLACEHOLDER "FROM {SHORTEST-REC}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FROM {SHORTEST-REC}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"FROM {shortest-rec}"
END DEFINE
DELETE PLACEHOLDER "FROM {SRC-AREA}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FROM {SRC-AREA}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"FROM {src-area}"
END DEFINE
DELETE PLACEHOLDER "FROM {SRC-ITEM4}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FROM {SRC-ITEM4}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"FROM {src-item4}"
END DEFINE
DELETE PLACEHOLDER FULL -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER FULL -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"FULL"
END DEFINE
DELETE PLACEHOLDER "FUNC-ARG2" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FUNC-ARG2" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR=" " -
/TYPE=NONTERMINAL -
"{func-item2}[({leftmost-character-position} : [{length}])]"
END DEFINE
DELETE PLACEHOLDER "FUNC-ITEM2" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FUNC-ITEM2" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR=" " -
/TYPE=TERMINAL -
"A nonnumeric literal, an identifier of an"
"alphanumeric, alphabetic data item; or a numeric literal,"
"the identifier of an elementary numeric data item, or"
"an arithmetic expression. If a table is specified, the"
"table may be subscripted with ALL."
END DEFINE
DELETE PLACEHOLDER FUNCTION -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER FUNCTION -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="Intrinsic FUNCTION" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"FUNCTION {function-name}"
END DEFINE
DELETE PLACEHOLDER "FUNCTION-NAME" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FUNCTION-NAME" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"ACOS ({numeric-arg1})"
"ANNUITY ({numeric-arg1} {integer-arg})"
"ARGCOUNT"
"ASIN ({numeric-arg1})"
"ATAN ({numeric-arg1})"
"CHAR ({integer-arg})"
"COS ({numeric-arg1})"
"CURRENT-DATE"
"DATE-OF-INTEGER ({integer-arg})"
"DAY-OF-INTEGER ({integer-arg})"
"FACTORIAL ({integer-arg})"
"INTEGER ({numeric-arg1})"
"INTEGER-OF-DATE ({integer-arg})"
"INTEGER-OF-DAY ({integer-arg})"
"INTEGER-PART ({numeric-arg1})"
"LENGTH ({nonnumeric-arg})"
"LOG ({numeric-arg1})"
"LOG10 ({numeric-arg1})"
"LOWER-CASE ({nonnumeric-arg})"
"MAX ({func-arg2}...)[({leftmost-character-position} : [{length}])]"
"MEAN ({numeric-arg2}...)"
"MEDIAN ({numeric-arg2}...)"
"MIDRANGE ({numeric-arg2}...)"
"MIN ({func-arg2}...)[({leftmost-character-position} : [{length}])]"
"MOD ({integer-arg} {integer-arg})"
"NUMVAL ({nonnumeric-arg})"
"NUMVAL-C ({nonnumeric-arg} {nonnumeric-arg})"
"ORD ({nonnumeric-arg})"
"ORD-MAX ({func-arg2}...)"
"ORD-MIN ({func-arg2}...)"
"PRESENT-VALUE ({numeric-arg1} {numeric-arg2}...)"
"RANDOM ([{ran-arg}])"
"RANGE ({numeric-arg2}...)"
"REM ({numeric-arg1} {numeric-arg1})"
"REVERSE ({nonnumeric-arg})"
"SIN ({numeric-arg1})"
"SQRT ({numeric-arg1})"
"STANDARD-DEVIATION ({numeric-arg2}...)"
"SUM ({numeric-arg2}...)"
"TAN ({numeric-arg1})"
"UPPER-CASE ({nonnumeric-arg})"
"VARIANCE ({numeric-arg2}...)"
"WHEN-COMPILED[({leftmost-character-position} : [{length}])]"
END DEFINE
DELETE PLACEHOLDER "FUNCTION-RES" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "FUNCTION-RES" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is the identifier of an elementary integer numeric data item with COMP,"
"COMP-1, or COMP-2 usage and no scaling positions. Function-res can be"
"subscripted, and it can be qualified. When control returns to the calling"
"program, function-res can contain a function result."
END DEFINE
DELETE PLACEHOLDER "GIVING {FUNCTION-RES}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "GIVING {FUNCTION-RES}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"GIVING {function-res}"
END DEFINE
DELETE PLACEHOLDER "GIVING {IDENTIFIER}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "GIVING {IDENTIFIER}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"GIVING {identifier}"
END DEFINE
DELETE PLACEHOLDER "GIVING {OUTFILE}..." -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "GIVING {OUTFILE}..." -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"GIVING {outfile}..."
END DEFINE
DELETE PLACEHOLDER GLOBAL -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER GLOBAL -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"GLOBAL"
END DEFINE
DELETE PLACEHOLDER "GROUP INDICATE" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "GROUP INDICATE" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"GROUP INDICATE"
END DEFINE
DELETE PLACEHOLDER "GROUP-DATA-NAME" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "GROUP-DATA-NAME" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is the name of a report group in a report group description entry in a"
"Data Division. It must not appear in more than one USE statement."
END DEFINE
DELETE PLACEHOLDER GRP -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER GRP -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is the identifier of a numeric group item."
END DEFINE
DELETE PLACEHOLDER "HEADING {HEADING-LINE}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "HEADING {HEADING-LINE}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"HEADING {heading-line}"
END DEFINE
DELETE PLACEHOLDER "HEADING-LINE" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "HEADING-LINE" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is a one- to three-digit integer. It defines the first line number for"
"a REPORT HEADING or PAGE HEADING report group on the logical page."
END DEFINE
DELETE PLACEHOLDER "HIGH-VAL" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "HIGH-VAL" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is a numeric or nonnumeric literal. It is the highest value in a range"
"of values associated with a condition-name in a level 88 data"
"description entry."
END DEFINE
DELETE PLACEHOLDER "HIGH-VALUE" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "HIGH-VALUE" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"HIGH-VAL"/PLACEHOLDER
"EXTERNAL {external-name}"/PLACEHOLDER
"REFERENCE {data-name}"/PLACEHOLDER
END DEFINE
DELETE PLACEHOLDER "HIGHLIGHT|LOWLIGHT" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "HIGHLIGHT|LOWLIGHT" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"HIGHLIGHT"
"LOWLIGHT"
END DEFINE
DELETE PLACEHOLDER "I-O-CONTROL .." -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "I-O-CONTROL .." -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"I-O-CONTROL."
" [i-o-control-entry]"
END DEFINE
DELETE PLACEHOLDER "I-O-CONTROL-ENTRY" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "I-O-CONTROL-ENTRY" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"[APPLY [apply-options] ON {file-name}...]..."
"[SAME [RECORD|SORT|SORT-MERGE] AREA FOR {same-area-file} {same-area-file}...]..."
"[MULTIPLE FILE TAPE CONTAINS {{file-name} [POSITION {pos-num}]}...]..."
END DEFINE
DELETE PLACEHOLDER "IDENTIFICATION DIVISION .." -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "IDENTIFICATION DIVISION .." -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"IDENTIFICATION DIVISION."
"PROGRAM-ID. {program-name} [IS [INITIAL] [COMMON] PROGRAM] [WITH IDENT {module-vers-string}]."
"[AUTHOR. [comment-entry]]"
"[INSTALLATION. [comment-entry]]"
"[DATE-WRITTEN. [comment-entry]]"
"[DATE-COMPILED. [comment-entry]]"
"[SECURITY. [comment-entry]]"
"[Routine level comments]"
END DEFINE
DELETE PLACEHOLDER IDENTIFIER -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER IDENTIFIER -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"{data-name} [OF {data-name}]... [({arithmetic-expression}...)] [({leftmost-character-position} : [{length}])]"
END DEFINE
DELETE PLACEHOLDER "IDENTIFIER-1" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "IDENTIFIER-1" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is a text-matching argument that the compiler compares against text-words"
"in the library text."
END DEFINE
DELETE PLACEHOLDER "IDENTIFIER-2" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "IDENTIFIER-2" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is a replacement item that the compiler inserts into the source program."
END DEFINE
DELETE PLACEHOLDER IDENTIFIER1 -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER IDENTIFIER1 -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is a data item in the File, Working-Storage, Linkage, or Sub-Schema Section."
END DEFINE
DELETE PLACEHOLDER "II-DESCRIPTION" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "II-DESCRIPTION" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"describes all uses of the values of global storage objects used"
"by the program."
END DEFINE
DELETE PLACEHOLDER "IN DICTIONARY" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "IN DICTIONARY" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"IN DICTIONARY"
END DEFINE
DELETE PLACEHOLDER "IN {ALPHABET-NAME2}" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "IN {ALPHABET-NAME2}" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"IN {alphabet-name2}"
END DEFINE
DELETE PLACEHOLDER INCREM1 -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER INCREM1 -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is a nonzero numeric literal or the identifier of a numeric elementary"
"data item. It systematically changes the value of var each time"
"the program executes all statements in the PERFORM range."
END DEFINE
DELETE PLACEHOLDER INCREM2 -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER INCREM2 -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is an integer, which may be signed. It can also be the identifier of an"
"elementary numeric data item described as an integer."
END DEFINE
DELETE PLACEHOLDER "IND-NAME" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "IND-NAME" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR=" " -
/TYPE=TERMINAL -
"is an index-name. It associates an index with the table and allows"
"indexing in table element references."
END DEFINE
DELETE PLACEHOLDER "INDEXED BY {IND-NAME}..." -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "INDEXED BY {IND-NAME}..." -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"INDEXED BY {ind-name}..."
END DEFINE
DELETE PLACEHOLDER INDX -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER INDX -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR=" " -
/TYPE=TERMINAL -
"is an index-name."
END DEFINE
DELETE PLACEHOLDER INFILE -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER INFILE -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR=" " -
/TYPE=TERMINAL -
"is the file-name of the input file. It must be described in a file"
"description (FD) entry in the Data Division."
END DEFINE
DELETE PLACEHOLDER INIT -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER INIT -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is a numeric literal, index-name, or the identifier of a numeric"
"elementary data item. It specifies the value of var before any"
"statement in the PERFORM range executes."
END DEFINE
DELETE PLACEHOLDER INITIAL -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER INITIAL -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"INITIAL"
END DEFINE
DELETE PLACEHOLDER "INPUT PROCEDURE ..|USING .." -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "INPUT PROCEDURE ..|USING .." -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"INPUT PROCEDURE IS {first-proc3} [THROUGH {end-proc3}]"/PLACEHOLDER
"USING {infile}..."/PLACEHOLDER
END DEFINE
DELETE PLACEHOLDER "INPUT PROCEDURE IS {FIRST-PROC3} [THROUGH {END-PROC3}]" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "INPUT PROCEDURE IS {FIRST-PROC3} [THROUGH {END-PROC3}]" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"INPUT PROCEDURE IS {first-proc3} [THROUGH {end-proc3}]"
END DEFINE
DELETE PLACEHOLDER "INPUT-OUTPUT SECTION .." -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "INPUT-OUTPUT SECTION .." -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"INPUT-OUTPUT SECTION."
"{FILE-CONTROL ..}"
"[I-O-CONTROL ..]"
END DEFINE
DELETE PLACEHOLDER "INPUT-SOURCE" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "INPUT-SOURCE" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is a mnemonic-name defined in the SPECIAL-NAMES paragraph of the"
"Environment Division."
END DEFINE
DELETE PLACEHOLDER "INPUT|OUTPUT|I-O|EXTEND" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "INPUT|OUTPUT|I-O|EXTEND" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR=" " -
/TYPE=MENU -
"INPUT {{file-name1} {[WITH NO REWIND] [{open-locking-options}]}}..."
"OUTPUT {{file-name1} {[WITH NO REWIND] [{open-locking-options}]}}..."
"I-O {{file-name1} {[{open-locking-options}]}}..."
"EXTEND {{file-name1} {[{open-locking-options}]}}..."
END DEFINE
DELETE PLACEHOLDER "INSTALLATION. [COMMENT-ENTRY]" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "INSTALLATION. [COMMENT-ENTRY]" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=NONTERMINAL -
"INSTALLATION. [comment-entry]"
END DEFINE
DELETE PLACEHOLDER "INT-EXP" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "INT-EXP" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=TERMINAL -
"is an integer or arithmetic expression resulting in a longword integer"
"value. It cannot be zero."
END DEFINE
DELETE PLACEHOLDER "INTEGER-ARG" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "INTEGER-ARG" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"INTGR-ARG"/PLACEHOLDER
"FUNCTION"/PLACEHOLDER
END DEFINE
DELETE PLACEHOLDER "INTEGER-ARG1" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "INTEGER-ARG1" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU -
"INTGR-ARG1"/PLACEHOLDER
"FUNCTION"/PLACEHOLDER
END DEFINE
DELETE PLACEHOLDER "INTEGER-ARG3" -
/LANGUAGE="cobol"
DEFINE PLACEHOLDER "INTEGER-ARG3" -
/LANGUAGE="cobol" -
/NOAUTO_SUBSTITUTE -
/DESCRIPTION="" -
/DUPLICATION=CONTEXT_DEPENDENT -
/SEPARATOR="" -
/TYPE=MENU