Version 7.4.4
 —  Utilities  —

JCL/JCS Requirements and Examples

This section describes the job control information required to run ADAPLP 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:


BS2000

Dataset Link Name Storage More Information
Associator DDASSORn disk Required for WORKPRI.
Work DDWORKR1
DDWORKR4
disk Required for WORKPRI.
Sequential protection log DDPLOG tape/ disk Required for SPLOGPRI or IPLOGPRI.
Multiple protection log DDPLOGR1 disk Required for PLOGPRI if NUMBER=1 (the default).
Multiple protection log DDPLOGRn disk Required for PLOGPRI if NUMBER=n.
ADARUN parameters SYSDTA/ DDCARD   Operations
ADAPLP parameters SYSDTA/ DDKARTE    
ADARUN messages SYSOUT DDPRINT   Messages and Codes
ADAPLP messages SYSLST DDDRUCK   Messages and Codes

ADAPLP JCL Examples (BS2000)

Print Sequential Protection Log

In SDF Format:

/.ADAPLP LOGON
 /MODIFY-TEST-OPTIONS DUMP=YES
 /REMARK *
 /REMARK * A D A P L P PRINT SEQUENTIAL PROTECTION LOG
 /REMARK *
 /ASS-SYSLST L.PLP.SPLO
 /ASS-SYSDTA *SYSCMD
 /SET-FILE-LINK DDLIB,ADAvrs.MOD
 /SET-FILE-LINK DDPLOG,ADAyyyyy.PLOG               
 /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
 ADARUN PROG=ADAPLP,DB=yyyyy,IDTNAME=ADABAS5B
 ADAPLP SPLOGPRI PRINT
 /LOGOFF SYS-OUTPUT=DEL

In ISP Format:

/.ADAPLP LOGON
 /OPTION MSG=FH,DUMP=YES
 /REMARK *
 /REMARK * A D A P L P PRINT SEQUENTIAL PROTECTION LOG
 /REMARK *
 /SYSFILE SYSLST=L.PLP.SPLO
 /FILE ADA.MOD,LINK=DDLIB
 /FILE ADAyyyyy.PLOG,LINK=DDPLOG
 /EXEC (ADARUN,ADA.MOD)
 ADARUN PROG=ADAPLP,DB=yyyyy,IDTNAME=ADABAS5B
 ADAPLP SPLOGPRI PRINT
 /LOGOFF NOSPOOL

Print Sequential Intermediate Protection Log

In SDF Format:

/.ADAPLP LOGON
 /MODIFY-TEST-OPTIONS DUMP=YES
 /REMARK *
 /REMARK * A D A P L P PRINT SEQUENTIAL PROTECTION LOG
 /REMARK *
 /ASS-SYSLST L.PLP.SPLO
 /ASS-SYSDTA *SYSCMD
 /SET-FILE-LINK DDLIB,ADAvrs.MOD
 /SET-FILE-LINK DDPLOG,ADAyyyyy.PLOG               
 /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
 ADARUN PROG=ADAPLP,DB=yyyyy,IDTNAME=ADABAS5B
 ADAPLP IPLOGPRI PRINT
 /LOGOFF SYS-OUTPUT=DEL

In ISP Format:

/.ADAPLP LOGON
 /OPTION MSG=FH,DUMP=YES
 /REMARK *
 /REMARK * A D A P L P PRINT SEQUENTIAL PROTECTION LOG
 /REMARK *
 /SYSFILE SYSLST=L.PLP.SPLO
 /FILE ADA.MOD,LINK=DDLIB
 /FILE ADAyyyyy.PLOG,LINK=DDPLOG
 /EXEC (ADARUN,ADA.MOD)
 ADARUN PROG=ADAPLP,DB=yyyyy,IDTNAME=ADABAS5B
 ADAPLP IPLOGPRI PRINT
 /LOGOFF NOSPOOL

Print One of Multiple Protection Log Datasets

In SDF Format:

/.ADAPLP LOGON
 /MODIFY-TEST-OPTIONS DUMP=YES
 /REMARK *
 /REMARK * A D A P L P PRINT MULTIPLE PROTECTION LOG
 /REMARK *
 /ASS-SYSLST L.PLP.PLOG
 /ASS-SYSDTA *SYSCMD
 /SET-FILE-LINK DDLIB,ADAvrs.MOD
 /SET-FILE-LINK DDPLOGR1,ADAyyyyy.PLOG               
 /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
 ADARUN PROG=ADAPLP,DB=yyyyy,IDTNAME=ADABAS5B
 ADAPLP PLOGPRI PRINT
 /LOGOFF SYS-OUTPUT=DEL

In ISP Format:

/.ADAPLP LOGON
 /OPTION MSG=FH,DUMP=YES
 /REMARK *
 /REMARK * A D A P L P PRINT MULTIPLE PROTECTION LOG
 /REMARK *
 /SYSFILE SYSLST=L.PLP.PLOG
 /FILE ADA.MOD,LINK=DDLIB
 /FILE ADAyyyyy.PLOG,LINK=DDPLOGR1
 /EXEC (ADARUN,ADA.MOD)
 ADARUN PROG=ADAPLP,DB=yyyyy,IDTNAME=ADABAS5B
 ADAPLP PLOGPRI PRINT
 /LOGOFF NOSPOOL

Print Work

In SDF Format:

/.ADAPLP LOGON
 /MODIFY-TEST-OPTIONS DUMP=YES
 /REMARK *
 /REMARK * A D A P L P PRINT ADABAS WORK
 /REMARK *
 /ASS-SYSLST L.PLP.WORK
 /ASS-SYSDTA *SYSCMD
 /SET-FILE-LINK DDLIB,ADAvrs.MOD
 /SET-FILE-LINK DDASSOR1,ADAyyyyy.ASSO,SHARE-UPD=YES
 /SET-FILE-LINK DDWORKR1,ADAyyyyy.WORK,SHARE-UPD=YES
 /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
 ADARUN PROG=ADAPLP,DB=yyyyy,IDTNAME=ADABAS5B
 ADAPLP WORKPRI PRINT,TYPE=ASSO
 /LOGOFF SYS-OUTPUT=DEL

In ISP Format:

/.ADAPLP LOGON
 /OPTION MSG=FH,DUMP=YES
 /REMARK *
 /REMARK * A D A P L P PRINT ADABAS WORK
 /REMARK *
 /SYSFILE SYSLST=L.PLP.WORK
 /FILE ADA.MOD,LINK=DDLIB
 /FILE ADAyyyyy.ASSO ,LINK=DDASSOR1,SHARUPD=YES
 /FILE ADAyyyyy.WORK ,LINK=DDWORKR1,SHARUPD=YES
 /EXEC (ADARUN,ADA.MOD)
 ADARUN PROG=ADAPLP,DB=yyyyy,IDTNAME=ADABAS5B
 ADAPLP WORKPRI PRINT,TYPE=ASSO
 /LOGOFF NOSPOOL

Top of page

OS/390 or z/OS

Dataset DD Name Storage More Information
Associator DDASSORn disk Required for WORKPRI.
Work DDWORKR1
DDWORKR4
disk Required for WORKPRI.
Sequential protection log DDPLOG tape/ disk Required for SPLOGPRI or IPLOGPRI.
Multiple protection log DDPLOGR1 disk Required for PLOGPRI if NUMBER=1 (the default).
Multiple protection log DDPLOGRn disk Required for PLOGPRI if NUMBER=n.
ADAPLP messages DDDRUCK printer Messages and Codes
ADARUN messages DDPRINT printer Messages and Codes
ADARUN parameters DDCARD reader Operations
ADAPLP parameters DDKARTE reader  

ADAPLP JCL Examples (OS/390 or z/OS)

Refer to the MVSJOBS dataset for the following example jobs:

Job Member Description
ADAPLP Print protection log (from multiple dataset PLOG)
ADAPLPS Print protection log (from sequential PLOG)
ADAPLPW Print Adabas Work

These jobs are listed in the following sections.

Print One of Multiple Protection Log Datasets

//ADAPLP    JOB
//*
//*   ADAPLP: PROTECTION LOG PRINT (FROM MULTIPLE PLOG)
//*
//PLP       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
//DDPLOGR1  DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.PLOGR1 <=== PLOG
DATASET
//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X
//DDCARD    DD   *
ADARUN PROG=ADAPLP,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADAPLP PLOGPRI
/*

Print Sequential Protection Log

//ADAPLPS    JOB
//*
//*   ADAPLP: PROTECTION LOG PRINT (FROM SEQUENTIAL PLOG)
//*
//PLP       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
//DDPLOG    DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.PLOG,  <=== PLOG DATASET
//                           UNIT=TAPE,VOL=SER=PLOG5
//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X

//DDCARD    DD   *
ADARUN PROG=ADAPLP,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADAPLP SPLOGPRI
/*

Print Sequential Intermediate Protection Log

//ADAPLPS    JOB
//*
//*   ADAPLP: PROTECTION LOG PRINT (FROM SEQUENTIAL PLOG)
//*
//PLP       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
//DDPLOG    DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.PLOG,  <=== PLOG DATASET
//                           UNIT=TAPE,VOL=SER=PLOG5
//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X

//DDCARD    DD   *
ADARUN PROG=ADAPLP,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADAPLP IPLOGPRI
/*

Print Adabas Work

//ADAPLPW    JOB
//*
//*   ADAPLP: PRINT ADABAS WORK
//*
//PLP       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=ADAPLP,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADAPLP WORKPRI PRINT
/*

Top of page

VM/ESA or z/VM

Dataset DD Name Storage More Information
Associator DDASSORn disk Required for WORKPRI.
Work DDWORKR1
DDWORKR4
disk Required for WORKPRI.
Sequential protection log DDPLOG tape/ disk Required for SPLOGPRI or IPLOGPRI.
Multiple protection log DDPLOGR1 disk Required for PLOGPRI if NUMBER=1 (default).
Multiple protection log DDPLOGRn disk Required for PLOGPRI if NUMBER=n.
ADARUN parameters DDCARD disk/ terminal/ reader Operations
ADAPLP parameters DDKARTE disk/ terminal/ reader  
ADARUN messages DDPRINT disk/ terminal/ printer Messages and Codes
ADAPLP messages DDDRUCK disk/ terminal/ printer Messages and Codes

ADAPLP Examples (VM/ESA or z/VM)

Print Sequential Protection Log

DATADEF DDPLOG,DSN=ADABASVv.SIBA,MODE=A
DATADEF DDPRINT,DSN=ADAPLP.DDPRINT,MODE=A
DATADEF DUMP,DUMMY
DATADEF DDDRUCK,DSN=ADAPLP.DDDRUCK,MODE=A
DATADEF DDCARD,DSN=RUNPLP.CONTROL,MODE=A
DATADEF DDKARTE,DSN=PLPSPLOG.CONTROL,MODE=A
ADARUN                                                         

Contents of RUNPLP CONTROL A1:

ADARUN PROG=ADAPLP,DEVICE=dddd,DB=yyyyy

Contents of PLPSPLOG CONTROL A1:

ADAPLP SPLOGPRI PRINT                                                

Print Sequential Intermediate Protection Log

DATADEF DDPLOG,DSN=ADABASVv.SIBA,MODE=A
DATADEF DDPRINT,DSN=ADAPLP.DDPRINT,MODE=A
DATADEF DUMP,DUMMY
DATADEF DDDRUCK,DSN=ADAPLP.DDDRUCK,MODE=A
DATADEF DDCARD,DSN=RUNPLP.CONTROL,MODE=A
DATADEF DDKARTE,DSN=PLPSPLOG.CONTROL,MODE=A
ADARUN                                                         

Contents of RUNPLP CONTROL A1:

ADARUN PROG=ADAPLP,DEVICE=dddd,DB=yyyyy

Contents of PLPSPLOG CONTROL A1:

ADAPLP IPLOGPRI PRINT                                                

Print One of Multiple Protection Log Datasets

DATADEF DDPLOG,DSN=ADABASVv.PLOG2,VOL=PLOGV2
DATADEF DDPRINT,DSN=ADAPLP.DDPRINT,MODE=A
DATADEF DUMP,DUMMY
DATADEF DDPLOGR1,DSN=ADAPLP.DDPLOG,MODE=A
DATADEF DDDRUCK,DSN=ADAPLP.DDDRUCK,MODE=A
DATADEF DDCARD,DSN=RUNPLP.CONTROL,MODE=A
DATADEF DDKARTE,DSN=PLPDPLOG.CONTROL,MODE=A
ADARUN                                                       

Contents of RUNPLP CONTROL A1:

ADARUN PROG=ADAPLP,DEVICE=dddd,DB=yyyyy

Contents of PLPDPLOG CONTROL A1:

ADAPLP PLOGPRI PRINT

Print Work

DATADEF DDASSOR1,DSN=ADABASVv.ASSO,VOL=ASSOV1
DATADEF DDWORKR1,DSN=ADABASVv.WORK,VOL=WORKV1
DATADEF DDPRINT,DSN=ADAPLP.DDPRINT,MODE=A
DATADEF DUMP,DUMMY
DATADEF DDDRUCK,DSN=ADAPLP.DDDRUCK,MODE=A
DATADEF DDCARD,DSN=RUNPLP.CONTROL,MODE=A
DATADEF DDKARTE,DSN=PLPWORK.CONTROL,MODE=A 
ADARUN                                                          

Contents of RUNPLP CONTROL A1:

ADARUN PROG=ADAPLP,DEVICE=dddd,DB=yyyyy               

Contents of PLPWORK CONTROL A1:

ADAPLP WORKPRI PRINT,TYPE=ASSO

Top of page

VSE/ESA

File Symbolic Name Storage Logical Unit More Information
Associator ASSORn disk * Required for WORKPRI.
Work WORKR1 disk * Required for WORKPRI.
Sequential protection log PLOG tape
disk
SYS014
*
Required for SPLOGPRI or IPLOGPRI.
Multiple protection log PLOGR1 disk * Required for PLOGPRI if NUMBER=1 (default).
Multiple protection log PLOGRn disk * Required for PLOGPRI if NUMBER=n.
ADAPLP report   printer SYS009  
ADARUN messages   printer SYSLST  
ADARUN parameters SYSRDR CARD reader/tape/ disk   Operations
ADAPLP parameters SYSIPT reader    

* Any programmer logical unit may be used.

ADAPLP JCS Examples (VSE/ESA)

See Procedures for VSE/ESA Examples for a description of the VSE/ESA procedures (PROCs).

Refer to the following members for these examples:

Example Member
Print sequential protection log ADAPLPS.X
Print multiple protection log ADAPLP.X
Print Adabas Work ADAPLPW.X

Print Sequential Protection Log

* $$ JOB JNM=ADAPLPS,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADAPLPS
*       PROTECTION LOG PRINT (FROM SEQUENTIAL PLOG)
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// ASSGN SYS014,cuu
// PAUSE MOUNT LOAD INPUT FILE ON TAPE cuu
// TLBL PLOG,'EXAMPLE.DByyyyy.PLOG'
// MTC REW,SYS014
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADAPLP,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADAPLP SPLOGPRI
/*
/&
* $$ EOJ

Print Sequential Intermediate Protection Log

* $$ JOB JNM=ADAPLPS,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADAPLPS
*       PROTECTION LOG PRINT (FROM SEQUENTIAL PLOG)
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// ASSGN SYS014,cuu
// PAUSE MOUNT LOAD INPUT FILE ON TAPE cuu
// TLBL PLOG,'EXAMPLE.DByyyyy.PLOG'
// MTC REW,SYS014
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADAPLP,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADAPLP IPLOGPRI
/*
/&
* $$ EOJ

Print One of Multiple Protection Log Datasets

* $$ JOB JNM=ADAPLP,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADAPLP
*       PROTECTION LOG PRINT (FROM MULTIPLE PLOG)
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADAPLP,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADAPLP PLOGPRI
/*
/&
* $$ EOJ

Print Adabas Work

* $$ JOB JNM=ADAPLPW,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADAPLPW
*       PRINT ADABAS WORK
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADAPLP,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADAPLP WORKPRI PRINT
/*
/&
* $$ EOJ

Top of page