picus_mf Warnings : 1 New User
Joined: 09 Jun 2006 Posts: 52
|
|
|
|
Hi,
I have VSAM file with key 15 bytes (Date, Time). Date being the current date and time being the current time (ASKTIME, EIBTIME). When I perform WRITE operation on the VSAM (KSDS) file I am getting EIBRESP 22, EIBRESP2 14. I am not sure what is incorrect.
The record is written in the file but with not successful RC.
Code: |
EXEC CICS ASKTIME
END-EXEC
MOVE EIBTIME TO ABS-EIB-TIME
MOVE ABS-EIB-TIME TO ABS-FIL-TIME
INITIALIZE ERR-KEY
MOVE DATE-CURR-YYYYMMDD TO FIL-ERR-DATE
MOVE ABS-EIB-TIME TO FIL-ERR-TIME
EXEC CICS WRITE
DATASET ('FILE')
FROM (FILERROR)
RIDFLD (ERR-KEY)
LENGTH (ERR-REC-LTH)
RESP (IO-RESP)
RESP2 (IO-RESP2)
END-EXEC.
|
File output:
----+----1----+
****************
201802220171552
201802220222017
201802220222023
201802230010149
201802230010304
201802230010818
201805337282550 |
|