Format of a record of type 163

The record LMSCO163 is described below as an example of a type 163 record (see section"Format of the secondary record (record type 163)").

COPY LMSCO163.

Expansion of LMSCO163

       01 LMS-REC163.
          02 LEN            PIC 9(4) COMP  VALUE 0.
          02 FILLER         PIC X          VALUE LOW-VALUE.
          02 REC-TYPE       PIC X          VALUE SA-163.
          02  SEC-NAME      PIC X(32)      VALUE SPACES.
          02  SEC-ATTRIBUTE PIC X(8)       VALUE SPACES.
      *           '0       ' :  -  CSECT
      *           '1       ' :  -  ENTRY
          02  SEC-ATTR-BIT    REDEFINES SEC-ATTRIBUTE  PIC X.
          02  SEC-FORMAT-IND PIC X         VALUE LOW-VALUE.
          02  SEC-NAME-LONG.
          03  SEC-NAME-BYTE1 PIC X         VALUE SPACE.
      ***                                                              ****
      **************  END OF COPY ELEMENT   LMSCO163    *******************