File indexing completed on 2024-05-19 15:23:13
0001 <!DOCTYPE html> 0002 <html><head> 0003 <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/> 0004 <title>highlight.cbl</title> 0005 <meta name="generator" content="KF5::SyntaxHighlighting - Definition (COBOL) - Theme (Breeze Light)"/> 0006 </head><body style="background-color:#ffffff;color:#1f1c1b"><pre> 0007 <span style="color:#898887;">*> These are equivalent.</span> 0008 <span style="font-weight:bold;">INVOKE</span> my-class <span style="color:#bf0303;">"foo"</span> <span style="color:#006e28;">RETURNING</span> var 0009 <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> 0010 0011 <span style="font-weight:bold;">ADD</span> <span style="color:#b08000;">1</span> <span style="color:#006e28;">TO</span> x 0012 <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> 0013 0014 <span style="font-weight:bold;">ADD</span> a, b <span style="color:#006e28;">TO</span> c 0015 <span style="color:#006e28;">ON</span> <span style="color:#006e28;">SIZE</span> <span style="color:#006e28;">ERROR</span> 0016 <span style="font-weight:bold;">DISPLAY</span> <span style="color:#bf0303;">"Error"</span> 0017 <span style="font-weight:bold;">END-ADD</span> 0018 0019 <span style="font-weight:bold;">ADD</span> a <span style="color:#006e28;">TO</span> b 0020 <span style="color:#006e28;">NOT</span> <span style="color:#006e28;">SIZE</span> <span style="color:#006e28;">ERROR</span> 0021 <span style="font-weight:bold;">DISPLAY</span> <span style="color:#bf0303;">"No error"</span> 0022 <span style="color:#006e28;">ON</span> <span style="color:#006e28;">SIZE</span> <span style="color:#006e28;">ERROR</span> 0023 <span style="font-weight:bold;">DISPLAY</span> <span style="color:#bf0303;">"Error"</span> 0024 0025 <span style="font-weight:bold;">RD</span> sales-report 0026 <span style="color:#006e28;">PAGE</span> <span style="color:#006e28;">LIMITS</span> <span style="color:#b08000;">60</span> <span style="color:#006e28;">LINES</span> 0027 <span style="color:#006e28;">FIRST</span> <span style="color:#006e28;">DETAIL</span> <span style="color:#b08000;">3</span> 0028 <span style="color:#006e28;">CONTROLS</span> seller-name. 0029 0030 <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>. 0031 <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>. 0032 <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>. 0033 <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>. 0034 0035 <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>. 0036 <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>. 0037 <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. 0038 <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>. 0039 <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. 0040 0041 <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>. 0042 <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>. 0043 <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. 0044 0045 <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>. 0046 <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>. 0047 <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. 0048 0049 <span style="color:#006e28;">PIC</span> <span style="color:#0057ae;">99</span>. 0050 <span style="color:#006e28;">PIC</span> <span style="color:#0057ae;">9(7)V99</span>. 0051 <span style="color:#006e28;">PIC</span> <span style="color:#0057ae;">9(10)</span>. <span style="color:#898887;">*> sads</span> 0052 <span style="color:#006e28;">PIC</span> <span style="color:#0057ae;">9(5)V9(2)</span>. 0053 <span style="color:#006e28;">PIC</span> <span style="color:#0057ae;">9(5)</span> 0054 <span style="color:#006e28;">PIC</span> <span style="color:#0057ae;">+++++</span> 0055 <span style="color:#006e28;">PIC</span> <span style="color:#0057ae;">99/99/9(4)</span> 0056 <span style="color:#006e28;">PIC</span> <span style="color:#0057ae;">*(4)9.99</span> 0057 <span style="color:#006e28;">PIC</span> <span style="color:#0057ae;">X(3)BX(3)BX(3)</span> 0058 0059 <span style="font-weight:bold;">OPEN</span> <span style="font-weight:bold;">INPUT</span> sales, <span style="font-weight:bold;">OUTPUT</span> report-out 0060 <span style="font-weight:bold;">INITIATE</span> sales-report 0061 0062 <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> 0063 <span style="font-weight:bold;">READ</span> sales 0064 <span style="color:#006e28;">AT</span> <span style="font-weight:bold;">END</span> 0065 <span style="font-weight:bold;">EXIT</span> <span style="font-weight:bold;">PERFORM</span> 0066 <span style="font-weight:bold;">END-READ</span> 0067 0068 <span style="color:#006e28;">VALIDATE</span> sales-record 0069 <span style="font-weight:bold;">IF</span> valid-record 0070 <span style="font-weight:bold;">GENERATE</span> sales-on-day 0071 <span style="font-weight:bold;">ELSE</span> 0072 <span style="font-weight:bold;">GENERATE</span> invalid-sales 0073 <span style="font-weight:bold;">END-IF</span> 0074 <span style="font-weight:bold;">END-PERFORM</span> 0075 0076 <span style="font-weight:bold;">TERMINATE</span> sales-report 0077 <span style="font-weight:bold;">CLOSE</span> sales, report-out 0078 0079 <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 0080 <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 0081 <span style="font-weight:bold;">PERFORM</span> speed-up-machine 0082 <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 0083 <span style="font-weight:bold;">PERFORM</span> slow-down-machine 0084 <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> 0085 <span style="font-weight:bold;">PERFORM</span> emergency-stop 0086 <span style="font-weight:bold;">WHEN</span> <span style="color:#006e28;">OTHER</span> 0087 <span style="font-weight:bold;">CONTINUE</span> 0088 <span style="font-weight:bold;">END-EVALUATE</span> 0089 0090 <span style="color:#898887;">//COBUCLG JOB (001),'COBOL BASE TEST', 00010000</span> 0091 <span style="color:#898887;">// CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1) 00020000</span> 0092 <span style="color:#898887;">//BASETEST EXEC COBUCLG 00030000</span> 0093 <span style="color:#898887;">//COB.SYSIN DD * 00040000</span> 0094 <span style="color:#898887;font-style:italic;">00000</span><span style="color:#898887;">* VALIDATION OF BASE COBOL INSTALL 00050000</span> 0095 <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> 0096 <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> 0097 <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> 0098 <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> 0099 <span style="color:#898887;font-style:italic;">02110</span> <span style="color:#006e28;">SOURCE-COMPUTER</span>. GNULINUX. <span style="color:#b08000;">00100000</span> 0100 <span style="color:#898887;font-style:italic;">02120</span> <span style="color:#006e28;">OBJECT-COMPUTER</span>. HERCULES. <span style="color:#b08000;">00110000</span> 0101 <span style="color:#898887;font-style:italic;">02200</span> <span style="font-weight:bold;">SPECIAL-NAMES</span>. <span style="color:#b08000;">00120000</span> 0102 <span style="color:#898887;font-style:italic;">02210</span> CONSOLE <span style="color:#006e28;">IS</span> CONSL. <span style="color:#b08000;">00130000</span> 0103 <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> 0104 <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> 0105 <span style="color:#898887;font-style:italic;">04100</span> 00-MAIN. <span style="color:#b08000;">00160000</span> 0106 <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> 0107 <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> 0108 <span style="color:#898887;">//LKED.SYSLIB DD DSNAME=SYS1.COBLIB,DISP=SHR 00190000</span> 0109 <span style="color:#898887;">// DD DSNAME=SYS1.LINKLIB,DISP=SHR 00200000</span> 0110 <span style="color:#898887;">//GO.SYSPRINT DD SYSOUT=A 00210000</span> 0111 <span style="color:#898887;">// 00220000</span> 0112 0113 <span style="color:#898887;">*> COBOL with embedded SQL.</span> 0114 <span style="color:#898887;">*> Normally for extensions pco, scb and sqb, but currently integrated into COBOL</span> 0115 <span style="color:#0057ae;background-color:#e0e9f8;">EXEC SQL</span> 0116 <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 0117 <span style="color:#0057ae;background-color:#e0e9f8;">END-EXEC</span> 0118 <span style="font-weight:bold;">ADD</span> <span style="color:#b08000;">1</span> <span style="color:#006e28;">TO</span> x 0119 </pre></body></html>