This document covers the following topics:
The ADAPRI DSIMPRI function prints one or more specified DSIM dataset blocks.
The beginning and ending numbers of the DSIM dataset RABNs to be printed. Both values must be specified; there are no defaults. Printing begins with the block number specified with the FROMRABN parameter and ends with the block number specified with the TORABN parameter. Each block in the range is printed in hexadecimal format.
Controls the line length of the printed output. If BATCH is not specified, the default line size is 80 characters. If BATCH is specified, the output line size is 120 characters.
The device type on which the DSIM dataset is contained. This parameter is required only if the device type is different from the standard device type assigned by the ADARUN DEVICE parameter.
When an error is encountered while the function is running, the utility prints an error message and terminates with user ABEND 34 (with a dump) or user ABEND 35 (without a dump).
If NOUSERABEND is specified, the utility will not ABEND after printing the error message. Instead, the message "utility TERMINATED DUE TO ERROR CONDITION" is displayed and the utility terminates with condition code 20.
ADAPRI DSIMPRI FROMRABN=1,TORABN=1
Block 1 only of the DSIM dataset is printed.
This section describes the job control information required to run the Delta Save functions of ADAPRI with BS2000, OS/390, z/OS, z/VM, and VSE/ESA systems, and shows examples of each of the job streams.
This section covers the following topics:
| Dataset | Link Name | Storage | More Information |
|---|---|---|---|
| Delta Save images (DSIM) | DDDSIMR1 | disk | Required for the DSIMPRI function |
| ADAPRI parameters | SYSDTA/DDKARTE | ||
| ADARUN parameters | SYSDTA/DDCARD | Adabas Operations | |
| ADAPRI messages | SYSLST/DDDRUCK | Adabas Messages and Codes | |
| ADARUN messages | SYSOUT/DDPRINT | Adabas Messages and Codes |
/.PRI LOGON /MOD-JOB-OPTIONS LISTING=YES /MOD-TEST DUMP=YES /ASS-SYSLST DO.PRI.LST /ASS-SYSOUT DO.PRI.OUT /ASS-SYSDTA *SYSCMD /SET-FILE-LINK DDDSIMR1, ADABAS.DB010.DSIM ,SUP=DISK(SHARE-UPD=YES) /SET-FILE-LINK DDLIB , ADABAS.MOD /REMARK /START-PROGRAM FROM-FILE=*MOD(ADABAS.MOD,ADARUN) ADARUN PROG=ADAPRI, ... ADAPRI DSIMPRI FROMRABN=...,TORABN=... /ASS-SYSLST *PRIM /ASS-SYSOUT *PRIM /ASS-SYSDTA *PRIM /LOGOFF SYS-OUTPUT=DEL
| Dataset | DD Name | Storage | More Information |
|---|---|---|---|
| Delta Save images (DSIM) | DDDSIMR1 | disk | Required for the DSIMPRI function |
| ADAPRI parameters | DDKARTE | ||
| ADARUN parameters | DDCARD | Adabas Operations | |
| ADAPRI messages | DDDRUCK | Adabas Messages and Codes | |
| ADARUN messages | DDPRINT | Adabas Messages and Codes |
//PRINT EXEC PGM=ADARUN //DDDSIMR1 DD DSN=ADABAS.DB010.DSIMR1,DISP=SHR //DDCARD DD * ADARUN PROG=ADAPRI, ... //DDKARTE DD * ADAPRI DSIMPRI FROMRABN=...,TORABN=... //DDPRINT DD SYSOUT=* //DDDRUCK DD SYSOUT=*
| Dataset | DD Name | Storage Type | More Information |
|---|---|---|---|
| Delta Save images (DSIM) | DDDSIMR1 | disk | Required for the DSIMPRI function |
| ADAPRI parameters | DDKARTE | disk/ terminal/ reader | |
| ADARUN parameters | DDCARD | disk/ terminal/ reader | Adabas Operations |
| ADAPRI messages | DDDRUCK | disk/ terminal/ printer | Adabas Messages and Codes |
| ADARUN messages | DDPRINT | disk/ terminal/ printer | Adabas Messages and Codes |
DATADEF DDDSIMR1,DSN=ADABASVv.DSIM,VOL=DSIM
DATADEF DDPRINT,DSN=ADAPRI.DDPRINT,MODE=A
DATADEF DDDRUCK,DSN=ADAPRI.DDDRUCK,MODE=A
DATADEF DDCARD,DSN=RUNPRI.CONTROL,MODE=A
DATADEF DDKARTE,DSN=ADAPRI.CONTROL,MODE=A
ADARUN
Contents of RUNPRI CONTROL A1:
ADARUN PROG=ADAPRI, ...
Contents of ADAPRI CONTROL A1:
ADAPRI DSIMPRI FROMRABN=...,TORABN=...
| Dataset | Symbolic | Storage | Logical Unit | More Information |
|---|---|---|---|---|
| Delta Save images (DSIM) | DSIMR1 | disk | Required for the DSIMPRI function | |
| ADAPRI parameters | reader | SYSIPT | ||
| ADARUN parameters | - CARD CARD |
reader tape disk |
SYSRDR SYS000 * |
Adabas Operations |
| ADAPRI messages | printer | SYS009 | Adabas Messages and Codes | |
| ADARUN messages | printer | SYSLST | Adabas Messages and Codes |
* Any programmer logical unit can be used.
See the VSE/ESA-related job information in section Adabas Utility Functions for Delta Save.
// EXEC PROC=ADAVvFIL // EXEC PROC=ADAVvLIB // EXEC ADARUN,SIZE=ADARUN ADARUN PROG=ADAPRI,... /* ADAPRI DSIMPRI FROMRABN=...,TORABN=... /*