Aufbau eines Satzes der Satzart 163

Nachfolgend ist der Satz LMSCO163 als Beispiel für einen Satz der Satzart 163 beschrieben (siehe Abschnitt „Aufbau des Sekundärsatzes (Satzart 163)" (4.3.2 Aufbau des Sekundärsatzes (Satzart 163))).

COPY LMSCO163.

Auflösung von 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    *******************