Erzeugen von SAM-/ISAM-Dateien

Mit dem EDT wird eine SAM-Datei erzeugt. Diese wird als Element aufgenommen und auf zwei verschiedene Arten als Datei gespeichert:

• als SAM-Datei, auf Grund der im Element gespeicherten Dateieigenschaften;

• als ISAM-Datei mit standardmäßig erzeugten ISAM-Schlüsseln.

/start-lms ---------------------------------------------------------------  (1) 

//modify-logging-parameters logging=*maximum -----------------------------  (2)

//open-library library=bsp6.bib,mode=*update -----------------------------  (3)

LIBRARY IS CLEARED AND PREPARED

//modify-lms-defaults type=d ---------------------------------------------  (4)

(1)	LMS wird aufgerufen.
(2)	Zusätzlich zu Fehlermeldungen werden auch Erfolgsmeldungen protokolliert.
(3)	Die Bibliothek BSP6.BIB wird neu eingerichtet.
(4)	Der Defaultwert für den Elementtyp wird eingestellt werden.

//call-edt ------------------------------------------------------------------  (5)

//modify-lms-defaults (source-attributes=*keep) -------------------------   (6)

//add-element from-file=pers.dat, to-elem=(,perdat) ---------------------   (7)

INPUT  FILE
OUTPUT LIBRARY= :1OSN:$USER.BSP6.BIB

        ADD :1OSN:$USER.PERS.DAT AS (D)PERDAT/@(0001)/2013-03-01

(5)	Es wird der EDT aufgerufen, um eine Datei zu erstellen oder zu bearbeiten. Anschließend werden die Daten eingegeben und mit WRITE als SAM-Datei PERS.DAT gespeichert. Mit HALT wird der EDT beendet und zu LMS zurückgekehrt.
(6)	Die Dateieigenschaften der EDT-Datei werden beibehalten.
(7)	Die Datei PERS.DAT wird als Element PERDAT vom Typ D in die Bibliothek aufgenommen.

//show-element-attributes (type=d)

INPUT  LIBRARY= :1OSN:$USER.BSP6.BIB
TYP NAME   VER (VAR#) DATE
(D) PERDAT @   (0001) 2013-03-01
      1 (D)-ELEMENT(S) IN THIS TABLE OF CONTENTS

//extract-element (element=perdat) --------------------------------------   (8) 

INPUT  LIBRARY= :1OSN:$USER.BSP6.BIB
OUTPUT FILE

        EXTRACT (D)PERDAT/@(0001)/2013-03-01 AS :1OSN:$USER.PERDAT

//exec-sys-cmd (show-file-attributes perdat,information=*all-attr) ------   (9)

00000003 :1OSN:$USER.PERDAT
  ------------------------------- HISTORY      -------------------------------
  CRE-DATE   = 2013-03-01  ACC-DATE   = 2013-03-01  CHANG-DATE = 2013-03-01
  CRE-TIME   =   10:32:56  ACC-TIME   =   10:32:56  CHANG-TIME =   10:32:56
  ACC-COUNT  = 1           S-ALLO-NUM = 0
  ------------------------------- SECURITY     -------------------------------
  READ-PASS  = NONE        WRITE-PASS = NONE        EXEC-PASS  = NONE
  USER-ACC   = OWNER-ONLY  ACCESS     = WRITE       ACL        = NO
  AUDIT      = NONE        FREE-DEL-D = *NONE       EXPIR-DATE = 2013-03-01
  DESTROY    = NO          FREE-DEL-T = *NONE       EXPIR-TIME =   00:00:00
  SP-REL-LOCK= NO          ENCRYPTION = *NONE
  ------------------------------- BACKUP       -------------------------------
  BACK-CLASS = A           SAVED-PAG  = COMPL-FILE  VERSION    = 1
  MIGRATE    = ALLOWED
  ------------------------------- ORGANIZATION -------------------------------
  FILE-STRUC = SAM         BUF-LEN    = STD(1)      BLK-CONTR  = PAMKEY
  IO(USAGE)  = READ-WRITE  IO(PERF)   = STD         DISK-WRITE = IMMEDIATE
  REC-FORM   = (V,N)       REC-SIZE   = 0 
  AVAIL      = *STD
  WORK-FILE  = *NO         F-PREFORM  = *K          S0-MIGR    = *ALLOWED
  ------------------------------- ALLOCATION   -------------------------------
  SUPPORT    = PUB         S-ALLOC    = 34           HIGH-US-PA = 1
  EXTENTS     VOLUME     DEVICE-TYPE      EXTENTS     VOLUME     DEVICE-TYPE
     1       1OSN.2       D34211-2
  NUM-OF-EXT = 1
:1OSN: PUBLIC:      1 FILE  RES=        3  FREE=        2  REL=        0 PAGES 

(8)	Das Inhaltsverzeichnis der Bibliothek BSP6.BIB für den Elementtyp D soll aufgelistet werden.
(9)	Das Element PERDAT wird als Datei PERDAT ausgegeben. Da für diese Datei keine Dateieigenschaften spezifiziert wurden, erzeugt LMS entsprechend den gespeicherten Dateieigenschaften eine SAM-Datei.
(10)	Die Dateieigenschaften der erzeugten Datei werden aufgelistet.

//extract-element (element=perdat), to-file=persdat, -
// file-attributes=*parameters(access-method=*isam)

INPUT  LIBRARY= :1OSN:$USER.BSP6.BIB
OUTPUT FILE

        EXTRACT (D)PERDAT/@(0001)/2013-03-01 AS :1OSN:$USER.PERSDAT

//exec-sys-cmd (show-file-attributes persdat,information=all) ------------- (10) 

00000003 :1OSN:$USER.PERSDAT

  ------------------------------- HISTORY     -------------------------------  
  CRE-DATE   = 2013-03-01  ACC-DATE   = 2013-03-01  CHANG-DATE = 2013-03-01
  CRE-TIME   =   10:32:56  ACC-TIME   =   10:32:56  CHANG-TIME =   10:32:56
  ACC-COUNT  = 1          S-ALLO-NUM = 0
  ------------------------------- SECURITY    -------------------------------
  READ-PASS  = NONE       WRITE-PASS = NONE       EXEC-PASS  = NONE
  USER-ACC   = OWNER-ONLY  ACCESS    = WRITE      ACL       = NO
  AUDIT     = NONE       FREE-DEL-D = *NONE      EXPIR-DATE = 2013-03-01
  DESTROY    = NO         FREE-DEL-T = *NONE      EXPIR-TIME =   00:00:00
  SP-REL-LOCK= NO         ENCRYPTION = *NONE
  ------------------------------- BACKUP      -------------------------------
  BACK-CLASS = A          SAVED-PAG  = COMPL-FILE  VERSION    = 1
  MIGRATE    = ALLOWED
  ------------------------------- ORGANIZATION ------------------------------
  FILE-STRUC = ISAM       BUF-LEN    = STD(1)     BLK-CONTR  = PAMKEY
  IO(USAGE)  = READ-WRITE  IO(PERF)   = STD        DISK-WRITE = IMMEDIATE
  REC-FORM   = (V,N)      REC-SIZE   = 0
  KEY-LEN    = 8          KEY-POS    = 5
  AVAIL     = *STD
  WORK-FILE  = *NO        F-PREFORM  = *K         S0-MIGR    = *ALLOWED
  ------------------------------- ALLOCATION   ------------------------------
  SUPPORT    = PUB        S-ALLOC    = 9          HIGH-US-PA = 3
  EXTENTS    VOLUME    DEVICE-TYPE     EXTENTS    VOLUME    DEVICE-TYPE
     1      1OSN.1      D34211-2
  NUM-OF-EXT = 1
:1OSN: PUBLIC:     1 FILE  RES=       3  FREE=       1  REL=       0 PAGES

//end ------------------------------------------------------------------  (11)

(11)	Das Element PERDAT wird als Datei mit dem Namen PERSDAT angelegt. Durch den Operanden ACCESS-METHOD wird nun festgelegt, dass die Datei PERSDAT eine ISAM-Datei ist.
(12)	Die Dateieigenschaften der erzeugten Datei werden aufgelistet.
(13)	LMS wird beendet.