blog:iseries:rpg_free [Tom's Tech Blog]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
RPG-free Utilities: http://www.jcrcmds.com/jcrdown2.html

  * Entire program can now be in free form - except I and O specs 
    * No longer any need for /Free or /End-Free 
      * Just leave columns 6 and 7 blank 
  * Files (dcl-f) can be mixed in with D-specs (no longer have to be first)\\
  * /Free and /End-Free no longer required \\
  * /Copy and other compiler directives no longer need to start in col 7 \\
  * New free form options for: 
    * H-specs (CTL-OPT) 
    * F-specs (DCL-F) 
    * D-specs (DCL-xx) 
      * Where xx = C, DS, <nowiki>PARM**, PI, PR, S, or SUBF**</nowiki> 
        * <nowiki>(**)</nowiki> These are rarely going to be used 
    * P-specs (DCL-PROC) 

All of the new declaration op-codes follow this basic format: 
  * First the DCL-xx itself 
  * Next the name of the item 
    * File, field, procedure, etc. 
  * Followed by keywords related to other fixed form elements 
    * e.g. File usage, field type and length 
  * Then keywords from the old spec

-------------------------------------------------------------------------------
====== $[hdcolor $\yellow$\$]Best Practices $[/hdcolor$]======

==== $[hdcolor $\yellow$\$]BIFs $[/hdcolor$]====
/***********                        BIFs                            ************/
  * V7 now supports %SCANRPL to scan (search) and replace in one step
    * %SCANRPL( scanFor : replaceWith : target { : scan start { : scan length } )

==== $[hdcolor $\yellow$\$]/Copy source code $[/hdcolor$]====
/***********                        /Copy source code                            ************/
  * Use the /Include command instead
  * Copying from a source file limits the member names to 10 characters
    * Instead, store the code in the IFS
      *  /include '/myApp/proto_utility/userSpaceAPIs.rpgle'

==== $[hdcolor $\yellow$\$]Data Structures $[/hdcolor$]====
/***********                        Data Structures                            ************/
  * Instead of compile-time arrays (where the data is at the end of the pgm), use an initialized DS
  * Consider using qualified data structures for all I/O
  * DS can now be sorted (see code samples)
  * %LOOKUP can now also search DS arrays

==== $[hdcolor $\yellow$\$]Gotcha's to watch out for $[/hdcolor$]====
/***********                        Gotcha's to watch out for                            ************/
OVERLAY keyword cannot be used against DS name 
  * Use POS(n) instead 
Names in EXTNAME, EXTFLD, and DTAARA 
  * Must be in quotes and are case sensitive 
  * Without quotes, they are treated as a variable or constant name 
Ellipsis (...) for continuation only allowed when continuing a name 
  * But not really needed anymore anyway 
On F-Spec "U" enables update and delete 
  * In free form *DELETE must be requested explicitly 
End-DS, End-PR, End-PI are always required 
  * But may appear on same line as DCL-xx in some cases 
RDi's "Convert all to Free-Form" means only convert "all logic" 
  * And will still generate /Free and /End-Free 
I and O specs remain in fixed form 
  * Probably forever 

==== $[hdcolor $\yellow$\$]Naming $[/hdcolor$]====
/***********                        Naming                            ************/
  * use CamelCase
    * camelCase format is also OK
  * if you use underscores in sub and proc names, then
    <code >salary = calculatePay(97);</code>
    is clearly different from 
    <code java>salary = calculate_Pay(97);</code>
    * Is the first one calling a sub and passing 97?
    * Or is it assigning the 97th element of an array to **salary**?
    * If you always use underscores in sub names, the usage will always be clear
  * use UPPERCASE for named constants
    * use underscores to separate words
    * ERR_RECORD_LOCKED
  * global variables should rarely be used
    * but if you must use them, prefix them with g_

==== $[hdcolor $\yellow$\$]Prototypes $[/hdcolor$]====
/***********                        Prototypes                            ************/
  * All prototypes should be coded in copy members and include required programs and modules. 
  * A prototype should never be coded in more than one source member
  * EXTPGM keyword can be omitted 
    * Providing that the program is non-ILE i.e. DFTACTGRP(*YES) 
  * Program name can be omitted from EXTPGM 
    * If the program name is the same as the prototype 
  * EXTPGM('PROGNAME') 
    * Parameter only needed when proto name is different from actual program name 
<code rpgfree>
  dcl-pr MyProgram;        // Used to call 'MYPROGRAM' from non-ILE program 
  dcl-pr MyProgram ExtPgm; // Calls 'MYPROGRAM' from any program 
  dcl-pr DifferentName Extpgm('MYPROGRAM'); // Call MYPROGRAM using the name DifferentName
</code>

==== $[hdcolor $\yellow$\$]SQL $[/hdcolor$]====
/***********                        SQL                             ************/
  * Run SQL Scripts in IBM i Access Clients Solutions has an SQL formatter
  * Keep SQL statements as simple as possible. You do not want to debug a complex SQL statement in an RPG program. Create a view that “hides” the complexity of joins and casting and select from that view in the RPG program.
  * Use SET OPTIONS to ensure that the SQL environment is specified correctly at compile time

==== $[hdcolor $\yellow$\$]Strings $[/hdcolor$]====
/***********                        Strings                             ************/
IBM recommends VARCHAR strings (for work fields) rather than fixed-length strings
  * One obvious advantage is that there is no need to use %TRIM()

==== $[hdcolor $\yellow$\$]Subprocedures $[/hdcolor$]====
/***********                        Subprocedures                             ************/
  * s/b designed to perform one task (such as calculate_Pay() or get_customerData())
    * The subprocedure can call other subprocedures to achieve that task
  * can be internal or external (svc pgm or another bound module)
  * s/b stand-alone
     * local variables
     * all needed values s/b passed as parms
<code rpgfree>
dcl-proc DayOfWeek Export; 

 dcl-pi *N Int(3) ExtProc(*DclCase); // Omit name - use *N placeholder 
   InputDate Date(*USA) Value; 
 end-pi; 

 dcl-s DayNumber int(3); 
   // Do calcs leaving value in DayNumber 
 Return DayNumber; 

end-proc DayOfWeek;
</code>

The biggest advantage of the new support is that you no longer have to flip in and out of fixed and free modes when coding subprocedures. No more /End-Free, P-specs, D-Specs, /Free, logic, /End-Free etc.

==== $[hdcolor $\yellow$\$]Subroutines $[/hdcolor$]====
/***********                        Subroutines                             ************/
Subroutines should not be used for modularization/structure. Use subprocedures instead. But subroutines can be useful for organizing the logic in a subprocedure.

-------------------------------------------------------------------------------
===== $[hdcolor $\yellow$\$]Constants $[/hdcolor$]=====
In V7, constants can be used in many more places 
  * Including field length, decimal places, array dimensions - just about anywhere you would use a literal 
<code rpgfree>
 dcl-c  Digits 7; 
 dcl-c  Decimals 2; 

 // note how the subfield size is defined using constants

 dcl-ds CustomerInfo; 
   CustomerName    VarChar(50); 
   CustomerBalance Packed( Digits: Decimals); 
 end-ds;
</code>

In older versions, quote characters were assumed (since literals were not allowed)
<code rpgfree>D myDataArea    ds                         DtaAra(JonsData) </code>
In RPG-free, this assumes that JonsData is a constant
<code rpgfree> Dcl-Ds myDataArea DtaAra(JonsData); </code>
To point to an external data area, use both UPPERCASE and Quotes
<code rpgfree> Dcl-Ds myDataArea DtaAra('JONSDATA'); </code>

-------------------------------------------------------------------------------
===== $[hdcolor $\yellow$\$]Data Structures $[/hdcolor$]=====
See also the DS sample in the Code Samples section

You can use the LIKEREC keyword to define qualified data structures based on input/output records for an external described file.

===== $[hdcolor $\yellow$\$]Data Declarations (the new D-Specs) $[/hdcolor$]=====
/***********                        Data Declarations (the new D-Specs)                    ************/
D-specs (DCL-xx) 
  * Where xx = C, DS, PI, PR or S

  *xx = DS for Data structures 
    * In most cases there must also be a matching END-DS 
  *xx = SUBF for DS subfields - Very Rarely Required 
    * Code only if field name is a valid free-form op-code 
      * Yes some strange people do use names like READ or SELECT as field names 
  *xx = S for Stand-Alone fields 
  *xx = C for Named Constants

Constants
<code rpgfree>
  // without the optional CONST keyword 
  DCL‑C lower_bound ‑50; 
  DCL‑C max_count 200; 
  DCL‑C start_letter 'A'; 

  // with the optional CONST keyword 
  DCL‑C upper_bound CONST(‑50); 
  DCL‑C min_count CONST(200); 
  DCL‑C end_letter CONST('A');
</code>

Data structure
<code rpgfree>
 dcl-ds Address Dim(20) Qualified; 
   Street1  char(30); 
   City     char(30); 
   State    char(2); 
   Zip      zoned(5); // Zero decimals assumed 
   ZipPlus  zoned(4:0); 
 end-ds Address;  // DS name @ end is optional
</code>

Externally-defined DS
<code rpgfree>
 dcl-ds product Ext end-ds;    // to define on one line, just add end-ds;
</code>

Like keyword
<code rpgfree>
  // Define using the LIKE keyword 
  DCL‑S cust_index LIKE(index);

  //Specify length adjustment with LIKE keyword 
  DCL‑S big_index LIKE(index : +6);
</code>

Zero decimal is the default
<code rpgfree>
 Dcl-S packedNum    Packed(7:2); 
 Dcl-S zonedNum     Zoned(7:2); 
 Dcl-S integer      Int(10); 
 Dcl-S unsigned     Uns(10); 
 Dcl-S float        Float(8); 
 Dcl-S character    Char(20); 
 Dcl-S varyingChar  Varchar(20); 
 Dcl-S dateMDY      Date(*MDY); 
 Dcl-S timeUSA      Time(*USA); 
 Dcl-S indicator    Ind; 
 Dcl-S nastybinary  Bindec(9);</code>

===== $[hdcolor $\yellow$\$]File Declarations (the new F-Specs) $[/hdcolor$]=====
/***********                                        F-Specs                                     ************/
File Name listed first - followed by device type keyword (if any) 
  * Device type defaults to DISK - i.e., a Database table 
  * Device type can be omitted if using an externally described Disk file 
Externally described is the default 
  * File Keyword *EXT can optionally be specified as a parameter 
Program described files must specify their record length 
  * e.g. PRINTER(132) for a program described printer file 
Defaults for USAGE are based on device type - more in a moment
  * *Input, *Output, *Update (implies *Input), *Delete (implies *Update) 
Add KEYED keyword for keyed database (disk) files\\
File name no longer limited to 10 characters
  * So meaningful file names can be used 
    * EXTDESC must be used to specify actual name when different from file name
Usage defaults are based on device type
  * Usage(*Input) for DISK
  * Usage(*Output) for PRINTER
  * Usage(*Input : *Output) for WORKSTN

<code rpgfree>
FCUSTMR0    UF A E         K DISK    USROPN 
FREPORT     O    E           PRINTER OFLIND(*IN96) 
FSCREEN     CF   E           WORKSTN 

 Dcl-F CUSTMR0 DISK Usage(*Update:*Delete:*Output) Keyed UsrOpn; 
 Dcl-F REPORT PRINTER(*EXT) OFLIND(*IN96); 
 Dcl-F SCREEN WORKSTN Usage(*Input:*Output); 

Note that some of the above parms are not needed because they are defaults (such as Usage(*Input:*Output); for the WORKSTN)
</code>

Samples that allow (i.e., don't redefine) the defaults
<code rpgfree>
 DCL-F InvoiceMaster ExtDesc('INVMAST');     // Defaults to Input Disk
 DCL-F CustMaster Usage(*Update) Keyed;      // Keyed Disk file 
 DCL-F qPrint Printer(132) OflInd(PageFull); // Program described 
 DCL-F MyDisplay WorkStn;                    // Workstation Usage(*Input : *Output)
</code>

===== $[hdcolor $\yellow$\$]H-spec equivalent (called Control Specs) $[/hdcolor$]=====
/***********                                             H-Specs                                    ************/
<code rpgfree>
 Ctl-Opt debug datEdit(*MDY/) option(*srcStmt:*noDebugIO) bndDir('MYAPP');

 /if defined(*CRTBNDRPG)
   Ctl-Opt dftActGrp(*no) actGrp('PGMBND');
 /endIf
</code>

==== $[hdcolor $\yellow$\$]Op Codes $[/hdcolor$]====
/***********                        Op Codes                             ************/

<html>
<h1 class="title topictitle1">Operation Codes</h1>
<div class="body"><div class="p">The following table shows the free-form syntax for each operation
code.
<ul class="ul"><li class="li">Extenders
<dl class="dl"><dt class="dt dlterm">(A)</dt>
<dd class="dd">Always perform a dump, even if DEBUG(*NO) is specified</dd>
<dt class="dt dlterm">(A)</dt>
<dd class="dd">Sort ascending</dd>
<dt class="dt dlterm">(D)</dt>
<dd class="dd">Pass operational descriptors on bound call</dd>
<dt class="dt dlterm">(D)</dt>
<dd class="dd">Date field</dd>
<dt class="dt dlterm">(D)</dt>
<dd class="dd">Sort descending</dd>
<dt class="dt dlterm">(E)</dt>
<dd class="dd">Error handling</dd>
<dt class="dt dlterm">(H)</dt>
<dd class="dd">Half adjust (round the numeric result)</dd>
<dt class="dt dlterm">(M)</dt>
<dd class="dd">Default precision rules</dd>
<dt class="dt dlterm">(N)</dt>
<dd class="dd">Do not lock record</dd>
<dt class="dt dlterm">(N)</dt>
<dd class="dd">Set pointer to *NULL after successful DEALLOC</dd>
<dt class="dt dlterm">(N)</dt>
<dd class="dd">Do not force data to non-volatile storage</dd>
<dt class="dt dlterm">(P)</dt>
<dd class="dd">Pad the result with blanks or zeros</dd>
<dt class="dt dlterm">(R)</dt>
<dd class="dd">"Result Decimal Position" precision rules</dd>
<dt class="dt dlterm">(T)</dt>
<dd class="dd">Time field</dd>
<dt class="dt dlterm">(Z)</dt>
<dd class="dd">Timestamp field</dd>
</dl>
</li>
</ul>
</div>
<div class="tablenoborder"><table cellpadding="4" cellspacing="0" summary="" id="opcode__freeopc" class="table" rules="all" frame="border" border="1"><caption><span class="tablecap">Table 1. Operation Codes in Free-Form Syntax</span></caption><thead class="thead" align="left"><tr class="row"><th class="entry thleft" valign="top" width="20%" id="d217099e123">Code        </th>
<th class="entry thleft" valign="top" width="80%" id="d217099e125">Free-Form Syntax</th>
</tr>
</thead>
<tbody class="tbody"><tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">ACQ</strong><sup class="ph sup">1</sup>         </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">ACQ{(E)} <span class="ph synph"><span class="ph var">device-name</span></span> <span class="ph synph"><span class="ph var">workstn-file</span></span></td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">BEGSR</strong>       </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">BEGSR <span class="ph synph"><span class="ph var">subroutine-name</span></span></td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">CALLP</strong>       </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">{CALLP{(EMR)}} <span class="ph synph"><span class="ph var">name</span></span>( {<span class="ph synph"><span class="ph var">parm1</span></span>{:<span class="ph synph"><span class="ph var">parm2</span></span>...}}
)</td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">CHAIN</strong>       </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">CHAIN{(ENHMR)} <span class="ph synph"><span class="ph var">search-arg</span></span> <span class="ph synph"><span class="ph var">file-or-record-name</span></span> {<span class="ph synph"><span class="ph var">data-structure</span></span>}</td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">CLEAR</strong>       </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">CLEAR {*NOKEY} {*ALL} <span class="ph synph"><span class="ph var">name</span></span></td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">CLOSE</strong>       </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">CLOSE{(E)} <span class="ph synph"><span class="ph var">file-name</span></span></td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">COMMIT</strong>      </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">COMMIT{(E)} {<span class="ph synph"><span class="ph var">boundary</span></span>}</td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">DEALLOC</strong> <sup class="ph sup">1</sup>   </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">DEALLOC{(EN)} <span class="ph synph"><span class="ph var">pointer-name</span></span></td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">DELETE</strong>      </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">DELETE{(EHMR)} {<span class="ph synph"><span class="ph var">search-arg</span></span>} <span class="ph synph"><span class="ph var">file-or-record-name</span></span></td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">DOU</strong>         </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">DOU{(MR)} <span class="ph synph"><span class="ph var">indicator-expression</span></span></td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">DOW</strong>         </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">DOW{(MR)} <span class="ph synph"><span class="ph var">indicator-expression</span></span></td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">DSPLY</strong>       </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">DSPLY{(E)} {<span class="ph synph"><span class="ph var">message</span></span> {<span class="ph synph"><span class="ph var">message-queue</span></span> {<span class="ph synph"><span class="ph var">response</span></span>}}}</td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">DUMP</strong><sup class="ph sup">1</sup>        </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">DUMP{(A)} {<span class="ph synph"><span class="ph var">identifier</span></span>}</td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">ELSE</strong>        </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">ELSE</td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">ELSEIF</strong>      </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">ELSEIF{(MR)} <span class="ph synph"><span class="ph var">indicator-expression</span></span></td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">ENDDO</strong>       </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">ENDDO</td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">ENDFOR</strong>      </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">ENDFOR</td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">ENDIF</strong>       </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">ENDIF</td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">ENDMON</strong>      </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">ENDMON</td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">ENDSL</strong>       </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">ENDSL</td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">ENDSR</strong>       </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">ENDSR {<span class="ph synph"><span class="ph var">return-point</span></span>}</td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">EVAL</strong>        </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">{EVAL{(HMR)}} <span class="ph synph"><span class="ph var">result</span></span> = <span class="ph synph"><span class="ph var">expression</span></span></td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">EVALR</strong>       </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">EVALR{(MR)} <span class="ph synph"><span class="ph var">result</span></span> = <span class="ph synph"><span class="ph var">expression</span></span></td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">EVAL-CORR</strong></td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">EVAL-CORR{(EH)} <span class="ph synph"><span class="ph var">target-ds</span></span> = <span class="ph synph"><span class="ph var">source-ds</span></span></td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">EXCEPT</strong>      </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">EXCEPT {<span class="ph synph"><span class="ph var">except-name</span></span>}</td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">EXFMT</strong>       </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">EXFMT{(E)} <span class="ph synph"><span class="ph var">format-name {data-structure}</span></span></td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">EXSR</strong>        </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">EXSR <span class="ph synph"><span class="ph var">subroutine-name</span></span></td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">FEOD</strong>        </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">FEOD{(EN)} <span class="ph synph"><span class="ph var">file-name</span></span></td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">FOR</strong>         </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">FOR{(MR)} <span class="ph synph"><span class="ph var">index</span></span> {= <span class="ph synph"><span class="ph var">start</span></span>} {BY <span class="ph synph"><span class="ph var">increment</span></span>}
{TO|DOWNTO <span class="ph synph"><span class="ph var">limit</span></span>}</td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">FORCE</strong>       </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">FORCE <span class="ph synph"><span class="ph var">file-name</span></span></td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">IF</strong>          </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">IF{(MR)} <span class="ph synph"><span class="ph var">indicator-expression</span></span></td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">IN</strong> <sup class="ph sup">1</sup>         </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">IN{(E)} {*LOCK} <span class="ph synph"><span class="ph var">data-area-name</span></span></td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">ITER</strong>        </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">ITER</td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">LEAVE</strong>       </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">LEAVE</td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">LEAVESR</strong>     </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">LEAVESR</td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">MONITOR</strong>     </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">MONITOR</td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">NEXT</strong><sup class="ph sup">1</sup>        </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">NEXT{(E)} <span class="ph synph"><span class="ph var">program-device</span></span> <span class="ph synph"><span class="ph var">file-name</span></span></td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">ON-ERROR</strong>    </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">ON-ERROR {<span class="ph synph"><span class="ph var">exception-id1</span></span> {:<span class="ph synph"><span class="ph var">exception-id2</span></span>…}}</td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><img src="./delta.gif" alt="Start of change" /><strong class="ph b">ON-EXIT</strong><img src="./deltaend.gif" alt="End of change" /></td>
<td class="entry" valign="top" width="80%" headers="d217099e125 "><img src="./delta.gif" alt="Start of change" />ON-EXIT {<span class="ph synph"><span class="ph var">status</span></span>}<img src="./deltaend.gif" alt="End of change" /></td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">OPEN</strong>        </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">OPEN{(E)} <span class="ph synph"><span class="ph var">file-name</span></span></td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">OTHER</strong>       </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">OTHER</td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">OUT</strong><sup class="ph sup">1</sup>         </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">OUT{(E)} {*LOCK} <span class="ph synph"><span class="ph var">data-area-name</span></span></td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">POST</strong> <sup class="ph sup">1</sup>       </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">POST{(E)} {<span class="ph synph"><span class="ph var">program-device</span></span>} <span class="ph synph"><span class="ph var">file-name</span></span></td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">READ</strong>        </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">READ{(EN)} <span class="ph synph"><span class="ph var">file-or-record-name</span></span> {<span class="ph synph"><span class="ph var">data-structure</span></span>}</td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">READC</strong>       </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">READC{(E)} <span class="ph synph"><span class="ph var">record-name</span></span> {<span class="ph synph"><span class="ph var">data-structure</span></span>}</td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">READE</strong>       </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">READE{(ENHMR)} <span class="ph synph"><span class="ph var">search-arg</span></span>|*KEY <span class="ph synph"><span class="ph var">file-or-record-name</span></span> {<span class="ph synph"><span class="ph var">data-structure</span></span>}</td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">READP</strong>       </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">READP{(EN)} <span class="ph synph"><span class="ph var">name</span></span> {<span class="ph synph"><span class="ph var">data-structure</span></span>}</td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">READPE</strong>      </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">READPE{(ENHMR)} <span class="ph synph"><span class="ph var">search-arg</span></span>|*KEY <span class="ph synph"><span class="ph var">file-or-record-name</span></span> {<span class="ph synph"><span class="ph var">data-structure</span></span>}</td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">REL</strong> <sup class="ph sup">1</sup>        </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">REL{(E)} <span class="ph synph"><span class="ph var">program-device</span></span> <span class="ph synph"><span class="ph var">file-name</span></span></td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">RESET</strong> <sup class="ph sup">1</sup>      </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">RESET{(E)} {*NOKEY} {*ALL} <span class="ph synph"><span class="ph var">name</span></span></td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">RETURN</strong>      </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">RETURN{(HMR)} <span class="ph synph"><span class="ph var">expression</span></span></td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">ROLBK</strong>       </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">ROLBK{(E)}</td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">SELECT</strong>      </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">SELECT</td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">SETGT</strong>       </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">SETGT{(EHMR)} <span class="ph synph"><span class="ph var">search-arg</span></span> <span class="ph synph"><span class="ph var">file-or-record-name</span></span></td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">SETLL</strong>       </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">SETLL{(EHMR)} <span class="ph synph"><span class="ph var">search-arg</span></span> <span class="ph synph"><span class="ph var">file-or-record-name</span></span></td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">SORTA</strong>       </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">SORTA{(AD)} <span class="ph synph"><span class="ph var">array-name</span></span> or <span class="ph synph"><span class="ph var">keyed-ds-array</span></span></td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">TEST</strong> <sup class="ph sup">1</sup>       </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">TEST{(EDTZ)} {<span class="ph synph"><span class="ph var">dtz-format</span></span>} <span class="ph synph"><span class="ph var">field-name</span></span></td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">UNLOCK</strong>      <sup class="ph sup">1</sup></td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">UNLOCK{(E)} <span class="ph synph"><span class="ph var">name</span></span></td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">UPDATE</strong>      </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">UPDATE{(E)} <span class="ph synph"><span class="ph var">file-or-record-name</span></span> {<span class="ph synph"><span class="ph var">data-structure</span></span>|%FIELDS<span class="ph synph"><span class="ph var">(name</span></span>{<span class="ph synph"><span class="ph var">:name</span></span>...})}</td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">WHEN</strong>        </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">WHEN{(MR)} <span class="ph synph"><span class="ph var">indicator-expression</span></span></td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">WRITE</strong>       </td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">WRITE{(E)} <span class="ph synph"><span class="ph var">file-or-record-name</span></span> {<span class="ph synph"><span class="ph var">data-structure</span></span>}</td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">XML-INTO</strong></td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">XML-INTO{(EH)}<span class="ph synph"><span class="ph var"> target-or-handler xml-document</span></span></td>
</tr>
<tr class="row"><td class="entry" valign="top" width="20%" headers="d217099e123 "><strong class="ph b">XML-SAX</strong></td>
<td class="entry" valign="top" width="80%" headers="d217099e125 ">XML-SAX{(E)} <span class="ph synph"><span class="ph var">handler xml-document</span></span></td>
</tr>
</tbody>
</table>
</div>
<div class="note note"><span class="notetitle">Note:</span> <ol class="ol"><li class="li">Complex-qualified names are not allowed for this operation
code.</li>
</ol>
</div>
<p class="p">The next table is a summary of the specifications for each operation
code in traditional syntax.</p>
<ul class="ul"><li class="li">An empty column indicates that the field must be blank.</li>
<li class="li">All underlined fields are required.</li>
<li class="li">An underscored space denotes that there is no resulting indicator in that
position.</li>
<li class="li">Symbols
<dl class="dl"><dt class="dt dlterm">+</dt>
<dd class="dd">Plus</dd>
<dt class="dt dlterm">-</dt>
<dd class="dd">Minus</dd>
</dl>
</li>
<li class="li">Extenders
<dl class="dl"><dt class="dt dlterm">(A)</dt>
<dd class="dd">Always perform a dump, even if DEBUG(*NO) is specified</dd>
<dt class="dt dlterm">(A)</dt>
<dd class="dd">Sort ascending</dd>
<dt class="dt dlterm">(D)</dt>
<dd class="dd">Pass operational descriptors on bound call</dd>
<dt class="dt dlterm">(D)</dt>
<dd class="dd">Date field</dd>
<dt class="dt dlterm">(D)</dt>
<dd class="dd">Sort descending</dd>
<dt class="dt dlterm">(E)</dt>
<dd class="dd">Error handling</dd>
<dt class="dt dlterm">(H)</dt>
<dd class="dd">Half adjust (round the numeric result)</dd>
<dt class="dt dlterm">(M)</dt>
<dd class="dd">Default precision rules</dd>
<dt class="dt dlterm">(N)</dt>
<dd class="dd">Do not lock record</dd>
<dt class="dt dlterm">(N)</dt>
<dd class="dd">Set pointer to *NULL after successful DEALLOC</dd>
<dt class="dt dlterm">(P)</dt>
<dd class="dd">Pad the result with blanks or zeros</dd>
<dt class="dt dlterm">(R)</dt>
<dd class="dd">"Result Decimal Position" precision rules</dd>
<dt class="dt dlterm">(T)</dt>
<dd class="dd">Time field</dd>
<dt class="dt dlterm">(Z)</dt>
<dd class="dd">Timestamp field</dd>
</dl>
</li>
<li class="li">Resulting indicator symbols
<dl class="dl"><dt class="dt dlterm">BL</dt>
<dd class="dd">Blank(s)</dd>
<dt class="dt dlterm">BN</dt>
<dd class="dd">Blank(s) then numeric</dd>
<dt class="dt dlterm">BOF</dt>
<dd class="dd">Beginning of the file</dd>
<dt class="dt dlterm">EOF</dt>
<dd class="dd">End of the file</dd>
<dt class="dt dlterm">EQ</dt>
<dd class="dd">Equal</dd>
<dt class="dt dlterm">ER</dt>
<dd class="dd">Error</dd>
<dt class="dt dlterm">FD</dt>
<dd class="dd">Found</dd>
<dt class="dt dlterm">HI</dt>
<dd class="dd">Greater than</dd>
<dt class="dt dlterm">IN</dt>
<dd class="dd">Indicator</dd>
<dt class="dt dlterm">LO</dt>
<dd class="dd">Less than</dd>
<dt class="dt dlterm">LR</dt>
<dd class="dd">Last record</dd>
<dt class="dt dlterm">NR</dt>
<dd class="dd">No record was found</dd>
<dt class="dt dlterm">NU</dt>
<dd class="dd">Numeric</dd>
<dt class="dt dlterm">OF</dt>
<dd class="dd">Off</dd>
<dt class="dt dlterm">ON</dt>
<dd class="dd">On</dd>
<dt class="dt dlterm">Z</dt>
<dd class="dd">Zero</dd>
<dt class="dt dlterm">ZB</dt>
<dd class="dd">Zero or Blank</dd>
</dl>
</li>
</ul>
<div class="tablenoborder"><table cellpadding="4" cellspacing="0" summary="" class="table" width="100%" rules="all" frame="border" border="1"><caption><span class="tablecap">Table 2. Operation Codes in Traditional Syntax</span></caption><thead class="thead" align="left"><tr class="row"><th class="entry thleft thbot" rowspan="2" align="left" valign="bottom" width="17.929292929292927%" id="d217099e1111"><strong class="ph b">Codes</strong></th>
<th class="entry thleft thbot" rowspan="2" align="left" valign="bottom" width="21.464646464646464%" id="d217099e1114"><strong class="ph b">Factor 1</strong></th>
<th class="entry thleft thbot" rowspan="2" align="left" valign="bottom" width="25%" id="d217099e1117"><strong class="ph b">Factor 2</strong></th>
<th class="entry thleft thbot" rowspan="2" align="left" valign="bottom" width="14.393939393939394%" id="d217099e1120"><strong class="ph b">Result Field</strong></th>
<th class="entry thcenter thbot" colspan="3" align="center" valign="bottom" id="d217099e1123"><strong class="ph b">Resulting Indicators</strong></th>
</tr>
<tr class="row"><th class="entry thcenter thbot" align="center" valign="bottom" width="7.07070707070707%" id="d217099e1127"><strong class="ph b">71-72</strong></th>
<th class="entry thcenter thbot" align="center" valign="bottom" width="7.07070707070707%" id="d217099e1130"><strong class="ph b">73-74</strong></th>
<th class="entry thcenter thbot" align="center" valign="bottom" width="7.07070707070707%" id="d217099e1133"><strong class="ph b">75-76</strong></th>
</tr>
</thead>
<tbody class="tbody"><tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">ACQ (E<sup class="ph sup">7</sup>)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "><u class="ph u">device-name</u></td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">workstn-file</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ER</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">ADD (H)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 ">Addend</td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">Addend</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><u class="ph u">Sum</u></td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 ">+</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">-</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 ">Z</td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">ADDDUR (E)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 ">Date/Time</td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">Duration:Duration
Code</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 ">Date/Time</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ER</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">ALLOC (E)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">Length</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><u class="ph u">Pointer</u></td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ER</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">ANDxx</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "><u class="ph u">Comparand</u></td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">Comparand</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">BEGSR</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "><u class="ph u">subroutine-name</u></td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "> </td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">BITOFF</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">Bit numbers</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><u class="ph u">Character field</u></td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">BITON</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">Bit numbers</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><u class="ph u">Character field</u></td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">CABxx</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "><u class="ph u">Comparand</u></td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">Comparand</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 ">Label</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 ">HI</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">LO</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 ">EQ</td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">CALL (E)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">Program name</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 ">Plist name</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ER</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 ">LR</td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">CALLB (D E)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">Procedure name</u> or <u class="ph u">Procedure pointer</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 ">Plist name</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ER</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 ">LR</td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">CALLP (E M/R)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" colspan="5" align="left" valign="top" headers="d217099e1117 d217099e1120 d217099e1123 d217099e1127 d217099e1130 d217099e1133 "><u class="ph u">name{ (parm1 {:parm2…}) }</u></td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">CASxx</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 ">Comparand</td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 ">Comparand</td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><u class="ph u">Subroutine name</u></td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 ">HI</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">LO</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 ">EQ</td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">CAT (P)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 ">Source string 1</td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">Source string 2</u>:number
of blanks</td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><u class="ph u">Target string</u></td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">CHAIN (E N)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "><u class="ph u">search-arg</u></td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">name</u> (file
or record format)</td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 ">data-structure</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 ">NR<sup class="ph sup">2</sup></td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ER</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">CHECK (E)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "><u class="ph u">Comparator String</u></td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">Base String</u>:start</td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 ">Left-most Position(s)</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ER</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 ">FD<sup class="ph sup">2</sup></td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">CHECKR (E)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "><u class="ph u">Comparator String</u></td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">Base String</u>:start</td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 ">Right-most Position(s)</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ER</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 ">FD<sup class="ph sup">2</sup></td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">CLEAR</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 ">*NOKEY</td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 ">*ALL</td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><u class="ph u">name</u> (variable
or record format)</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">CLOSE (E)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">file-name</u> or <u class="ph u">*ALL</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ER</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">COMMIT (E)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 ">boundary</td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "> </td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ER</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">COMP<sup class="ph sup">1</sup></strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "><u class="ph u">Comparand</u></td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">Comparand</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 ">HI</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">LO</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 ">EQ</td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">DEALLOC (E/N)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "> </td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><u class="ph u">pointer-name</u></td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ER</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">DEFINE</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "><u class="ph u">*LIKE</u></td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">Referenced field</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><u class="ph u">Defined field</u></td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">DEFINE</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "><u class="ph u">*DTAARA</u></td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 ">External data area</td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><u class="ph u">Internal field</u></td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">DELETE (E)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 ">search-arg</td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">name</u> (file
or record format)</td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 ">NR<sup class="ph sup">2</sup></td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ER</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">DIV (H)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 ">Dividend</td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">Divisor</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><u class="ph u">Quotient</u></td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 ">+</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">-</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 ">Z</td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">DO</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 ">Starting value</td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 ">Limit value</td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 ">Index value</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">DOU (M/R)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" colspan="5" align="left" valign="top" headers="d217099e1117 d217099e1120 d217099e1123 d217099e1127 d217099e1130 d217099e1133 "><u class="ph u">indicator-expression</u></td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">DOUxx</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "><u class="ph u">Comparand</u></td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">Comparand</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">DOW (M/R)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" colspan="5" align="left" valign="top" headers="d217099e1117 d217099e1120 d217099e1123 d217099e1127 d217099e1130 d217099e1133 "><u class="ph u">indicator-expression</u></td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">DOWxx</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "><u class="ph u">Comparand</u></td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">Comparand</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">DSPLY (E)<sup class="ph sup">4</sup></strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 ">message</td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 ">message-queue</td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 ">response</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ER</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">DUMP (A)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 ">identifier</td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "> </td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">ELSE</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "> </td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">ELSEIF (M/R)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" colspan="5" align="left" valign="top" headers="d217099e1117 d217099e1120 d217099e1123 d217099e1127 d217099e1130 d217099e1133 "><u class="ph u">indicator-expression</u></td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">END</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 ">Increment value</td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">ENDCS</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "> </td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">ENDDO</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 ">Increment value</td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">ENDFOR</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "> </td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">ENDIF</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "> </td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">ENDMON</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "> </td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">ENDSL</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "> </td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">ENDSR</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 ">label</td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 ">return-point</td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">EVAL (H M/R)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" colspan="5" align="left" valign="top" headers="d217099e1117 d217099e1120 d217099e1123 d217099e1127 d217099e1130 d217099e1133 "><u class="ph u">Result = Expression</u></td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">EVALR (M/R)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" colspan="5" align="left" valign="top" headers="d217099e1117 d217099e1120 d217099e1123 d217099e1127 d217099e1130 d217099e1133 "><u class="ph u">Result = Expression</u></td>
</tr>
<tr class="row"><td class="entry" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">EVAL-CORR</strong></td>
<td class="entry" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry" colspan="5" valign="top" headers="d217099e1117 d217099e1120 d217099e1123 d217099e1127 d217099e1130 d217099e1133 ">EVAL-CORR <span class="ph synph"><span class="ph var">target-ds</span></span> = <span class="ph synph"><span class="ph var">source-ds</span></span></td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">EXCEPT</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 ">except-name</td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">EXFMT (E)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">Record format-name</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 ">data-structure</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ER</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">EXSR</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">subroutine-name</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">EXTRCT (E)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">Date/Time:Duration
Code</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><u class="ph u">Target Field</u></td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ER</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">FEOD (EN)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">file-name</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ER</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">FOR</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" colspan="5" align="left" valign="top" headers="d217099e1117 d217099e1120 d217099e1123 d217099e1127 d217099e1130 d217099e1133 "><u class="ph u">Index-name</u> = start-value BY increment TO|DOWNTO limit</td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">FORCE</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">file-name</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">GOTO</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">Label</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">IF (M/R)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" colspan="5" align="left" valign="top" headers="d217099e1117 d217099e1120 d217099e1123 d217099e1127 d217099e1130 d217099e1133 "><u class="ph u">indicator-expression</u></td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">IFxx</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "><u class="ph u">Comparand</u></td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">Comparand</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">IN (E)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 ">*LOCK</td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">data-area-name</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ER</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">ITER</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "> </td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">KFLD</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "> </td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><u class="ph u">Key field</u></td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">KLIST</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "><u class="ph u">KLIST name</u></td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "> </td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">LEAVE</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "> </td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">LEAVESR</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "> </td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">LOOKUP<sup class="ph sup">1</sup> (array)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "><u class="ph u">Search argument</u></td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">Array name</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 ">HI</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">LO</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 ">EQ<sup class="ph sup">6</sup></td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">LOOKUP<sup class="ph sup">1</sup> (table)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "><u class="ph u">Search argument</u></td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">Table name</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 ">Table name</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 ">HI</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">LO</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 ">EQ<sup class="ph sup">6</sup></td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">MHHZO</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">Source field</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><u class="ph u">Target field</u></td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">MHLZO</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">Source field</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><u class="ph u">Target field</u></td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">MLHZO</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">Source field</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><u class="ph u">Target field</u></td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">MLLZO</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">Source field</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><u class="ph u">Target field</u></td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">MONITOR</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "> </td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">MOVE (P)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 ">Data Attributes</td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">Source field</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><u class="ph u">Target field</u></td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 ">+</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">-</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 ">ZB</td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">MOVEA (P)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">Source</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><u class="ph u">Target</u></td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 ">+</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">-</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 ">ZB</td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">MOVEL (P)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 ">Data Attributes</td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">Source field</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><u class="ph u">Target field</u></td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 ">+</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">-</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 ">ZB</td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">MULT (H)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 ">Multiplicand</td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">Multiplier</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><u class="ph u">Product</u></td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 ">+</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">-</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 ">Z</td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">MVR</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "> </td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><u class="ph u">Remainder</u></td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 ">+</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">-</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 ">Z</td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">NEXT (E)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "><u class="ph u">program-device</u></td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">file-name</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ER</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">OCCUR (E)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 ">Occurrence value</td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">Data structure</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 ">Occurrence value</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ER</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">ON-ERROR</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" colspan="5" align="left" valign="top" headers="d217099e1117 d217099e1120 d217099e1123 d217099e1127 d217099e1130 d217099e1133 ">Status codes</td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><img src="./delta.gif" alt="Start of change" />ON-EXIT<img src="./deltaend.gif" alt="End of change" /></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "><img src="./delta.gif" alt="Start of change" /> <img src="./deltaend.gif" alt="End of change" /></td>
<td class="entry tdleft" colspan="5" align="left" valign="top" headers="d217099e1117 d217099e1120 d217099e1123 d217099e1127 d217099e1130 d217099e1133 "><img src="./delta.gif" alt="Start of change" />Status<img src="./deltaend.gif" alt="End of change" /></td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">OPEN (E)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">file-name</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ER</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">ORxx</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "><u class="ph u">Comparand</u></td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">Comparand</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">OTHER</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "> </td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">OUT (E)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 ">*LOCK</td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">data-area-name</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ER</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">PARM</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 ">Target field</td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 ">Source field</td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><u class="ph u">Parameter</u></td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">PLIST</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "><u class="ph u">PLIST name</u></td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "> </td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">POST (E)<sup class="ph sup">3</sup></strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 ">program-device</td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">file-name</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><u class="ph u">INFDS name</u></td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ER</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">READ (E N)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">name</u> (file
or record format)</td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><p class="lines">data-<br />
structure</p>
</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ER</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 ">EOF<sup class="ph sup">5</sup></td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">READC (E)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">record-name</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><p class="lines">data-<br />
structure</p>
</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ER</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 ">EOF<sup class="ph sup">5</sup></td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">READE (E N)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 ">search-arg</td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">name</u> (file
or record format)</td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><p class="lines">data-<br />
structure</p>
</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ER</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 ">EOF<sup class="ph sup">5</sup></td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">READP (E N)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">name</u> (file
or record format)</td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><p class="lines">data-<br />
structure</p>
</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ER</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 ">BOF<sup class="ph sup">5</sup></td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">READPE (E N)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 ">search-arg</td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">name</u> (file
or record format)</td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><p class="lines">data-<br />
structure</p>
</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ER</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 ">BOF<sup class="ph sup">5</sup></td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">REALLOC (E)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">Length</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><u class="ph u">Pointer</u></td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ER</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">REL (E)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "><u class="ph u">program-device</u></td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">file-name</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ER</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">RESET (E)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 ">*NOKEY</td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 ">*ALL</td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><u class="ph u">name</u> (variable
or record format)</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ER</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">RETURN (H M/R)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" colspan="5" align="left" valign="top" headers="d217099e1117 d217099e1120 d217099e1123 d217099e1127 d217099e1130 d217099e1133 ">Expression</td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">ROLBK (E)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "> </td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ER</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">SCAN (E)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "><u class="ph u">Comparator string</u>:length</td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">Base string</u>:start</td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 ">Left-most position(s)</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ER</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 ">FD<sup class="ph sup">2</sup></td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">SELECT</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "> </td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">SETGT (E)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "><u class="ph u">search-arg</u></td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">name</u> (file
or record format)</td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 ">NR<sup class="ph sup">2</sup></td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ER</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">SETLL (E)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "><u class="ph u">search-arg</u></td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">name</u> (file
or record format)</td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 ">NR<sup class="ph sup">2</sup></td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ER</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 ">EQ<sup class="ph sup">6</sup></td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">SETOFF<sup class="ph sup">1</sup></strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "> </td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 ">OF</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">OF</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 ">OF</td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">SETON<sup class="ph sup">1</sup></strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "> </td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 ">ON</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ON</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 ">ON</td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">SHTDN</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "> </td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 ">ON</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">SORTA (A/D)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">array-name or keyed-ds-array</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">SQRT (H)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">Value</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><u class="ph u">Root</u></td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">SUB (H)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 ">Minuend</td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">Subtrahend</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><u class="ph u">Difference</u></td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 ">+</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">-</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 ">Z</td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">SUBDUR (E) (duration)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "><u class="ph u">Date/Time/ Timestamp</u></td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">Date/Time/Timestamp</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><u class="ph u">Duration: Duration
Code</u></td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ER</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">SUBDUR (E) (new date)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 ">Date/Time/ Timestamp</td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">Duration:Duration
Code</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><u class="ph u">Date/Time/ Timestamp</u></td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ER</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">SUBST (E P)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 ">Length to extract</td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">Base string</u>:start</td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><u class="ph u">Target string</u></td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ER</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">TAG</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "><u class="ph u">Label</u></td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "> </td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">TEST (E)<sup class="ph sup">8</sup></strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "> </td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><u class="ph u">Date/Time</u> or <u class="ph u">Timestamp Field</u></td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ER</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">TEST (D E)<sup class="ph sup">8</sup></strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 ">Date Format</td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "> </td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><u class="ph u">Character</u> or <u class="ph u">Numeric field</u></td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ER</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">TEST (E T)<sup class="ph sup">8</sup></strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 ">Time Format</td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "> </td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><u class="ph u">Character</u> or <u class="ph u">Numeric field</u></td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ER</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">TEST (E Z)<sup class="ph sup">8</sup></strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 ">Timestamp Format</td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "> </td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><u class="ph u">Character</u> or <u class="ph u">Numeric field</u></td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ER</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">TESTB<sup class="ph sup">1</sup></strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">Bit numbers</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><u class="ph u">Character field</u></td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 ">OF</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ON</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 ">EQ</td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">TESTN<sup class="ph sup">1</sup></strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "> </td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><u class="ph u">Character field</u></td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 ">NU</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">BN</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 ">BL</td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">TESTZ<sup class="ph sup">1</sup></strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "> </td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><u class="ph u">Character field</u></td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 ">AI</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">JR</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 ">XX</td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">TIME</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "> </td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><u class="ph u">Target field</u></td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">UNLOCK (E)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">name</u> (file
or data area)</td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ER</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">UPDATE (E)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">name</u> (file
or record format)</td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><p class="lines">data-<br />
structure</p>
</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ER</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">WHEN (M/R)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" colspan="5" align="left" valign="top" headers="d217099e1117 d217099e1120 d217099e1123 d217099e1127 d217099e1130 d217099e1133 "><u class="ph u">indicator-expression</u></td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">WHENxx</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "><u class="ph u">Comparand</u></td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">Comparand</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">WRITE (E)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">name</u> (file or
record format)</td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><p class="lines">data-<br />
structure</p>
</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ER</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 ">EOF<sup class="ph sup">5</sup></td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">XFOOT (H)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">Array name</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><u class="ph u">Sum</u></td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 ">+</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">-</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 ">Z</td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">XLATE (E P)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "><u class="ph u">From:To</u></td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">String</u>:start</td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><u class="ph u">Target String</u></td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 "> </td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">ER</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 "> </td>
</tr>
<tr class="row"><td class="entry" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">XML-INTO</strong></td>
<td class="entry" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry" colspan="5" valign="top" headers="d217099e1117 d217099e1120 d217099e1123 d217099e1127 d217099e1130 d217099e1133 ">XML-INTO <span class="ph synph"><span class="ph var"> target-or-handler xml-document</span></span></td>
</tr>
<tr class="row"><td class="entry" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">XML-SAX</strong></td>
<td class="entry" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry" colspan="5" valign="top" headers="d217099e1117 d217099e1120 d217099e1123 d217099e1127 d217099e1130 d217099e1133 ">XML-SAX{(E)} <span class="ph synph"><span class="ph var">handler xml-document</span></span></td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">Z-ADD (H)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">Addend</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><u class="ph u">Sum</u></td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 ">+</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">-</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 ">Z</td>
</tr>
<tr class="row"><td class="entry tdleft" align="left" valign="top" width="17.929292929292927%" headers="d217099e1111 "><strong class="ph b">Z-SUB (H)</strong></td>
<td class="entry tdleft" align="left" valign="top" width="21.464646464646464%" headers="d217099e1114 "> </td>
<td class="entry tdleft" align="left" valign="top" width="25%" headers="d217099e1117 "><u class="ph u">Subtrahend</u></td>
<td class="entry tdleft" align="left" valign="top" width="14.393939393939394%" headers="d217099e1120 "><u class="ph u">Difference</u></td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1127 ">+</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1130 ">-</td>
<td class="entry tdcenter" align="center" valign="top" width="7.07070707070707%" headers="d217099e1123 d217099e1133 ">Z</td>
</tr>
<tr class="row"><td class="entry tdleft" colspan="7" align="left" valign="top" headers="d217099e1111 d217099e1114 d217099e1117 d217099e1120 d217099e1123 d217099e1127 d217099e1130 d217099e1133 "><div class="note note"><span class="notetitle">Note:</span> <ol class="ol"><li class="li">At least one resulting indicator is required.</li>
<li class="li">The %FOUND built-in function can be used as an alternative to specifying
an NR or FD resulting indicator.</li>
<li class="li">You must specify factor 2 or the result field. You may specify both.</li>
<li class="li">You must specify factor 1 or the result field. You may specify both.</li>
<li class="li">The %EOF built-in function can be used as an alternative to specifying
an EOF or BOF resulting indicator.</li>
<li class="li">The %EQUAL built-in function can be used to test the SETLL and LOOKUP
operations.</li>
<li class="li">For all operation codes with extender 'E', either the extender 'E' or
an ER error indicator can be specified, but not both.</li>
<li class="li">You must specify the extender 'E' or an error indicator for the TEST operation.</li>
</ol>
</div>
</td>
</tr>
</tbody>
</table>
</div>
</div>
</html>

===== $[hdcolor $\yellow$\$]Templates $[/hdcolor$]=====
/***********                                        Templates                                                       ************/
Templates are fields and data structures that can only be used/referenced via LIKE and LIKEDS
<code rpgfree>
dcl-Ds baseAddress template qualified;
  street1 char(30);
  street2 char(30);
  city    varchar(20);
  state   char(2)       inz('MN');
  zip     char(5);
  zipplus char(4);
end-Ds;

dcl-Ds mailAddress likeds(baseAddress) inz(*likeDS);
</code>

===== $[hdcolor $\yellow$\$]Code Samples $[/hdcolor$]=====
/***********                                        Code Samples                                                       ************/
Complete RPG-free program
<code rpgfree>
 ctl-opt option(*srcstmt) dftactgrp(*No); 
 
 dcl-ds employeeDS; // Nice to be able to have comments here! 
   firstName char(16)    Inz('James'); 
   lastname  char(30)    Inz('Joyce'); 
   salary    packed(7:2) Inz(12500); 
 end-ds; 

 // Define printer file and associated DS 
 dcl-f qprint printer(80); // This printer is program described 
 dcl-ds prtDs len(80) end-ds; 

 dsply ('Hello to our new employee'); 
 dsply ( %TrimR(firstName) + ' ' + lastName ); 
 
 prtDs = 'The name of our new employee is ' + 
          %TrimR(firstName) + ' ' + %TrimR(lastName) + 
         ' his salary is $' + %Char(salary); 
 write qprint prtds;
</code>

==== $[hdcolor $\yellow$\$]Data Structure $[/hdcolor$]====
/***********                                        Data Structure                                                       ************/
<code rpgfree>
dcl-Ds APIError qualified; 
  bytesprovided int(10) inz(%size(APIError)); 
  bytesavail    int(10) inz(0); 
  msgid         char(7); 
  *N            char(1); 
  msgdata       char(240); 
end-Ds; 
</code>

%LOOKUP can now also search DS arrays
<code rpgfree>
  element = %LookUp( 'A123C': productInfo(*).productCode);
</code>

DS to remap numeric indicators
<code rpgfree>
dcl-F Mod30101D workstn(*ext) usage(*input:*output) IndDs(WSI);
dcl-Ds WSI qualified; 
 F3Exit       ind pos(3); 
 F5Refresh    ind pos(5); 
 F12Cancel    ind pos(12); 
 F23Delete    ind pos(23); 
 pageDown     ind pos(26); 
 pageUp       ind pos(27); 
 
 errorInds    char(10) pos(31); 
 enableDelete ind pos(41); 
 
 SFLInds      char(3) pos(51); 
 SFLDsp       ind pos(51); 
 SFLDspCtl    ind pos(52); 
 SFLClr       ind pos(53); 
 
 SFLNxtChg    ind pos(54); 
 SFLPageDown  ind pos(55); 
 SFLPageUp    ind pos(56); 
 SFLProtect   ind pos(57); 
 
 enableMsgSFL ind pos(91) inz(*on); 
end-Ds; 
</code>

Instead of compile-time arrays (where the data is at the end of the pgm), use an initialized DS
<code rpgfree>
dcl-Ds allMonths; 
 *N         char(9) inz('January');   // *N = unnamed field
 *N         char(9) inz('February');
 *N         char(9) inz('March');
 *N         char(9) inz('April'); 
 *N         char(9) inz('May');
 *N         char(9) inz('June');
 *N         char(9) inz('July'); 
 *N         char(9) inz('August');
 *N         char(9) inz('September');
 *N         char(9) inz('October'); 
 *N         char(9) inz('November');
 *N         char(9) inz('December');
 monthNames char(9) dim(12) pos(1); 
end-Ds; 
</code>

==== $[hdcolor $\yellow$\$]Sort a DS $[/hdcolor$]====
/***********                                        Sort a DS                                                       ************/
The (*) is the array being sorted. Doesn't mean much for a single DS, but you can sort nested arrays!
<code rpgfree>
 For i = 1 to %elem(products2); 
    SortA products2(i).salesByMonth(*).sales; 
 EndFor; 
</code>
<code rpgfree>
 dcl-Ds products1 Dim(999) Qualified 
   productCode char(5)
   description varchar(30)
   totalSales  packed(9:2)
   qtyInStock  packed(5:0)
 end-Ds

 SortA products1(*).totalSales;  
 SortA products1(*).description;

 SortA(A) products1(*).totalSales; // Sort ascending sequence  
 SortA(D) products1(*).description; // Sort descending sequence 
</code>

==== $[hdcolor $\yellow$\$]Loop through a file $[/hdcolor$]====
/***********                                        Loop through a file                                                       ************/
<code rpgfree>
/free

	setll k#plp50 plpyitms;
	reade k#plp50 plpyitms;
	dow NOT %eof(plpyitms);

		chain k#plp15 plunitms;
		if %found(plunitms);

			exsr $date;

			exsr $datep;

			eval supn = supn15;
			eval sref = sref15;
			eval usert1 = 'Payment Run id#';
			eval usert2 = 'Payment Reference #';
			eval usert3 = 'Invoice #';
			eval user1 = #pyrna;
			eval user2 = pref50;
			eval user3 = lref50;
			eval btmt  = %editc(bpmt50:'L');
			eval usert4 = 'Payment Run Date';
			eval user4 = docdp;
			eval usert5 = 'System Identifier';
			eval user5 = 'JBA';

			write apccoutr;

		endif;


		reade k#plp50 plpyitms;
	enddo;

/end-free
  
</code>

==== $[hdcolor $\yellow$\$]Monitor for (and ignore) an error $[/hdcolor$]====
/***********                                        Monitor                                                       ************/
<code rpgfree>
/free
	monitor;
	p#cono = 'D1';
	today_date = %editc(%dec(%date():*cymd) : 'X');
	p#fdat = %dec(today_date:7:0);
/end-free
</code>

==== $[hdcolor $\yellow$\$]SQL Sample $[/hdcolor$]====
/***********                                        SQL                                                       ************/
<code rpgfree>
       EXEC SQL SELECT * INTO :Pmp02Rec FROM PMP02
                WHERE ORDN02=SUBSTRING(:Lda,349,7) AND DTLC02=9999999;
       IF SqlCod=0;
         // go to next step when po's found
       ELSEIF SqlCod=100;
            // if po's not found this is (probably) interactive - use LDA values
              Vndr02=%SUBST(Lda:257:6);
              Whse02=%SUBST(Lda:368:2);
       ELSE;
          RETURN;
       ENDIF;
</code>

==== $[hdcolor $\yellow$\$]Sample leave/iter $[/hdcolor$]====
/***********                                        Leave/Iter                                                       ************/
<code rpgfree>
/free
	Chain (cono:cusn:dseq:catn) OEP70M17;
	dow %Found(OEP70M17);
		if lqty70 > 0;
			eval(h) price3 = LVAL70/LQTY70;
			eval lprc   = price3;
			leave;
		else;
			reade (cono:cusn:dseq:catn) OEP70M17;
			iter;
		endif;
	enddo;

/end-free
</code>

==== $[hdcolor $\yellow$\$]Sample Run a CL command inside RPG $[/hdcolor$]====
/***********                                        Run a CL inside RPG                                                       ************/
<code rpgfree>
	D Msg             PR                  EXTPGM('MSGWDWR')
	D   Line1                       50A   CONST
	D   Line1                       50A   CONST

	D Qcmdexc         PR                  EXTPGM('QCMDEXC')
	D   Cmd                        500A   OPTIONS(*VARSIZE) CONST
	D   CmdLen                      15P 5 CONST

/free
	Cmd='ADDLIBLE EDIUK *LAST';
	CALLP(E)  QCMDEXC(%TRIMR(Cmd):%LEN(%TRIMR(Cmd)));
/end-free
</code>