Version 8.2.5 SEARCH   INDEX   CONTENTS   |   PDF PAGE   PDF BOOKS   |   HOME   UP   PREV   NEXT
 —  Utilities  —

JCL/JCS Requirements and Examples

This section describes the job control information required to run ADAPLP with BS2000, z/OS, and z/VSE systems and shows examples of each of the job streams.

This document covers the following topics:

BS2000

Data Set 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 Data Sets

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

z/OS

Data Set 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 (z/OS)

Refer to the JOBS data set for the following example jobs:

Job Member Description
ADAPLP Print protection log (from multiple data set 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 Data Sets 

//ADAPLP    JOB
//*
//*   ADAPLP: PROTECTION LOG PRINT (FROM MULTIPLE PLOG)
//*
//PLP       EXEC PGM=ADARUN
//STEPLIB   DD   DISP=SHR,DSN=ADABAS.ADAvrs.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.ADAvrs.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.ADAvrs.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.ADAvrs.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

z/VSE

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 (z/VSE)

See Library and File Procedures for z/VSE Examples for a description of the z/VSE 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 Data Sets 

* $$ 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

 www.softwareag.com  Copyright © 1971-2013 Software AG, Darmstadt, Germany.   SEARCH   INDEX   CONTENTS   |   PDF PAGE   PDF BOOKS   |   HOME   UP   PREV   NEXT