JCL Language Reference Manual

This is part of the Heirloom Computing Elastic Batch Platform forum on paas.heirloomcomputing.com.

The Heirloom Computing Job Control Language syntax accepted by the interpreter within Heirloom Computing EBP is described below in extended Bachus-Naur form and syntax "railroad" diagrams.

Index

1. job
2. jobstart
3. inlineproc
4. stepstart
5. step
6. card
7. includemember
8. memberstart
9. catalogedproc
10. commentcard
11. nullcard
12. comment
13. jobcard
14. jobname
15. jobpositional
16. jobacct
17. acctitem
18. jobprogrammer
19. jobkeywords
20. jobclass
21. jobexectime
22. jobmsgclass
23. jobmsglevel
24. jobnotify
25. jobtyprun
26. jobcond
27. jobconditions
28. jobcondition
29. jobaddrspc
30. jobbytes
31. jobcards
32. joblines
33. jobpages
34. jobexecddccsid
35. jobexecmemlimit
36. jobuser
37. jobpassword
38. jobprty
39. jobrd
40. jobregion
41. jobschenv
42. jobrestart
43. schedulecard
44. schedparm
45. scheddate
46. execcard
47. stepname
48. execwhat
49. execkeywords
50. execpgm
51. execproc
52. execparm
53. execparmitem
54. execacct
55. execaddrspc
56. execdynamnbr
57. execperform
58. execrd
59. execregion
60. execrlstmout
61. execcond
62. conditions
63. condition
64. reloper
65. priorstepname
66. procstepname
67. ddcard
68. ddimmediate
69. inlinedata1
70. ild1
71. inlinedata2
72. ild2
73. ddname
74. ddkeywords
75. dddsn
76. dsnpart
77. dsnfixed
78. dsnvariable
79. pdsgdgpart
80. dddisp
81. dddispstatus
82. dddispnormal
83. dddispabnormal
84. ddsysout
85. ddsysoutchr
86. ddoutput
87. dd1output
88. dddcb
89. dddcboption
90. dcbprotocols
91. dcbprotocol
92. dcboptcd
93. dcbrkp
94. ddspace
95. ddspaceextra
96. ddspacerlse
97. ddspacecontig
98. ddspaceround
99. ddspacealloc
100. ddvolume
101. volser
102. volref
103. ddbufno
104. ddstorclass
105. ddunit
106. ddcntl
107. cntlgroup
108. cntllabel
109. cntldatalable
110. cntldata
111. cntldataline
112. ddaccode
113. ddampcode
114. ddavgrec
115. ddblksize
116. ddblkszlm
117. ddburst
118. ddchars
119. ddchkpt
120. ddcopies
121. dddataclas
122. dddest
123. dddlm
124. ddsym
125. dddsid
126. dddsntype
127. ddeattr
128. ddexpdt
129. ddfcb
130. ddfiledata
131. ddflash
132. ddfree
133. ddhold
134. ddkeylabl
135. ddkeyencd
136. ddkeylen
137. ddkeyoff
138. ddlabel
139. labels
140. label
141. ddlgstream
142. ddlike
143. ddlrecl
144. ddmgmtclas
145. ddmodify
146. ddoutlim
147. ddpath
148. ddpathdisp
149. ddpathmode
150. pathmode
151. ddpathopt
152. pathopt
153. ddprotect
154. yesno
155. ddqname
156. ddrecfm
157. dddsorg
158. ddrecorg
159. ddrefdd
160. refdd
161. ddretpd
162. ddrls
163. ddsecmodel
164. ddsegment
165. ddspin
166. ddsubsys
167. ddterm
168. dducs
169. jcllibcard
170. libname
171. jcllib
172. optionalproccard
173. proccard
174. procname
175. procnameval
176. nameval
177. name
178. execnameval
179. nonexecname
180. parenlist
181. value
182. pendcard
183. optname
184. outputcard
185. outputname
186. outnameval
187. routedirective
188. setcard
189. setname
190. setnameval
191. includecard
192. ifcontin
193. ifthencard
194. elsecard
195. endifcard
196. ifexpr
197. andorexpr
198. relexpr
199. booloper
200. anyexpr
201. quotedstring
202. anything
203. idres
204. idnonexprres
205. idresint
206. idresvar
207. idresintvar
208. intvar
209. intidres
210. idintvar
211. ID
212. variable
213. comma
214. reserved
215. nonexprreserved
216. execreserved
217. exprreserved
218. nonexecreserved
219. INT
220. NEWLINE
221. WS
222. SLASHSTAR
223. SLASHSLASHSTAR
224. CARETCARET
225. SPECIAL
226. INTL

Rules

• job Top

  A JCL Job Deck consists of a JOB card, various "before a step" cards, inline procedures and then steps

  Text notation:

  job : commentcard* jobcard jobstart* ( inlineproc | step )* EOF ;

  Visual notation:

  

• jobstart Top

  Certain cards are allowed before steps or procs

  Text notation:

  jobstart : commentcard | ddcard | nullcard | jcllibcard | ifthencard | elsecard | endifcard | setcard | cntlgroup | routedirective | includecard | schedulecard ;

  Visual notation:

  

• inlineproc Top

  All cards other than the JOB and JCLLIB cards are allowed between PROC and PEND.

  Text notation:

  inlineproc : proccard step+ pendcard ;

  Visual notation:

  

• stepstart Top

  Certain cards are allowed before steps or procs

  Text notation:

  stepstart : commentcard | nullcard | ifthencard | elsecard | endifcard | setcard | cntlgroup | routedirective ;

  Visual notation:

  

• step Top

   

  Text notation:

  step : stepstart* execcard card* ;

  Visual notation:

  

• card Top

   

  Text notation:

  card : ddcard | ddimmediate | cntlgroup | setcard | includecard | ifthencard | elsecard | endifcard | outputcard | commentcard | nullcard | routedirective ;

  Visual notation:

  

• includemember Top

  Included Members contain arbitrary JCL, which may or may not contain steps

  Text notation:

  includemember : memberstart jobstart* step* ;

  Visual notation:

  

• memberstart Top

   

  Text notation:

  memberstart : ;

  Visual notation:

  

• catalogedproc Top

  Cataloged procedures in the JCLLIB cards begin with PROC and end in PEND.

  Text notation:

  catalogedproc : commentcard* optionalproccard step+ pendcard? ;

  Visual notation:

  

• commentcard Top

  Comment cards contain arbitrary comments (Note: starting in column 5).

  Text notation:

  commentcard : SLASHSLASHSTAR ~( NEWLINE )* NEWLINE ;

  Visual notation:

  

• nullcard Top

  The null statement is a no-op. EBP also allows real blank lines

  Text notation:

  nullcard : '//' WS? NEWLINE | WS? NEWLINE ;

  Visual notation:

  

• comment Top

  Most cards may contain comments after white-space (WS) and contain anything other than a new-line (NEWLINE) character up until column 72. A non-blank character in column 72 continues the comment onto the next card

  Text notation:

  comment : WS ~( NEWLINE )* | ;

  Visual notation:

  

• jobcard Top

  A job card starts a JCL Deck

  Text notation:

  jobcard : '//' jobname WS JOB WS jobpositional ( comma jobkeywords )* comment NEWLINE ;

  Visual notation:

  

• jobname Top

   

  Text notation:

  jobname : idres | ;

  Visual notation:

  

• jobpositional Top

   

  Text notation:

  jobpositional : jobacct comma jobprogrammer | jobacct | ;

  Visual notation:

  

• jobacct Top

  Heirloom Computing EBP ignores the Job accounting information by you may use it to managed your submissions.

  Text notation:

  jobacct : acctitem | '(' acctitem ( comma acctitem )* ')' ;

  Visual notation:

  

• acctitem Top

   

  Text notation:

  acctitem : idres | intidres | quotedstring ;

  Visual notation:

  

• jobprogrammer Top

  Place your name between apostrophes on the comment card

  Text notation:

  jobprogrammer : '\'' ~( '\'' | NEWLINE )* '\'' | idres | intidres ;

  Visual notation:

  

• jobkeywords Top

   

  Text notation:

  jobkeywords : jobclass | jobaddrspc | jobbytes | jobcards | jobexecddccsid | jobcond | joblines | jobexecmemlimit | jobmsgclass | jobmsglevel | jobnotify | jobpages | jobpassword | jobprty | jobexectime | jobtyprun | jobregion | jobrestart | jobrd | jobuser | jobschenv ;

  Visual notation:

  

• jobclass Top

  The job class determines the class of initiators (and their restrictions) underwhich this job will run.

  Text notation:

  jobclass : CLASS '=' idresint ;

  Visual notation:

  

• jobexectime Top

  Specify TIME to have Heirloom Computing EBP choose from the defined classes where this job should be slotted.

  Text notation:

  jobexectime : TIME '=(' minutes=intvar comma seconds=intvar ')' | TIME '=(' comma seconds=intvar ')' | TIME '=' minutes=intvar | TIME '=' ID ;

  Visual notation:

  

• jobmsgclass Top

  The job default message class is used for all SYSOUT=* report datasets; All Heirloom Computing EBP output is held in the output queue until removed.

  Text notation:

  jobmsgclass : MSGCLASS '=' idresint ;

  Visual notation:

  

• jobmsglevel Top

  Message Level 2,2 provides detailed output in the MSG output dataset

  Text notation:

  jobmsglevel : MSGLEVEL '=(' firstlvl=INT comma secondlvl=INT ')' | MSGLEVEL '=(' firstlvl=INT ')' | MSGLEVEL '=' firstlvl=INT ;

  Visual notation:

  

• jobnotify Top

  Checked for syntax and ignored.

  Text notation:

  jobnotify : NOTIFY '=' idres | NOTIFY '=' variable ;

  Visual notation:

  

• jobtyprun Top

  Use SCAN to scan the job deck for syntax errors and print to the MSG output dataset. Use HOLD to submit but hold the job until released with the RESTART Heirloom Computing EBP Web Service. CHECKPOINTing a QUEUED job will also HOLD the job.

  Text notation:

  jobtyprun : TYPRUN '=' COPY | TYPRUN '=' HOLD | TYPRUN '=' JCLHOLD | TYPRUN '=' SCAN ;

  Visual notation:

  

• jobcond Top

  Job level condition check is used when COND is not given on EXEC

  Text notation:

  jobcond : 'COND=' jobconditions ;

  Visual notation:

  

• jobconditions Top

   

  Text notation:

  jobconditions : jobcondition | '(' jobcondition ( comma jobcondition )+ ')' ;

  Visual notation:

  

• jobcondition Top

   

  Text notation:

  jobcondition : EVEN | ONLY | '(' INT comma reloper ')' ;

  Visual notation:

  

• jobaddrspc Top

  Checked for syntax and ignored

  Text notation:

  jobaddrspc : ADDRSPC '=' ID ;

  Visual notation:

  

• jobbytes Top

  Checked for syntax and ignored

  Text notation:

  jobbytes : BYTES '=' INT | BYTES '=(' INT ( comma ( CANCEL | DUMP | WARNING ) )? ')' ;

  Visual notation:

  

• jobcards Top

  Checked for syntax and ignored

  Text notation:

  jobcards : CARDS '=' INT | CARDS '=(' INT ( comma ( CANCEL | DUMP | WARNING ) )? ')' ;

  Visual notation:

  

• joblines Top

  Checked for syntax and ignored

  Text notation:

  joblines : LINES '=' INT | LINES '=(' INT ( comma ( CANCEL | DUMP | WARNING ) )? ')' ;

  Visual notation:

  

• jobpages Top

  Checked for syntax and ignored

  Text notation:

  jobpages : PAGES '=' INT | PAGES '=(' INT ( comma ( CANCEL | DUMP | WARNING ) )? ')' ;

  Visual notation:

  

• jobexecddccsid Top

  Checked for syntax and ignored

  Text notation:

  jobexecddccsid : CCSID '=' INT ;

  Visual notation:

  

• jobexecmemlimit Top

  Checked for syntax and ignored

  Text notation:

  jobexecmemlimit : MEMLIMIT '=' INT ID | MEMLIMIT '=' ID | MEMLIMIT '=' variable ;

  Visual notation:

  

• jobuser Top

  Checked for syntax and ignored

  Text notation:

  jobuser : USER '=' ( '(' )? idres ( ')' )? ;

  Visual notation:

  

• jobpassword Top

  Checked for syntax and ignored

  Text notation:

  jobpassword : PASSWORD '=' ( '(' )? idres ( ')' )? | PASSWORD '=(' pw1=idres comma pw2=idres ')' | PASSWORD '=' quotedstring ;

  Visual notation:

  

• jobprty Top

  Checked for syntax and ignored

  Text notation:

  jobprty : PRTY '=' INT ;

  Visual notation:

  

• jobrd Top

  Checked for syntax and ignored

  Text notation:

  jobrd : RD '=' ID ;

  Visual notation:

  

• jobregion Top

  Checked for syntax and ignored

  Text notation:

  jobregion : REGION '=' INT ID ;

  Visual notation:

  

• jobschenv Top

  Checked for syntax and ignored

  Text notation:

  jobschenv : SCHENV '=' idres ;

  Visual notation:

  

• jobrestart Top

  Restart at a step or procstep with or without a checkpoint id

  Text notation:

  jobrestart : RESTART '=*' | RESTART '=(*)' | RESTART '=(*' comma chkid=idres ')' | RESTART '=' stnm=idres | RESTART '=(' stnm=idres ')' | RESTART '=(' stnm=idres comma chkid=idres ')' | RESTART '=' stnm=idres '.' procstnm=idres | RESTART '=(' stnm=idres '.' procstnm=idres ')' | RESTART '=(' stnm=idres '.' procstnm=idres comma chkid=idres ')' ;

  Visual notation:

  

• schedulecard Top

  Defines which Job Execution Control JOBGROUP this job is associated with

  Text notation:

  schedulecard : '//' ( idres )? WS SCHEDULE WS schedparm ( comma schedparm )* comment NEWLINE ;

  Visual notation:

  

• schedparm Top

   

  Text notation:

  schedparm : JOBGROUP '=' idres | STARTBY scheddate | HOLDUNTL scheddate | WITH '=' idres ;

  Visual notation:

  

• scheddate Top

   

  Text notation:

  scheddate : '=\'+' hh=INT ':' mm=INT '\'' | '=(' ( '\'' hh=INT ':' mm=INT '\'' )? comma ')' | '=(' ( '\'' hh=INT ':' mm=INT '\'' )? comma '\'' MM=INT '/' dd=INT '/' yyyy=INT '\'' ')' | '=(' ( '\'' hh=INT ':' mm=INT '\'' )? comma '\'' yyyy=INT '/' dddd=INT '\'' ')' ;

  Visual notation:

  

• execcard Top

  Defines a job step within the job that runs a program or invokes an inline or cataloged procedure

  Text notation:

  execcard : '//' stepname WS EXEC WS execwhat ( comma execkeywords )* comment NEWLINE ;

  Visual notation:

  

• stepname Top

  Refer to the EXEC card's step name on the LIST Heirloom Computing EBP Web Service to return a specific output dataset (with the DD name).

  Text notation:

  stepname : idres | ;

  Visual notation:

  

• execwhat Top

   

  Text notation:

  execwhat : execproc | execpgm ;

  Visual notation:

  

• execkeywords Top

   

  Text notation:

  execkeywords : execparm | jobexectime | execcond | execacct | execaddrspc | jobexecddccsid | execdynamnbr | jobexecmemlimit | execperform | execrd | execregion | execrlstmout | execnameval ;

  Visual notation:

  

• execpgm Top

  Specify a program that is contained on the System Lib directories specified as start-up properties or with the CONFIG Heirloom Computing EBP Web Service

  Text notation:

  execpgm : PGM '=' idresvar | PROG '=' idresvar ;

  Visual notation:

  

• execproc Top

  Indicate an inline or cataloged system-defined or user-defined procedure. Inline PROCs precede the step that references them between PROC and PEND statements. System cataloged procedures are on the System Lib directories specified with the EBP properties or with the CONFIG Heirloom Computing EBP Web Service. User-defined cataloged procedures are in partitioned datasets (DSORG=PO) that are under the System Lib directories

  Text notation:

  execproc : PROC '=' idresvar | idresvar ;

  Visual notation:

  

• execparm Top

  Pass a parameter to a program on an EXEC statement with PARM. Heirloom Computing EBP property ebp.parmcount or CONFIG Heirloom Computing EBP Web Service item indicates whether the parameter string is broken on space-boundaries into individual arguments (Heirloom Computing EBP default) or they are passed as a single character string (IBM EBP default). alternatively, use a list of PARM=(...) items to always indicate multiple parameters to a program. Alternatively, Specify the PARMDD parameter indicating the DD name that will be processed by the program as a PARM. The COBOL program must be prepared to handle this as the string "PARMDD=ddname" is passed as the argument to the program which must then ATTACH it

  Text notation:

  execparm : PARM '=' execparmitem | PARM '=(' execparmitem ( comma execparmitem)* ')' | PARM '=' | PARMDD '=' idresvar | PARMDD '=' quotedstring ;

  Visual notation:

  

• execparmitem Top

   

  Text notation:

  execparmitem : quotedstring | idresintvar ;

  Visual notation:

  

• execacct Top

  Checked for syntax and ignored

  Text notation:

  execacct : ACCT '=' ( '.' procstepname )? acctitem | ACCT '=(' ( '.' procstepname )? acctitem ( comma ( '.' procstepname )? acctitem )* ')' ;

  Visual notation:

  

• execaddrspc Top

   

  Text notation:

  execaddrspc : ADDRSPC ( '.' procstepname )? '=' ID ;

  Visual notation:

  

• execdynamnbr Top

   

  Text notation:

  execdynamnbr : DYNAMNBR '=' intvar ;

  Visual notation:

  

• execperform Top

   

  Text notation:

  execperform : PERFORM '=' intvar | PERFORM '.' procstepname '=' intvar ;

  Visual notation:

  

• execrd Top

   

  Text notation:

  execrd : RD '=' intvar ;

  Visual notation:

  

• execregion Top

   

  Text notation:

  execregion : REGION '=' INT ID | REGION '=' variable | REGION '.' procstepname '=' INT ID ;

  Visual notation:

  

• execrlstmout Top

   

  Text notation:

  execrlstmout : RLSTMOUT '=' intvar ;

  Visual notation:

  

• execcond Top

  Specify a sequence of COND conditions that indicate if the step should be bypassed. COND=EVEN steps will execute even if there are ABENDS such as JCL semantic errors in prior steps.

  Text notation:

  execcond : 'COND=' conditions | 'COND.' procstepname '=' conditions ;

  Visual notation:

  

• conditions Top

   

  Text notation:

  conditions : condition | '(' condition ( comma condition )+ ')' ;

  Visual notation:

  

• condition Top

   

  Text notation:

  condition : EVEN | ONLY | '(' INT comma reloper ')' | '(' INT comma reloper comma priorstepname ')' | '(' INT comma reloper comma priorstepname '.' procstepname ')' ;

  Visual notation:

  

• reloper Top

   

  Text notation:

  reloper : ( EQ | '=' | '==' ) | ( NE | '!=' | '<>' | '~=' ) | ( GT | '>' ) | ( GE | '>=' ) | ( LT | '<' ) | ( LE | '<=' ) ;

  Visual notation:

  

• priorstepname Top

   

  Text notation:

  priorstepname : idres ;

  Visual notation:

  

• procstepname Top

   

  Text notation:

  procstepname : idres ;

  Visual notation:

  

• ddcard Top

  DD Cards map DDNAMEs referred to within programs with datasets (DSNAME, DSN) on disk. Also specify DUMMY for /dev/null operation or SYSOUT=* to have Heirloom Computing EBP hold the output dataset for viewing with the LIST Web Service.

  Text notation:

  ddcard : '//' ddname WS DD WS DUMMY ( comma ddkeywords )* comment NEWLINE | '//' ddname WS DD WS DYNAM ( comma ddkeywords )* comment NEWLINE | '//' ddname WS DD WS ( ddkeywords comma )* ddkeywords comment NEWLINE ;

  Visual notation:

  

• ddimmediate Top

  Immediate data supplied with '*' or SMS default, which for EBP is also '*'. Implementation Restriction: Cannot have DLM card and comment card next to each other. EBP Extension: input may contain symbolic parameter references, e.g., &DEPT.

  Text notation:

  ddimmediate : '//' ddname WS DD WS ( '*' | DATA )? ( comma ddsym)? comment NEWLINE ( inlinedata1 NEWLINE )* ( SLASHSTAR | SLASHSLASHSTAR ) ~( NEWLINE )* NEWLINE | '//' ddname WS DD WS DATA comma dddlm comment NEWLINE ( inlinedata2 NEWLINE )* CARETCARET WS? NEWLINE ;

  Visual notation:

  

• inlinedata1 Top

   

  Text notation:

  inlinedata1 : ild1 ;

  Visual notation:

  

• ild1 Top

   

  Text notation:

  ild1 : ~( SLASHSTAR | SLASHSLASHSTAR ) ~( NEWLINE )* ;

  Visual notation:

  

• inlinedata2 Top

   

  Text notation:

  inlinedata2 : ild2 ;

  Visual notation:

  

• ild2 Top

   

  Text notation:

  ild2 : ~( CARETCARET ) ~( NEWLINE )* ;

  Visual notation:

  

• ddname Top

   

  Text notation:

  ddname : ddn=ID | reserved | procstepname '.' ddn=ID | procstepname '.' reserved | ;

  Visual notation:

  

• ddkeywords Top

   

  Text notation:

  ddkeywords : ddaccode | ddampcode | ddavgrec | ddblksize | ddblkszlm | ddburst | jobexecddccsid | ddchars | ddchkpt | ddcopies | ddcntl | dddataclas | dddcb | dddisp | dddlm | dddsid | dddsn | dddsntype | ddeattr | ddexpdt | ddfcb | ddfiledata | ddflash | ddfree | ddhold | ddkeylabl | ddkeyencd | ddkeylen | ddkeyoff | ddlabel | ddlgstream | ddlike | ddlrecl | dddsorg | ddmgmtclas | ddmodify | ddoutlim | ddoutput | ddpath | ddpathdisp | ddpathmode | ddpathopt | ddprotect | ddqname | ddrecfm | ddrecorg | ddrefdd | ddretpd | ddrls | ddsecmodel | ddsegment | ddspace | ddspin | ddstorclass | ddsysout | ddsubsys | ddterm | dducs | ddunit | ddvolume | ddbufno ;

  Visual notation:

  

• dddsn Top

   

  Text notation:

  dddsn : ( DSN | DSNAME ) '=' dsnpart pdsgdgpart | ( DSN | DSNAME ) '=' '\'' dsnpart pdsgdgpart '\'' | ( DSN | DSNAME ) '=' NULLFILE | ( DSN | DSNAME ) '=*.' ( dsnfixed | dsnfixed '.' dsnfixed | dsnfixed '.' dsnfixed '.' dsnfixed ) ;

  Visual notation:

  

• dsnpart Top

   

  Text notation:

  dsnpart : ( dsnfixed | dsnvariable ) ( '.' ( dsnfixed | dsnvariable ) )* | '&&' dsnfixed ( '.' '.' dsnfixed )? | '&&&' dsnfixed ( '.' '.' dsnfixed )? ;

  Visual notation:

  

• dsnfixed Top

  Fixed portions of a DSN, "A", "ABC", "AAA"

  Text notation:

  dsnfixed : idres ;

  Visual notation:

  

• dsnvariable Top

  variable portions of a DSN, "&C", "&C.DE", "AB&C", "AB&C.DE"

  Text notation:

  dsnvariable : variable | dsnfixed variable ;

  Visual notation:

  

• pdsgdgpart Top

   

  Text notation:

  pdsgdgpart : '(' ID ')' | '(' ('+' | '-')? INT ')' | '(' reserved ')' | '(' variable ')' | '(' dsnfixed variable ')' | ;

  Visual notation:

  

• dddisp Top

   

  Text notation:

  dddisp : DISP '=(' dddispstatus comma dddispnormal comma dddispabnormal ')' | DISP '=(' dddispstatus comma dddispnormal ')' | DISP '=(' dddispstatus ')' | DISP '=' dddispstatus ;

  Visual notation:

  

• dddispstatus Top

  Initial DD status of NEW indicates that the dataset will be created in the Data Lib directories specified in the EBP start-up properties or modified with the CONFIG Heirloom Computing EBP Web Service. Specify ebp.datalib.1..ebp.datalib.9 different directories to be searched for DSNs. Further, DSNs of the form A.B.C.D will be checked against existing files Datalib1/A/B/C/D, Datalib1/a/b/c/d, Datalib1/A/B/C.D, ... etc. Also, property ebp.newdsndirectory=yes indicates that DISP=NEW datasets with embedded . are created as directories. A.B.C.D is created as file D under directory Datalib1/A/B/C, with intervening directories created as necessary

  Text notation:

  dddispstatus : NEW | OLD | MOD | SHR | variable | ;

  Visual notation:

  

• dddispnormal Top

   

  Text notation:

  dddispnormal : CATLG | UNCATLG | KEEP | PASS | DELETE | variable | ;

  Visual notation:

  

• dddispabnormal Top

   

  Text notation:

  dddispabnormal : CATLG | UNCATLG | KEEP | DELETE | variable | ;

  Visual notation:

  

• ddsysout Top

   

  Text notation:

  ddsysout : SYSOUT '=' ddsysoutchr | SYSOUT '=*' | SYSOUT '=(*)' | SYSOUT '=(' ddsysoutchr ')' | SYSOUT '=(*' comma writer=idresvar ')' | SYSOUT '=(' ddsysoutchr comma writer=idresvar ')' | SYSOUT '=(*' comma comma form=idresvar ')' | SYSOUT '=(' ddsysoutchr comma comma form=idresvar ')' | SYSOUT '=(*' comma writer=idresvar comma form=idresvar ')' | SYSOUT '=(' ddsysoutchr comma writer=idresvar comma form=idresvar ')' | SYSOUT '=(' comma ')' ;

  Visual notation:

  

• ddsysoutchr Top

   

  Text notation:

  ddsysoutchr : idresintvar | ;

  Visual notation:

  

• ddoutput Top

   

  Text notation:

  ddoutput : dd1output | OUTPUT '=(' dd1output ( comma dd1output )* ')' ;

  Visual notation:

  

• dd1output Top

   

  Text notation:

  dd1output : OUTPUT '=*.' prstnm=idres '.' stnm=idres '.' nm=idres | OUTPUT '=*.' stnm=idres '.' nm=idres | OUTPUT '=*.' nm=idres ;

  Visual notation:

  

• dddcb Top

  DCB suboptions are checked for synax and ignored

  Text notation:

  dddcb : DCB '=' dddcboption | DCB '=(' dddcboption ( comma dddcboption ) * ')' ;

  Visual notation:

  

• dddcboption Top

   

  Text notation:

  dddcboption : ddlrecl | ddblksize | ddrecfm | dddsorg | ddkeylen | dcbprotocols | dcboptcd | dcbrkp | ddbufno ;

  Visual notation:

  

• dcbprotocols Top

  EBP extension to indicate file system protocols, or file formats, to a COBOL program that are specified to the COBOL runtime as prefixes. Multiple may be specified

  Text notation:

  dcbprotocols : ( PROTOCOL | PROTO ) '=' dcbprotocol | ( PROTOCOL | PROTO ) '=(' dcbprotocol ( comma dcbprotocol)* ')' ;

  Visual notation:

  

• dcbprotocol Top

  EBP extension to indicate file formats. Global protocols: REMOTE - remote connection to file server; ENV - cluster name is a ddname, same as OFILE(name) VSAM - High level indication this is an indexed-sequential format of some kind. Variable-length, Line Sequential, Physical Sequential protocols: ECOBOL - Carriage-return/line-feed (Windows), new-line (Linux/UNIX); Variable-length, Non Indexed, Physical Sequential protocols: ECOBOL - 4-byte little-endian length followed by data; MF - 4-byte big-endian length followed by data of that length; IBMV - 2-byte big-endian length plus 2-bytes of zeros followed by data of that length minus 4; IBMVB - 4-byte big-endian block size followed by records in IBMV format; SYNC - 2-byte big-endial length followed by data of that length. VSAM-to-SQL Bridge protocol: VSQL - indicating the dataset name is mapped using information in the executing jar as to the table name and database connection information VSAM protocols: EC, E-ISAM, E_ISAM, EISAM - Elastic COBOL ISAM file format; MF, MFU, MFW - Micro Focus IDX 3 file format; AS400 - AS/400 file format; ISAM, CISAM, C-ISAM, C_ISAM - C ISAM file format; DISAM, D-ISAM, D_ISAM - D ISAM file format; ACON, ACU, ACUCOBOL - Acu COBOL file format; VIS4, VISION4, VIS, VISION - Vision File Format; none-of-the-above - Elastic COBOL

  Text notation:

  dcbprotocol : idresvar { if (currentDD != null) currentDD.addDDDCBProtocol($idresvar.text); } ;

  Visual notation:

  

• dcboptcd Top

   

  Text notation:

  dcboptcd : OPTCD '=' idresvar ;

  Visual notation:

  

• dcbrkp Top

   

  Text notation:

  dcbrkp : RKP '=' intvar ;

  Visual notation:

  

• ddspace Top

   

  Text notation:

  ddspace : SPACE '=(' ddspacealloc comma init=intvar ddspaceextra ')' | SPACE '=(' ddspacealloc comma '(' init=intvar comma unit=intvar ')' ddspaceextra ')' | SPACE '=(' ddspacealloc comma '(' init=intvar comma unit=intvar comma max=intvar ')' ddspaceextra ')' ;

  Visual notation:

  

• ddspaceextra Top

  Final RLSE, CONTIG and ROUND are checked for syntax and ignored

  Text notation:

  ddspaceextra : ddspacerlse | ddspacerlse ddspacecontig | ddspacerlse ddspacecontig ddspaceround | ;

  Visual notation:

  

• ddspacerlse Top

  RLSE truncate file after use regardless

  Text notation:

  ddspacerlse : comma ID | comma variable | comma ;

  Visual notation:

  

• ddspacecontig Top

  CONTIG allocate contiguous tracks ignored

  Text notation:

  ddspacecontig : comma ID | comma variable | comma ;

  Visual notation:

  

• ddspaceround Top

  ROUND up space requirements ignored

  Text notation:

  ddspaceround : comma ID | comma variable | comma ;

  Visual notation:

  

• ddspacealloc Top

   

  Text notation:

  ddspacealloc : TRK | CYL | ABSTR | INT | variable ;

  Visual notation:

  

• ddvolume Top

  VOLUME always will allocate a new tape volser and retain it

  Text notation:

  ddvolume : ( VOL | VOLUME ) '=' ( volser | volref ) | ( VOL | VOLUME ) '=(' ( PRIVATE )? comma ( RETAIN )? comma ( volser | ( REF '=' dsnpart pdsgdgpart ) )? comma ( intvar )? ')' ;

  Visual notation:

  

• volser Top

  VOL=SER=xxx and VOL=xxx are treated the same

  Text notation:

  volser : SER '=' idresintvar | SER '=(' idresintvar ( comma idresintvar )* ')' | idresintvar ;

  Visual notation:

  

• volref Top

  VOL=REF=dsname(pdsgdgname), VOL=REF=*.ddname, VOL=REF=*.stepname.ddname , VOL=REF=*.stepname.procstepname.ddname

  Text notation:

  volref : REF '=' dsnpart pdsgdgpart | REF '=*.' vrddname=idresvar | REF '=*.' vrstepname=idresvar '.' vrddname=idresvar | REF '=*.' vrstepname=idresvar '.' vrprocstepname=idresvar '.' vrddname=idresvar ;

  Visual notation:

  

• ddbufno Top

  BUFNO=number-of-buffers supported by a customer extension to EBP

  Text notation:

  ddbufno : BUFNO '=' intvar ;

  Visual notation:

  

• ddstorclass Top

  SMS STORCLAS is looked up as last component of datalib.1..9

  Text notation:

  ddstorclass : STORCLAS '=' idresvar { if (currentDD != null) currentDD.setDDUnit($idresvar.text); } ;

  Visual notation:

  

• ddunit Top

  UNIT is looked up as last component of datalib.1..9

  Text notation:

  ddunit : UNIT '=' idresintvar | UNIT '=(' idresintvar ')' | UNIT '=(' idresvar ',' INT ')' | UNIT '=AFF=' idresvar ;

  Visual notation:

  

• ddcntl Top

   

  Text notation:

  ddcntl : CNTL '=*.' idresvar | CNTL '=*.' priorstepname '.' idresvar | CNTL '=*.' priorstepname '.' procstepname '.' idresvar ;

  Visual notation:

  

• cntlgroup Top

  Checked for syntax and ignored

  Text notation:

  cntlgroup : '//' cntllabel WS CNTL comment NEWLINE ( '//' cntldatalable WS cntldata comment NEWLINE )* '//' cntldatalable WS ENDCNTL comment NEWLINE ;

  Visual notation:

  

• cntllabel Top

   

  Text notation:

  cntllabel : idres ;

  Visual notation:

  

• cntldatalable Top

   

  Text notation:

  cntldatalable : idres | ;

  Visual notation:

  

• cntldata Top

   

  Text notation:

  cntldata : cntldataline ;

  Visual notation:

  

• cntldataline Top

   

  Text notation:

  cntldataline : ID WS idres '=' idresintvar ( comma idres '=' idresintvar )* ;

  Visual notation:

  

• ddaccode Top

  Other DD card parameters checked for syntax and ignored

  Text notation:

  ddaccode : ACCODE '=' idresvar ;

  Visual notation:

  

• ddampcode Top

   

  Text notation:

  ddampcode : AMP '=' quotedstring | AMP '=(' quotedstring (comma quotedstring)* ')' ;

  Visual notation:

  

• ddavgrec Top

   

  Text notation:

  ddavgrec : AVGREC '=' ID ;

  Visual notation:

  

• ddblksize Top

   

  Text notation:

  ddblksize : BLKSIZE '=' intvar { if (currentDD != null) currentDD.setDDDCBBlksize($intvar.text); } | BLKSIZE '=' INT ID ;

  Visual notation:

  

• ddblkszlm Top

   

  Text notation:

  ddblkszlm : BLKSLM '=' intvar { if (currentDD != null) currentDD.setDDDCBBlksize($intvar.text); } | BLKSZLM '=' INT ID ;

  Visual notation:

  

• ddburst Top

   

  Text notation:

  ddburst : BURST '=' yesno ;

  Visual notation:

  

• ddchars Top

   

  Text notation:

  ddchars : CHARS '=' idresvar | CHARS '=(' idresvar ( comma idresvar )* ')' ;

  Visual notation:

  

• ddchkpt Top

   

  Text notation:

  ddchkpt : CHKPT '=' ID ;

  Visual notation:

  

• ddcopies Top

   

  Text notation:

  ddcopies : COPIES '=' intvar | COPIES '=(' intvar comma idresvar ')' | COPIES '=(' intvar comma '(' idresvar ( comma idresvar )* ')' ')' ;

  Visual notation:

  

• dddataclas Top

   

  Text notation:

  dddataclas : DATACLAS '=' idresvar ;

  Visual notation:

  

• dddest Top

   

  Text notation:

  dddest : DEST '=' intvar | DEST '=' idres | DEST '=(' intvar comma idresvar ')' ;

  Visual notation:

  

• dddlm Top

   

  Text notation:

  dddlm : DLM '=' idresvar | DLM '=' intidres | DLM '=' quotedstring ;

  Visual notation:

  

• ddsym Top

   

  Text notation:

  ddsym : SYMBOLS '=' symtype=('JCLONLY' | 'EXECSYS' | 'CNVTSYS') ;

  Visual notation:

  

• dddsid Top

   

  Text notation:

  dddsid : DSID '=' idres | DSID '=(' idres comma ( idres )? ')' ;

  Visual notation:

  

• dddsntype Top

   

  Text notation:

  dddsntype : DSNTYPE '=' idres | DSNTYPE '=('idres comma ( INT )? ')' ;

  Visual notation:

  

• ddeattr Top

   

  Text notation:

  ddeattr : EATTR '=' ID ;

  Visual notation:

  

• ddexpdt Top

   

  Text notation:

  ddexpdt : EXPDT '=' intvar { if (currentDD != null) currentDD.setDDLabel(null, $intvar.text); } | EXPDT '=' y=INT '/' d=INT { if (currentDD != null) currentDD.setDDLabel(null, $y.text + $d.text); } ;

  Visual notation:

  

• ddfcb Top

   

  Text notation:

  ddfcb : FCB '=' idresvar | FCB '=(' idresvar comma idresvar ')' ;

  Visual notation:

  

• ddfiledata Top

   

  Text notation:

  ddfiledata : FILEDATA '=' ID | FILEDATA '=' variable ;

  Visual notation:

  

• ddflash Top

   

  Text notation:

  ddflash : FLASH '=' ( idresvar | '(' idresvar comma ( intvar )? ')' ) ;

  Visual notation:

  

• ddfree Top

   

  Text notation:

  ddfree : FREE '=' ID | FREE '=' variable ;

  Visual notation:

  

• ddhold Top

   

  Text notation:

  ddhold : HOLD '=' yesno ;

  Visual notation:

  

• ddkeylabl Top

   

  Text notation:

  ddkeylabl : ( KEYLABL1 | KEYLABL2 ) '=' quotedstring ;

  Visual notation:

  

• ddkeyencd Top

   

  Text notation:

  ddkeyencd : ( KEYENCD1 | KEYENCD2 ) '=' ID ;

  Visual notation:

  

• ddkeylen Top

   

  Text notation:

  ddkeylen : KEYLEN '=' intvar ;

  Visual notation:

  

• ddkeyoff Top

   

  Text notation:

  ddkeyoff : KEYOFF '=' intvar ;

  Visual notation:

  

• ddlabel Top

   

  Text notation:

  ddlabel : LABEL '=' label | LABEL '=(' labels ')' ;

  Visual notation:

  

• labels Top

   

  Text notation:

  labels : intvar | intvar comma ( idres )? | intvar comma ( idres )? comma ( idres )? | intvar comma ( idres )? comma ( idres )? comma ( idres )? | intvar comma ( idres )? comma ( idres )? comma ( idres )? comma label | label ;

  Visual notation:

  

• label Top

   

  Text notation:

  label : RETPD '=' intvar | EXPDT '=' intvar | EXPDT '=' y=intvar '/' d=intvar ;

  Visual notation:

  

• ddlgstream Top

   

  Text notation:

  ddlgstream : LGSTREAM '=' idres ;

  Visual notation:

  

• ddlike Top

   

  Text notation:

  ddlike : LIKE '=' dsnpart pdsgdgpart ;

  Visual notation:

  

• ddlrecl Top

   

  Text notation:

  ddlrecl : LRECL '=' intvar ;

  Visual notation:

  

• ddmgmtclas Top

   

  Text notation:

  ddmgmtclas : MGMTCLAS '=' idresvar ;

  Visual notation:

  

• ddmodify Top

   

  Text notation:

  ddmodify : MODIFY '=' idres | MODIFY '=(' idres comma idres ')' ;

  Visual notation:

  

• ddoutlim Top

   

  Text notation:

  ddoutlim : OUTLIM '=' intvar ;

  Visual notation:

  

• ddpath Top

   

  Text notation:

  ddpath : PATH '=' quotedstring | PATH '=' variable ;

  Visual notation:

  

• ddpathdisp Top

   

  Text notation:

  ddpathdisp : PATHDISP '=(' dddispnormal comma dddispabnormal ')' ;

  Visual notation:

  

• ddpathmode Top

   

  Text notation:

  ddpathmode : PATHMODE '=' pathmode | PATHMODE '=(' pathmode ( comma pathmode )* ')' ;

  Visual notation:

  

• pathmode Top

   

  Text notation:

  pathmode : ID ;

  Visual notation:

  

• ddpathopt Top

   

  Text notation:

  ddpathopt : PATHOPTS '=' pathopt | PATHOPTS '=(' pathopt ( comma pathopt )* ')' ;

  Visual notation:

  

• pathopt Top

   

  Text notation:

  pathopt : ID ;

  Visual notation:

  

• ddprotect Top

   

  Text notation:

  ddprotect : PROTECT '=' yesno ;

  Visual notation:

  

• yesno Top

   

  Text notation:

  yesno : ID | variable ;

  Visual notation:

  

• ddqname Top

   

  Text notation:

  ddqname : QNAME '=' idresvar ( '.' idresvar )? ;

  Visual notation:

  

• ddrecfm Top

   

  Text notation:

  ddrecfm : RECFM '=' ID | RECFM '=' variable ;

  Visual notation:

  

• dddsorg Top

   

  Text notation:

  dddsorg : DSORG '=' ID | DSORG '=' variable ;

  Visual notation:

  

• ddrecorg Top

   

  Text notation:

  ddrecorg : RECORG '=' ID ;

  Visual notation:

  

• ddrefdd Top

   

  Text notation:

  ddrefdd : REFDD '=*.' refdd ;

  Visual notation:

  

• refdd Top

   

  Text notation:

  refdd : stnm=idresvar '.' prstnm=idresvar '.' nm=idresvar | stnm=idresvar '.' nm=idresvar | nm=idresvar ;

  Visual notation:

  

• ddretpd Top

   

  Text notation:

  ddretpd : RETPD '=' intvar ;

  Visual notation:

  

• ddrls Top

   

  Text notation:

  ddrls : RLS '=' ID | RLS '=' variable ;

  Visual notation:

  

• ddsecmodel Top

   

  Text notation:

  ddsecmodel : SECMODEL '=(' idresvar ( comma GENERIC )? ')' ;

  Visual notation:

  

• ddsegment Top

   

  Text notation:

  ddsegment : SEGMENT '=' intvar ;

  Visual notation:

  

• ddspin Top

   

  Text notation:

  ddspin : SPIN '=' ID | SPIN '=' variable ;

  Visual notation:

  

• ddsubsys Top

   

  Text notation:

  ddsubsys : SUBSYS '=' idresvar | SUBSYS '=(' idresvar ( ',' idresvar )* ')' ;

  Visual notation:

  

• ddterm Top

   

  Text notation:

  ddterm : TERM '=' ID | TERM '=' variable ;

  Visual notation:

  

• dducs Top

   

  Text notation:

  dducs : UCS '=' idresvar | UCS '=(' idresvar ( comma idresvar )* ')' ;

  Visual notation:

  

• jcllibcard Top

  Indicate the list of partitioned datasets that are searched for cataloged procedures and include statment references. Directories on disk are rooted under start-up properties ebp.jcllib.1..ebp.jclib.9 that may be changed with the CONFIG Heirloom Computing EBP Web Service.

  Text notation:

  jcllibcard : '//' libname WS JCLLIB WS ORDER '=' jcllib comment NEWLINE | '//' libname WS JCLLIB WS ORDER '=(' ( jcllib comma )* jcllib ')' comment NEWLINE ;

  Visual notation:

  

• libname Top

   

  Text notation:

  libname : idres | ;

  Visual notation:

  

• jcllib Top

   

  Text notation:

  jcllib : dsnpart | '\'' dsnpart '\'' ;

  Visual notation:

  

• optionalproccard Top

   

  Text notation:

  optionalproccard : proccard | ;

  Visual notation:

  

• proccard Top

   

  Text notation:

  proccard : '//' procname WS PROC NEWLINE | '//' procname WS PROC WS comment NEWLINE | '//' procname WS PROC WS ( procnameval comma )* procnameval comment NEWLINE ;

  Visual notation:

  

• procname Top

   

  Text notation:

  procname : idres | ;

  Visual notation:

  

• procnameval Top

   

  Text notation:

  procnameval : nameval ;

  Visual notation:

  

• nameval Top

   

  Text notation:

  nameval : name '=' intidres | name '=*' | name '=' dsnpart pdsgdgpart | name '=' reserved | name '=' quotedstring | name parenlist | name '=' | 'COND=' ;

  Visual notation:

  

• name Top

   

  Text notation:

  name : idres ;

  Visual notation:

  

• execnameval Top

   

  Text notation:

  execnameval : nonexecname '=' intidres | nonexecname '=*' | nonexecname '=' dsnpart pdsgdgpart | nonexecname '=' reserved | nonexecname '=' quotedstring | nonexecname parenlist | nonexecname '=' | 'COND=' ;

  Visual notation:

  

• nonexecname Top

   

  Text notation:

  nonexecname : ID | nonexecreserved ;

  Visual notation:

  

• parenlist Top

   

  Text notation:

  parenlist : '=(' ( a=value comma )* b=value ')' ;

  Visual notation:

  

• value Top

   

  Text notation:

  value : idresintvar | quotedstring ;

  Visual notation:

  

• pendcard Top

   

  Text notation:

  pendcard : '//' optname WS PEND comment NEWLINE ;

  Visual notation:

  

• optname Top

   

  Text notation:

  optname : ID | ;

  Visual notation:

  

• outputcard Top

   

  Text notation:

  outputcard : '//' outputname WS OUTPUT WS ( outnameval comma )* outnameval comment NEWLINE ;

  Visual notation:

  

• outputname Top

   

  Text notation:

  outputname : idres ;

  Visual notation:

  

• outnameval Top

   

  Text notation:

  outnameval : nameval ;

  Visual notation:

  

• routedirective Top

  Ignore ROUTE XEQ lpar-name and System Affinity cards

  Text notation:

  routedirective : SLASHSTAR idres comment NEWLINE | SLASHSTAR WS? NEWLINE ;

  Visual notation:

  

• setcard Top

   

  Text notation:

  setcard : '//' setname WS SET WS ( setnameval comma )* setnameval comment NEWLINE ;

  Visual notation:

  

• setname Top

   

  Text notation:

  setname : idres | ;

  Visual notation:

  

• setnameval Top

   

  Text notation:

  setnameval : nameval ;

  Visual notation:

  

• includecard Top

   

  Text notation:

  includecard : '//' optname WS INCLUDE WS MEMBER '=' ID comment NEWLINE ;

  Visual notation:

  

• ifcontin Top

   

  Text notation:

  ifcontin : ( WS* NEWLINE '//' )* WS ;

  Visual notation:

  

• ifthencard Top

   

  Text notation:

  ifthencard : '//' optname WS IF WS ifexpr ifcontin THEN comment NEWLINE ;

  Visual notation:

  

• elsecard Top

   

  Text notation:

  elsecard : '//' optname WS ELSE comment NEWLINE ;

  Visual notation:

  

• endifcard Top

   

  Text notation:

  endifcard : '//' optname WS ENDIF comment NEWLINE ;

  Visual notation:

  

• ifexpr Top

   

  Text notation:

  ifexpr : ( NOT | '!' ) ifcontin andorexpr | andorexpr ;

  Visual notation:

  

• andorexpr Top

   

  Text notation:

  andorexpr : re1=relexpr ( booloper re2=relexpr )* ;

  Visual notation:

  

• relexpr Top

   

  Text notation:

  relexpr : left=anyexpr ifcontin* reloper ifcontin* right=anyexpr | '(' ifcontin* ifexpr ifcontin* ')' | TRUE | FALSE | ABEND | sn1=idnonexprres '.' ABEND ;

  Visual notation:

  

• booloper Top

   

  Text notation:

  booloper : WS ( AND | '&' | '&&' ) ifcontin | WS ( OR | '|' | '||' ) ifcontin ;

  Visual notation:

  

• anyexpr Top

   

  Text notation:

  anyexpr : sn1=idnonexprres | TRUE | FALSE | RC | ABENDCC | sn1=idnonexprres '.' ABENDCC | sn1=idnonexprres '.' TRUE | sn1=idnonexprres '.' FALSE | sn1=idnonexprres '.' RC | sn1=idnonexprres '.' RUN | sn1=idnonexprres '.' sn2=idnonexprres '.' ABEND | sn1=idnonexprres '.' sn2=idnonexprres '.' ABENDCC | sn1=idnonexprres '.' sn2=idnonexprres '.' TRUE | sn1=idnonexprres '.' sn2=idnonexprres '.' FALSE | sn1=idnonexprres '.' sn2=idnonexprres '.' RC | sn1=idnonexprres '.' sn2=idnonexprres '.' RUN | INT | variable | quotedstring ;

  Visual notation:

  

• quotedstring Top

  Use a quoted string for parameters, datasets, symbolic parameters. Double enclosed apostrophes.

  Text notation:

  quotedstring : ( '\'' anything '\'' )* '\'' anything '\'' ;

  Visual notation:

  

• anything Top

   

  Text notation:

  anything : ~( NEWLINE | '\'' )* ;

  Visual notation:

  

• idres Top

  identifier or reserved word

  Text notation:

  idres : ID | reserved ;

  Visual notation:

  

• idnonexprres Top

  identifier or non expression reserved word

  Text notation:

  idnonexprres : ID | execreserved | nonexecreserved ;

  Visual notation:

  

• idresint Top

  identifier, reserved word or int

  Text notation:

  idresint : idres | INT ;

  Visual notation:

  

• idresvar Top

  identifier, reserved word or variable

  Text notation:

  idresvar : idres | variable ;

  Visual notation:

  

• idresintvar Top

  identifier, reserved word, integer or variable

  Text notation:

  idresintvar : idresint | variable ;

  Visual notation:

  

• intvar Top

  integer or variable

  Text notation:

  intvar : INT | variable ;

  Visual notation:

  

• intidres Top

  integer possibly followed by an ID or reserved word

  Text notation:

  intidres : INT ( idres ) ? ;

  Visual notation:

  

• idintvar Top

  identifier, integer or variable

  Text notation:

  idintvar : intvar | ID ;

  Visual notation:

  

• ID Top

  Heirloom Computing EBP Identifiers consist of $, #, @ and A through Z followed by up to 7 of the same. Symbolic Parameters start with &, IDs with embedded & indicate a concatenation of two symbolic parameters.

  Text notation:

  ID : ('a'..'z'|'A'..'Z'|'$'|'#'|'@') ('a'..'z'|'A'..'Z'|'0'..'9'|'$'|'#'|'@'|'-'|'_')* ;

  Visual notation:

  

• variable Top

   

  Text notation:

  variable : ( '&' idres ( ( '.' )? | ( '.' idresint )? ) )+ ;

  Visual notation:

  

• comma Top

  keyword parameter values that contain comma-separated lists may span lines

  Text notation:

  comma : ',' | ',' comment NEWLINE '//' WS ;

  Visual notation:

  

• reserved Top

   

  Text notation:

  reserved : execreserved | nonexecreserved | exprreserved ;

  Visual notation:

  

• nonexprreserved Top

   

  Text notation:

  nonexprreserved : execreserved | nonexecreserved ;

  Visual notation:

  

• execreserved Top

   

  Text notation:

  execreserved : ACCT | ADDRSPC | CCSID | COND | DYNAMNBR | MEMLIMIT | PARM | PARMDD | RD | REGION | RLSTMOUT | TIME ;

  Visual notation:

  

• exprreserved Top

   

  Text notation:

  exprreserved : ABEND | ABENDCC | AND | ELSE | ENDIF | FALSE | IF | NOT | OR | RC | RUN | THEN | TRUE ;

  Visual notation:

  

• nonexecreserved Top

   

  Text notation:

  nonexecreserved : ABSTR | ACCODE | AMP | AVGREC | BLKSIZE | BLKSLM | BLKSZLM | BUFNO | BURST | BYTES | CANCEL | CARDS | CATLG | CHARS | CHKPT | CLASS | CNTL | COPIES | COPY | CYL | DATA | DATACLAS | DCB | DD | DELETE | DEST | DISP | DLM | DSID | DSN | DSNAME | DSNTYPE | DSORG | DUMMY | DUMP | DYNAM | EATTR | ENDCNTL | EQ | EVEN | EXEC | EXPDT | FCB | FILEDATA | FLASH | FREE | GE | GENERIC | GT | HOLD | HOLDUNTL | INCLUDE | JCLHOLD | JCLLIB | JOB | JOBGROUP | KEEP | KEYENCD1 | KEYENCD2 | KEYLABL1 | KEYLABL2 | KEYLEN | KEYOFF | LABEL | LE | LGSTREAM | LIKE | LINES | LRECL | LT | MEMBER | MGMTCLAS | MOD | MODIFY | MSGCLASS | MSGLEVEL | NE | NEW | NOTIFY | OLD | ONLY | OPT | OPTCD | ORDER | OUTLIM | OUTPUT | PAGES | PASS | PASSWORD | PATH | PATHDISP | PATHMODE | PATHOPTS | PEND | PGM | PRIVATE | PROC | PROG | PROTECT | PROTO | PROTOCOL | PRTY | QNAME | RECFM | RECORG | REF | REFDD | RESTART | RETPD | RETAIN | RKP | RLS | SCAN | SCHEDULE | SCHENV | SECMODEL | SEGMENT | SER | SET | SPACE | SPIN | STARTBY | STORCLAS | SUBSYS | SYMBOLS | SYSOUT | TERM | TRK | TYPRUN | UCS | UNCATLG | UNIT | USER | VOL | VOLUME | WARNING | WITH ;

  Visual notation:

  

• INT Top

   

  Text notation:

  INT : ('0'..'9')+ ;

  Visual notation:

  

• NEWLINE Top

   

  Text notation:

  NEWLINE : '\r'? '\n' ;

  Visual notation:

  

• WS Top

   

  Text notation:

  WS : (' '|'\t')+ ;

  Visual notation:

  

• SLASHSTAR Top

  Immediate data default delimiter

  Text notation:

  SLASHSTAR : '/*' ;

  Visual notation:

  

• SLASHSLASHSTAR Top

  Immediate data delimited by blank comment card

  Text notation:

  SLASHSLASHSTAR : '//*' ;

  Visual notation:

  

• CARETCARET Top

  Immediate data with specialized DLM indicator

  Text notation:

  CARETCARET : '^^' ;

  Visual notation:

  

• SPECIAL Top

  SPECIAL token not used but required to define all other chars

  Text notation:

  SPECIAL : ( '~' | '`' | '!' | '@' | '#' | '$' | '%' | '^' | '&' | '*' | '(' | ')' | '-' | '_' | '+' | '\'' | '"' | '=' | '{' | '}' | '[' | ']' | '|' | ':' | ';' | ',' | '.' | '<' | '>' | '?' | '/' | '\\' | INTL ) ;

  Visual notation:

  

• INTL Top

   

  Text notation:

  INTL : . ;

  Visual notation: