127 lines
3.1 KiB
Plaintext
127 lines
3.1 KiB
Plaintext
|
Microsoft COBOL MS-DOS Release 2.1
|
|||
|
|
|
|||
|
|
REFMAN.DOC
|
|||
|
|
|
|||
|
|
Additions to the Microsoft COBOL Compiler
|
|||
|
|
Reference Manual
|
|||
|
|
|
|||
|
|
September 3, 1985
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
The following information was not available when the
|
|||
|
|
Microsoft COBOL Compiler Reference Manual was printed,
|
|||
|
|
but will appear in future versions of that document.
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
CONTENTS
|
|||
|
|
|
|||
|
|
CHAPTER 6 DATA DIVISION
|
|||
|
|
|
|||
|
|
6.2 Record Description Entry
|
|||
|
|
|
|||
|
|
6.2.5 Numeric Items
|
|||
|
|
|
|||
|
|
3. Binary Item
|
|||
|
|
|
|||
|
|
|
|||
|
|
CHAPTER 7 PROCEDURE DIVISION
|
|||
|
|
|
|||
|
|
7.2 Arithmetic Statements
|
|||
|
|
|
|||
|
|
7.2.1 SIZE ERROR Option
|
|||
|
|
|
|||
|
|
7.6 PROCEDURE DIVISION Statements
|
|||
|
|
|
|||
|
|
7.6.1 ACCEPT Statement
|
|||
|
|
|
|||
|
|
7.6.1.1 Format 1 ACCEPT Statement
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
CHAPTER 6 DATA DIVISION
|
|||
|
|
|
|||
|
|
6.2 Record Description Entry
|
|||
|
|
|
|||
|
|
6.2.5 Numeric Items
|
|||
|
|
|
|||
|
|
3. Binary Item
|
|||
|
|
|
|||
|
|
Warning: Regardless of the number of digits
|
|||
|
|
specified in the PICTURE clause for
|
|||
|
|
a COMP-0 or COMP-4 item, truncation
|
|||
|
|
and the SIZE ERROR condition occur
|
|||
|
|
only when a value moved to such an
|
|||
|
|
item exceeds the range (described
|
|||
|
|
above) for a 2-byte (COMP-0) or 4-
|
|||
|
|
byte (COMP-4) SIGNED binary integer.
|
|||
|
|
A COMP-0 item has an implicit PICTURE
|
|||
|
|
S9(5), and a COMP-4 item has an
|
|||
|
|
implicit PICTURE S9(10).
|
|||
|
|
|
|||
|
|
Binary items are always considered
|
|||
|
|
to be signed, even if the PICTURE
|
|||
|
|
omits the sign character S.
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
CHAPTER 7 PROCEDURE DIVISION
|
|||
|
|
|
|||
|
|
|
|||
|
|
7.2 Arithmetic Statements
|
|||
|
|
|
|||
|
|
7.2.1 SIZE ERROR Option
|
|||
|
|
|
|||
|
|
Warning: For binary items, defined with
|
|||
|
|
USAGE COMP-0 or COMP-4, truncation
|
|||
|
|
and the SIZE ERROR condition occur
|
|||
|
|
only when a value moved to such an
|
|||
|
|
item exceeds the range for a 2-byte
|
|||
|
|
(COMP-0) or 4-byte (COMP-4) SIGNED
|
|||
|
|
binary integer. A COMP-0 item has
|
|||
|
|
an implicit PICTURE S9(5), and a
|
|||
|
|
COMP-4 item has an implicit PICTURE
|
|||
|
|
S9(10), regardless of the number of
|
|||
|
|
digits specified in the PICTURE
|
|||
|
|
clause.
|
|||
|
|
|
|||
|
|
|
|||
|
|
7.6 PROCEDURE DIVISION Statements
|
|||
|
|
|
|||
|
|
7.6.1 ACCEPT Statement
|
|||
|
|
|
|||
|
|
The Format 1 ACCEPT obtains date or time
|
|||
|
|
information from the operating system. It
|
|||
|
|
places the amount of data specified into
|
|||
|
|
identifier, regardless of the size of
|
|||
|
|
identifier. (For example, DATE will move
|
|||
|
|
6 digits of information even if identifier
|
|||
|
|
is PIC XX). Be sure identifier is large enough
|
|||
|
|
to hold the output of ACCEPT.
|
|||
|
|
|
|||
|
|
7.6.1.1 Format 1 ACCEPT Statement
|
|||
|
|
|
|||
|
|
LINE NUMBER
|
|||
|
|
|
|||
|
|
a two-digit value. The ACCEPT ... FROM LINE
|
|||
|
|
NUMBER is provided for compatibility with
|
|||
|
|
other COBOL's, but in Microsoft COBOL the
|
|||
|
|
value of LINE NUMBER is always "00".
|
|||
|
|
|