feat: add missing KF6 framework recipes
This commit is contained in:
+119
@@ -0,0 +1,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 Dark)"/>
|
||||
</head><body style="background-color:#232629;color:#cfcfc2"><pre>
|
||||
<span style="color:#7a7c7d">*> These are equivalent.</span>
|
||||
<span style="font-weight:bold">INVOKE</span> my-class <span style="color:#f44f4f">"foo"</span> <span style="color:#27ae60">RETURNING</span> var
|
||||
<span style="font-weight:bold">MOVE</span> my-class::<span style="color:#f44f4f">"foo"</span> <span style="color:#27ae60">TO</span> var <span style="color:#7a7c7d">*> Inline method invocation</span>
|
||||
|
||||
<span style="font-weight:bold">ADD</span> <span style="color:#f67400">1</span> <span style="color:#27ae60">TO</span> x
|
||||
<span style="font-weight:bold">ADD</span> <span style="color:#f67400">1</span>, a, b <span style="color:#27ae60">TO</span> x <span style="color:#27ae60">ROUNDED</span>, y, z <span style="color:#27ae60">ROUNDED</span>
|
||||
|
||||
<span style="font-weight:bold">ADD</span> a, b <span style="color:#27ae60">TO</span> c
|
||||
<span style="color:#27ae60">ON</span> <span style="color:#27ae60">SIZE</span> <span style="color:#27ae60">ERROR</span>
|
||||
<span style="font-weight:bold">DISPLAY</span> <span style="color:#f44f4f">"Error"</span>
|
||||
<span style="font-weight:bold">END-ADD</span>
|
||||
|
||||
<span style="font-weight:bold">ADD</span> a <span style="color:#27ae60">TO</span> b
|
||||
<span style="color:#27ae60">NOT</span> <span style="color:#27ae60">SIZE</span> <span style="color:#27ae60">ERROR</span>
|
||||
<span style="font-weight:bold">DISPLAY</span> <span style="color:#f44f4f">"No error"</span>
|
||||
<span style="color:#27ae60">ON</span> <span style="color:#27ae60">SIZE</span> <span style="color:#27ae60">ERROR</span>
|
||||
<span style="font-weight:bold">DISPLAY</span> <span style="color:#f44f4f">"Error"</span>
|
||||
|
||||
<span style="font-weight:bold">RD</span> sales-report
|
||||
<span style="color:#27ae60">PAGE</span> <span style="color:#27ae60">LIMITS</span> <span style="color:#f67400">60</span> <span style="color:#27ae60">LINES</span>
|
||||
<span style="color:#27ae60">FIRST</span> <span style="color:#27ae60">DETAIL</span> <span style="color:#f67400">3</span>
|
||||
<span style="color:#27ae60">CONTROLS</span> seller-name.
|
||||
|
||||
<span style="color:#7a7c7d;font-style:italic">01</span> <span style="color:#27ae60">TYPE</span> <span style="color:#27ae60">PAGE</span> <span style="color:#27ae60">HEADING</span>.
|
||||
<span style="color:#7a7c7d;font-style:italic">03</span> <span style="color:#27ae60">COL</span> <span style="color:#f67400">1</span> <span style="color:#27ae60">VALUE</span> <span style="color:#f44f4f">"Sales Report"</span>.
|
||||
<span style="color:#7a7c7d;font-style:italic">03</span> <span style="color:#27ae60">COL</span> <span style="color:#f67400">74</span> <span style="color:#27ae60">VALUE</span> <span style="color:#f44f4f">"Page"</span>.
|
||||
<span style="color:#7a7c7d;font-style:italic">03</span> <span style="color:#27ae60">COL</span> <span style="color:#f67400">79</span> <span style="color:#27ae60">PIC</span> <span style="color:#2980b9">Z9</span> <span style="color:#27ae60">SOURCE</span> <span style="color:#27ae60">PAGE-COUNTER</span>.
|
||||
|
||||
<span style="color:#7a7c7d;font-style:italic">01</span> sales-on-day <span style="color:#27ae60">TYPE</span> <span style="color:#27ae60">DETAIL</span>, <span style="color:#27ae60">LINE</span> + <span style="color:#f67400">1</span>.
|
||||
<span style="color:#7a7c7d;font-style:italic">03</span> <span style="color:#27ae60">COL</span> <span style="color:#f67400">3</span> <span style="color:#27ae60">VALUE</span> <span style="color:#f44f4f">"Sales on"</span>.
|
||||
<span style="color:#7a7c7d;font-style:italic">03</span> <span style="color:#27ae60">COL</span> <span style="color:#f67400">12</span> <span style="color:#27ae60">PIC</span> <span style="color:#2980b9">99/99/9999</span> <span style="color:#27ae60">SOURCE</span> sales-date.
|
||||
<span style="color:#7a7c7d;font-style:italic">03</span> <span style="color:#27ae60">COL</span> <span style="color:#f67400">21</span> <span style="color:#27ae60">VALUE</span> <span style="color:#f44f4f">"were"</span>.
|
||||
<span style="color:#7a7c7d;font-style:italic">03</span> <span style="color:#27ae60">COL</span> <span style="color:#f67400">26</span> <span style="color:#27ae60">PIC</span> <span style="color:#2980b9">$$$$9.99</span> <span style="color:#27ae60">SOURCE</span> sales-amount.
|
||||
|
||||
<span style="color:#7a7c7d;font-style:italic">01</span> invalid-sales <span style="color:#27ae60">TYPE</span> <span style="color:#27ae60">DETAIL</span>, <span style="color:#27ae60">LINE</span> + <span style="color:#f67400">1</span>.
|
||||
<span style="color:#7a7c7d;font-style:italic">03</span> <span style="color:#27ae60">COL</span> <span style="color:#f67400">3</span> <span style="color:#27ae60">VALUE</span> <span style="color:#f44f4f">"INVALID RECORD:"</span>.
|
||||
<span style="color:#7a7c7d;font-style:italic">03</span> <span style="color:#27ae60">COL</span> <span style="color:#f67400">19</span> <span style="color:#27ae60">PIC</span> <span style="color:#2980b9">X(34)</span> <span style="color:#27ae60">SOURCE</span> sales-record.
|
||||
|
||||
<span style="color:#7a7c7d;font-style:italic">01</span> <span style="color:#27ae60">TYPE</span> <span style="font-weight:bold">CONTROL</span> <span style="color:#27ae60">HEADING</span> seller-name, <span style="color:#27ae60">LINE</span> + <span style="color:#f67400">2</span>.
|
||||
<span style="color:#7a7c7d;font-style:italic">03</span> <span style="color:#27ae60">COL</span> <span style="color:#f67400">1</span> <span style="color:#27ae60">VALUE</span> <span style="color:#f44f4f">"Seller:"</span>.
|
||||
<span style="color:#7a7c7d;font-style:italic">03</span> <span style="color:#27ae60">COL</span> <span style="color:#f67400">9</span> <span style="color:#27ae60">PIC</span> <span style="color:#2980b9">X(30)</span> <span style="color:#27ae60">SOURCE</span> seller-name.
|
||||
|
||||
<span style="color:#27ae60">PIC</span> <span style="color:#2980b9">99</span>.
|
||||
<span style="color:#27ae60">PIC</span> <span style="color:#2980b9">9(7)V99</span>.
|
||||
<span style="color:#27ae60">PIC</span> <span style="color:#2980b9">9(10)</span>. <span style="color:#7a7c7d">*> sads</span>
|
||||
<span style="color:#27ae60">PIC</span> <span style="color:#2980b9">9(5)V9(2)</span>.
|
||||
<span style="color:#27ae60">PIC</span> <span style="color:#2980b9">9(5)</span>
|
||||
<span style="color:#27ae60">PIC</span> <span style="color:#2980b9">+++++</span>
|
||||
<span style="color:#27ae60">PIC</span> <span style="color:#2980b9">99/99/9(4)</span>
|
||||
<span style="color:#27ae60">PIC</span> <span style="color:#2980b9">*(4)9.99</span>
|
||||
<span style="color:#27ae60">PIC</span> <span style="color:#2980b9">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:#27ae60">UNTIL</span> <span style="color:#f67400">1</span> <> <span style="color:#f67400">1</span>
|
||||
<span style="font-weight:bold">READ</span> sales
|
||||
<span style="color:#27ae60">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:#27ae60">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:#27ae60">TRUE</span> <span style="color:#27ae60">ALSO</span> desired-speed <span style="color:#27ae60">ALSO</span> current-speed
|
||||
<span style="font-weight:bold">WHEN</span> lid-closed <span style="color:#27ae60">ALSO</span> min-speed <span style="color:#27ae60">THRU</span> max-speed <span style="color:#27ae60">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:#27ae60">ALSO</span> min-speed <span style="color:#27ae60">THRU</span> max-speed <span style="color:#27ae60">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:#27ae60">ALSO</span> <span style="color:#27ae60">ANY</span> <span style="color:#27ae60">ALSO</span> <span style="color:#27ae60">NOT</span> <span style="color:#27aeae;font-weight:bold">ZERO</span>
|
||||
<span style="font-weight:bold">PERFORM</span> emergency-stop
|
||||
<span style="font-weight:bold">WHEN</span> <span style="color:#27ae60">OTHER</span>
|
||||
<span style="font-weight:bold">CONTINUE</span>
|
||||
<span style="font-weight:bold">END-EVALUATE</span>
|
||||
|
||||
<span style="color:#7a7c7d">//COBUCLG JOB (001),'COBOL BASE TEST', 00010000</span>
|
||||
<span style="color:#7a7c7d">// CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1) 00020000</span>
|
||||
<span style="color:#7a7c7d">//BASETEST EXEC COBUCLG 00030000</span>
|
||||
<span style="color:#7a7c7d">//COB.SYSIN DD * 00040000</span>
|
||||
<span style="color:#7a7c7d;font-style:italic">00000</span><span style="color:#7a7c7d">* VALIDATION OF BASE COBOL INSTALL 00050000</span>
|
||||
<span style="color:#7a7c7d;font-style:italic">01000</span> <span style="color:#2980b9;background-color:#153042">IDENTIFICATION DIVISION</span>. <span style="color:#f67400">00060000</span>
|
||||
<span style="color:#7a7c7d;font-style:italic">01100</span> <span style="font-weight:bold">PROGRAM-ID</span>. <span style="color:#f44f4f">'HELLO'</span>. <span style="color:#f67400">00070000</span>
|
||||
<span style="color:#7a7c7d;font-style:italic">02000</span> <span style="color:#2980b9;background-color:#153042">ENVIRONMENT DIVISION</span>. <span style="color:#f67400">00080000</span>
|
||||
<span style="color:#7a7c7d;font-style:italic">02100</span> <span style="color:#2980b9;background-color:#153042">CONFIGURATION SECTION</span>. <span style="color:#f67400">00090000</span>
|
||||
<span style="color:#7a7c7d;font-style:italic">02110</span> <span style="color:#27ae60">SOURCE-COMPUTER</span>. GNULINUX. <span style="color:#f67400">00100000</span>
|
||||
<span style="color:#7a7c7d;font-style:italic">02120</span> <span style="color:#27ae60">OBJECT-COMPUTER</span>. HERCULES. <span style="color:#f67400">00110000</span>
|
||||
<span style="color:#7a7c7d;font-style:italic">02200</span> <span style="font-weight:bold">SPECIAL-NAMES</span>. <span style="color:#f67400">00120000</span>
|
||||
<span style="color:#7a7c7d;font-style:italic">02210</span> CONSOLE <span style="color:#27ae60">IS</span> CONSL. <span style="color:#f67400">00130000</span>
|
||||
<span style="color:#7a7c7d;font-style:italic">03000</span> <span style="color:#2980b9;background-color:#153042">DATA DIVISION</span>. <span style="color:#f67400">00140000</span>
|
||||
<span style="color:#7a7c7d;font-style:italic">04000</span> <span style="color:#2980b9;background-color:#153042">PROCEDURE DIVISION</span>. <span style="color:#f67400">00150000</span>
|
||||
<span style="color:#7a7c7d;font-style:italic">04100</span> 00-MAIN. <span style="color:#f67400">00160000</span>
|
||||
<span style="color:#7a7c7d;font-style:italic">04110</span> <span style="font-weight:bold">DISPLAY</span> <span style="color:#f44f4f">'HELLO, WORLD'</span> <span style="color:#27ae60">UPON</span> CONSL. <span style="color:#f67400">00170000</span>
|
||||
<span style="color:#7a7c7d;font-style:italic">04900</span> <span style="font-weight:bold">STOP</span> <span style="font-weight:bold">RUN</span>. <span style="color:#f67400">00180000</span>
|
||||
<span style="color:#7a7c7d">//LKED.SYSLIB DD DSNAME=SYS1.COBLIB,DISP=SHR 00190000</span>
|
||||
<span style="color:#7a7c7d">// DD DSNAME=SYS1.LINKLIB,DISP=SHR 00200000</span>
|
||||
<span style="color:#7a7c7d">//GO.SYSPRINT DD SYSOUT=A 00210000</span>
|
||||
<span style="color:#7a7c7d">// 00220000</span>
|
||||
|
||||
<span style="color:#7a7c7d">*> COBOL with embedded SQL.</span>
|
||||
<span style="color:#7a7c7d">*> Normally for extensions pco, scb and sqb, but currently integrated into COBOL</span>
|
||||
<span style="color:#2980b9;background-color:#153042">EXEC SQL</span>
|
||||
<span style="font-weight:bold">select</span> <span style="color:#8e44ad">count</span>(<span style="color:#3f8058">*</span>) <span style="font-weight:bold">from</span> abc
|
||||
<span style="color:#2980b9;background-color:#153042">END-EXEC</span>
|
||||
<span style="font-weight:bold">ADD</span> <span style="color:#f67400">1</span> <span style="color:#27ae60">TO</span> x
|
||||
</pre></body></html>
|
||||
Reference in New Issue
Block a user