Five-Step z/VSE JCL—Local Mode

Execution JCL › One-Step and Five-Step JCL › Five-Step z/VSE JCL—Local Mode

Five-Step z/VSE JCL—Local Mode

Here is sample five-step z/VSE JCL to execute CA Culprit batch jobs in local mode:

CA Culprit five-step (local mode) (z/VSE)

// JOB    CULP5STP
// DLBL   idmslib,'idms.library'
// EXTENT sysxxx,vvvvvv,,,ssss,tttt
// ASSGN  sysxxx,DISK,VOL=vvvvvv,SHR
// LIBDEF *,SEARCH=CA-IDMS libraries
// EXEC PROC=idmslbls
// ASSGN  SYS004,SYSLST
// DLBL   SYS005,'uprmwork',0
// EXTENT SYS005,vvvvvv,,,ssss,tttt
// ASSGN  SYS005,DISK,VOL=vvvvvv,SHR
// ASSGN  sysxxx,IGN          *ASSGN SYSJRNL to IGN*
// DLBL   SYSIDMS,'sysidms.parms'
// EXTENT sysxxx,vvvvvv,,,ssss,tttt
// ASSGN  sysxxx,DISK,VOL=vvvvvv,SHR
// EXEC   CULP0,SIZE=1024K
  Put CA Culprit commands here
/*

// DLBL   SORTWK1,'sortwk1.fileid',0
// EXTENT sysxxx,vvvvvv,,,ssss,tttt
// ASSGN  sysxxx,DISK,VOL=vvvvvv,SHR
// DLBL   SORTWK2,'sortwk2.fileid',0
// EXTENT sysxxx,vvvvvv,,,ssss,tttt
// ASSGN  sysxxx,DISK,VOL=vvvvvv,SHR
// DLBL   SORTWK3,'sortwk3.fileid',0
// EXTENT sysxxx,vvvvvv,,,ssss,tttt
// ASSGN  sysxxx,DISK,VOL=vvvvvv,SHR
// DLBL   SORTWK4,'sortwk4.fileid',0
// EXTENT sysxxx,vvvvvv,,,ssss,tttt
// ASSGN  sysxxx,DISK,VOL=vvvvvv,SHR
// DLBL   SYS005,'uprmwork',0
// EXTENT SYS005,vvvvvv,,,ssss,tttt
// ASSGN  SYS005,DISK,VOL=vvvvvv,SHR
// DLBL   SYS006,'sprmwork',0
// EXTENT SYS006,vvvvvv,,,ssss,tttt
// ASSGN  SYS006,DISK,VOL=vvvvvv,SHR
// EXEC   SORT,SIZE=1024K
* $$ SLI MEM=SORT1.SAMPS,S=idmslib.sublibrary
/*

// ASSGN  SYS004,SYSLST
// DLBL   SYS005,'sprmwork',0
// EXTENT SYS005,vvvvvv,,,ssss,tttt
// ASSGN  SYS005,DISK,VOL=vvvvvv,SHR
// DLBL   SYS006,'uextwork',0
// EXTENT SYS006,vvvvvv,,,ssss,tttt
// ASSGN  SYS006,DISK,VOL=vvvvvv,SHR
// DLBL   SYS007,'srtpwork',0
// EXTENT SYS007,vvvvvv,,,ssss,tttt
// ASSGN  SYS007,DISK,VOL=vvvvvv,SHR
// DLBL   SYS008,'nsrtwork',0
// EXTENT SYS008,vvvvvv,,,ssss,tttt
// ASSGN  SYS008,DISK,VOL=vvvvvv,SHR
// DLBL   SYS002,'user.keyfile'
// EXTENT SYS002,vvvvvv,,,ssss,tttt
// ASSGN  SYS002,DISK,VOL=vvvvvv,SHR
// TLBL   SYS010,'user.inputfil'
// ASSGN  SYS010,cuu

// TLBL   SYS011,'user.matchfil'
// ASSGN  SYS011,cuu
// TLBL   SYS020,'user.nonprint'
// ASSGN  SYS020,cuu
// DLBL   dcmsg,'idms.sysmsg.ddldcmsg',,DA
// DLBL   SYSIDMS,'sysidms.parms'
// EXTENT sysxxx,vvvvvv,,,ssss,tttt
// ASSGN  sysxxx,DISK,VOL=vvvvvv,SHR
// EXEC   CULL,SIZE=1024K
  Put user input here if on cards
/*
// DLBL   SORTWK1,'sortwk1.fileid',0
// EXTENT sysxxx,vvvvvv,,,ssss,tttt
// ASSGN  sysxxx,DISK,VOL=vvvvvv,SHR
// DLBL   SORTWK2,'sortwk2.fileid',0
// EXTENT sysxxx,vvvvvv,,,ssss,tttt
// ASSGN  sysxxx,DISK,VOL=vvvvvv,SHR
// DLBL   SORTWK3,'sortwk3.fileid',0
// EXTENT sysxxx,vvvvvv,,,ssss,tttt

// ASSGN  sysxxx,DISK,VOL=vvvvvv,SHR
// DLBL   SORTWK4,'sortwk4.fileid',0
// EXTENT sysxxx,vvvvvv,,,ssss,tttt
// ASSGN  sysxxx,DISK,VOL=vvvvvv,SHR
// DLBL   SORTIN1,'uextwork',0
// EXTENT sysxxx,vvvvvv,,,ssss,tttt
// ASSGN  sysxxx,DISK,VOL=vvvvvv,SHR
// DLBL   SORTOUT,'sextwork',0
// EXTENT sysxxx,vvvvvv,,,ssss,tttt
// ASSGN  sysxxx,DISK,VOL=vvvvvv,SHR
// DLBL   IJSYSIN,'srtpwork'
// EXTENT SYSIPT,vvvvvv,,,ssss,tttt
// ASSGN  SYSIPT,DISK,VOL=vvvvvv,SHR
// EXEC   SORT,SIZE=1024K
/*

// ASSGN  SYS004,SYSLST
// DLBL   SYS006,'sextwork',0
// EXTENT SYS006,vvvvvv,,,ssss,tttt
// ASSGN  SYS006,DISK,VOL=vvvvvv,SHR
// DLBL   SYS008,'nsrtwork',0
// EXTENT SYS008,vvvvvv,,,ssss,tttt
// ASSGN  SYS008,DISK,VOL=vvvvvv,SHR
// DLBL   IJSYSPH,'srtpwork'
// EXTENT SYSPCH,vvvvvv,,,ssss,tttt
// ASSGN  SYSPCH,DISK,VOL=vvvvvv,SHR
// TLBL   SYS020,'user.nonprint'
// ASSGN  SYS020,cuu
// DLBL   SYSIDMS,'sysidms.parms'
// EXTENT sysxxx,vvvvvv,,,ssss,tttt
// ASSGN  sysxxx,DISK,VOL=vvvvvv,SHR
// EXEC   CULE,SIZE=1024K
   Restart parameter
/*
/&

idmslib	Filename of the CA IDMS library
'idms.library'	File-id of the CA IDMS library, as established during installation
sysxxx	SYS number
vvvvvv	Volume serial number
ssss	Starting extent
tttt	Number of tracks
idmslib.sublibrary	Base sub-library name in idms.library
CA IDMS libraries	The CA IDMS libraries, as established during installation
idmslbls	A procedure containing file definitions for dictionaries, sample databases, disk journal files, and the SYSIDMS file. For more information, see IDMSLBLS Procedure, later in this chapter.
uprmwork	Data set name of unsorted parameter file
sysctl	Procedure name that contains the SYSCTL file
idms.sysmsg.ddldcmsg	Data set name of the system message (DDLDCMSG) area
sysidms.parms	Data set name of the SYSIDMS file that contains the dmcl-name and other appropriate SYSIDMS parameters
dmcl-name	Name of the DMCL
srtwk1.fileid	Data set name of sort workfile
srtwk2.fileid	Data set name of sort workfile
srtwk3.fileid	Data set name of sort workfile
sprmwork	Data set name of sorted parameters file that contains the output from the first sort step
uextwork	Data set name of unsorted extracted item data set; the record length for extracted records must be in the range 256 - 1024 bytes; the block size is typically 1/4 to 1/2 track; CA Culprit copies this DCB information to SYS008
sextwork	Data set name of sorted extracted items file
srtpwork	Data set name of the sort-control parameter file
nsrtwork	Filename of unsorted extract output data set
user.keyfile	Data set name of a key file (required only if a key file is input)
user.inputfil	Data set name for primary input file
cuu	Address of the tape device
user.matchfil	Data set name for match file (default ddnames for subsequent files are SYS012, SYS013, and so on)
user.nonprint	Data set name for nonprint/nonpunch output (omitted is there are no such files; default ddnames for subsequent nonprint/nonpunch output files are SYS021, SYS022, on so on)

Database Access

The following JCL modifications must be made to the CULP0, CULP2, and CULP4 steps in order to access non-SQL defined database records or tables; the run must execute each step under the central version of CA IDMS/DB in order to access tables:

In the CULP0 step, the following modifications are required:
- If the CULP0 step is executed under the central version, add the following statement before the //EXEC CULP0 statement:
```
// UPSI    xxxxxxxx       if specified in the IDMSOPTI module
```
  Note: To override the IDMSOPTI specification, define a SYSCTL file in the JCL:
```
// DLBL     sysctl,'idms.sysctl',,DA
// EXTENT   sys017,nnnnnn
// ASSGN    sys017,DISK,VOL=nnnnnn,SHR
```
- If the CULP0 step is run locally, JCL statements must be included for the user's CA IDMS/DB data dictionary and its associated journal files. The following JCL must be added between the // EXTENT SYS005 and // ASSGN SYSSLB statements:
```
// ASSGN   sys009,IGN
  additional journal-file assignments, as required
// ASSGN   sys015,X,'ddd'
// DLBL    dictdb,'idms.dictdb',,DA
// EXTENT  sys015,X,nnnnnn,,,ssss,llll
```
In the CULP2 step, the following modifications are required:
- If the CULP2 step is executed under the central version, add the following statement before the //EXEC CULL statement:
```
// UPSI    xxxxxxxx       if specified in the IDMSOPTI module
```
  Note: To override the IDMSOPTI specification, define a SYSCTL file in the JCL:
```
// DLBL     sysctl,'idms.sysctl',,DA
// EXTENT   sys017,nnnnnn
// ASSGN    sys017,DISK,VOL=nnnnnn,SHR
```
- If the CULP2 step is run locally, JCL statements must be included for the user's database and its associated journal files. The following JCL must be added between the // TLBL SYS011 and // EXEC CULL statements:
```
// ASSGN   sys009,IGN
   additional journal-file assignments, as required
// ASSGN   sys018,X,'ddd'
// DLBL    userdb,'user.userdb',,DA
// EXTENT  userdb,X,nnnnnn,,,ssss,llll
  additional database-file assignments, as required
```
- To access a key file, add the following statements after the // ASSGN SYS004 statement:
```
// ASSGN  SYS002,X'ppp'
// TLBL   SYS002,'user.keyfile'
```
In the CULP4 step, the following statement is required to access tables; add the statement before the // EXEC CULE statement:
```
// UPSI    xxxxxxxx       if specified in the IDMSOPTI module
```
Note: To override the IDMSOPTI specification, define a SYSCTL file in the JCL:
```
// DLBL     sysctl,'idms.sysctl',,DA
// EXTENT   sys017,nnnnnn
// ASSGN    sys017,DISK,VOL=nnnnnn,SHR
```

xxxxxxxx	Appropriate UPSI value (default installation is 1)
idms.dictdb	File-ID of the data dictionary file
idms.sysctl	File-ID of the SYSCTL file
dictdb	Filename of the data dictionary file
nnnnnn	Volume serial number
sysctl	Filename of the SYSCTL file
sys009	Filename for journal file as assigned at CA IDMS/DB installation (ASSGN omitted if input is other than CA IDMS/DB database)
sys015	Filename for data dictionary as assigned at CA IDMS/DB installation (omitted if input is other than CA IDMS/DB database)
sys017	Logical unit assignment of the SYSCTL file
sys018	Filename for CA IDMS/DB database as assigned in the schema definition (required if input is CA IDMS/DB; omitted if it is not)
userdb	Filename of the database file
user.keyfile	File-ID of the key file (required only if a key file is input)
user.userdb	File-ID of the CA IDMS/DB database