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
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to list...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
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 <ron...@gmail.com> 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?
- Don Imbriale
Brad Wissink
Information Technology Services
Iowa State University
515-294-3088