-
Notifications
You must be signed in to change notification settings - Fork 2
/
move.cbl
38 lines (37 loc) · 1.29 KB
/
move.cbl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
******************************************************************
* Author:
* Date:
* Purpose:
* Tectonics: cobc
******************************************************************
IDENTIFICATION DIVISION.
PROGRAM-ID. YOUR-PROGRAM-NAME.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 MONTH-AMOUNT.
05 AMOUNT PIC X(6) value "abc".
05 AMOUNTX REDEFINES AMOUNT PIC X(6).
01 MONTH-AMOUNT1.
05 AMOUNT1 PIC S9(3)V99 VALUES 99.99.
05 AMOUNTX1 REDEFINES AMOUNT1.
10 X-FIELD PIC 9(5).
10 Y-FIELD REDEFINES X-FIELD.
20 A PIC X(3).
20 B PIC X(2).
01 ASP PIC X(3).
PROCEDURE DIVISION.
MAIN-PROCEDURE.
DISPLAY "MONTH-AMOUNT: "MONTH-AMOUNT"?".
DISPLAY "AMOUNT: "AMOUNT"?"
DISPLAY "AMOUNTX: "AMOUNTX"?"
DISPLAY "MONTH-AMOUNT: "MONTH-AMOUNT"?".
DISPLAY "AMOUNT: "AMOUNT1"?"
DISPLAY "AMOUNTX: "AMOUNTX1"?"
DISPLAY "X-FIELD: "X-FIELD"?"
DISPLAY "Y-FIELD: "Y-FIELD"?"
DISPLAY "A: "A"?".
DISPLAY "B: "B,"?".
MOVE "ABC" TO ASP.
DISPLAY "ASP "ASP.
END PROGRAM YOUR-PROGRAM-NAME.