Code: |
CONTRACT-ID PIC X(08) FILLER PIC X(10) BGN-INCURRED-DT MM/DD/YYYY END-INCURRED-DT MM/DD/YYYY |
Code: |
CONTRACT-ID PIC X(08) FILLER PIC X(20) INCURRED-DT MM/DD/YYYY FILLER PIC X(10) |
Code: |
CONTRACT-ID PIC X(08) FILLER PIC X(20) INCURRED-DT MM/DD/YYYY FILLER PIC X(10) |
Code: |
CONTRACT-ID PIC X(08) FILLER PIC X(5) PATIENT-CD PIC X(01) FILLER PIC X(10) BGN-INCURRED-DT MM/DD/YYYY END-INCURRED-DT MM/DD/YYYY |
Code: |
CONTRACT-ID PIC X(08) FILLER PIC X(5) PATIENT-CD PIC X(01) FILLER PIC X(20) INCURRED-DT MM/DD/YYYY FILLER PIC X(10) |
Code: |
CONTRACT-ID PIC X(08) FILLER PIC X(5) PATIENT-CD PIC X(01) FILLER PIC X(20) INCURRED-DT MM/DD/YYYY FILLER PIC X(10) |
Code: |
R00113078 A 06/27/2017 04/09/2019 R00436436 C 01/23/2015 04/08/2016 |
Code: |
R00113078 A 02/22/2015 R00113078 A 01/09/2016 R00113078 A 06/28/2017 R00113078 A 07/22/2018 R00436436 C 01/12/2014 R00436436 C 11/12/2015 R00436436 C 12/12/2015 R00436436 C 03/27/2016 |
Code: |
R00113078 A 06/28/2017 R00113078 A 07/22/2018 R00436436 C 11/12/2015 R00436436 C 12/12/2015 R00436436 C 03/27/2016 |
Code: |
LRECL=80 CONTRACT-ID PIC X(09) FILLER PIC X(5) PATIENT-CD PIC X(01) FILLER PIC X(20) INCURRED-DT MM/DD/YYYY FILLER PIC X(10) FILLER PIC X(25) |
Code: |
CONTRACT-ID PIC X(09) FILLER PIC X(5) PATIENT-CD PIC X(01) FILLER PIC X(10) BGN-INCURRED-DT MM/DD/YYYY END-INCURRED-DT MM/DD/YYYY |
Code: |
Contract-id PIC X(09) Patient-cd PIC X(01) Begin-date PIC 9(08) as CCYYMMDD Filler PIC X. End-date PIC 9(08) as CCYYMMDD |
Code: |
//STEP0100 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //INA DD * ----+----1----+----2----+----3----+----4----+----5----+----6-- R00113078 A 02/22/2015 R00113078 A 01/09/2016 R00113078 A 06/28/2017 R00113078 A 07/22/2018 R00436436 C 01/12/2014 R00436436 C 11/12/2015 R00436436 C 12/12/2015 R00436436 C 03/27/2016 //INB DD * R00113078 A 06/27/201704/09/2019 R00436436 C 01/23/201504/08/2016 //SORTOUT DD SYSOUT=* //SYSIN DD * OPTION COPY JOINKEYS F1=INA,FIELDS=(01,09,A, # Contract-id 15,01,A) # Patient-cd JOINKEYS F2=INB,FIELDS=(01,09,A, # Contract-id 10,01,A) # Patient-cd REFORMAT FIELDS=(F1:01,80, F2:11,17) INREC OVERLAY=(099:42,04, # Incur-Year 36,02, # Incur-Month 39,02, # Incur-Day 110:99,8,Y4T, # Incr-Date DATEDIFF, # Minus 81,8,Y4T, # Begin-Date 120:90,8,Y4T, # End-Date DATEDIFF, # Minus 99,8,Y4T) # Incur-Date OUTFIL BUILD=(1,80), INCLUDE=(110,8,SFF,GE,0,AND, # Begin Diff >=0 and 120,8,SFF,GE,0) # end diff >=0 /* //JNF2CNTL DD * INREC BUILD=(01,09, # Contract-id 15,01, # Patient-cd 32,04, # Begin-incr-year 26,02, # Begin-incr-Month 29,02, # Begin-incr-Day X, # Space 42,04, # End-Incr-Year 36,02, # End-Incr-Month 39,02) # End-Incr-Day /* |
Code: |
R00113078 A 06/28/2017 R00113078 A 07/22/2018 R00436436 C 11/12/2015 R00436436 C 12/12/2015 R00436436 C 03/27/2016 |
Code: |
FILLER PIC X(04)
CONTRACT-ID PIC X(09) FILLER PIC X(01) PATIENT-CD PIC X(01) FILLER PIC X(45) INCURRED-DT PIC X(10) FILLER PIC X(11) |
Code: |
CONTRACT-ID PIC X(09)
FILLER PIC X(07) PATIENT-CD PIC X(01) FILLER PIC X(05) BGN-INC-DT PIC X(10) FILLER PIC X(06) END-INC-DT PC X(10) FILLER PIC X(102) |
Code: |
//DH99ST11 EXEC PGM=SORT
//SYSOUT DD SYSOUT=* //INA DD DSN=DH20062.PAID.EXCEL.PT5,DISP=SHR //INB DD DSN=DH20062.INPUT,DISP=SHR //SORTOUT DD DSN=DH20062.PAID.EXCEL.PT6, // DISP=(NEW,CATLG,DELETE), // UNIT=DISK,SPACE=(TRK,(9999,999),RLSE) //SYSIN DD * OPTION COPY JOINKEYS F1=INA,FIELDS=(05,09,A, # CONTRACT-ID 15,01,A) # PATIENT-CD JOINKEYS F2=INB,FIELDS=(01,09,A, # CONTRACT-ID 17,01,A) # PATIENT-CD REFORMAT FIELDS=(F1:01,81, F2:11,17) INREC OVERLAY=(100:42,04, # INCUR-YEAR 36,02, # INCUR-MONTH 39,02, # INCUR-DAY 111:100,8,Y4T, # INCR-DATE DATEDIFF, # MINUS 82,8,Y4T, # BEGIN-DATE 121:91,8,Y4T, # END-DATE DATEDIFF, # MINUS 100,8,Y4T) # INCUR-DATE OUTFIL BUILD=(1,81), INCLUDE=(111,8,SFF,GE,0,AND, # BEGIN DIFF >=0 AND 121,8,SFF,GE,0) # END DIFF >=0 /* //JNF2CNTL DD * INREC BUILD=(01,09, # CONTRACT-ID 17,01, # PATIENT-CD 29,04, # BEGIN-INCR-YEAR 23,02, # BEGIN-INCR-MONTH 26,02, # BEGIN-INCR-DAY X, # SPACE 45,04, # END-INCR-YEAR 39,02, # END-INCR-MONTH 42,02) # END-INCR-DAY /* // |
Code: |
//SYSIN DD * OPTION COPY JOINKEYS F1=INA,FIELDS=(05,09,A, # Contract-id 15,01,A) # Patient-cd JOINKEYS F2=INB,FIELDS=(01,09,A, # Contract-id 10,01,A) # Patient-cd REFORMAT FIELDS=(F1:01,81, # 81 byte from INA F2:11,17) # Begin and End dates INREC OVERLAY=(100:67,04, # Incur-Year 61,02, # Incur-Month 64,02, # Incur-Day 110:100,8,Y4T, # Incr-Date DATEDIFF, # Minus 82,8,Y4T, # Begin-Date 120:91,8,Y4T, # End-Date DATEDIFF, # Minus 100,8,Y4T, # Incur-Date 110:110,1, CHANGE=(1,C'*', # Invalid date diff C'-'), # set a negative diff NOMATCH=(110,1), # if good then as is 120:120,1, CHANGE=(1,C'*', # Invalid date diff C'-'), # set a negative diff NOMATCH=(120,1)) # if good then as is OUTFIL BUILD=(1,81), INCLUDE=(110,8,SFF,GE,0,AND, # Begin Diff >=0 and 120,8,SFF,GE,0) # end diff >=0 /* //JNF2CNTL DD * INREC BUILD=(01,09, # Contract-id 17,01, # Patient-cd 29,04, # Begin-incr-year 23,02, # Begin-incr-Month 26,02, # Begin-incr-Day X, # Space 45,04, # End-Incr-Year 39,02, # End-Incr-Month 42,02) # End-Incr-Day /* |
Code: |
abcdefghi C 02/30/2016 |
Code: |
abcdefghi C 01/23/201504/08/2016 |
output generated using printer-friendly topic mod. All times are GMT - 5 Hours