COMMAND-AREA (72 bytes)

This parameter is used by all commands.

      01 XXXX-COMMAND-AREA.
          05  XXXX-COMMAND                 PIC XX    VALUE SPACES.
          05  XXXX-TABLE                   PIC X(8)  VALUE 'XXXX'.
          05  XXXX-FOUND                   PIC X     VALUE SPACES.
          05  XXXX-INDIRECT-OPEN           PIC X     VALUE LOW-VALUES.
          05  FILLER                       PIC X     VALUE LOW-VALUES.
          05  XXXX-ABEND-OVERRIDE          PIC X     VALUE SPACES.
          05  XXXX-ERROR                   PIC S9(4) COMP VALUE +0.
          05  XXXX-COUNT                   PIC S9(9) COMP VALUE +0.
    *   The LOCK must be specified for Online environments and VTS.
          05  XXXX-LOCK-LATCH              PIC X(8)  VALUE SPACES.
    *   Release 5.x command area extension
          05  XXXX-ROW-OVERRIDE-LENGTH     PIC S9(9) COMP VALUE +0.
          05  XXXX-ROW-ACTUAL-LENGTH       PIC S9(9) COMP VALUE +0.
          05  XXXX-FG-KEY-LENGTH           PIC S9(4) COMP VALUE +0.
          05  XXXX-FUNCTION-ID             PIC S9(4) COMP VALUE +0.
          05  XXXX-FUNCTION-AREA           PIC X(8)  VALUE LOW-VALUES.
          05  XXXX-DATE-AREA     REDEFINES XXXX-FUNCTION-AREA.
              10 XXXX-DATE                 PIC X(8).
          05  FILLER                       PIC X(19).
    *   START-TBUOW is new with Version 7.
          05  XXXX-START-TBUOW             PIC X     VALUE LOW-VALUES.
          05  XXXX-RETURNED-ABS-GEN-NO     PIC S9(4) COMP VALUE +0.
          05  XXXX-ERROR-SUBCODE           PIC S9(4) COMP VALUE +0.

Note:
Table access can be optimized by using a separate command area for each table accessed by an application. Instead of having to search a TSR directory each time to determine where the table resides in memory, tableBASE uses a reserved field in the command area (table handle) pointing to the position of the table in the TSR. By keeping a separate command area for each table accessed, this table handle is used to quickly locate a previously opened table.