This section describes the job control information required to run ADADRU with BS2000, z/OS, and z/VSE systems and shows examples of each of the job streams.
This document covers the following topics:
File | Link Name | Storage | More Information |
---|---|---|---|
Associator | DDASSORn or DDASSOnn | disk | |
Data Storage | DDDATARn or DDDATAnn | disk | |
ADARUN parameters | SYSDTA/ DDCARD | Operations | |
ADADRU parameters | SYSDTA/ DDKARTE | ||
ADADRU detail output | DDDETAIL | disk | |
ADARUN messages | SYSOUT DDPRINT | Messages and Codes | |
ADADRU messages | SYSLST DDDRUCK | Messages and Codes | |
Adabas UES code objects | DDECSOJ | disk | Required for universal encoding support (UES) with the
OUTPUT='XML, UTF8' parameter setting.
|
ADADRU XML output summary report | DDXMLR1 | tape/disk | Only necessary when the OUTPUT or ACODE parameters are specified. This data is just a standard BS2000 file. |
ADADRU XML output detailed report | DDXMLR2 | tape/disk | Only necessary when the OUTPUT or ACODE parameters are specified in the same run as the CPLIST or CPEXLIST parameters. This data is just a standard BS2000 file. |
Refer to sample members ADADRU and ADADRUU for these examples.
/.ADADRU BEGIN-PROC C /ASS-SYSOUT L.DRU /REMOVE-FILE-LINK * /SET-JOB-STEP /MOD-TEST DUMP=YES /REMARK * /REMARK * A D A D R U MOST FUNCTIONS /REMARK * /ASS-SYSLST L.DRU.L /DEL-FILE L.DRU.DETAIL /SET-JOB-STEP /CRE-FI L.DRU.DETAIL,PUB() /DEL-FILE L.DRU.XMLR1 /SET-JOB-STEP /CRE-FI L.DRU.XMLR1,PUB() /DEL-FILE L.DRU.XMLR2 /SET-JOB-STEP /CRE-FI L.DRU.XMLR2,PUB() /SET-FILE-LINK DDLIB,ADABAS.MOD /SET-FILE-LINK DDASSOR1,ADA99.ASSO ,SUP=DISK(SHARE-UPD=YES) /SET-FILE-LINK DDDATAR1,ADA99.DATA ,SUP=DISK(SHARE-UPD=YES) /SET-FILE-LINK DDDETAIL,L.DRU.DETAIL /SET-FILE-LINK DDXMLR1,L.DRU.XMLR1 /SET-FILE-LINK DDXMLR2,L.DRU.XMLR2 /ASS-SYSDTA *SYSCMD /START-PROG *M(E=ADARUN,L=ADABAS.MOD),RUN-MODE=ADV(A-L=YES) ADARUN PROG=ADADRU,DB=99 * * ADADRU CONTROL STATEMENTS * PRINT DETAILED REPORT FOR FILE 5 * ADADRU NOUSERABEND,OUTPUT='XML' ADADRU SPACEUSAGE FILE=5,SAMPLING=10,INCRUSAGE=1,INCRNUMREC=1 ADADRU INCRRECLEN=6,PFILESPACE=DETAIL /ASS-SYSDTA *PRIM /ASS-SYSLST *PRIM /ASS-SYSOUT *PRIM /END-PROC
/.ADADRU BEGIN-PROC C /ASS-SYSOUT L.DRU /REMOVE-FILE-LINK * /SET-JOB-STEP /MOD-TEST DUMP=YES /REMARK * /REMARK * A D A D R U FOR OUTPUT='XML,UTF8' /REMARK * /ASS-SYSLST L.DRU.L /DEL-FILE L.DRU.DETAIL /SET-JOB-STEP /CRE-FI L.DRU.DETAIL,PUB() /DEL-FILE L.DRU.XMLR1 /SET-JOB-STEP /CRE-FI L.DRU.XMLR1,PUB() /DEL-FILE L.DRU.XMLR2 /SET-JOB-STEP /CRE-FI L.DRU.XMLR2,PUB() /SET-FILE-LINK DDLIB,ADABAS.MOD /SET-FILE-LINK BLSLIB00,ADABAS.MOD /SET-FILE-LINK BLSLIB01,APSVRS.LIB /CALL-PROCEDURE (ADABAS.SRC,LMSLINKLIB),(LNK-NAME=BLSLIIB02) /SET-FILE-LINK DDASSOR1,ADA99.ASSO ,SUP=DISK(SHARE-UPD=YES) /SET-FILE-LINK DDDATAR1,ADA99.DATA ,SUP=DISK(SHARE-UPD=YES) /SET-FILE-LINK DDDETAIL,L.DRU.DETAIL /SET-FILE-LINK DDXMLR1,L.DRU.XMLR1 /SET-FILE-LINK DDXMLR2,L.DRU.XMLR2 /SET-FILE-LINK DDECSOJ,ADABAS.EC00 /ASS-SYSDTA *SYSCMD /START-PROG *M(E=ADARUN,L=ADABAS.MOD),PR-MO=ANY,R-M=*A(ALT=Y,- / LOAD-INF=*REF,UNRES=*DELAY,MESSAGE=*ERROR) /START-PROG *M(E=ADARUN,L=ADABAS.MOD),RUN-MODE=ADV(A-L=YES) ADARUN PROG=ADADRU,DB=99 * * ADADRU CONTROL STATEMENTS * PRINT DETAILED REPORT FOR FILE 5 * ADADRU OUTPUT='XML,UTF8' ADADRU SPACEUSAGE FILE=5,PFILESPACE=DETAIL /ASS-SYSDTA *PRIM /ASS-SYSLST *PRIM /ASS-SYSOUT *PRIM /END-PROC
Data Set | DD Name | Storage | More Information |
---|---|---|---|
Associator | DDASSORn or DDASSOnn | disk | |
Data Storage | DDDATARn or DDDATAnn | disk | |
ADARUN parameters | DDCARD | reader | Operations |
ADADRU parameters | DDKARTE | reader | |
ADADRU detail output | DDDETAIL | disk | |
ADARUN messages | DDPRINT | printer | Messages and Codes |
ADADRU messages | DDDRUCK | printer | Messages and Codes |
ADADRU XML output summary report | DDXMLR1 | tape/disk | Only necessary when the OUTPUT or ACODE parameters are specified. The XML dataset will be created as a sequential file, with record format VB (variable blocked) and a maximum record length of 512. |
ADADRU XML output detailed report | DDXMLR2 | tape/disk | Only necessary when the OUTPUT or ACODE parameters are specified in the same run as the CPLIST or CPEXLIST parameters. The XML dataset will be created as a sequential file, with record format VB (variable blocked) and a maximum record length of 512. |
Refer to members ADADRU and ADADRUU in the JOBS data set for these examples.
//ADADRU JOB //* //* ADADRU: //* Print File Reports //* //DRU 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 //* //DDDRUCK DD SYSOUT=X <=== Summary Reports and ADADRU Messages //DDPRINT DD SYSOUT=X <=== ADARUN Messages //DDDETAIL DD SYSOUT=X <=== Detail Reports //DDXMLR1 DD SYSOUT=X,DCB=(LRECL=512,RECFM=VB) //DDXMLR2 DD SYSOUT=X,DCB=(LRECL=512,RECFM=VB) //SYSUDUMP DD SYSOUT=X //DDCARD DD * ADARUN PROG=ADADRU,SVC=xxx,DEVICE=dddd,DBID=yyyyy /* //DDKARTE DD * * * ADADRU Control Statements * Print Detailed Report for File 5 * ADADRU NOUSERABEND,OUTPUT='XML' * ADADRU SPACEUSAGE FILE=5,SAMPLING=10,INCRUSAGE=1,INCRNUMREC=1 ADADRU INCRRECLEN=6,PFILESPACE=DETAIL //
//ADADRU JOB //* //* ADADRU: //* Print File Reports, XML in UTF8 Format //* //DRU EXEC PGM=ADARUN //STEPLIB DD DISP=SHR,DSN=ADABAS.Vvrs.LOAD <=== ADABAS LOAD // DD DISP=SHR,DSN=SAG.ICSvrs.L0nn <=== Code pages //* //DDASSOR1 DD DISP=SHR,DSN=EXAMPLE.DByyyyy.ASSOR1 <=== ASSO //DDDATAR1 DD DISP=SHR,DSN=EXAMPLE.DByyyyy.DATAR1 <=== DATA //* //DDDRUCK DD SYSOUT=X <=== Summary Reports and ADADRU messages //DDPRINT DD SYSOUT=X <=== ADARUN Messages //DDDETAIL DD SYSOUT=X <=== Detail Reports //DDXMLR1 DD SYSOUT=X,DCB=(LRECL=512,RECFM=VB) //DDXMLR2 DD SYSOUT=X,DCB=(LRECL=512,RECFM=VB) //SYSUDUMP DD SYSOUT=X //DDCARD DD * ADARUN PROG=ADADRU,SVC=xxx,DEVICE=dddd,DBID=yyyyy /* //DDKARTE DD * * * ADADRU Control Statements * Print Detailed Report for File 5 * ADADRU NOUSERABEND,OUTPUT='XML,UTF8' * ADADRU SPACEUSAGE FILE=5,SAMPLING=10,INCRUSAGE=1,INCRNUMREC=1 ADADRU INCRRECLEN=6,PFILESPACE=DETAIL /* //
Data Set | Symbolic Name | Storage | Logical Unit | More Information |
---|---|---|---|---|
Associator | ASSORn | disk | * | |
Data Storage | DATARn | disk | * | |
ADARUN parameters | SYSRDR | card tape disk |
reader SYSRDR * |
|
SYS000 | * | Adabas Operations Manual | ||
ADADRU parameters | reader | SYSIPT | ||
ADARUN messages | printer | SYSLST | Adabas Messages and Codes Manual | |
ADADRU messages | printer | SYS009 | Adabas Messages and Codes Manual | |
ADADRU detailed report | DETAIL | tape/disk | Necessary for detailed output only | |
ADADRU XML summary report | DDXMLR1 | tape/disk | Only necessary when the OUTPUT or ACODE parameters are specified. This data must be defined with DCB parameters RECFM=VB,LRECL=512. | |
ADADRU XML detailed report | DDXMLR2 | tape/disk | Only necessary when the OUTPUT or ACODE parameters are specified in the same run as the CPLIST or CPEXLIST parameters. This data must be defined with DCB parameters RECFM=VB,LRECL=512. |
* Any programmer logical unit may be used.
See Library and File Procedures for z/VSE Examples for descriptions of the z/VSE procedures (PROCs).
Refer to member ADADRU.X for this example.
* $$ JOB JNM=ADADRU,CLASS=A,DISP=D * $$ LST CLASS=A,DISP=D // JOB ADADRU // OPTION LOG,PARTDUMP * * ADADRU: * Print File Reports * // EXEC PROC=ADAVVLIB // EXEC PROC=ADAVVFIL * // DLBL DDXMLR1,'ADABAS.ADADRU.XMLR1',,SD XMLR1 // EXTENT SYS015,,,,SSSSS,NNNNN // ASSGN SYS015,DISK,VOL=DISK01,SHR // DLBL DDXMLR2,'ADABAS.ADADRU.XMLR2',,SD XMLR2 // EXTENT SYS016,,,,SSSSS,NNNNN // ASSGN SYS016,DISK,VOL=DISK02,SHR // DLBL DETAIL,'ADABAS.ADADRU.DETAIL',,SD Detail Report // EXTENT SYS017,,,,SSSSS,NNNNN // ASSGN SYS017,DISK,VOL=DISK03,SHR * * ************************************************************* * DON'T FORGET TO CUSTOMIZE PARAMETERS OF ADABAS UTILITY * ************************************************************* // EXEC ADARUN,SIZE=ADARUN ADARUN PROG=ADADRU,MODE=MULTI,SVC=XXX,DEVICE=NNNN,DBID=YYY /* * * ADADRU Control Statements * Print Detailed Report for File 5 * ADADRU NOUSERABEND,OUTPUT='XML' * ADADRU SPACEUSAGE FILE=5,SAMPLING=10,INCRUSAGE=1,INCRNUMREC=1 ADADRU INCRRECLEN=6,PFILESPACE=DETAIL /* /& * $$ EOJ
* $$ JOB JNM=ADADRU,CLASS=A,DISP=D * $$ LST CLASS=A,DISP=D // JOB ADADRU // OPTION LOG,PARTDUMP * * ADADRU: * Print File Reports, XML in UTF8 Format * // EXEC PROC=ADAVVLIB // EXEC PROC=ADAVVFIL * /* --- ECS SUBLIBS ----------------- // DLBL DDECSOJ,'ADABAS.VVRS.DOSLC01' // EXTENT SYS018 // ASSGN SYS018,DISK,VOL=VVVVVV,SHR /* --- APS ENVIRONMENT VARIABLES --- // DLBL ENVVARS,'SYSIPT' /* --------------------------------- * * ADADRU: * Print File Reports, XML in UTF8 Format * // EXEC PROC=ADAVVLIB // EXEC PROC=ADAVVFIL * /* --- ECS SUBLIBS ----------------- // DLBL DDECSOJ,'ADABAS.VVRS.DOSLC01' // EXTENT SYS018 // ASSGN SYS018,DISK,VOL=VVVVVV,SHR /* --- APS ENVIRONMENT VARIABLES --- // DLBL ENVVARS,'SYSIPT' /* --------------------------------- // DLBL DDXMLR1,'ADABAS.ADADRU.XMLR1',,SD XMLR1 // EXTENT SYS015,,,,SSSSS,NNNNN // ASSGN SYS015,DISK,VOL=DISK01,SHR // DLBL DDXMLR2,'ADABAS.ADADRU.XMLR2',,SD XMLR2 // EXTENT SYS016,,,,SSSSS,NNNNN // ASSGN SYS016,DISK,VOL=DISK02,SHR // DLBL DETAIL,'ADABAS.ADADRU.DETAIL',,SD Detail Report // EXTENT SYS017,,,,SSSSS,NNNNN // ASSGN SYS017,DISK,VOL=DISK03,SHR * * *********************************************************** * DON'T FORGET TO CUSTOMIZE PARAMETERS OF ADABAS UTILITY * *********************************************************** // EXEC ADARUN,SIZE=ADARUN ADARUN PROG=ADADRU,MODE=MULTI,SVC=XXX,DEVICE=NNNN,DBID=YYY /* * * ADADRU Control Statements * Print Detailed Report for File 5 * ADADRU NOUSERABEND,OUTPUT='XML,UTF8' * ADADRU SPACEUSAGE FILE=5,SAMPLING=10,INCRUSAGE=1,INCRNUMREC=1 ADADRU INCRRECLEN=6,PFILESPACE=DETAIL /* SYSTEM_ID=NNNNNNNN ENVIRONMENT_VARIABLES=DD:ENVVARS OR ALTERNATVELY ENVIRONMENT_VARIABLES=/LIBRARY/SUBLIBRARY/MEMBER.TYPE /* /& * $$ EOJ
Refer to member ADADRUU.X for this example