LMSCOBLD

LMSCOBLD generiert die Bibliotheksbeschreibung.

COPY LMSCOBLD.

Auflösung von LMSCOBLD

       01  LMSUP-LD.
           02  PASSWORD      PIC S9(9) COMP VALUE 0.
              02 PASSWORD-X    REDEFINES PASSWORD   PIC X(4).
           02  LINK          PIC X(8)       VALUE SPACES.
           02  FILLER        PIC S9(9) COMP VALUE 0.
           02  FILLER        PIC S9(9) COMP VALUE 0.
           02  MAX-NAME-LEN  PIC 9(4) COMP  VALUE 54.
           02  NAME          PIC X(54)      VALUE SPACES.
      **************  END OF COPY ELEMENT   LMSCOBLD   ********************

Hinweis

Bei der Kennwort-Vergabe ist darauf zu achten, dass das Kennwort nicht kürzer als 4 Byte ist. Der Grund dafür ist, dass COBOL bei einem MOVE die Daten von links nach rechts in das Empfangsfeld überträgt und die dabei verbleibenden Stellen (rechts) mit Leerzeichen auffüllt. Leerzeichen stellen aber im BS2000 eine gültige Kennwort-Kombination dar.