%PDF-
%PDF-
Mini Shell
Mini Shell
<?php
/*************************************************************************************
* jcl.php
* -----------
* Author: Ramesh Vishveshwar (ramesh.vishveshwar@gmail.com)
* Copyright: (c) 2012 Ramesh Vishveshwar (http://thecodeisclear.in)
* Release Version: 1.0.9.1
* Date Started: 2011/09/16
*
* JCL (MVS), DFSORT, IDCAMS language file for GeSHi.
*
* CHANGES
* -------
* 2011/09/16 (1.0.0)
* - Internal Release (for own blog/testing)
* 2012/09/22 (1.0.1)
* - Released with support for DFSORT, ICETOOL, IDCAMS
* - Added support for Symbolic variables in JCL
* - Added support for TWS OPC variables
*
*************************************************************************************
*
* This file is part of GeSHi.
*
* GeSHi is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* GeSHi is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with GeSHi; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*
************************************************************************************/
$language_data = array (
'LANG_NAME' => 'JCL',
'COMMENT_SINGLE' => array(),
'COMMENT_MULTI' => array(),
'COMMENT_REGEXP' => array(
// Comments identified using REGEX
// Comments start with //* but should not be followed by % (TWS) or + (some JES3 stmts)
3 => "\/\/\*[^%](.*?)(\n)"
),
'CASE_KEYWORDS' => GESHI_CAPS_UPPER,
'QUOTEMARKS' => array("'", '"'),
'ESCAPE_CHAR' => '',
'KEYWORDS' => array(
1 => array(
'COMMAND', 'CNTL', 'DD', 'ENDCNTL', 'EXEC', 'IF', 'THEN', 'ELSE',
'ENDIF', 'JCLLIB', 'JOB', 'OUTPUT', 'PEND',
'PROC', 'SET', 'XMIT'
),
2 => array (
'PGM','CLASS','NOTIFY','MSGCLASS','DSN','KEYLEN','LABEL','LIKE',
'RECFM','LRECL','DCB','DSORG','BLKSIZE','SPACE','STORCLAS',
'DUMMY','DYNAM','AVGREC','BURST','DISP','UNIT','VOLUME',
'MSGLEVEL','REGION'
),
// Keywords set 3: DFSORT, ICETOOL
3 => array (
'ALTSEQ','DEBUG','END','INCLUDE','INREC','MERGE','MODS','OMIT',
'OPTION','OUTFIL','OUTREC','RECORD','SORT','SUM',
'COPY','COUNT','DEFAULTS','DISPLAY','MODE','OCCUR','RANGE',
'SELECT','STATS','UNIQUE','VERIFY'
),
// Keywords set 4: IDCAMS
4 => array (
'ALTER','BLDINDEX','CNVTCAT','DEFINE','ALIAS','ALTERNATEINDEX',
'CLUSTER','GENERATIONDATAGROUP','GDG','NONVSAM','PAGESPACE','PATH',
/* 'SPACE',*/'USERCATALOG','DELETE','EXAMINE','EXPORT','DISCONNECT',
'EXPORTRA','IMPORT','CONNECT','IMPORTRA','LISTCAT','LISTCRA',
'PRINT','REPRO','RESETCAT'//,'VERIFY'
)
),
'SYMBOLS' => array(
'(',')','=',',','>','<'
),
'CASE_SENSITIVE' => array(
GESHI_COMMENTS => false,
1 => false,
2 => false,
3 => false,
4 => false
),
'STYLES' => array(
'KEYWORDS' => array(
1 => 'color: #FF0000;',
2 => 'color: #21A502;',
3 => 'color: #FF00FF;',
4 => 'color: #876C00;'
),
'COMMENTS' => array(
0 => 'color: #0000FF;',
//1 => 'color: #0000FF;',
//2 => 'color: #0000FF;',
3 => 'color: #0000FF;'
),
'ESCAPE_CHAR' => array(
0 => ''
),
'BRACKETS' => array(
0 => 'color: #FF7400;'
),
'STRINGS' => array(
0 => 'color: #66CC66;'
),
'NUMBERS' => array(
0 => 'color: #336633;'
),
'METHODS' => array(
1 => '',
2 => ''
),
'SYMBOLS' => array(
0 => 'color: #FF7400;'
),
'REGEXPS' => array(
0 => 'color: #6B1F6B;',
1 => 'color: #6B1F6B;',
2 => 'color: #6B1F6B;'
),
'SCRIPT' => array(
0 => ''
)
),
'URLS' => array(
1 => '',
// JCL book at IBM Bookshelf is http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/handheld/Connected/BOOKS/IEA2B680/CONTENTS?SHELF=&DT=20080604022956#3.1
2 => '',
3 => '',
4 => ''
),
'OOLANG' => false,
'OBJECT_SPLITTERS' => array(),
'REGEXPS' => array(
// The following regular expressions solves three purposes
// - Identify Temp Variables in JCL (e.g. &&TEMP)
// - Symbolic variables in JCL (e.g. &SYSUID)
// - TWS OPC Variables (e.g. %OPC)
// Thanks to Simon for pointing me to this
0 => '&&[a-zA-Z]{1,8}[0-9]{0,}',
1 => '&[a-zA-Z]{1,8}[0-9]{0,}',
2 => '&|\?|%[a-zA-Z]{1,8}[0-9]{0,}'
),
'STRICT_MODE_APPLIES' => GESHI_NEVER,
'SCRIPT_DELIMITERS' => array(
),
'HIGHLIGHT_STRICT_BLOCK' => array()
);
Zerion Mini Shell 1.0