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