The Lock  First Record command is  a testing aid.   It is  designed for
the situation  where you want to  test whether your code  is handling a
locked  record  condition properly.   You  issue the  LCK1STRCD command
from a  different job  to  lock the  first record  (by  key or  arrival
sequence) and then test your program in your job.

A typical command would be entered as:

           LCK1STRCD   FILE(FILEA)

If  this is a  keyed file,  the first  record would  be read  using the
keyed  access path.  A screen is  displayed describing the record which
is locked.  The  relative record number is shown  as well as the  first
50 bytes from the record.

When Enter  is pressed, the  program ends  and the record  is unlocked.
The program  opens the file for update (in  order to achieve the lock),
but does not update the record.

You can also access the first  record using an arrival sequence  access
path.

Command parameters                                    *CMD
------------------

   FILE          The qualified  file  name of  the file.   The  library
                 value defaults to *LIBL.

   MBR           The member  to be opened  for update.   The default is
                 *FIRST for the first member.

   TYPE          The  type of access  to be performed.   The default is
                 *FILE meaning  that the  first record in  the file  is
                 read  for update.   If the  file is  keyed, it  is the
                 first  record on the  keyed access path.   If the file
                 is in  arrival sequence,  it is  the  first record  on
                 the arrival sequence access path.

                 *ARR may  be specified  to force  a keyed  file to  be
                 read in arrival sequence.

Restrictions
------------

None.

Prerequisites
-------------

The following TAA Tools must be on your system:

         SNDESCMSG      Send escape message

Implementation
--------------

None, the tool is ready to use.

Objects used by the tool
------------------------

   Object        Type    Attribute      Src member    Src file
   ------        ----    ---------      ----------    ----------

   LCK1STRCD     *CMD                   TAADBFY       QATTCMD
   TAADBFYC      *PGM       CLP         TAADBFYC      QATTCL
   TAADBFYR      *PGM       RPG         TAADBFYR      QATTRPG
   TAADBFYD      *FILE      DSPF        TAADBFYD      QATTDDS