Sample jobs you can use to run the ADAZIN utility are described in this document.
| Data Set | Link Name | Storage | More Information |
|---|---|---|---|
| ADARUN parameters | DDCARD or *SYSCMD | reader | Operations |
| ADAZIN parameters | DDKARTE or *SYSCMD | reader | |
| ADARUN messages | DDPRINT or *SYSOUT | printer | Messages and Codes |
| ADAZIN messages | DDDRUCK or *SYSOUT | printer | Messages and Codes |
/BEGIN-PROC C /MOD-TEST DUMP=YES /REMARK * /REMARK * A D A Z I N All Functions /REMARK * /ASS-SYSOUT L.ZIN /ASS-SYSLST L.ZIN.L /ASS-SYSDTA *SYSCMD /SET-FILE-LINK DDLIB,ADABAS.MOD /SET-FILE-LINK BLSLIB00,ADABAS.MOD /REMA /REMA $.SYSLNK.LMS.033 is the LMS SYSLNK Library /REMA NOTE: The BLSLIB number should be 4 or more higher than /REMA the highest BLSLIB number used, otherwise it can become /REMA included in the program /SET-FILE-LINK BLSLIB09,$.SYSLNK.LMS.033 /SET-FILE-LINK DDASSOR1,ADA99.ASSO /SET-FILE-LINK DDDATAR1,ADA99.DATA /SET-FILE-LINK DDWORKR1,ADA99.WORK /SET-FILE-LINK DDZIN,ADABAS.MOD /START-PROG *M(E=ADARUN,L=ADABAS.MOD),RUN-MODE=ADV(A-L=YES) ADARUN PROG=ADAZIN,DB=99,IDTNAME=ADABAS6B ADAZIN /ASS-SYSDTA *PRIM /ASS-SYSLST *PRIM /ASS-SYSOUT *PRIM /END-PROC
Refer to ADAZIN(J) in the Adabas source library for this example.
| Data Set | Link Name | Storage | More Information |
|---|---|---|---|
| Load | DDZIN | disk | not required. If not specified, the load modules will be listed from the STEPLIB, JOBLIB, LPA, and LNKLST. If specified, one or more load libraries should be supplied. |
| Load | STEPLIB | disk | required to supply code for ADAZIN utility and as default if no DDZIN link name is specified. |
| ADARUN parameters | DDCARD | reader | Operations |
| ADAZIN parameters | DDKARTE | reader | |
| ADARUN messages | DDPRINT | printer | Messages and Codes |
| ADAZIN messages | DDDRUCK | printer | Messages and Codes |
//ADAZIN JOB . . . //* //ZIN EXEC PGM=ADARUN,REGION=0M //STEPLIB DD DISP=SHR,DSN=ADABAS.ADA822.LOAD //* //DDZIN DD DISP=SHR,DSN=ADABAS.ACF822.LOAD // DD DISP=SHR,DSN=ADABAS.ADA822.LOAD //* //DDDRUCK DD SYSOUT=* //DDPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //DDCARD DD * ADARUN PROG=ADAZIN,SVC=235,DEVICE=3390,DBID=123 /* //DDKARTE DD * ADAZIN
Refer to ADAZIN in the JOBS data set for this example.
| Data Set | Link Name | Storage | More Information |
|---|---|---|---|
| ADARUN parameters | CARD | reader | Operations |
| ADAZIN parameters | KARTE | reader | |
| ADARUN messages | printer | Messages and Codes | |
| ADAZIN messages | DRUCK | printer | Messages and Codes |
* $$ JOB JNM=ADAZIN,DISP=D,CLASS=A * $$ LST DISP=D,CLASS=A // JOB ADAZIN // DLBL SAGLIB,'ADABAS.LIBRARY' // EXTENT SYS018 // ASSGN SYS018,DISK,VOL=USRVL1,SHR // LIBDEF PHASE,SEARCH=(SAGLIB.ACFvrs,SAGLIB.ADAvrs),TEMP // ASSGN SYS009,PRINTER // EXEC ADARUN,SIZE=ADARUN ADARUN PROG=ADAZIN,SVC=xxx,DEVICE=dddd,DBID=yyyyy /* ADAZIN /* /& * $$ EOJ
Refer to member ADAZIN.X for this example.
See Library and File Procedures for z/VSE Examples for descriptions of the z/VSE procedures (PROCs).
