RECORDS

Definition

    $20F,104,0,0        define format descriptor
    {                   start of element descriptors
    .......
    }                   end of elements.

         1.   The tag is used to index into the format list.

              recordformat F(integer A, B, C)

              $24F,104,0,0,{$A,21,1,0$B,21,1,0,$C,21,1,0}

                   A is element -1
                   B is element -2
                   C is element -3

         2.   The format descriptors are removed from the
              Descriptor Area and placed in the Parameter
              Area.

         3.   Note that the descriptors in the format
              definition do not have an explicit tag.

         4.   A recordformat can only be defined within a
              recordformat definition when a list of
              alternative formats has been specified in the
              source, that is a statement of the form:-

              recordformat FORM123(FORM1 or FORM2 or FORM3)

                 $60FORM123,104,0,0{$FORM1,104,40,0
                                    $FORM2,104,41,0
                                    $FORM3,104,42,0}

Variables

    $21R,101,20,0      record(F) R
    $22RN,102,20,0     record(F)name RN

Access

       A negative tag for '@' specifies that the tag is to
    be used to modify the descriptor on the top of the stack
    (a record descriptor) to describe a sub-field of that
    record.

n   Redefine the descriptor on the top of the stack to have
    the format corresponding to the n'th descriptor in its
    current format definition (c.f. negative tags to '@').





                           6