Dieses Kapitel enthält einige Beispiele für die Verwendung von Object Handler-Direktkommandos.
Tipp
Für weitere Beispiele können Sie sich das für eine Object Handler-Funktion generierte
Kommando ansehen. Dieses Kommando wird automatisch angezeigt, wenn Sie einen Assistenten
verwenden. Im Expertenmodus können Sie die Anzeige des Kommandos aktivieren, indem Sie
entweder das Object Handler-Kommando SET ADVANCEDCMD ON eingeben
oder den Parameter Display-Cmd-in-Advanced-Mode im Object
Handler-Profil auf Y (Yes) setzen (siehe auch Profileinstellungen).
In diesem Abschnitt finden Sie Beispiele, wie Sie Objekte im internen Format in eine Arbeitsdatei entladen können, um sie auf derselben Plattform, entweder in einer lokalen Großrechner-, UNIX- oder Windows-Umgebung, zu laden:
Entlade alle Natural-Programmierobjekte (nur Quellcodeobjekte) aus der Library
ABC:
UNLOAD * LIB ABC OBJTYPE N SCKIND S
Entlade alle Natural-Programmierobjekte (nur katalogisierte Objekte) aus der Library
ABC:
UNLOAD * LIB ABC OBJTYPE N SCKIND C
Entlade alle Natural-Programmierobjekte (katalogisierte Objekte und Quellcodeobjekte)
aus der Library ABC:
UNLOAD * LIB ABC OBJTYPE N SCKIND A
Entlade alle Natural-Programmierobjekte (nur Quellcodeobjekte) aus der Library
ABC mit dem Datum 2019-10-01 als Katalogierungsdatum (wenn sowohl
Quellcodeobjekte als auch katalogisierte Objekte existieren) und als Quellcode-Datum
(wenn nur ein Quellcodeobjekt existiert):
UNLOAD * LIB ABC OBJTYPE N SCKIND S DATE 2019-10-01 DATECHECK C
Entlade alle Natural-Programmierobjekte (nur Quellcodeobjekte) aus der Library
ABC, um sie in die Library ABCNEW zu laden:
UNLOAD * LIB ABC OBJTYPE N SCKIND S WITH NEWLIBRARY ABCNEW
Auf einem Großrechner: Entlade alle DDMs, deren Namen mit EMP beginnen
und die auf die Datenbank 88 zeigen:
UNLOAD EMP* LIB * OBJTYPE D DDMDBID 88
Unter UNIX oder Windows: Entlade alle DDMs, deren Namen mit EMP beginnen
und die auf die Datenbank 88 zeigen:
UNLOAD EMP* LIB * OBJTYPE N NATTYPE V DDMDBID 88
Unter UNIX oder Windows: Entlade alle DDMs, deren Namen mit EMP
beginnen, aus der Library VLIB und lade sie in die Library
VLIBNEW:
UNLOAD EMP* LIB VLIB OBJTYPE N NATTYPE V WITH NEWLIBRARY VLIBNEW
Entlade alle benutzerdefinierten Fehlermeldungen aus der Library ERRLIB,
um sie in die Library NEWERR zu laden:
UNLOAD * LIB ERRLIB OBJTYPE E SLKIND A WITH NEWLIBRARY NEWERR
Unter Windows: Entlade alle Natural-Programmierobjekte (katalogisierte Objekte und
Quellcodeobjekte) aus der Library ABC in eine portable Arbeitsdatei auf
einem PC:
UNLOAD * LIB ABC OBJTYPE N WHERE WORKFILE C:\WF1.SAG WORKFILETYPE PORTABLE
oder
UNLOAD * LIB ABC OBJTYPE N WHERE WORK C:\WF1.SAG WFT P
Dieser Abschnitt enthält Kommandobeispiele für das Entladen von Objekten im Transferformat in eine Arbeitsdatei, um sie auf einer anderen Plattform zu laden, z. B. Entladen auf einem Großrechner und Laden in einer UNIX- oder Windows-Umgebung.
Entlade alle Natural-Programmierobjekte (nur Quellcodeobjekte) mit Objekttyp N
(Subprogramm) aus der Library ABC:
UNLOAD * LIB ABC OBJTYPE N WHERE TRANSFER
Entlade alle Natural-Programmierobjekte (nur Quellcodeobjekte) und benutzerdefinierte
Fehlermeldungen aus der Library ABC:
UNLOAD * LIB ABC WHERE TRANSFER
Entlade alle Natural-Programmierobjekte (nur Quellcodeobjekte) mit fester Satzlänge
aus der Library ABC:
UNLOAD * LIB ABC OBJTYPE N WHERE TRANSFER FIXEDLENGTH
Dieser Abschnitt enthält Kommandobeispiele für das Laden von Objekten aus einer Arbeitsdatei im internen Format.
Lade alle Objekte in die Library LIBNEW und ersetze alle, die bereits
existieren:
LOADALL WITH NEWL LIBNEW WHERE REPLACE ALL
Lade alle Objekte mit Ziel-Library TGTLIB in die neue Ziel-Library
NEWTGT.
LOAD * LIB TGTLIB WITH NEWLIBRARY NEWTGT
Lade nur die benutzerdefinierten Fehlermeldungen 1000 bis
1500 aus der Library ERRLIB:
LOAD * LIB ERRLIB OBJTYPE E FMNUM 1000 TONUM 1500
Dieser Abschnitt enthält Kommandobeispiele für das Laden von Objekten aus einer Arbeitsdatei im Transferformat.
Lade alle Objekte in die Library LIBNEW und ersetze alle, die bereits
existieren:
LOADALL WITH NEWL LIBNEW WHERE TRANSFER REPLACE ALL
Lade alle Objekte mit der Ziel-Library TGTLIB in die neue Ziel-Library
NEWTGT:
LOAD * LIB TGTLIB WITH NEWLIBRARY NEWTGT WHERE TRANSFER