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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
<!DOCTYPE html>
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/>
<title>highlight.cbl</title>
<meta name="generator" content="KF5::SyntaxHighlighting - Definition (COBOL) - Theme (Breeze Light)"/>
</head><body style="background-color:#ffffff;color:#1f1c1b"><pre>
<span style="color:#898887">*> These are equivalent.</span>
<span style="font-weight:bold">INVOKE</span> my-class <span style="color:#bf0303">"foo"</span> <span style="color:#006e28">RETURNING</span> var
<span style="font-weight:bold">MOVE</span> my-class::<span style="color:#bf0303">"foo"</span> <span style="color:#006e28">TO</span> var <span style="color:#898887">*> Inline method invocation</span>
<span style="font-weight:bold">ADD</span> <span style="color:#b08000">1</span> <span style="color:#006e28">TO</span> x
<span style="font-weight:bold">ADD</span> <span style="color:#b08000">1</span>, a, b <span style="color:#006e28">TO</span> x <span style="color:#006e28">ROUNDED</span>, y, z <span style="color:#006e28">ROUNDED</span>
<span style="font-weight:bold">ADD</span> a, b <span style="color:#006e28">TO</span> c
<span style="color:#006e28">ON</span> <span style="color:#006e28">SIZE</span> <span style="color:#006e28">ERROR</span>
<span style="font-weight:bold">DISPLAY</span> <span style="color:#bf0303">"Error"</span>
<span style="font-weight:bold">END-ADD</span>
<span style="font-weight:bold">ADD</span> a <span style="color:#006e28">TO</span> b
<span style="color:#006e28">NOT</span> <span style="color:#006e28">SIZE</span> <span style="color:#006e28">ERROR</span>
<span style="font-weight:bold">DISPLAY</span> <span style="color:#bf0303">"No error"</span>
<span style="color:#006e28">ON</span> <span style="color:#006e28">SIZE</span> <span style="color:#006e28">ERROR</span>
<span style="font-weight:bold">DISPLAY</span> <span style="color:#bf0303">"Error"</span>
<span style="font-weight:bold">RD</span> sales-report
<span style="color:#006e28">PAGE</span> <span style="color:#006e28">LIMITS</span> <span style="color:#b08000">60</span> <span style="color:#006e28">LINES</span>
<span style="color:#006e28">FIRST</span> <span style="color:#006e28">DETAIL</span> <span style="color:#b08000">3</span>
<span style="color:#006e28">CONTROLS</span> seller-name.
<span style="color:#898887;font-style:italic">01</span> <span style="color:#006e28">TYPE</span> <span style="color:#006e28">PAGE</span> <span style="color:#006e28">HEADING</span>.
<span style="color:#898887;font-style:italic">03</span> <span style="color:#006e28">COL</span> <span style="color:#b08000">1</span> <span style="color:#006e28">VALUE</span> <span style="color:#bf0303">"Sales Report"</span>.
<span style="color:#898887;font-style:italic">03</span> <span style="color:#006e28">COL</span> <span style="color:#b08000">74</span> <span style="color:#006e28">VALUE</span> <span style="color:#bf0303">"Page"</span>.
<span style="color:#898887;font-style:italic">03</span> <span style="color:#006e28">COL</span> <span style="color:#b08000">79</span> <span style="color:#006e28">PIC</span> <span style="color:#0057ae">Z9</span> <span style="color:#006e28">SOURCE</span> <span style="color:#006e28">PAGE-COUNTER</span>.
<span style="color:#898887;font-style:italic">01</span> sales-on-day <span style="color:#006e28">TYPE</span> <span style="color:#006e28">DETAIL</span>, <span style="color:#006e28">LINE</span> + <span style="color:#b08000">1</span>.
<span style="color:#898887;font-style:italic">03</span> <span style="color:#006e28">COL</span> <span style="color:#b08000">3</span> <span style="color:#006e28">VALUE</span> <span style="color:#bf0303">"Sales on"</span>.
<span style="color:#898887;font-style:italic">03</span> <span style="color:#006e28">COL</span> <span style="color:#b08000">12</span> <span style="color:#006e28">PIC</span> <span style="color:#0057ae">99/99/9999</span> <span style="color:#006e28">SOURCE</span> sales-date.
<span style="color:#898887;font-style:italic">03</span> <span style="color:#006e28">COL</span> <span style="color:#b08000">21</span> <span style="color:#006e28">VALUE</span> <span style="color:#bf0303">"were"</span>.
<span style="color:#898887;font-style:italic">03</span> <span style="color:#006e28">COL</span> <span style="color:#b08000">26</span> <span style="color:#006e28">PIC</span> <span style="color:#0057ae">$$$$9.99</span> <span style="color:#006e28">SOURCE</span> sales-amount.
<span style="color:#898887;font-style:italic">01</span> invalid-sales <span style="color:#006e28">TYPE</span> <span style="color:#006e28">DETAIL</span>, <span style="color:#006e28">LINE</span> + <span style="color:#b08000">1</span>.
<span style="color:#898887;font-style:italic">03</span> <span style="color:#006e28">COL</span> <span style="color:#b08000">3</span> <span style="color:#006e28">VALUE</span> <span style="color:#bf0303">"INVALID RECORD:"</span>.
<span style="color:#898887;font-style:italic">03</span> <span style="color:#006e28">COL</span> <span style="color:#b08000">19</span> <span style="color:#006e28">PIC</span> <span style="color:#0057ae">X(34)</span> <span style="color:#006e28">SOURCE</span> sales-record.
<span style="color:#898887;font-style:italic">01</span> <span style="color:#006e28">TYPE</span> <span style="font-weight:bold">CONTROL</span> <span style="color:#006e28">HEADING</span> seller-name, <span style="color:#006e28">LINE</span> + <span style="color:#b08000">2</span>.
<span style="color:#898887;font-style:italic">03</span> <span style="color:#006e28">COL</span> <span style="color:#b08000">1</span> <span style="color:#006e28">VALUE</span> <span style="color:#bf0303">"Seller:"</span>.
<span style="color:#898887;font-style:italic">03</span> <span style="color:#006e28">COL</span> <span style="color:#b08000">9</span> <span style="color:#006e28">PIC</span> <span style="color:#0057ae">X(30)</span> <span style="color:#006e28">SOURCE</span> seller-name.
<span style="color:#006e28">PIC</span> <span style="color:#0057ae">99</span>.
<span style="color:#006e28">PIC</span> <span style="color:#0057ae">9(7)V99</span>.
<span style="color:#006e28">PIC</span> <span style="color:#0057ae">9(10)</span>. <span style="color:#898887">*> sads</span>
<span style="color:#006e28">PIC</span> <span style="color:#0057ae">9(5)V9(2)</span>.
<span style="color:#006e28">PIC</span> <span style="color:#0057ae">9(5)</span>
<span style="color:#006e28">PIC</span> <span style="color:#0057ae">+++++</span>
<span style="color:#006e28">PIC</span> <span style="color:#0057ae">99/99/9(4)</span>
<span style="color:#006e28">PIC</span> <span style="color:#0057ae">*(4)9.99</span>
<span style="color:#006e28">PIC</span> <span style="color:#0057ae">X(3)BX(3)BX(3)</span>
<span style="font-weight:bold">OPEN</span> <span style="font-weight:bold">INPUT</span> sales, <span style="font-weight:bold">OUTPUT</span> report-out
<span style="font-weight:bold">INITIATE</span> sales-report
<span style="font-weight:bold">PERFORM</span> <span style="color:#006e28">UNTIL</span> <span style="color:#b08000">1</span> <> <span style="color:#b08000">1</span>
<span style="font-weight:bold">READ</span> sales
<span style="color:#006e28">AT</span> <span style="font-weight:bold">END</span>
<span style="font-weight:bold">EXIT</span> <span style="font-weight:bold">PERFORM</span>
<span style="font-weight:bold">END-READ</span>
<span style="color:#006e28">VALIDATE</span> sales-record
<span style="font-weight:bold">IF</span> valid-record
<span style="font-weight:bold">GENERATE</span> sales-on-day
<span style="font-weight:bold">ELSE</span>
<span style="font-weight:bold">GENERATE</span> invalid-sales
<span style="font-weight:bold">END-IF</span>
<span style="font-weight:bold">END-PERFORM</span>
<span style="font-weight:bold">TERMINATE</span> sales-report
<span style="font-weight:bold">CLOSE</span> sales, report-out
<span style="font-weight:bold">EVALUATE</span> <span style="color:#006e28">TRUE</span> <span style="color:#006e28">ALSO</span> desired-speed <span style="color:#006e28">ALSO</span> current-speed
<span style="font-weight:bold">WHEN</span> lid-closed <span style="color:#006e28">ALSO</span> min-speed <span style="color:#006e28">THRU</span> max-speed <span style="color:#006e28">ALSO</span> <span style="font-weight:bold;font-style:italic">LESS</span> <span style="font-weight:bold;font-style:italic">THAN</span> desired-speed
<span style="font-weight:bold">PERFORM</span> speed-up-machine
<span style="font-weight:bold">WHEN</span> lid-closed <span style="color:#006e28">ALSO</span> min-speed <span style="color:#006e28">THRU</span> max-speed <span style="color:#006e28">ALSO</span> <span style="font-weight:bold;font-style:italic">GREATER</span> <span style="font-weight:bold;font-style:italic">THAN</span> desired-speed
<span style="font-weight:bold">PERFORM</span> slow-down-machine
<span style="font-weight:bold">WHEN</span> lid-open <span style="color:#006e28">ALSO</span> <span style="color:#006e28">ANY</span> <span style="color:#006e28">ALSO</span> <span style="color:#006e28">NOT</span> <span style="color:#aa5500">ZERO</span>
<span style="font-weight:bold">PERFORM</span> emergency-stop
<span style="font-weight:bold">WHEN</span> <span style="color:#006e28">OTHER</span>
<span style="font-weight:bold">CONTINUE</span>
<span style="font-weight:bold">END-EVALUATE</span>
<span style="color:#898887">//COBUCLG JOB (001),'COBOL BASE TEST', 00010000</span>
<span style="color:#898887">// CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1) 00020000</span>
<span style="color:#898887">//BASETEST EXEC COBUCLG 00030000</span>
<span style="color:#898887">//COB.SYSIN DD * 00040000</span>
<span style="color:#898887;font-style:italic">00000</span><span style="color:#898887">* VALIDATION OF BASE COBOL INSTALL 00050000</span>
<span style="color:#898887;font-style:italic">01000</span> <span style="color:#0057ae;background-color:#e0e9f8">IDENTIFICATION DIVISION</span>. <span style="color:#b08000">00060000</span>
<span style="color:#898887;font-style:italic">01100</span> <span style="font-weight:bold">PROGRAM-ID</span>. <span style="color:#bf0303">'HELLO'</span>. <span style="color:#b08000">00070000</span>
<span style="color:#898887;font-style:italic">02000</span> <span style="color:#0057ae;background-color:#e0e9f8">ENVIRONMENT DIVISION</span>. <span style="color:#b08000">00080000</span>
<span style="color:#898887;font-style:italic">02100</span> <span style="color:#0057ae;background-color:#e0e9f8">CONFIGURATION SECTION</span>. <span style="color:#b08000">00090000</span>
<span style="color:#898887;font-style:italic">02110</span> <span style="color:#006e28">SOURCE-COMPUTER</span>. GNULINUX. <span style="color:#b08000">00100000</span>
<span style="color:#898887;font-style:italic">02120</span> <span style="color:#006e28">OBJECT-COMPUTER</span>. HERCULES. <span style="color:#b08000">00110000</span>
<span style="color:#898887;font-style:italic">02200</span> <span style="font-weight:bold">SPECIAL-NAMES</span>. <span style="color:#b08000">00120000</span>
<span style="color:#898887;font-style:italic">02210</span> CONSOLE <span style="color:#006e28">IS</span> CONSL. <span style="color:#b08000">00130000</span>
<span style="color:#898887;font-style:italic">03000</span> <span style="color:#0057ae;background-color:#e0e9f8">DATA DIVISION</span>. <span style="color:#b08000">00140000</span>
<span style="color:#898887;font-style:italic">04000</span> <span style="color:#0057ae;background-color:#e0e9f8">PROCEDURE DIVISION</span>. <span style="color:#b08000">00150000</span>
<span style="color:#898887;font-style:italic">04100</span> 00-MAIN. <span style="color:#b08000">00160000</span>
<span style="color:#898887;font-style:italic">04110</span> <span style="font-weight:bold">DISPLAY</span> <span style="color:#bf0303">'HELLO, WORLD'</span> <span style="color:#006e28">UPON</span> CONSL. <span style="color:#b08000">00170000</span>
<span style="color:#898887;font-style:italic">04900</span> <span style="font-weight:bold">STOP</span> <span style="font-weight:bold">RUN</span>. <span style="color:#b08000">00180000</span>
<span style="color:#898887">//LKED.SYSLIB DD DSNAME=SYS1.COBLIB,DISP=SHR 00190000</span>
<span style="color:#898887">// DD DSNAME=SYS1.LINKLIB,DISP=SHR 00200000</span>
<span style="color:#898887">//GO.SYSPRINT DD SYSOUT=A 00210000</span>
<span style="color:#898887">// 00220000</span>
<span style="color:#898887">*> COBOL with embedded SQL.</span>
<span style="color:#898887">*> Normally for extensions pco, scb and sqb, but currently integrated into COBOL</span>
<span style="color:#0057ae;background-color:#e0e9f8">EXEC SQL</span>
<span style="font-weight:bold">select</span> <span style="color:#644a9b">count</span>(<span style="color:#ca60ca">*</span>) <span style="font-weight:bold">from</span> abc
<span style="color:#0057ae;background-color:#e0e9f8">END-EXEC</span>
<span style="font-weight:bold">ADD</span> <span style="color:#b08000">1</span> <span style="color:#006e28">TO</span> x
</pre></body></html>
|
