Cobol Ch4

Home

Get App

Create

Environment Division
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT F01-STUDENT-FILE ASSIGN TO ‘SENIOR.DAT'
- ORGANIZATION IS LINE SEQUENTIAL.
- SELECT F02-PRINT-FILE ASSIGN TO ‘SENIOR.OUT'
- ORGANIZATION IS LINE SEQUENTIAL.
Data Division
- DATA DIVISION.
- FILE SECTION.
- FD F01-STUDENT-FILE
- RECORD CONTAINS 43 CHARACTERS
- DATA RECORD IS F01-STUDENT-RECORD.
- 01 F01-STUDENT-RECORD.
- 05 F01-STU-NAMEPIC X(25).
- 05 F01-STU-CREDITSPIC 9(3).
- 05 F01-STU-MAJORPIC X(15).
Level number
- Level 01 represents the whole record.
- Level 05 represents fields within the record.
- Level 01 is called a group item,
- level 05 is called an elementary item.
group vs elementary pic clause

Group items do not have a pic clause, elementary items do have one.
if a movie costs $18.99 to buy, the number would be stored in the file as ___
A picture clause of ____

1899. A picture clause of 99V99 tells Cobol where to put the decimal place.
Which are valid?
05 W02-CREDITS1 PIC 999 VALUE 110.
05 W02-MAJOR1 PIC X(11) VALUE 'ENGINEERING'
05 W02-CREDITS2 PIC 999 VALUE '110'
05 W02-MAJOR2 PIC X(11) VALUE 789
05 W02-MAJOR3 PIC X(11) VALUE ENGINEERING
- 05 W02-CREDITS1 PIC 999 VALUE 110.
- valid
- 05 W02-MAJOR1 PIC X(11) VALUE 'ENGINEERING'.
- valid
- 05 W02-CREDITS2 PIC 999 VALUE '110'.
- no
- 05 W02-MAJOR2 PIC X(11) VALUE 789.
- no, '789' yes
- 05 W02-MAJOR3 PIC X(11) VALUE ENGINEERING no
data is 1234567890
01 F01-SOME-RECORD.
   05 F01-FIELD-A PIC 9V99.
   05 F01-FIELD-B PIC 99V9.
   05 F01-FIELD-C PIC 9.
   05 F01-FIELD-D PIC V999.
- A = 1.23
- B = 45.6
- C = 7
- D = 0.890
PIC 999V99 is a ________ data type.
PIC 999.99 is a __________ data type.

PIC 999V99 is a number data type. PIC 999.99 is a string data type.

Author

slc53

329645

Card Set

Cobol Ch4

Description

Cobol Ch4

Updated

2017-03-20T15:55:45Z

Show Answers