JCL/JCS Requirements and Examples

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

Note:
When you specify a dataset (such as ASSO) that is not utilized by ADAULD, it will be ignored.

This document covers the following topics:

BS2000

File Link Name Storage More Information
Unloaded data DDOUT1 tape/ disk Output by ADAULD (see note)
Unloaded data DDOUT2 tape/ disk Output by ADAULD (see note)
Unloaded ISNs DDISN tape/ disk Required with DDISN
Save tape DDSAVE tape/ disk Required with SAVETAPE
Sequential PLOG DDPLOG tape/ disk Required for online save tapes
Temp area DDTEMPR1 disk Required for online save tapes
Recovery log (RLOG) DDRLOGR1 disk Required for ADARAI
ADARUN parameters SYSDTA/ DDCARD   Operations
ADAULD parameters SYSDTA/ DDKARTE    
ADARUN messages SYSOUT/ DDPRINT   Messages and Codes
ADAULD messages SYSLST/ DDDRUCK   Messages and Codes

Note:
DDOUT1 and DDOUT2 must have the same block size; otherwise, an ADAULD error will occur. DDOUT2 is required only if NUMOUT=2 is specified.

ADAULD JCL Examples (BS2000)

Unload from Database

In SDF Format:

/.ADAULD SET-LOGON-PARAMETERS
 /MODIFY-TEST-OPTIONS DUMP=YES
 /REMARK *
 /REMARK * A D A U L D NON-SAVETAPE FUNCTIONS
 /REMARK *
 /DELETE-FILE ADAyyyyy.OUT1     
 /SET-JOB-STEP
 /CREATE-FILE ADAyyyyy.OUT1,PUB(SPACE=(480,48))
 /SET-JOB-STEP
 /ASS-SYSLST L.ULD     
 /ASS-SYSDTA *SYSCMD
 /SET-FILE-LINK DDLIB,ADAvrs.MOD
 /SET-FILE-LINK DDOUT1,ADAyyyyy.OUT1
 /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
 ADARUN PROG=ADAULD,DB=yyyyy,IDTNAME=ADABAS5B
 ADAULD FILE=1,SORTSEQ=AA
 /EXIT-JOB MODE=NORMAL,SYS-OUT=NONE

In ISP Format:

/.ADAULD LOGON
 /OPTION MSG=FH,DUMP=YES
 /REMARK *
 /REMARK * A D A U L D NON-SAVETAPE FUNCTIONS
 /REMARK *
 /SYSFILE SYSLST=L.ULD
 /FILE ADA.MOD ,LINK=DDLIB
 /FILE ADAyyyyy.OUT1 ,LINK=DDOUT1 ,SPACE=(480,48)
 /EXEC (ADARUN,ADA.MOD)
 ADARUN PROG=ADAULD,DB=yyyyy,IDTNAME=ADABAS5B
 ADAULD FILE=1,SORTSEQ=AA
 /LOGOFF NOSPOOL

Unload from Offline Save Tape

In SDF Format:

/.ADAULD SET-LOGON-PARAMETERS
 /MODIFY-TEST-OPTIONS DUMP=YES
 /REMARK *
 /REMARK * A D A U L D SAVETAPE FUNCTION
 /REMARK *
 /DELETE-FILE ADAyyyyy.OUT1     
 /SET-JOB-STEP
 /CREATE-FILE ADAyyyyy.OUT1,PUB(SPACE=(480,48))
 /SET-JOB-STEP
 /ASS-SYSLST L.ULD     
 /ASS-SYSDTA *SYSCMD
 /SET-FILE-LINK DDLIB,ADAvrs.MOD
 /SET-FILE-LINK DDOUT1,ADAyyyyy.OUT1
 /SET-FILE-LINK DDSAVE,ADAyyyyy.SAVE
 /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
 ADARUN PROG=ADAULD,DB=yyyyy,IDTNAME=ADABAS5B
 ADAULD FILE=1,SAVETAPE
 /EXIT-JOB MODE=NORMAL,SYS-OUT=NONE

In ISP Format:

/.ADAULD LOGON
 /OPTION MSG=FH,DUMP=YES
 /REMARK *
 /REMARK * A D A U L D SAVETAPE FUNCTION
 /REMARK *
 /SYSFILE SYSLST=L.ULD
 /FILE ADA.MOD ,LINK=DDLIB
 /FILE ADAyyyyy.OUT1 ,LINK=DDOUT1 ,SPACE=(480,48)
 /FILE ADAyyyyy.SAVE ,LINK=DDSAVE
 /EXEC (ADARUN,ADA.MOD)
 ADARUN PROG=ADAULD,DB=yyyyy,IDTNAME=ADABAS5B
 ADAULD FILE=1,SAVETAPE
 /LOGOFF NOSPOOL

z/OS

Data Set DD Name Storage More Information
Unloaded data DDOUT1 tape/ disk Output by ADAULD (see note)
Unloaded data DDOUT2 tape/ disk Output by ADAULD (see note)
Unloaded ISNs DDISN tape/ disk Required with DDISN
Save tape DDSAVE tape/ disk Required with SAVETAPE
Sequential PLOG DDPLOG tape/ disk Required for online save tapes
Temp area DDTEMPR1 disk Required for online save tapes
Recovery log (RLOG) DDRLOGR1 disk Required for ADARAI
ADAULD messages DDDRUCK printer Messages and Codes
ADARUN messages DDPRINT printer Messages and Codes
ADARUN parameters DDCARD reader Operations
ADAULD parameters DDKARTE reader  

Note:
DDOUT1 and DDOUT2 must have the same block size; otherwise, an ADAULD error will occur. DDOUT2 is required only if NUMOUT=2 is specified.

ADAULD JCL Examples (z/OS)

Unload a File

//ADAULD    JOB
//*
//*   ADAULD:
//*      UNLOAD A FILE
//*
//ULD       EXEC PGM=ADARUN
//STEPLIB   DD   DISP=SHR,DSN=ADABAS.ADAvrs.LOAD       <=== ADABAS LOAD
//*
//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
//DDOUT1    DD   DISP=(,CATLG),DSN=EXAMPLE.DByyyyy.OUT1,UNIT=DISK, <===
//          VOL=SER=DISK01,SPACE=(TRK,(200,10),RLSE)
//DDCARD    DD   *
ADARUN PROG=ADAULD,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADAULD FILE=1,SORTSEQ=AA 
/*

Refer to ADAULD in the JOBS data set for this example.

Unload a File from Save Tape Created Offline 

//ADAULDS   JOB
//*
//*   ADAULD:
//*      UNLOAD A FILE  FROM AN OFFLINE SAVE TAPE
//*
//ULD       EXEC PGM=ADARUN
//STEPLIB   DD   DISP=SHR,DSN=ADABAS.ADAvrs.LOAD      <=== ADABAS LOAD
//*
//DDDATAR1  DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.DATAR1 <=== DATA
//DDWORKR1  DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.WORKR1 <=== WORK
//DDSAVE    DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.SAVE   <=== SAVE DATASET
//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X
//DDOUT1    DD   DISP=(,CATLG),DSN=EXAMPLE.DByyyyy.OUT1,UNIT=DISK, <===
//          VOL=SER=DISK01,SPACE=(TRK,(200,10),RLSE)
//DDCARD    DD   *
ADARUN PROG=ADAULD,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADAULD FILE=1,SAVETAPE 
/*

Refer to ADAULDS in the JOBS data set for this example.

z/VSE

File Symbolic Name Storage Logical Unit More Information
Unloaded data OUT1 tape
disk 		SYS010
see note 1 		Output by ADAULD
(see note 2)
Unloaded data OUT2 tape
disk 		SYS011
see note 1 		Output by ADAULD
(see note 2)
Unloaded ISNs ISN tape
disk 		SYS012
see note 1 		Required with DDISN
Save tape SAVE tape
disk 		SYS013
see note 1 		Required with SAVETAPE
Sequential PLOG PLOG tape
disk 		SYS014
see note 1 		Required for online save tapes
Temp area TEMPR1 disk see note 1 Required for online save tapes
Recovery log (RLOG) RLOGR1 disk see note 1 Required for ADARAI
Messages SYSLST printer   Messages and Codes
ADARUN parameters SYSRDR
CRD 		reader/
tape/ disk 		  Operations
ADAULD parameters SYSIPT reader    

Notes:

  1. Any programmer logical unit can be used.
  2. OUT1 and OUT2 must have the same block size; otherwise, an ADAULD error will occur. OUT2 is required only if NUMOUT=2 is specified.

ADAULD JCS Examples (z/VSE)

See Library and File Procedures for z/VSE Examples for descriptions of the z/VSE procedures (PROCs).

Unload a File from a Database

* $$ JOB JNM=ADAULD,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D

// JOB ADAULD
*       UNLOAD A FILE
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// ASSGN SYS004,DISK,VOL=vvvvvv,SHR
// DLBL OUT1,'EXAMPLE.ADA99.OUT1'
// EXTENT SYS004,,,,ssss,nnnn
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADAULD,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADAULD FILE=1,SORTSEQ=AA
/*
/&
* $$ EOJ

Refer to member ADAULD.X for this example.

Unload a File from Save Tape Created Offline 

* $$ JOB JNM=ADAULDS,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADAULDS
*       UNLOAD A FILE FROM AN OFFLINE SAVE TAPE
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// ASSGN SYS004,DISK,VOL=vvvvvv,SHR
// DLBL OUT1,'EXAMPLE.ADA99.OUT1'
// EXTENT SYS004,,,,ssss,nnnn
// ASSGN SYS013,TAPE
// PAUSE MOUNT LOAD SAVE FILE ON TAPE cuu
// TLBL SAVE,'EXAMPLE.DByyyyy.SAVE'
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADAULD,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADAULD FILE=1,SAVETAPE
/*
/&
* $$ EOJ

Refer to member ADAULDS.X for this example.