Produced by Araxis Merge on 11/9/2018 12:34:08 AM Central Standard Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.
# | Location | File | Last Modified |
---|---|---|---|
1 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMSNJCL.m | Mon Nov 5 16:43:23 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMSNJCL.m | Fri Nov 9 03:24:03 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 66 |
Changed | 1 | 4 |
Inserted | 0 | 0 |
Removed | 0 | 0 |
Whitespace | |
---|---|
Character case | Differences in character case are significant |
Line endings | Differences in line endings (CR and LF characters) are ignored |
CR/LF characters | Not shown in the comparison detail |
No regular expressions were active.
1 | CHMSNJCL ; HBG/DEN;CR EATE JCL A ND SUBMIT JOB TO GAT EWAY;01/09 /92 12:47 PM | |
2 | ;V1.0 | |
3 | ZSET S:'$D (DUZ) DUZ= 1,DUZ(0)=" " I '$D(DT ) S %DT="" ,X="T" D ^ %DT S DT=Y | |
4 | S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME) DTIME=60 | |
5 | I '$D(IOZ ) S %IS="N ",IOP=$I D ^%ZIS K I OP S IOZ=I O,IOZL=IOS L,IOZW=IOM ,IOZF=IOF, IOZT=IOST, IOZN=ION,I OZS=IOS | |
6 | ZNAM ; | |
7 | S ION="", UQIOD=0 | |
8 | S UQPGM=" START^CHMS NJCL",UQNA M="CAPPS/C ALM SUBMIS SION",UQDT =$H | |
9 | D XQUEUE1 ^XTZQUE Q | |
10 | START S I= 1,IO="HAC_ HFS$:[DSMM ANAG]CHMSN JCL.JCL" | |
11 | O IO:"NWV " | |
12 | Q:'$T | |
13 | A S X=$P($ T(JCL+I)," ;",2) G:X= "" B O IO U IO W X C IO S RC=$ ZF(-1,"SET PROT=(W:R WED)") S I =I+1 G A | |
14 | B C IO S R C=$ZF(-1," SET PROT=( W:RWED)") S I=1,IO=" HAC_HFS$:[ DSMMANAG]C HMSNJCL.CO M" | |
15 | O IO:"NWV ":0 Q:'$T | |
16 | B1 S X=$P( $T(COM+I), ";",2) G:X ="" C O IO U IO W X C IO S RC= $ZF(-1,"SE T PROT=(W: RWED)") S I=I+1 G B1 | |
17 | C C IO S R C=$ZF(-1," SET PROT=( W:RWED)") S DUMMY="H AC_HFS$:[D SMMANAG]CH MSNJCL.LOG " | |
18 | S X=$ZF(- 1,"SUBMIT/ LOG=HAC_HF S$:[DSMMAN AG]SUBMIT_ SNA/USER=H ACCACHEMGR /QUE=VA554 0$BATCH HA C_HFS$:[DS MMANAG]CHM SNJCL.COM/ PARAM="_DU MMY) Q | |
19 | JCL ; | |
20 | ;//S554HB G4 JOB (PT F01C16),'P ICKUP DATA SET',USER = AI , | |
21 | ;// PASSWORD=
|
|
22 | ;//* | |
23 | ;//DNCOPY EXEC PGM =OPC105,PA RM=' ' | |
24 | ;//STEPLI B DD DSN= MRXPRD.SYS .LOAD,DISP =SHR | |
25 | ;//SYSOUT DD SYSOU T=A | |
26 | ;//SYSPRI NT DD SYS OUT=A | |
27 | ;//SYSUT1 DD DSN=R MTPRD.S554 SFH.R830.R 830S91,DIS P=OLD | |
28 | ;//SYSUT2 DD SYSOU T=A | |
29 | ; | |
30 | COM ;$! | |
31 | ;$! CH MSNJCL.COM | |
32 | ;$! | |
33 | ;$! PI CKUP A DAT ASET | |
34 | ;$! | |
35 | ;$ SUBMIT /SNA HAC_H FS$:[DSMMA NAG]CHMSNJ CL.JCL |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.