COP 2121 Some Basic Cobol Verbs - Revision history

Jka: /* Edit Types */

2007-02-23T18:40:16Z

Edit Types

Jka: /* Edit Types */

2007-02-23T18:35:05Z

Edit Types

Jka: /* The COMPUTE Verb */

2007-02-23T18:34:02Z

The COMPUTE Verb

Jka: /* Arithmetic Verbs */

2007-02-23T17:57:00Z

Arithmetic Verbs

Jka at 17:42, 23 February 2007

2007-02-23T17:42:41Z

New page

==The DISPLAY Verb==
* Used to display several data items or literals or any combination of these
* The WITH NO ADVANCING clause suppresses the carriage return/line feed
<pre>
IDENTIFICATION DIVISION.
PROGRAM-ID. DisplayOption.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 Int-1 PIC 999 VALUE 100.
01 Alph-1 PIC XXX VALUE “ABC”

PROCEDURE DIVISION.
MAIN-ROUTINE.
DISPLAY Int-1
DISPLAY Alpha-1
DISPLAY “Demonstrating NO ADVANCING Option”
DISPLAY Int-1 WITH NO ADVANCING
DISPLAY Alpha-1
DISPLAY Alpha-1
STOP RUN.
</pre>
==The ACCEPT Verb==
* Gets the user response and stores the data in the memory allocated for the Identifier in the WS section
<pre>
IDENTIFICATION DIVISION.
PROGRAM-ID. AcceptAndDisplay.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 StudentDetails.
02 StudentName.
03 Surname PIC X(8).
03 Initials PIC XX.
02 StudentId PIC 9(7).
02 CourseCode PIC X(4).
02 Section PIC 9(4).
02 Gender PIC X.

01 CurrentDate.
02 CurrentYear PIC 99.
02 CurrentMonth PIC 99.
02 CurrentDay PIC 99.

01 DayOfYear.
02 FILLER PIC 99.
02 YearDay PIC 9(3).

01 CurrentTime.
02 CurrentHour PIC 99.
02 CurrentMinute PIC 99.
02 FILLER PIC 9(4).
PROCEDURE DIVISION.
Begin.
DISPLAY "Enter student details using template below".
DISPLAY "NNNNNNNNNNSSSSSSSCCCCGGGGS ".
ACCEPT StudentDetails.
ACCEPT CurrentDate FROM DATE.
ACCEPT DayOfYear FROM DAY.
ACCEPT CurrentTime FROM TIME.
DISPLAY "Name is ", Initials SPACE Surname.
DISPLAY "Date is " CurrentDay SPACE CurrentMonth SPACE CurrentYear.
DISPLAY "Today is day " YearDay " of the year".
DISPLAY "The time is " CurrentHour ":" CurrentMinute.
STOP RUN.
</pre>
==The MOVE Verb==
* Copies data from the Identifier-1 or literal to one or more destination identifiers
* The source and destination identifiers can be group or elementary data items
===MOVEing Data to Alphanumeric Item===
* When the destination item is alphanumeric or alphabetic (PIC X or A) data is copied into the destination area from left to right
** If receiving field is longer, low-order (right-most) positions are replaced with spaces
** If receiving field is shorter, low-order characters in sending field are truncated
===MOVEing Data to Numeric Item===
* Data is aligned along the decimal point
** When the decimal point is not explicitly specified in either the source or destination items, the item is treated as if it had an assumed decimal point immediately after its rightmost character
* Digits in integer part moved right to left starting at decimal point
** Unfilled high-order (leftmost) integer positions filled with zeros if receiving field has more integer positions than sending field
** High-order digits truncated if receiving field has fewer integer digits than sending field
* Digits in decimal part moved left to right starting at decimal point
** Unfilled low-order decimal positions filled with zeros if receiving field has more decimal positions than sending field
** Low-order digits are truncated if receiving field has fewer decimal positions than sending field
===Group Move===
* When receiving field is a group item, alphanumeric MOVE rules are followed
* If subfields are numeric, invalid data may be stored in subfields
===Recommendations===
* Avoid using sending field with different data type than receiving field
* Move numeric fields, numeric literals, or ZEROS to numeric fields
* Move alphanumeric fields, nonnumeric literals, ZEROS or SPACES to alphanumeric fields
==Arithmetic Verbs==
* ADD, SUBTRACT, MULTIPLY, DIVIDE
* All require fields operated on to
** Have numeric PICTURE clause
** Contain numeric data when statements are executed

← Older revision		Revision as of 18:40, 23 February 2007
Line 162:		Line 162:
	\| Z * \|\| Suppression and Replacement		\| Z * \|\| Suppression and Replacement
	\|}		\|}
		+	===De-Editing===
		+	<pre>
		+	01 Amt-in PIC 9.99
		+	ACCEPT Amt-in
		+	</pre>
		+	* Can not use Amt-in in arithmetic operations
		+	* Solution:
		+	<pre>
		+	01 Amt PIC 9V99
		+	MOVE Amt-in Amt
		+	ADD 10 TO Amt
		+	</pre>
		+	==[[COP 2121 IF Statements]]==

@@ Line 148: / Line 148: @@
 # Suppression and Replacement Editing - Suppresses and replaces leading zeros
 {| border = "1"
-|-
+|+ Edit Symbols
 |-
 ! Edit Symbol || Editing Type

← Older revision		Revision as of 18:34, 23 February 2007
Line 124:		Line 124:
	# Multiply, divide		# Multiply, divide
	# Addition, subtraction		# Addition, subtraction
		+	==Edited Pictures==
		+	* "Edit Symbols" are used in PICTURE clause to make data fields more readable
		+	** e.g. Display 001495 as $14.95
		+	* PICTURE clauses which include edit symbols are called "Edited Pictures"
		+	* Edit symbols have the effect of changing, or editing, the data inserted into the edited item
		+	* Edited items can not be used as operands in a computation but they may be used as the result or destination of a computation (i.e. to the right of the word GIVING)
		+	===Example: Printing Decimal Point===
		+	* Operation: Move In-Amt to Out-Amt
		+	{\| border = "1"
		+	\| Field Positions \|\| Picture \|\| Contents
		+	\|-
		+	\| In-Amt \|\| 99V99 \|\| 12^34
		+	\|-
		+	\| Out-Amt \|\| 99.99 \|\| 12.34
		+	\|}
		+	* DISPLAY In-Amt
		+	** Will display 1234
		+	* DISPLAY Out-Amt
		+	** Will display 12.34
		+	===Edit Types===
		+	* COBOL provides two basic types of editing
		+	# Insertion Editing - Modifies a value by including additional items
		+	# Suppression and Replacement Editing - Suppresses and replaces leading zeros
		+	{\| border = "1"
		+	\|-
		+	! Edit Symbols
		+	\|-
		+	! Edit Symbol \|\| Editing Type
		+	\|-
		+	\| , B 0 / \|\| Simple Insertion
		+	\|-
		+	\| . \|\| Special Insertion
		+	\|-
		+	\| + - CR DB $ \|\| Fixed Insertion
		+	\|-
		+	\| + - $ \|\| Floating Insertion
		+	\|-
		+	\| Z * \|\| Suppression and Replacement
		+	\|}

← Older revision		Revision as of 17:57, 23 February 2007
Line 93:		Line 93:
	** Have numeric PICTURE clause		** Have numeric PICTURE clause
	** Contain numeric data when statements are executed		** Contain numeric data when statements are executed
		+	* When GIVING phrase is not used
		+	** The identifiers after the word TO, FROM, BY, INTO both contribute to the result and receive the result
		+	* WHEN GIVING phrase is used
		+	** The values of the identifiers to the left of GIVING phrase are left intact after the operation and result is moved to the Identifier after the GIVING phrase
		+	* Only numeric identifiers or literals can be used
		+	** Only the identifiers to the right of reserved word GIVING can have edited symbols
		+	* Result is moved into a receiving data-items according to the rules of numeric move
		+	===The ROUNDED Option===
		+	* When this option is used, the result is rounded to fit the receiving data-item
		+	* Otherwise it is truncated
		+	===The ON SIZE ERROR Option===
		+	* A size error condition exists when, after decimal point alignment, the result is truncated on either the left or the right hand side of the decimal point
		+	* If ROUNDED option is used, then a size error only occurs if there is truncation on the left hand side of the decimal point
		+	====What Happens if SIZE ERROR Occurs====
		+	* The computer does not perform the operation but instead executes the statements in SIZE ERROR clause
		+	* Example
		+	<pre>
		+	ADD amt1 amt2 TO amt3 GIVING total
		+	SIZE ERROR MOVE ZEROS TO total
		+	END-ADD
		+	</pre>
		+	===Multiply Rules===
		+	* Only two operands can be multiplied
		+	* To obtain product of 3 operands requires two instructions
		+	===The COMPUTE Verb===
		+	* Arithmetic expression evaluated according to normal arithmetic rules from left to right following precedence rules
		+	* Precedence rules:
		+	# Brackets
		+	# Power
		+	# Multiply, divide
		+	# Addition, subtraction