Operation Codes

The following table shows the free-form syntax for each operation code.

Extenders

(A)

Always perform a dump, even if DEBUG(*NO) is specified

(A)

Sort ascending

(D)

Pass operational descriptors on bound call

(D)

Date field

(D)

Sort descending

(E)

Error handling

(H)

Half adjust (round the numeric result)

(M)

Default precision rules

(N)

Do not lock record

(N)

Set pointer to *NULL after successful DEALLOC

(N)

Do not force data to non-volatile storage

(P)

Pad the result with blanks or zeros

(R)

"Result Decimal Position" precision rules

(T)

Time field

(Z)

Timestamp field

Table 55. Operation Codes in Free-Form Syntax
Code	Free-Form Syntax
ACQ¹	ACQ{(E)} `device-name` `workstn-file`
BEGSR	BEGSR `subroutine-name`
CALLP	{CALLP{(EMR)}} `name`( {`parm1`{:`parm2`...}} )
CHAIN	CHAIN{(ENHMR)} `search-arg` `file-or-record-name` {`data-structure`}
CLEAR	CLEAR {NOKEY} {ALL} `name`
CLOSE	CLOSE{(E)} `file-name`
COMMIT	COMMIT{(E)} {`boundary`}
DEALLOC ¹	DEALLOC{(EN)} `pointer-name`
DELETE	DELETE{(EHMR)} {`search-arg`} `file-or-record-name`
DOU	DOU{(MR)} `indicator-expression`
DOW	DOW{(MR)} `indicator-expression`
DSPLY	DSPLY{(E)} {`message` {`message-queue` {`response`}}}
DUMP¹	DUMP{(A)} {`identifier`}
ELSE	ELSE
ELSEIF	ELSEIF{(MR)} `indicator-expression`
ENDDO	ENDDO
ENDFOR	ENDFOR
ENDIF	ENDIF
ENDMON	ENDMON
ENDSL	ENDSL
ENDSR	ENDSR {`return-point`}
EVAL	{EVAL{(HMR)}} `result` = `expression`
EVALR	EVALR{(MR)} `result` = `expression`
EVAL-CORR	EVAL-CORR{(EH)} `target-ds` = `source-ds`
EXCEPT	EXCEPT {`except-name`}
EXFMT	EXFMT{(E)} `format-name {data-structure}`
EXSR	EXSR `subroutine-name`
FEOD	FEOD{(EN)} `file-name`
FOR	FOR{(MR)} `index` {= `start`} {BY `increment`} {TO\|DOWNTO `limit`}
FORCE	FORCE `file-name`
IF	IF{(MR)} `indicator-expression`
IN ¹	IN{(E)} {*LOCK} `data-area-name`
ITER	ITER
LEAVE	LEAVE
LEAVESR	LEAVESR
MONITOR	MONITOR
NEXT¹	NEXT{(E)} `program-device` `file-name`
ON-ERROR	ON-ERROR {`exception-id1` {:`exception-id2`...}}
OPEN	OPEN{(E)} `file-name`
OTHER	OTHER
OUT¹	OUT{(E)} {*LOCK} `data-area-name`
POST ¹	POST{(E)} {`program-device`} `file-name`
READ	READ{(EN)} `file-or-record-name` {`data-structure`}
READC	READC{(E)} `record-name` {`data-structure`}
READE	READE{(ENHMR)} `search-arg`\|*KEY `file-or-record-name` {`data-structure`}
READP	READP{(EN)} `name` {`data-structure`}
READPE	READPE{(ENHMR)} `search-arg`\|*KEY `file-or-record-name` {`data-structure`}
REL ¹	REL{(E)} `program-device` `file-name`
RESET ¹	RESET{(E)} {NOKEY} {ALL} `name`
RETURN	RETURN{(HMR)} `expression`
ROLBK	ROLBK{(E)}
SELECT	SELECT
SETGT	SETGT{(EHMR)} `search-arg` `file-or-record-name`
SETLL	SETLL{(EHMR)} `search-arg` `file-or-record-name`
SORTA	SORTA{(AD)} `array-name` or `keyed-ds-array`
TEST ¹	TEST{(EDTZ)} {`dtz-format`} `field-name`
UNLOCK ¹	UNLOCK{(E)} `name`
UPDATE	UPDATE{(E)} `file-or-record-name` {`data-structure`\|%FIELDS`(name`{`:name`...})}
WHEN	WHEN{(MR)} `indicator-expression`
WRITE	WRITE{(E)} `file-or-record-name` {`data-structure`}
XML-INTO	XML-INTO{(EH)} `target-or-handler xml-document`
XML-SAX	XML-SAX{(E)} `handler xml-document`

Notes:

Complex-qualified names are note allowed for this operation code.

The next table is a summary of the specifications for each operation code in traditional syntax.

An empty column indicates that the field must be blank.
All underlined fields are required.
An underscored space denotes that there is no resulting indicator in that position.
Symbols

+

Plus

-

Minus
Extenders

(A)

Always perform a dump, even if DEBUG(*NO) is specified

(A)

Sort ascending

(D)

Pass operational descriptors on bound call

(D)

Date field

(D)

Sort descending

(E)

Error handling

(H)

Half adjust (round the numeric result)

(M)

Default precision rules

(N)

Do not lock record

(N)

Set pointer to *NULL after successful DEALLOC

(P)

Pad the result with blanks or zeros

(R)

"Result Decimal Position" precision rules

(T)

Time field

(Z)

Timestamp field
Resulting indicator symbols

BL

Blank(s)

BN

Blank(s) then numeric

BOF

Beginning of the file

EOF

End of the file

EQ

Equal

ER

Error

FD

Found

HI

Greater than

IN

Indicator

LO

Less than

LR

Last record

NR

No record was found

NU

Numeric

OF

Off

ON

On

Z

Zero

ZB

Zero or Blank

Table 56. Operation Codes in Traditional Syntax
Codes	Factor 1	Factor 2	Result Field	Resulting Indicators
Codes	Factor 1	Factor 2	Result Field	71-72	73-74	75-76
ACQ (E⁷)	device-name	workstn-file			ER
ADD (H)	Addend	Addend	Sum	+	-	Z
ADDDUR (E)	Date/Time	Duration:Duration Code	Date/Time		ER
ALLOC (E)		Length	Pointer		ER
ANDxx	Comparand	Comparand
BEGSR	subroutine-name
BITOFF		Bit numbers	Character field
BITON		Bit numbers	Character field
CABxx	Comparand	Comparand	Label	HI	LO	EQ
CALL (E)		Program name	Plist name		ER	LR
CALLB (D E)		Procedure name or Procedure pointer	Plist name		ER	LR
CALLP (E M/R)		name{ (parm1 {:parm2...}) }
CASxx	Comparand	Comparand	Subroutine name	HI	LO	EQ
CAT (P)	Source string 1	Source string 2:number of blanks	Target string
CHAIN (E N)	search-arg	name (file or record format)	data-structure	NR²	ER
CHECK (E)	Comparator String	Base String:start	Left-most Position(s)		ER	FD²
CHECKR (E)	Comparator String	Base String:start	Right-most Position(s)		ER	FD²
CLEAR	*NOKEY	*ALL	name (variable or record format)
CLOSE (E)		file-name or *ALL			ER
COMMIT (E)	boundary				ER
COMP¹	Comparand	Comparand		HI	LO	EQ
DEALLOC (E/N)			pointer-name		ER
DEFINE	*LIKE	Referenced field	Defined field
DEFINE	*DTAARA	External data area	Internal field
DELETE (E)	search-arg	name (file or record format)		NR²	ER
DIV (H)	Dividend	Divisor	Quotient	+	-	Z
DO	Starting value	Limit value	Index value
DOU (M/R)		indicator-expression
DOUxx	Comparand	Comparand
DOW (M/R)		indicator-expression
DOWxx	Comparand	Comparand
DSPLY (E)⁴	message	message-queue	response		ER
DUMP (A)	identifier
ELSE
ELSEIF (M/R)		indicator-expression
END		Increment value
ENDCS
ENDDO		Increment value
ENDFOR
ENDIF
ENDMON
ENDSL
ENDSR	label	return-point
EVAL (H M/R)		Result = Expression
EVALR (M/R)		Result = Expression
EVAL-CORR		EVAL-CORR `target-ds` = `source-ds`
EXCEPT		except-name
EXFMT (E)		Record format-name	data-structure		ER
EXSR		subroutine-name
EXTRCT (E)		Date/Time:Duration Code	Target Field		ER
FEOD (EN)		file-name			ER
FOR		Index-name = start-value BY increment TO\|DOWNTO limit
FORCE		file-name
GOTO		Label
IF (M/R)		indicator-expression
IFxx	Comparand	Comparand
IN (E)	*LOCK	data-area-name			ER
ITER
KFLD			Key field
KLIST	KLIST name
LEAVE
LEAVESR
LOOKUP¹ (array)	Search argument	Array name		HI	LO	EQ⁶
LOOKUP¹ (table)	Search argument	Table name	Table name	HI	LO	EQ⁶
MHHZO		Source field	Target field
MHLZO		Source field	Target field
MLHZO		Source field	Target field
MLLZO		Source field	Target field
MONITOR
MOVE (P)	Data Attributes	Source field	Target field	+	-	ZB
MOVEA (P)		Source	Target	+	-	ZB
MOVEL (P)	Data Attributes	Source field	Target field	+	-	ZB
MULT (H)	Multiplicand	Multiplier	Product	+	-	Z
MVR			Remainder	+	-	Z
NEXT (E)	program-device	file-name			ER
OCCUR (E)	Occurrence value	Data structure	Occurrence value		ER
ON-ERROR		Status codes
OPEN (E)		file-name			ER
ORxx	Comparand	Comparand
OTHER
OUT (E)	*LOCK	data-area-name			ER
PARM	Target field	Source field	Parameter
PLIST	PLIST name
POST (E)³	program-device	file-name	INFDS name		ER
READ (E N)		name (file or record format)	data- structure		ER	EOF⁵
READC (E)		record-name	data- structure		ER	EOF⁵
READE (E N)	search-arg	name (file or record format)	data- structure		ER	EOF⁵
READP (E N)		name (file or record format)	data- structure		ER	BOF⁵
READPE (E N)	search-arg	name (file or record format)	data- structure		ER	BOF⁵
REALLOC (E)		Length	Pointer		ER
REL (E)	program-device	file-name			ER
RESET (E)	*NOKEY	*ALL	name (variable or record format)		ER
RETURN (H M/R)		Expression
ROLBK (E)					ER
SCAN (E)	Comparator string:length	Base string:start	Left-most position(s)		ER	FD²
SELECT
SETGT (E)	search-arg	name (file or record format)		NR²	ER
SETLL (E)	search-arg	name (file or record format)		NR²	ER	EQ⁶
SETOFF¹				OF	OF	OF
SETON¹				ON	ON	ON
SHTDN				ON
SORTA (A/D)		array-name or keyed-ds-array
SQRT (H)		Value	Root
SUB (H)	Minuend	Subtrahend	Difference	+	-	Z
SUBDUR (E) (duration)	Date/Time/ Timestamp	Date/Time/Timestamp	Duration: Duration Code		ER
SUBDUR (E) (new date)	Date/Time/ Timestamp	Duration:Duration Code	Date/Time/ Timestamp		ER
SUBST (E P)	Length to extract	Base string:start	Target string		ER
TAG	Label
TEST (E)⁸			Date/Time or Timestamp Field		ER
TEST (D E)⁸	Date Format		Character or Numeric field		ER
TEST (E T)⁸	Time Format		Character or Numeric field		ER
TEST (E Z)⁸	Timestamp Format		Character or Numeric field		ER
TESTB¹		Bit numbers	Character field	OF	ON	EQ
TESTN¹			Character field	NU	BN	BL
TESTZ¹			Character field	AI	JR	XX
TIME			Target field
UNLOCK (E)		name (file or data area)			ER
UPDATE (E)		name (file or record format)	data- structure		ER
WHEN (M/R)		indicator-expression
WHENxx	Comparand	Comparand
WRITE (E)		name (file or record format)	data- structure		ER	EOF⁵
XFOOT (H)		Array name	Sum	+	-	Z
XLATE (E P)	From:To	String:start	Target String		ER
XML-INTO		XML-INTO `target-or-handler xml-document`
XML-SAX		XML-SAX{(E)} `handler xml-document`
Z-ADD (H)		Addend	Sum	+	-	Z
Z-SUB (H)		Subtrahend	Difference	+	-	Z
Notes: At least one resulting indicator is required. The %FOUND built-in function can be used as an alternative to specifying an NR or FD resulting indicator. You must specify factor 2 or the result field. You may specify both. You must specify factor 1 or the result field. You may specify both. The %EOF built-in function can be used as an alternative to specifying an EOF or BOF resulting indicator. The %EQUAL built-in function can be used to test the SETLL and LOOKUP operations. For all operation codes with extender 'E', either the extender 'E' or an ER error indicator can be specified, but not both. You must specify the extender 'E' or an error indicator for the TEST operation.

[ Top of Page | Previous Page | Next Page | Contents | Index ]