Beispiele

Beispiel 1: Independent DBH als Stapelauftrag starten

Inhalt der DBH-Startprozedur ENTER.DBH.IND:

/SET-LOGON-PARAMETERS
/ASS-SYSOUT TO=O.DBH.INT
/SHOW-JV JV.MANUAL.VERSION
/SET-JV-LINK LINK-NAME=VERS,JV-NAME=JV.MANUAL.VERSION
/SELECT-PRODUCT-VERSION PRODUCT-NAME=UDS-SQL,    VERSION=&(*VERS) 
/SET-JV-LINK LINK-NAME=UDSPS01,JV-NAME=PUBSDECL.PUBS
/SHOW-JV JV-CONTENTS=*LINK(LINK-NAME=UDSPS01)
/CREATE-FILE FILE-NAME=CONFBSPL.DBSTAT
/CREATE-FILE FILE-NAME=CONFBSPL.DBSTAT.SAVE
/SET-FILE-LINK LINK-NAME=DATABASE,FILE-NAME=CONFBSPL
/ADD-FILE-LINK LINK-NAME=PPFILE,FILE-NAME=UDSDBB.PP.FILE.IND
/START-UDS-DBH RESIDENT-PAGES=*PAR(MIN=0,MAX=1525)
/EXIT-JOB SYSTEM-OUTPUT=*NONE

Starten der Enter-Prozedur:

/ENTER-JOB FROM-FILE=ENTER.DBH.IND,JOB-CLASS=JCB32000
% JMS0066 AUFTRAG 'P' ANGENOMMEN AM 12-01-30 UM 11:45, TSN = 1DU0

Protokoll des Enter-Jobs (Auszug)

/SHOW-JV JV.MANUAL.VERSION
% 02.9A00
...
/SHOW-JV JV-CONTENTS=*LINK(LINK-NAME=UDSPS01)
% SQL2
...
/START-UDS-DBH RESIDENT-PAGES=*PAR(MIN=0,MAX=1525)
...

Beispiel 2: Linked-in Anwendung (COBOL-DML) als Dialogauftrag starten

Inhalt der Ladeparameter-Datei PP.FILE:

PP LOG=PUBLIC
PP PARLIST=YES
PP PRIVACY-CHECK=OFF
PP STDCKPT=YES
PP END

Inhalt der Startprozedur P.VERSAND:

/BEGIN-PROCEDURE
/SHOW-JV JV.VERSAND
/SET-JV-LINK LINK-NAME=VERS,JV-NAME=JV.VERSAND
/SET-JV-LINK LINK-NAME=UDSPS01,JV-NAME=PUBSDECL.PUB
/SHOW-JV JV-CONTENTS=*LINK(LINK-NAME=UDSPS01)
/SELECT-PRODUCT-VERSION PRODUCT-NAME=UDS-SQL,    VERSION=&(*VERS) 
/ADD-FILE-LINK LINK-NAME=DATABASE,FILE-NAME=VERSAND.DBDIR
/ADD-FILE-LINK LINK-NAME=EINART,FILE-NAME=DATEN.ARTLADEN.ARTIKEL
/ADD-FILE-LINK LINK-NAME=HERST,FILE-NAME=DATEN.ARTLADEN.HERSTELLER
/ADD-FILE-LINK LINK-NAME=PPFILE,FILE-NAME=UDSDBB.PP.FILE
/START-EXECUTABLE-PROGRAM FROM-FILE=(LIBRARY=PROC.MANUAL,ELEMENT=ARTLAD)
/END-PROCEDURE

Aufruf der Startprozedur:

/CALL-PROC FROM=P.VERSAND

Ablaufprotokoll (Auszug):

...
/SHOW-JV JV.VERSAND
%  02.9A00
...
/SHOW-JV JV-CONTENTS=*LINK(LINK-NAME=UDSPS01)
%  *
...
/START-EXECUTABLE-PROGRAM FROM-FILE=(LIBRARY=PROC.MANUAL,ELEMENT=ARTLAD)
...
%  UDS0215 UDS STARTET UDS/SQL V2.9 (LINKED-IN), DATE=2017-06-28 (ILL2038,11:26:29/0YA2) 
%  UDS0746 UDS-PUBSET-DEKLARATION (CURRENT) FOLGT (ILL1746,11:26:29/0YA2) 
0YA2: UDS-PUBSET-JV:  :SQL2:$XXXXXXXX.PUBSDECL.ALL
0YA2: PUBSETS:        *
0YA2: DEFAULT PUBSET: SQL2
0YA2: ------------------------------------------
%  UDS0722 UDS AUFTRAG ADD RLOG 150628092628 WIRD AUSGEFUEHRT (ILL1283,11:26:29/0YA2) 
%  UDS0354 UDS ALOG-KONSISTENZPUNKT FUER VERSAND (ILL1307,11:26:29/0YA2) 
0YA2: ALOG-CKPT 20170628092635: CKPT ALREADY EXISTING.
0YA2: MAXDB          =      1
0YA2: TRANSACTION    =      1
0YA2: SUBSCHEMA      =      1
0YA2: 2KB-BUFFER-SIZE=      1
0YA2: 4KB-BUFFER-SIZE=      1
0YA2: 8KB-BUFFER-SIZE=      0
0YA2: LOG            = PUBLIC
0YA2: LOG-2          = NO
0YA2: LOG-SIZE       = (    192,    192)
0YA2: RESERVE        = NONE
0YA2: WARMSTART      = STD
0YA2: CONSOLE        = NO
0YA2: STDCKPT        = YES
0YA2: LOCK           = STD
0YA2: PRIVACY-CHECK  = OFF
0YA2: CONFNAME       = $XXXXXXXX.VERSAND
0YA2: DATABASES OF CONFIGURATION:
0YA2:   $XXXXXXXX.VERSAND                       ,EXCLUSIVE-UPD     ,*SYSTEM
%  UDS0356 UDS DURCHFUEHRUNG DER AUFTRAEGE FUER VERSAND  TERMINATED (ILL1309,11:26:29/0YA2) 
DB-ART-NR 000001
DB-BEZ SOMMERKLEID MIT JACKE
DB-ART-NR 000002
DB-BEZ ZWEITEILIGES SOMMERKLEID
DB-ART-NR 000003
DB-BEZ WEISSBIER
DB-ART-NR 000004
DB-BEZ HELLES BIER
DB-ART-NR 000005
DB-BEZ ZITRONENLIMONADE
DB-ART-NR 830950
DB-BEZ PLISSEE-KLEID MIT JACKE
DB-ART-NR 830993
DB-BEZ KLEID AUS JERSEY-KREPP
DB-ART-NR 835758
DB-BEZ KLEID AUS FLIESSENDEM JERSEY
DB-ART-NR 831213
DB-BEZ KLEID AUS JERSEY-KREPP MIT JACKE
DB-ART-NR 835928
DB-BEZ T-SHIRT KLEID
DB-ART-NR 835952
DB-BEZ POLO-KLEID
DB-ART-NR 001140
DB-BEZ FETTARMER NATURJOGHURT
DB-ART-NR 001141
DB-BEZ BIO-NATURJOGHURT
*** NORMALES PROGRAMM-ENDE ***
%  UDS0354 UDS ALOG-KONSISTENZPUNKT FUER VERSAND (ILL1307,11:26:29/0YA2) 
0YA2: ALOG-CKPT 20170628092636: FIXED ( ALOG-NR:000000001, START-CKPT: 20170628092635 ).
%  UDS0758 ANZAHL DER DML-ANWEISUNGEN UND I/O-ZAEHLER PRO DATENBANK  (ILL1758,11:26:29/0YA2) 
 0YA2: DATABASE NAME           DMLS   LOG READ  PHYS READ  LOG WRITE PHYS WRITE
 0YA2: ------------------------------------------------------------------------
 0YA2: VERSAND                  115       1489        101        694        103
%  UDS0213 UDS NORMAL BEENDET MIT *************115 DML-STATEMENTS 2017-06-28 (ILLY033,11:26:29/0YA2)