DB2
z/OS
DB2 LUW z/OS CICS VTAM |
Ulrich Bräuer |
Home |
Downloads :
OO
Rexx TSO
Rexx Cobol
TSO und RexxBatch (OS/390, z/OS)
Beschreibung |
REXX | JCL / PANELS |
LUWDB2 : DB2 Administration mit REXX und ISPF DB2/zOS (V7 - V13-FL6) und DB2 LUW(V7 - V12.1 Fixpack 1) Letzter Update : 24.01.202524.01.2025 LUW V12.1 Fixpack 110.12.2024 Db2/ZOS V13 Aktuel bis Function Level 6 23.08.2024 Neu DDLA (erstellt DDL aus aktueller liste) 14.08.2024 Änderung bei CloneDDL (DDLC) Numparts bei Tablespaces eingefüget wegen Recover From Fehlermeldung DSNU1567I wegen NUMBER of Pattitions NUMPARTS eingefügt 10.07.2024 Fehler bei DDL Generierung. (BINARY VARBINARY) behoben 17.01.2024 Änderung der DDL Generierung. Bei Lobtables wird jetzt die DDL genieriert bis ende der originalen DDL danach wird ein Alter add column generiert um die Daten Per Recover From oder DSN1COPY übertragen zu können. Recover from wird jetzt auch in der PSQL unterstützt 10.12.2023 Fehler beim DDL generieren von, Functions und StoredProcedure, behoben 12.05.2020 Neues Worklist format mit RESTART 04.04.2020 Fehlerbehebungen bei DDL Erzeugung z/OS und LUW 2021 ZOS Alter Trigger Alter Function Alter Stored Procedure Syscoldist bei columns 2022 Neue Compression (FIXEDLENGTH/HUFFMAN) Move Table Aktuel bis Function Level 10 Fehlerbehebungen bei DDL Erzeugung z/OS und LUW Fehlerbereinigung bei rebind und free package/plan Neue auswahl bei ddl Schema/Database jetzt kann idtity objekte mit über nommen werden (alter table .. alter column ... ) 2021 LUW Neuerungen BIS Db2/11.5.5 Working with encrypion 2022 Working with db2audit REXXTools um DB2 Catalog Infos anzuzuzeigen (z/OS und LUW), Das ganze ist verpackt inzwei Dateien die mit IEBUPDTE oder receive (XMIT) installiert werden.. Angepasst werden muss lediglich das Programm "LUWDB2", wo die LIBDEFInformationen gesetzt werden. Aufruf "TSO LUWDB2" |
LUWDB2
XMIT File gezipped fuer Installation Bitte XMIT File verwenden |
Oder CLIST IEBUPDTE Nur zum Ansehen, bei Filetransfere kann es zu Problemen kommen |
CLIST 3 Programme, FTP Copy (Kopieren Daten mit FTP (PO, PS, USS) CMD Commands mit Rexx ausführen (console/db2/ispf ....) DS Dataset Liste TSO USS Libdef (Dynamische Libdefs im TSO) Callprog (Programme aufrufen mit und ohne Libdefs) |
Clist.zip | Source (FtpCopy.Rex
) (neu mit ftpapi) Source (FtpCopyA.Rex) (Alte Version) Source (cmd.rex) Source (ds.rex) Source (libdef) Source (Callprog) |
Procedure
um
ISPF-Prozeduren in Batch auszuführen |
ISPFBAT | |
Kleine
REXX um Dynamische SQL's auszuführen auch stored procedure's, auf z/OS und LUW |
DYNAMSQL.rex | DYNAMSQL.jcl |
Rexx'le um replys einzulesen (wird mit einem
Batchprogramm bestätigt) |
CONSCMD.rex | CONSCMD.jcl |
Infos
(DBID, PSID, OBID) aus einem IC (für DSN1COPY) (ISPF) |
ICINFO | |
Kleine
Rexx'e um aus einer PO-Datei eine IEBUPDTE-Datei zu generieren |
GENIEBUP.rex | GENIEBUP.jcl |
Erstellen
Load-Statement DB2-LUW aus einem PUNCH (Unload z/OS) |
UDBLOAD.rex | UDBLOAD.jcl |
Einlesen des laufenden Jobs
aus SDSF und in eine Datei schreiben. Problem waren viele Laufende Jobs, die im Fehlerfalle restartet werden mussten, um das ganze einfacher zu machen wurde ein step eingestellt, der laeuft wenn der RC > 0 ist. Das ganze lief unter JES2 ob es unter JES3 läuft, weiß ich nicht. |
JOBSAVE.rex | JOBSAVE.jcl |
Kleines Beispiel um mit
DSNREXX zu arbeiten (Ich nehme das immer als Standart das ich dann
erweitere) |
DSNREXX1.Rex | |
Kleine Rexx um SQLCODES
anzuzeigen, gebraucht wird die rexx und das Panel. Die rexx benutzt
DSNTIAR |
sqlerr | psqlerr.panel |
DB2CATRO generiert Reorg für Catalog
Tablespaces(DSNDB01, DSNDB06) und Del/Def DSNDB07
|
DB2CATRO.rex | CATRO01.panel |
JOBRCINF Erstellen
MESSAGES ueber den Returncode der gelaufenen Steps |
JOBRCINF.Rex | JOBRCINF.jcl |
OORexx (http://www.oorexx.org/download.html)
Für einige REXX-Programme wird eine INI-Datei
gebraucht, in der Informationen über die Datenbank stehen,
unter anderem userid und password um sich an die Datenbank zu connecten.
Um die Location der INI-Datei
flexibel zu halten wird ein Programm aufgerufen(GetIniDat.Rex)
das nur die Location
der Datei zurück gibt.
Über die INI-Datei wird
gesteuert, dass die REXX-Progrämmle Nachts im Batch laufen können ohne
immer
userid und password einzugeben.
Nachteil, password ist nicht verschlüsselt da ich die Programme aber auf
dem Server laufen lasse,
kann ich sicher sein, dass sonnst niemand auf die INI-Datei
zugreift.
Gruß
Uli
Bei Fragen : Ulis_Downloads@online.de
RenFiles Dateinamen in GROSS- oder klein-buchstaben ändern ! |
|
rxftp.rex |
|
SysIni.rex (Prozedur um eine INI-Datei in einer
unixumgebung zu lesen) |
|
Apitest kleines Progrämmle um eine DB2-API (list tablespace
container) aufzurufen |
|
AttachNode.Rex Rexx'le um sich an eine Node zu attachen. |
|
DB2GETBackuphistory.Rex listet einen history backup für eine
Datenbank |
|
DBBackup.Rex : BACKUP_PFAD=D:\DBBACKUP\<YourDatabase> Direktorie in
das gesichert werden soll |
|
GenRestore.Rex : Stand 01.08.2010 (Anpassungen fuer LINUX
und UNIX ) |
|
ListNode.Rex Listet die zugehörige NODE einer Datenbank |
|
Reorg.Rex Führt reorgs und runstats für eine Datenbank aus. |
|
rsall.rex runstatst
über ausgewählte Tabellen |
rsall.rex |
ReorgFromCheckV8 Erstellen Reorg nach Auswertung von reorgcheck ! |
|
Einfache Datumsberechnung mit Rexx (aktuelles Datum + n days) |
DatumBerechnen.Rex |
Feiertage berechnen mit Rexx
(Feste- und Variable-Feiertage von Ostern ausgehend) Gibt es auch als db2 Function Link |
datum.rex |
Ausgabe "db2 ?" in Text File oder als HTML Seite Db2Commands.Rex Ausgabe Textfile Db2Commands.Rex HTML Ausgabe HTML Datei |
Db2Commands.Rex
Ergebniss als HTML Datei |
DB2CFGSave.Rex : Kleine Rexx
um DB Parameter zu sichern (DB cfg, DBM cfg, DB2SET) |
DB2CFGSave.Rex |
getdbdir. : Erstellt catalog
statements (1. node dir (NUR TCPIP), 2. DCS DB und
Datenbanken) |
getdbdir.rex |
HerculesRouting.Rex : Datum 24.07.2010 (VISTA und WIN7) andere
muessen angepasst werden Funktion : Beim aufruf von Hercules-390 muss ein route add gemacht werden um das System mit TCPIP zu erreichen. Da ich keine feste IP-Adresse für meinen Rechner haben, muss ich immer schauen welche IP-Adresse momentan zugeordnet ist. HerculesRouting.Rex macht das für mich in dem ich 2 Parameter mitgebe. 1.) Macadresse meines Netzwerkadapters und 2.) die IP-Adresse des Hostsystems, das Programm macht einen IPConfig /all sucht sich die IP-Adresse der MacAdresse raus und macht ein Route add. Aufruf : rexx HerculesRouting.Rex <MacAdresse> <IP-Adresse vom Host> |
HerculesRouting.Rex |
db2pd_tcbstats.rex (RTSUDI (Check für Runstats) ) | db2pd_tcbstats.rex |
server.rex (socked programmierung mit rexx), client hab ich
z.b auch zOS laufen |
server.rex
oorexx client
Clientmvs.xmit |
Reorganisieren Tabellen mit hilfe von REORGCHK |
ReorgFromCheck.rex |
Cobol
Programm um DYNAMIC-SQL auszuführen und an eine REXX zurück zu
geben. Das Programm wurde geschrieben bevor es DSNREXX gab, um mit ner REXX DB2-Befehle abzufackelen. |
RXDB2 |
BIT's
mit COBOL abfragen oder aendern ! |
COBBIT01 |
Kleine
Cobol Programm um JOB Informationen aus der JCL auszulesen
(DD, DSN, JOB-Name, ...) |
JOBINFO |
Cobol
Programm um VSAM-LDS Dateien zu verarbeiten
Macros(CSRSAVE,CSRREFR,CSRSAVE,CSRVIEW) nur CISIZE 4K |
COBOLLDS.CBL COBOLLDS.JCL |