Quantcast
Channel: IBM Mainframe Computers Forums
Viewing all articles
Browse latest Browse all 8500

DFSORT/ICETOOL :: Checking Current date

$
0
0
Author: vickey_dw
Subject: Checking Current date
Posted: Wed Feb 08, 2017 11:14 pm (GMT 5.5)

Hello All,

Input file sample

Code:
QWER,TYUU,DFGH,20170208
QWER,TYUU,DFGH,20170207
QWER,TYUU,DFGH,20170208
QWER,TYUU,DFGH,20170208


My requirement is to check last field date with current date and if date is mismatch for any of the record set Return code 4.

I tried below but its validating only one record and without STOPAFT its not working

Code:

//FILEOUT1  DD SYSOUT=*                                         
//SYSIN    DD  *                                               
  OPTION COPY,STOPAFT=1                                         
  INREC OVERLAY=(81:20,2,22,2,18,2)                               
  OUTFIL FNAMES=FILEOUT,INCLUDE=(81,6,Y2W,EQ,Y'DATE1'),         
         BUILD=(1,80),NULLOFL=RC4


Please share your thoughts on how to to achieve this.


Viewing all articles
Browse latest Browse all 8500

Trending Articles