-
Notifications
You must be signed in to change notification settings - Fork 5
/
Copy pathCATSNDVR.NDVR.EMER.JCL(EXPAND).jcl
29 lines (29 loc) · 1.41 KB
/
CATSNDVR.NDVR.EMER.JCL(EXPAND).jcl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
//ZUEXPND JOB (12345678),'ZUNIT USER',CLASS=B,PRTY=6,
// MSGCLASS=X,USER=USRNME,NOTIFY=&SYSUID
//*-------------------------------------------------------------------
//*-ZUnit Expand ---------------------------------------------------
//*-------------------------------------------------------------------
// EXPORT SYMLIST=(*) <- make JCL symbols available
//*---
// SET INPUT=PUBLIC.ZUNIT.COMPRESS.ANAGRA2 <- Input
// SET HLQ=PUBLIC.ZUNIT.TESTS.ANAGRA2 <- To be created
//*---
// SET VOLUME= <- Optional volume for output
//*---
// SET ENDEVOR=CAIPRODD.NDVR.V181S0A <- Endevor lib prefix
//*---
//*--Rexx: (DSNCMPRS) ----------------------
//*---------------------------------------------------------------
//*---------------------------------------------------------------
//EXPAND EXEC PGM=IKJEFT1B,PARM='DSNCMPRS'
//OPTIONS DD *,SYMBOLS=JCLONLY <- Permits JCL variables here
Action = 'EXPAND'
VolSer="&VOLUME"
MyHLQ = '&HLQ'
InpOutputDsn = '&INPUT'
//*DSNCMPRS DD DUMMY <- Turn on Trace
//DSNCMPRS DD DUMMY
//SYSEXEC DD DSN=CATSNDVR.NDVR.EMER.CSIQCLS0,DISP=SHR
//SYSTSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//*---------------------------------------------------------------