The following runtime example illustrates how you can start, terminate, and then restart UDS-D mode.
/SET-FILE-LINK LINK-NAME=DATABASE,FILE-NAME=CONFSHPG
/CREATE-FILE FILE-NAME=CONFSHPG.DBSTAT
/CREATE-FILE FILE-NAME=CONFSHPG.DBSTAT.SAVE
/SELECT-PRODUCT-VERSION PRODUCT-NAME=UDS-SQL, VERSION=02.9B00
/SELECT-PRODUCT-VERSION PRODUCT-NAME=UDS-D, VERSION=02.9B00 /START-UDS-DBH
... % BLS0523 ELEMENT 'UDSSQL', VERSION '02.9B00', TYPE 'L' FROM LIBRARY ':GIN1:$TSOS.SYSLNK.UDS-SQL.029' IN PROCESS % BLS0524 LLM 'UDSSQL', VERSION '02.9B00' OF '2019-01-29 09:31:40' LOADED PP ADM=REMOTE PP DBNAME=SHIPPING PP LOG=PUBLIC PP MAXDB=4 PP PARLIST=YES PP PRIVACY-CHECK=OFF PP DISDB=3 PP DISTABLE=UDSDBB.VT.CONFSHPG PP DISTRIBUTION=START PP END % % UDS0746 UDS PUBSET DECLARATION (CURRENT) FOLLOWS (OPI6746,09:31:41/4TUD) % 4TUD: UDS-PUBSET-JV: :IUDS:$XXXXXXXX.PUBSDECL.PUBS % 4TUD: PUBSETS: ABN2 % 4TUD: DEFAULT PUBSET: IUDS % 4TUD: ------------------------------------------ % UDS0347 UDS ADMINISTRATION: APP.NAME = CONFSHPG (OPDI239,09:31:41/4TUD) % UDS0722 UDS ORDER ADD RLOG 150628094330 IN EXECUTION (OPCC283,09:31:41/4TUD) 4TUD: MAXDB = 4 4TUD: TRANSACTION = ( 4, 1) 4TUD: SUBSCHEMA = 1 4TUD: SERVERTASK = 1 4TUD: 2KB-BUFFER-SIZE= 1 4TUD: 4KB-BUFFER-SIZE= 1 4TUD: 8KB-BUFFER-SIZE= 0 4TUD: CP-SIZE = 1024 4TUD: CUP-SIZE = 1024 4TUD: SIP-SIZE = 1024 4TUD: DIP-SIZE = 1024 4TUD: DISDB = 3 4TUD: CHCKTIME = 60 4TUD: DEADTIME = 60 4TUD: DISTRIBUTION = START 4TUD: PTCSYNCH = (WAIT ,WAIT ) 4TUD: LOG = PUBLIC 4TUD: LOG-2 = NO 4TUD: LOG-SIZE = ( 192, 192) 4TUD: RESERVE = NONE 4TUD: WARMSTART = STD 4TUD: DBDCSYNCH = YES 4TUD: DEACT = YES 4TUD: STDCKPT = NO 4TUD: ADM = REMOTE 4TUD: CPU = MONO-PROCESSOR 4TUD: DISTABLE = UDSDBB.VT.CONFSHPG 4TUD: SQL = 4 4TUD: SQL-LIMIT = 10 4TUD: TASKLIB = NO 4TUD: DUMP = ALL 4TUD: MPSEG = STD 4TUD: UCON = C'<U ',MSG 4TUD: SECLEVEL = NO ,NO-AUDIT 4TUD: LOCK = STD 4TUD: TA-ACCESS = STD 4TUD: WAIT = EVENT 4TUD: RESULT-DELAY = 0 4TUD: SCHEDULING = SYMMETRIC 4TUD: IO = ASYNC 4TUD: ORDER-DBSTATUS= STD 4TUD: PRIVACY-CHECK = OFF 4TUD: BCAM-PREFIX = SUD$ 4TUD: CONFNAME = $XXXXXXXX.CONFSHPG ...
/EXECUTE-DAL-CMD CMD=&CLOSE DISTRIBUTION
% UDS0220 UDS RECEIVED COMMAND: &CLOSE DISTRIBUTION (OPOX073,09:33:21/4TUD) % UDS0832 UDS-D: COMMAND EXECUTED ((CTCC012,09:33:21/4TUF) % UDS0807 UDS-D: TERMINATION INITIATED (CTCC351,09:33:21/4TUF) % UDS0808 UDS-D TERMINATING (OPCC352,09:33:21/4TUD) % UDS0809 UDS-D NORMAL TERMINATION (2019-01-29) (CTCC353,09:33:21/4TUD) ...
/EXECUTE-DAL-CMD CMD=&SAVE DISTRIBUTION,FILE=VT.EXAMPLE.SAVE
% UDS0220 UDS RECEIVED COMMAND: &SAVE DISTRIBUTION,FILE=VT.EXAMPLE.SAVE (OPOX073,09:33:21/4TUD) % UDS0808 UDS-D TERMINATING (OPCC352,09:33:21/4TUD) ...
/EXECUTE-DAL-CMD CMD=&START DISTRIBUTION
% UDS0220 UDS RECEIVED COMMAND: &START DISTRIBUTION (OPOX073,09:33:21/4TUD) % UDS0832 UDS-D: COMMAND EXECUTED (OPCC382,09:34:21/4TUD) % UDS0801 UDS-D STARTING V2.9/2019-01-29 (CTCC345,09:33:21/4TUD) % UDS0823 UDS-D: INPUT FILE FOR DISTRIBUTION TABLE UDSDBB.VT.CONFSHPG READ (CTCC386,09:33:21/4TUD) % UDS0805 UDS-D READY (CTCC349,09:33:21/4TUD) ...
//EXECUTE-DAL-CMD CMD=&SAVE DISTRIBUTION,FILE=VT.EXAMPLE.SAVE
% UDS0220 UDS RECEIVED COMMAND: &SAVE DISTRIBUTION,FILE=VT.EXAMPLE.SAVE (OPOX073,09:33:21/4TUD) % UDS0832 UDS-D: COMMAND EXECUTED (OPCC352,09:33:21/4TUD) ...
Input file for the distribution table VT.EXAMPLE.START
DB DB11 CONF3 PROZ1 DB DB12 CONF3 PROZ1 * * DATABASE RECORDS CONF-4 DB DB21 CONF4 PROZ2 DB DB22 CONF4 PROZ2 * * SUBSCHEMA RECORDS CONF-3 SS SS111 DB11 SS -SS112 DB11 * SS SS121 DB12 SS SS122 DB12 * * SUBSCHEMA RECORDS CONF-4 SS SS21 DB21 SS SS22 DB22
The following runtime example shows how multiple DB configurations are accessed.
The program DMLTEST accesses the local configuration CONFVERS (subschema ADMIN) and the remote configuration CONFCSTM (subschema MANAGEMENT).
/CALL-PROCEDURE P.DMLTEST.IND
/BEGIN-PROC LOG=*ALL,PAR=*YES(PROC-PAR=(&CONFNAME))
/SET-FILE-LINK LINK-NAME=DATABASE,FILE-NAME=&CONFNAME
/ADD-FILE-LINK LINK-NAME=$UDSSSI,FILE-NAME=LMS.SSITAB
&&CONFNAME=CONFVERS
/SET-FILE-LINK LINK-NAME=DATABASE,FILE-NAME=CONFSHPG/SELECT-PRODUCT-VERSION PRODUCT-NAME=UDS-D, VERSION=02.9B00
/ASSIGN-SYSDTA TO-FILE=*SYSCMD
/SELECT-PRODUCT-VERSION PRODUCT-NAME=UDS-SQL, VERSION=02.9B00
/START-UDS-DMLTEST
... DBH IND LANG COB DISPLAY RCODE,COND=RCODE NE C'00000' PROT ON DISPLAY RECA,L=80 SYS
SUBSCHEMA ADMIN
READY USAGE-MODE UPDATE;E
RECORD - AREA : ................................................................................
FETCH LAST COLORS;E
RECORD - AREA : 25LILA ..........................................................
M RECA,26MAGENTASTORE COLORS;E
RECORD - AREA : 26MAGENTA ..........................................................
SUBSCHEMA MANAGEMENT
READY USAGE-MODE UPDATE;E
RECORD - AREA : 26MAGENTA ..........................................................
FETCH LAST CUSTOMER;E
RECORD - AREA : YMEIER ..........................................................
M RECA,SMITTYMODIFY K-NAME;E
RECORD - AREA : SCHMIDTCHEN ...................................................................
FETCH LAST CUSTOMER;E
RECORD - AREA : SCHMIDTCHEN....................................................................
SUBSCHEMA ADMINFETCH LAST COLORS;E
RECORD - AREA : 26MAGENTA ..........................................................
FINISH;E
RECORD - AREA : 26MAGENTA ..........................................................
STOP
DMLTEST NORMAL TERMINATION
Input file for the distribution tables of both configurations
DB SHIPPING CONFSHPG XXXXXXXX DB CUSTOMER CONFCSTM XXXXXXXX DB ARTICLES CONFART YYYYYYYY * SS ADMIN SHIPPING SS MANAGEMENT CUSTOMER SS SUBART ARTICLES
Configuration of the primary subtransaction
//EXECUTE-DAL-CMD CMD=DISPLAY USERS
% UDS0347 UDS ADMINISTRATION: LOGON = UAD@4TE7 (OPDM239,09:33:13/4TUC) % UDS0220 UDS RECEIVED COMMAND: DISPLAY USERS (OPOX073,09:33:13/4TUC) 4TUC: PROGRAM TSN/TERM RUNUNIT-ID STATE PTC FC MR-NR DLY 4TUC: --------------------------------------------------------------- 4TUC: DMLTEST TSN 4TUJ 1 USER - 134 1 - 4TUC: 4TUC: UDS/SQL V2.9 1 USER OF CONFCSTM % UDS0218 UDS COMPLETED EXECUTION OF DAL COMMAND (OPCC074,09:33:13/4TUC) //EXECUTE-DAL-CMD CMD=DISPLAY 1 % UDS0220 UDS RECEIVED COMMAND: DISPLAY 1 (OPOX073,09:33:13/4TUC) 4TUC: PROGRAM-NAME: DMLTEST 4TUC: TSN: 4TUJ 4TUC: RUNUNIT-ID / -STATE: 1 / USER 4TUC: MAINREF-NR / -STATE: 1 / USED 4TUC: FC: 134 4TUC: PTT-PROC-NAME: IBAPROD1 4TUC: PTT-CONF-NAME: CONFSHPG 4TUC: PTT-RLOG-DATE: 4TUC: PTT-RUNUNIT-ID: 1 4TUC: LOCAL-TT-STATE: STT % UDS0218 UDS COMPLETED EXECUTION OF DAL COMMAND (OPCC074,09:33:13/4TUC)
Configuration of the secondary subtransaction
//EXECUTE-DAL-CMD CMD=DISPLAY USERS
% UDS0347 UDS ADMINISTRATION: LOGON = UAD@4TE7 (OPDM239,09:33:17/4TUD) % UDS0220 UDS RECEIVED COMMAND: DISPLAY USERS (OPOX073,09:33:17/4TUD) 4TUD: PROGRAM TSN/TERM RUNUNIT-ID STATE PTC FC MR-NR DLY 4TUD: --------------------------------------------------------------- 4TUD: DMLTEST TSN 4TUJ 1 USER - 134 1 - 4TUD: 4TUD: UDS/SQL V2.9 1 USER OF CONFSHPG % UDS0218 UDS COMPLETED EXECUTION OF DAL COMMAND (OPCC074,09:33:17/4TUD)
//EXECUTE-DAL-CMD CMD=DISPLAY 1
% UDS0220 UDS RECEIVED COMMAND: DISPLAY 1 (OPOX073,09:33:17/4TUD) 4TUD: PROGRAM-NAME: DMLTEST 4TUD: TSN: 4TUJ 4TUD: RUNUNIT-ID / -STATE: 1 / USER 4TUD: MAINREF-NR / -STATE: 1 / USED 4TUD: FC: 134 4TUD: PTT-PROC-NAME: IBAPROD1 4TUD: PTT-CONF-NAME: CONFSHPG 4TUD: PTT-RLOG-DATE: 190129083140 4TUD: PTT-RUNUNIT-ID: 1 4TUD: LOCAL-TT-STATE: PTT % UDS0218 UDS COMPLETED EXECUTION OF DAL COMMAND (OPCC074,09:33:17/4TUD)