This section describes the job control information required to run ADADBS with BS2000, OS/390 or z/OS, VM/ESA or z/VM, and VSE/ESA systems, and shows examples of each of the job streams.
This document covers the following topics:
If a collation user exit is to be used during ADADBS ONLINVERT execution, the ADARUN CDXnn parameter must be specified for the utility run.
Used in conjunction with the universal encoding support (UES), the format of the collation descriptor user exit parameter is
where
| nn | is the number of the collation descriptor exit, a two-digit decimal integer in the range 01-08 inclusive. |
| exit-name | is the name of the user routine that gets control at the collation descriptor exit; the name can be up to 8 characters long. |
Only one program may be specified for each collation descriptor exit. Up to 8 collation descriptor exits may be specified (in any order). See the Adabas DBA Reference documentation for more information.
| Dataset | Link Name | Storage | More Information |
|---|---|---|---|
| Associator | DDASSORn | Required for OPERCOM DDIB or RESETDIB with inactive nucleus | |
| ADARUN parameters | SYSDTA/ DDCARD | Operations | |
| ADADBS parameters | SYSDTA/ DDKARTE | Utilities | |
| ADARUN messages | SYSOUT/ DDPRINT | Messages and Codes | |
| ADADBS messages | SYSLST/ DDDRUCK | Messages and Codes |
/.ADADBS LOGON /MODIFY-TEST-OPTIONS DUMP=YES /REMARK * /REMARK * A D A D B S ALL FUNCTIONS /REMARK * /ASS-SYSLST L.DBS.DATA /ASS-SYSDTA *SYSCMD /SET-FILE-LINK DDLIB,ADAvrs.MOD /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY ADARUN PROG=ADADBS,DB=yyyyy,IDTNAME=ADABAS5B ADADBS REFRESH FILE=1 /LOGOFF SYS-OUTPUT=DEL
/.ADADBS LOGON /OPTION MSG=FH,DUMP=YES /REMARK * /REMARK * A D A D B S ALL FUNCTIONS /REMARK * /SYSFILE SYSLST=L.DBS /FILE ADA.MOD,LINK=DDLIB /EXEC (ADARUN,ADA.MOD) ADARUN PROG=ADADBS,DB=yyyyy,IDTNAME=ADABAS5B ADADBS REFRESH FILE=1 /LOGOFF NOSPOOL
| Dataset | DD Name | Storage | More Information |
|---|---|---|---|
| Associator | DDASSORn | disk | Required only for OPERCOM DDIB or RESETDIB functions with inactive nucleus |
| ADADBS messages | DDDRUCK | printer | Messages and Codes |
| ADARUN messages | DDPRINT | printer | Messages and Codes |
| ADARUN parameters | DDCARD | reader | Operations |
| ADADBS parameters | DDKARTE | reader |
Refer to ADADBS in the MVSJOBS dataset for this example.
//ADADBS JOB //* //* ADADBS: //* DATA BASE SERVICES (BATCH) //* //DBS EXEC PGM=ADARUN //STEPLIB DD DISP=SHR,DSN=ADABAS.Vvrs.LOAD <=== ADABAS LOAD //* //DDASSOR1 DD DISP=SHR,DSN=EXAMPLE.DByyyyy.ASSOR1 <=== ASSO //DDDATAR1 DD DISP=SHR,DSN=EXAMPLE.DByyyyy.DATAR1 <=== DATA //DDWORKR1 DD DISP=SHR,DSN=EXAMPLE.DByyyyy.WORKR1 <=== WORK //DDDRUCK DD SYSOUT=X //DDPRINT DD SYSOUT=X //SYSUDUMP DD SYSOUT=X //DDCARD DD * ADARUN PROG=ADADBS,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy /* //DDKARTE DD * ADADBS REFRESH FILE=1 /*
| Dataset | DD Name | Storage | More Information |
|---|---|---|---|
| Associator | DDASSORn | disk/ terminal/ reader | Required only for OPERCOM DDIB or RESETDIB functions with inactive nucleus |
| ADARUN parameters | DDCARD | disk/ terminal/ reader | Operations |
| ADADBS parameters | DDKARTE | disk/ terminal/ reader | |
| ADARUN messages | DDPRINT | disk/ terminal/ printer | Messages and Codes |
| ADADBS messages | DDDRUCK | disk/ terminal/ printer |
Refer to ADADBS in the MVSJOBS dataset for this example.
DATADEF DDPRINT,DSN=ADADBS,DDPRINT,MODE=A DATADEF DUMP,DUMMY DATADEF DDDRUCK,DSN=ADADBS.DDDRUCK,MODE=A DATADEF DDCARD,DSN=RUNDBS.CONTROL,MODE=A DATADEF DDKARTE,DSN=ADADBS.CONTROL,MODE=A ADARUN
ADARUN PROG=ADADBS,DEVICE=dddd,DB=yyyyy
ADADBS REFRESH FILE=1
| File | File Name | Storage | Logical Unit | More Information |
|---|---|---|---|---|
| Associator | ASSORn | disk | * | Required for OPERCOM DDIB or RESETDIB functions with inactive nucleus |
| ADARUN parameters | - CARD CARD |
reader tape disk |
SYSRDR SYS000 * |
|
| ADADBS parameters | - | reader | SYSIPT | Utilities |
| ADARUN messages | - | printer | SYSLST | Messages and Codes |
| ADADBS messages | - | printer | SYS009 | Messages and Codes |
* Any programmer logical unit may be used.
See Procedures for VSE/ESA Examples for a description of the VSE/ESA procedures.
Refer to member ADADBS.X in the MVSJOBS dataset for this example.
* $$ JOB JNM=ADADBS,CLASS=A,DISP=D * $$ LST CLASS=A,DISP=D * DATABASE SERVICES (BATCH) // JOB ADADBS // EXEC PROC=ADAVvLIB // EXEC PROC=ADAVvFIL // EXEC ADARUN,SIZE=ADARUN ADARUN PROG=ADADBS,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy /* ADADBS REFRESH FILE=1 /* /& * $$ EOJ
