Figure 2: Operations not supported by free format

Unsupported opcode Alternative construct
ADD Use + operator
ADDDUR Use + operator with date functions
ALLOC Use %ALLOC
ANDxx Use AND
BITOFF Use %BITAND and %BITNOT (V5R2)
BITON Use %BITOR (V5R2)
CABxx Use expressions
CALL Use CALLP
CALLB Use CALLP
CASxx Use SELECT/WHEN/OTHER
CAT Use + operator
CAT Use + operator
CHECK Use %CHECK
CHECKR Use %CHECKR
COMP Use expressions
DEFINE Use D-specs with LIKE
DIV Use / operator or %DIV
DO Use FOR
DOUxx Use DOU
DOWxx Use DOW
EXTRCT Use %SUBDT
GOTO Use LEAVE, ITER, RETURN
IFxx Use IF
KFLD Use %KDS (V5R2)
KLIST Use %KDS (V5R2)
LOOKUP Use %LOOKUP or %TLOOKUP
MHHZO Use %BITxxx (V5R2)
MHLZO Use %BITxxx (V5R2)
MLHZO Use %BITxxx (V5R2)
MLLZO Use %BITxxx (V5R2)
MOVE Use expressions, functions
MOVEA Use expressions, functions
MOVEL Use expressions, functions
MULT Use * operator
MVR Use %REM
OCCUR Use %OCCUR
ORxx Use OR
PARM Use PR/PI definitions
PLIST Use PR/PI definitions
REALLOC Use %REALLOC
SCAN Use %SCAN
SETOFF Use expressions
SETON Use expressions
SHTDN Use %SHTDN
SQRT Use %SQRT
SUB Use Ð operator
SUBDUR Use %DIFF or Ð operator with date functions
SUBST Use %SUBST
SUBST Use %SUBST
TAG Use LEAVE, ITER, RETURN
TESTB Use %BITAND (V5R2)
TESTN No alternative
TESTZ Use %BITxxx (V5R2)
TIME Use date functions
WHENxx Use WHEN
XFOOT Use %XFOOT
XLATE Use %XLATE
Z-ADD Use EVAL
Z-SUB Use EVAL