Skip to content

Commit 61f9499

Browse files
MikeBauerCAMikeBauerCA
authored
Merge pull request #230 from tanto259/fix-137
Signed-off-by: MikeBauerCA <[email protected]>
2 parents 9ee98fa + 569e5b6 commit 61f9499

File tree

8 files changed

+16
-16
lines changed

8 files changed

+16
-16
lines changed

‎COBOL Programming Course #1 - Getting Started/Labs/cbl/CBL0004.cobol‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -100,10 +100,10 @@
100100
10 WS-CURRENT-MONTH PIC 9(02).
101101
10 WS-CURRENT-DAY PIC 9(02).
102102
05 WS-CURRENT-TIME.
103-
10 WS-CURRENT-HOURS PIC 9(02).
103+
10 WS-CURRENT-HOUR PIC 9(02).
104104
10 WS-CURRENT-MINUTE PIC 9(02).
105105
10 WS-CURRENT-SECOND PIC 9(02).
106-
10 WS-CURRENT-MILLISECONDS PIC 9(02).
106+
10 WS-CURRENT-CENTISECOND PIC 9(02).
107107
*------------------
108108
PROCEDURE DIVISION.
109109
*------------------

‎COBOL Programming Course #1 - Getting Started/Labs/cbl/CBL0005.cobol‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -100,10 +100,10 @@
100100
10 WS-CURRENT-MONTH PIC 9(02).
101101
10 WS-CURRENT-DAY PIC 9(02).
102102
05 WS-CURRENT-TIME.
103-
10 WS-CURRENT-HOURS PIC 9(02).
103+
10 WS-CURRENT-HOUR PIC 9(02).
104104
10 WS-CURRENT-MINUTE PIC 9(02).
105105
10 WS-CURRENT-SECOND PIC 9(02).
106-
10 WS-CURRENT-MILLISECONDS PIC 9(02).
106+
10 WS-CURRENT-CENTISECOND PIC 9(02).
107107
*------------------
108108
PROCEDURE DIVISION.
109109
*------------------

‎COBOL Programming Course #1 - Getting Started/Labs/cbl/CBL0006.cobol‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -90,10 +90,10 @@
9090
10 WS-CURRENT-MONTH PIC 9(02).
9191
10 WS-CURRENT-DAY PIC 9(02).
9292
05 WS-CURRENT-TIME.
93-
10 WS-CURRENT-HOURS PIC 9(02).
93+
10 WS-CURRENT-HOUR PIC 9(02).
9494
10 WS-CURRENT-MINUTE PIC 9(02).
9595
10 WS-CURRENT-SECOND PIC 9(02).
96-
10 WS-CURRENT-MILLISECONDS PIC 9(02).
96+
10 WS-CURRENT-CENTISECOND PIC 9(02).
9797
* This data layout is organized according to the ouput
9898
* format of the FUNCTION CURRENT-DATE.
9999
*

‎COBOL Programming Course #1 - Getting Started/Labs/cbl/CBL0007.cobol‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -96,10 +96,10 @@
9696
10 WS-CURRENT-MONTH PIC 9(02).
9797
10 WS-CURRENT-DAY PIC 9(02).
9898
05 WS-CURRENT-TIME.
99-
10 WS-CURRENT-HOURS PIC 9(02).
99+
10 WS-CURRENT-HOUR PIC 9(02).
100100
10 WS-CURRENT-MINUTE PIC 9(02).
101101
10 WS-CURRENT-SECOND PIC 9(02).
102-
10 WS-CURRENT-MILLISECONDS PIC 9(02).
102+
10 WS-CURRENT-CENTISECOND PIC 9(02).
103103
*
104104
*------------------
105105
PROCEDURE DIVISION.

‎COBOL Programming Course #1 - Getting Started/Labs/cbl/CBL0008.cobol‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -113,10 +113,10 @@
113113
10 WS-CURRENT-MONTH PIC 9(02).
114114
10 WS-CURRENT-DAY PIC 9(02).
115115
05 WS-CURRENT-TIME.
116-
10 WS-CURRENT-HOURS PIC 9(02).
116+
10 WS-CURRENT-HOUR PIC 9(02).
117117
10 WS-CURRENT-MINUTE PIC 9(02).
118118
10 WS-CURRENT-SECOND PIC 9(02).
119-
10 WS-CURRENT-MILLISECONDS PIC 9(02).
119+
10 WS-CURRENT-CENTISECOND PIC 9(02).
120120
*
121121
*------------------
122122
PROCEDURE DIVISION.

‎COBOL Programming Course #1 - Getting Started/Labs/cbl/CBL0009.cobol‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -113,10 +113,10 @@
113113
10 WS-CURRENT-MONTH PIC 9(02).
114114
10 WS-CURRENT-DAY PIC 9(02).
115115
05 WS-CURRENT-TIME.
116-
10 WS-CURRENT-HOURS PIC 9(02).
116+
10 WS-CURRENT-HOUR PIC 9(02).
117117
10 WS-CURRENT-MINUTE PIC 9(02).
118118
10 WS-CURRENT-SECOND PIC 9(02).
119-
10 WS-CURRENT-MILLISECONDS PIC 9(02).
119+
10 WS-CURRENT-CENTISECOND PIC 9(02).
120120
*
121121
*------------------
122122
PROCEDURE DIVISION.

‎COBOL Programming Course #1 - Getting Started/Labs/cbl/CBL0010.cobol‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -117,10 +117,10 @@
117117
10 WS-CURRENT-MONTH PIC 9(02).
118118
10 WS-CURRENT-DAY PIC 9(02).
119119
05 WS-CURRENT-TIME.
120-
10 WS-CURRENT-HOURS PIC 9(02).
120+
10 WS-CURRENT-HOUR PIC 9(02).
121121
10 WS-CURRENT-MINUTE PIC 9(02).
122122
10 WS-CURRENT-SECOND PIC 9(02).
123-
10 WS-CURRENT-MILLISECONDS PIC 9(02).
123+
10 WS-CURRENT-CENTISECOND PIC 9(02).
124124
*
125125
*------------------
126126
PROCEDURE DIVISION.

‎COBOL Programming Course #1 - Getting Started/Labs/cbl/CBL0011.cobol‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -104,10 +104,10 @@
104104
10 WS-CURRENT-MONTH PIC 9(02).
105105
10 WS-CURRENT-DAY PIC 9(02).
106106
05 WS-CURRENT-TIME.
107-
10 WS-CURRENT-HOURS PIC 9(02).
107+
10 WS-CURRENT-HOUR PIC 9(02).
108108
10 WS-CURRENT-MINUTE PIC 9(02).
109109
10 WS-CURRENT-SECOND PIC 9(02).
110-
10 WS-CURRENT-MILLISECONDS PIC 9(02).
110+
10 WS-CURRENT-CENTISECOND PIC 9(02).
111111
*
112112
*------------------
113113
PROCEDURE DIVISION.

0 commit comments

Comments
 (0)