JCL/JCS Requirements and Examples

#### Search Results

Search

# 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

- z/OS

- z/VSE

## BS2000

File | 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 SET-LOGON-PARAMETERS
     /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
     /EXIT-JOB MODE=NORMAL,SYS-OUT=NONE

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 SET-LOGON-PARAMETERS
     /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
     /EXIT-JOB MODE=NORMAL,SYS-OUT=NONE

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 SET-LOGON-PARAMETERS
     /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
     /EXIT-JOB MODE=NORMAL,SYS-OUT=NONE

#### 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 SET-LOGON-PARAMETERS
     /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
     /EXIT-JOB MODE=NORMAL,SYS-OUT=NONE

#### 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

## 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
    /*

## 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

### On this page

- BS2000
- z/OS
- z/VSE