219. EPMO Open Source Coordination Office Redaction File Detail Report

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.

219.1 Files compared

# 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

219.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 66
Changed 1 4
Inserted 0 0
Removed 0 0

219.3 Comparison options

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

219.4 Active regular expressions

No regular expressions were active.

219.5 Comparison detail

  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=
A I ,MSGCLASS= R
  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