From b80b69ca27cf9b6bdbdbf73c4d338507a06125cc Mon Sep 17 00:00:00 2001
From: Jim <jim@neverandforever.com>
Date: Mon, 27 Feb 2023 10:39:11 +0000
Subject: [PATCH] Adding JCL (Job Control Language) (#6249)

* Added JCL

* Added JCL samples

* Updated JCL samples

* added missing JCL colour
---
 lib/linguist/languages.yml |  8 ++++++++
 samples/JCL/IEBCOPY.jcl    | 13 +++++++++++++
 samples/JCL/IEFBR14.jcl    |  9 +++++++++
 samples/JCL/IKJEFT01.jcl   |  8 ++++++++
 vendor/README.md           |  1 +
 5 files changed, 39 insertions(+)
 create mode 100644 samples/JCL/IEBCOPY.jcl
 create mode 100644 samples/JCL/IEFBR14.jcl
 create mode 100644 samples/JCL/IKJEFT01.jcl

diff --git a/lib/linguist/languages.yml b/lib/linguist/languages.yml
index cf2c3eab28..b54e101015 100644
--- a/lib/linguist/languages.yml
+++ b/lib/linguist/languages.yml
@@ -3027,6 +3027,14 @@ JAR Manifest:
   tm_scope: source.yaml
   ace_mode: text
   language_id: 447261135
+JCL:
+  type: programming
+  color: "#d90e09"
+  extensions:
+  - ".jcl"
+  tm_scope: source.jcl
+  ace_mode: text
+  language_id: 316620079
 JFlex:
   type: programming
   color: "#DBCA00"
diff --git a/samples/JCL/IEBCOPY.jcl b/samples/JCL/IEBCOPY.jcl
new file mode 100644
index 0000000000..1e74cee128
--- /dev/null
+++ b/samples/JCL/IEBCOPY.jcl
@@ -0,0 +1,13 @@
+//IEBCOPY JOB (ACCT),'IEBCOPY',CLASS=A,MSGCLASS=X
+//*
+//*-----------------------------------------------------------*
+//* COPY A MEMBER FROM ONE DATA SET TO ANOTHER.
+//*-----------------------------------------------------------*
+//IEBCOPY  EXEC PGM=IEBCOPY
+//SYSPRINT DD  SYSOUT=*
+//SYSUT1   DD  DISP=SHR,DSN=IBMUSER.TEST
+//SYSUT2   DD  DISP=SHR,DSN=IBMUSER.TEST2
+//SYSIN    DD  *
+ C I=((SYSUT1,R)),O=SYSUT2
+ S M=((TESTMEM,TEST2))
+//*
diff --git a/samples/JCL/IEFBR14.jcl b/samples/JCL/IEFBR14.jcl
new file mode 100644
index 0000000000..13f0a72e1f
--- /dev/null
+++ b/samples/JCL/IEFBR14.jcl
@@ -0,0 +1,9 @@
+//IBMUSER JOB (),
+//             IEFBR14,
+//             CLASS=A,
+//             MSGCLASS=X,
+//             REGION=5M,
+//             NOTIFY=IBMUSER
+//DUMP    EXEC PGM=IEFBR14
+//DUMPOUT   DD DSN=SYS1.TEST.SMF,DISP=(NEW,CATLG),
+//             UNIT=3390,VOL=SER=USR001,SPACE=(CYL,(10,2),RLSE)
\ No newline at end of file
diff --git a/samples/JCL/IKJEFT01.jcl b/samples/JCL/IKJEFT01.jcl
new file mode 100644
index 0000000000..a33ff47940
--- /dev/null
+++ b/samples/JCL/IKJEFT01.jcl
@@ -0,0 +1,8 @@
+//SAMPLE1 JOB (*),"TESTING JOB",CLASS=A,PRTY=10,NOTIFY=&SYSUID,
+//   MSGCLASS=X,MSGLEVEL=(1,1),TYPRUN=SCAN,REGION=0M
+//* LIST A USER
+//IKJEFT  EXEC PGM=IKJEFT01
+//SYSTSPRT DD SYSOUT=*
+//SYSTSIN  DD *
+ LU IBMUSER
+//
\ No newline at end of file
diff --git a/vendor/README.md b/vendor/README.md
index 5493feb783..74c9383040 100644
--- a/vendor/README.md
+++ b/vendor/README.md
@@ -251,6 +251,7 @@ This is a list of grammars that Linguist selects to provide syntax highlighting
 - **Isabelle ROOT:** [lsf37/Isabelle.tmbundle](https://github.com/lsf37/Isabelle.tmbundle)
 - **J:** [tikkanz/JSyntax](https://github.com/tikkanz/JSyntax)
 - **JAR Manifest:** [atom/language-yaml](https://github.com/atom/language-yaml)
+- **JCL:** [spgennard/vscode_cobol](https://github.com/spgennard/vscode_cobol)
 - **JFlex:** [jflex-de/jflex.tmbundle](https://github.com/jflex-de/jflex.tmbundle)
 - **JSON:** [Nixinova/NovaGrammars](https://github.com/Nixinova/NovaGrammars)
 - **JSON with Comments:** [atom/language-javascript](https://github.com/atom/language-javascript)