DATEPARM goes EOF on second VENINPUT record? For a 1 record input, how about putting the GET DATEPARM in the START PROC?
JOB INPUT VENINPUT START START-PROC START-PROC. PROC GET DATEPARM END-PROC On Tue, Aug 30, 2011 at 8:51 AM, Ron Thomas <[email protected]> wrote: > Hi , > > I am new to easytrive, i have modified a module and added a new date control > card , it is giving the message "*A010 INVALID FILE REFERENCE - DATEPARM". > Can anyone pls help me know what is the issue over here? > > JOB INPUT VENINPUT > > GET DATEPARM - > newly added to read the datecontrol file > > IF DTL = 'HDR' > WS-HDR-DT = IDATE > WS-HDR-DATE-CCYY = WS-IN-HDR-DT-CCYY > WS-HDR-DATE-MM = WS-IN-HDR-DT-MM > WS-HDR-DATE-DD = WS-IN-HDR-DT-DD > DISPLAY 'HEADER DATE : ' WS-HDR-DATE > END-IF > > Regards > Rajeev -- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all? ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
