# : : generated from jcm.rt by mktest : : #
# regression tests for the jcm command
UNIT jcm
TEST 01 basics
EXEC -c t.jcm
INPUT -n t.jcm 'DDC1000 05 M YYYYYYYYYYYY '\
' W W YYYYYYYYYYYY '\
' MI~PXWAITDC-UB-UBWMBMRG J2599999999 9999 '\
' LMEMLIB.BASE '\
' 305 HWM: DUMMY JOB TO WAIT FOR ~DD-NAME FRAG SORTS '\
' VDUMMY DC-UB '\
' T%%RUNMODE=I '\
' T%%STREAM=* '\
' T%%JOBPREFX=~PX '\
' T%%INSTNC=~INSTNC8 '\
' T%%DDNAME=~DD-NAME '\
' T%%CTN=~@ '\
' T%%CYCL=~# '\
' ZMERGE DOCLIB.BASE '\
' V300 IDCJ-I~PS~FIN-OK-~@~'\
'#ODAT QDCQ-WLB '\
' 0001XAQ-CTM-OK 0001 ODCJ-I~PXWAI'\
'T-OK-~@~#ODAT+ BYY10015'\
'Y R '\
' 03 '\
'C,,,,ANYSTEP 001C0000 K%%%RUNMODE=R '\
' C ,,,,ANYSTEP 001EXERR %%%RUNMODE=R '\
' C '\
' SNU-ECS R45%%APPL %%JOBNAME NOTOK %%JOBCC %%ODATE %%TI'\
'ME '
OUTPUT - $'=== t.jcm ===
DDC1000 05 M YYYYYYYYYYYY
W W YYYYYYYYYYYY
MI~PXWAITDC-UB-UBWMBMRG J2599999999 9999
LMEMLIB.BASE 305
HWM: DUMMY JOB TO WAIT FOR ~DD-NAME FRAG SORTS
VDUMMY DC-UB
T%%RUNMODE=I
T%%STREAM=*
T%%JOBPREFX=~PX
T%%INSTNC=~INSTNC8
T%%DDNAME=~DD-NAME
T%%CTN=~@
T%%CYCL=~#
ZMERGE DOCLIB.BASE V300
IDCJ-I~PS~FIN-OK-~@~#ODAT
QDCQ-WLB 0001XAQ-CTM-OK 0001
ODCJ-I~PXWAIT-OK-~@~#ODAT+
BYY10015Y
R 03
C,,,,ANYSTEP 001C0000 K%%%RUNMODE=R ,,,,ANYSTEP 001'\
$'EXERR %%%RUNMODE=R
SNU-ECS R45%%APPL %%JOBNAME NOTOK %%JOBCC %%ODATE %%TIME'
EXEC t.jcm
OUTPUT - $':JCL:
JCL_AUTO_RUNMODE == I
JCL_AUTO_STREAM == *
JCL_AUTO_JOBPREFX == $(JCL_AUTO_PX)
JCL_AUTO_INSTNC == $(JCL_AUTO_INSTNC8)
JCL_AUTO_DDNAME == $(JCL_AUTO_DD-NAME)
JCL_AUTO_CTN == $(JCL_AUTO_at)
JCL_AUTO_CYCL == $(JCL_AUTO_pound)
all : .VIRTUAL DC-UB-UBWMBMRG
DC-UB-UBWMBMRG : .VIRTUAL JOB-I$(JCL_AUTO_PX)WAIT
JOB-I$(JCL_AUTO_PX)WAIT : .VIRTUAL .DO.NOTHING DCJ-I$(JCL_AUTO_PS)$(JCL_AUTO'\
$'_FIN)-OK-$(JCL_AUTO_at)$(JCL_AUTO_pound) DCJ-I$(JCL_AUTO_PX)WAIT-OK-$(JCL_A'\
$'UTO_at)$(JCL_AUTO_pound).RAISE
DCJ-I$(JCL_AUTO_PX)WAIT-OK-$(JCL_AUTO_at)$(JCL_AUTO_pound).RAISE : .AFTER .E'\
DCJ-I$(JCL_AUTO_PS)$(JCL_AUTO_FIN)-OK-$(JCL_AUTO_at)$(JCL_AUTO_pound) : .VIR'\
'TUAL .EVENT.WAIT'
TEST 02 --initialize=file
EXEC -h u.jcm
INPUT u.ini $'JCL_AUTO_PX = 98\nJCL_AUTO_EVEN = 2\nJCL_AUTO_ODD = 3'
INPUT -n u.jcm 'DDC1000 05 M YYYYYYYYYYYY '\
' W W YYYYYYYYYYYY '\
' MI~PXWAITDC-UB-UBWMBMRG J2599999999 9999 '\
' LMEMLIB.BASE '\
' 305 HWM: DUMMY JOB TO WAIT FOR ~DD-NAME FRAG SORTS '\
' VDUMMY DC-UB '\
' T%%RUNMODE=I '\
' T%%STREAM=* '\
' T%%INSTNC=~INSTNC8 '\
' T%%DDNAME=~DD-NAME '\
' T%%CTN=~@ '\
' T%%CYCL=~# '\
' T%%EVEN=~EVEN '\
' T%%ODD=~ODD '\
' ZMERGE DOCLIB.BASE'\
' V300 IDCJ-I~PS~FIN-OK'\
'-~@~#ODAT QDCQ-WLB '\
' 0001XAQ-CTM-OK 0001 ODCJ-I~P'\
'XWAIT-OK-~@~#ODAT+ BYY1'\
'0015Y '\
'R 03 '\
' C,,,,ANYSTEP 001C0000 K%%%RUNMODE=R '\
' C ,,,,ANYSTEP 001EXERR %%%RUNMODE=R '\
' C '\
' SNU-ECS R45%%APPL %%JOBNAME NOTOK %%JOBCC %%ODATE '\
'%%TIME '
OUTPUT - $':JCL:
# WM: DUMMY JOB TO WAIT FOR $(JCL_AUTO_DD-NAME) FRAG SORTS
JCL_AUTO_RUNMODE == I
JCL_AUTO_STREAM == *
JCL_AUTO_INSTNC == $(JCL_AUTO_INSTNC8)
JCL_AUTO_DDNAME == $(JCL_AUTO_DD-NAME)
JCL_AUTO_CTN == $(JCL_AUTO_at)
JCL_AUTO_CYCL == $(JCL_AUTO_pound)
JCL_AUTO_EVEN == 1
JCL_AUTO_ODD == 1
all : .VIRTUAL DC-UB-UBWMBMRG
DC-UB-UBWMBMRG : .VIRTUAL JOB-I$(JCL_AUTO_PXWAIT)
JOB-I$(JCL_AUTO_PXWAIT) : .VIRTUAL .DO.NOTHING DCJ-I$(JCL_AUTO_PS)$(JCL_AUTO'\
$'_FIN)-OK-$(JCL_AUTO_at)$(JCL_AUTO_pound) DCJ-I$(JCL_AUTO_PXWAIT)-OK-$(JCL_A'\
$'UTO_at)$(JCL_AUTO_pound).RAISE
DCJ-I$(JCL_AUTO_PXWAIT)-OK-$(JCL_AUTO_at)$(JCL_AUTO_pound).RAISE : .AFTER .E'\
DCJ-I$(JCL_AUTO_PS)$(JCL_AUTO_FIN)-OK-$(JCL_AUTO_at)$(JCL_AUTO_pound) : .VIR'\
'TUAL .EVENT.WAIT'
OUTPUT - $':JCL:
JCL_AUTO_EVEN == 2
JCL_AUTO_ODD == 3
JCL_AUTO_PX == 98
JCL_AUTO_RUNMODE == I
JCL_AUTO_STREAM == *
JCL_AUTO_INSTNC == $(JCL_AUTO_INSTNC8)
JCL_AUTO_DDNAME == $(JCL_AUTO_DD-NAME)
JCL_AUTO_CTN == $(JCL_AUTO_at)
JCL_AUTO_CYCL == $(JCL_AUTO_pound)
all : .VIRTUAL DC-UB-UBWMBMRG
DC-UB-UBWMBMRG : .VIRTUAL JOB-I$(JCL_AUTO_PX)WAIT
JOB-I$(JCL_AUTO_PX)WAIT : .VIRTUAL .DO.NOTHING DCJ-I$(JCL_AUTO_PS)$(JCL_AUTO'\
$'_FIN)-OK-$(JCL_AUTO_at)$(JCL_AUTO_pound) DCJ-I$(JCL_AUTO_PX)WAIT-OK-$(JCL_A'\
$'UTO_at)$(JCL_AUTO_pound).RAISE
DCJ-I$(JCL_AUTO_PX)WAIT-OK-$(JCL_AUTO_at)$(JCL_AUTO_pound).RAISE : .AFTER .E'\
DCJ-I$(JCL_AUTO_PS)$(JCL_AUTO_FIN)-OK-$(JCL_AUTO_at)$(JCL_AUTO_pound) : .VIR'\
'TUAL .EVENT.WAIT'
OUTPUT - $':JCL:
JCL_AUTO_EVEN == 2
JCL_AUTO_ODD == 3
JCL_AUTO_PX == 98
JCL_AUTO_RUNMODE == I
JCL_AUTO_STREAM == *
JCL_AUTO_INSTNC == $(JCL_AUTO_INSTNC8)
JCL_AUTO_DDNAME == $(JCL_AUTO_DD-NAME)
JCL_AUTO_CTN == $(JCL_AUTO_at)
JCL_AUTO_CYCL == $(JCL_AUTO_pound)
all : .VIRTUAL DC-UB-UBWMBMRG
DC-UB-UBWMBMRG : .VIRTUAL JOB-I$(JCL_AUTO_PX)WAIT
JOB-I$(JCL_AUTO_PX)WAIT : .VIRTUAL .DO.NOTHING DCJ-I$(JCL_AUTO_PS)$(JCL_AUTO'\
$'_FIN)-OK-$(JCL_AUTO_at)$(JCL_AUTO_pound) DCJ-I$(JCL_AUTO_PS)$(JCL_AUTO_FIN)'\
$'-OK-$(JCL_AUTO_at)$(JCL_AUTO_pound)-01 DCJ-I$(JCL_AUTO_PS)$(JCL_AUTO_FIN)-O'\
$'K-$(JCL_AUTO_at)$(JCL_AUTO_pound)-02 DCJ-I$(JCL_AUTO_PX)WAIT-OK-$(JCL_AUTO_'\
$'at)$(JCL_AUTO_pound).RAISE
DCJ-I$(JCL_AUTO_PX)WAIT-OK-$(JCL_AUTO_at)$(JCL_AUTO_pound).RAISE : .AFTER .E'\
DCJ-I$(JCL_AUTO_PS)$(JCL_AUTO_FIN)-OK-$(JCL_AUTO_at)$(JCL_AUTO_pound) : .VIR'\
$'TUAL .EVENT.WAIT
DCJ-I$(JCL_AUTO_PS)$(JCL_AUTO_FIN)-OK-$(JCL_AUTO_at)$(JCL_AUTO_pound)-01 : .'\
$'VIRTUAL .EVENT.WAIT
DCJ-I$(JCL_AUTO_PS)$(JCL_AUTO_FIN)-OK-$(JCL_AUTO_at)$(JCL_AUTO_pound)-02 : .'\
'VIRTUAL .EVENT.WAIT'