Thank you so much for all your answers, Mr. Robert Sample.
With all your support, the problem with the INVREQ in the STARTBR was solved.
I changed the definitions of the file.
When I go to the CICS and I do the CEDF of the program in the STARTBR it works:
TRANSACTION: ECAR PROGRAM: CARPRG TASK: 0000140 APPLID: CICS
STATUS: COMMAND EXECUTION COMPLETE
EXEC CICS STARTBR
FILE ('CARSDD ')
RIDFLD (0)
REQID (0)
RBA
EQUAL
NOHANDLE
OFFSET:X'0012BA' LINE:00254 EIBFN=X'060C'
RESPONSE: NORMAL EIBRESP=0
After that, the program continues to the READNEXT.
After the INVREQ problem in the STARTBR, I was having a problem with the READNEXT.
When it executed the READNEXT it would present a RESPONSE: LENGERR and it would abend with a ABEND AEIV.
But then, I decided to do what I usually do.
So, instead of bothering you with one more question, I tried to solve it by myself.
This was the way I had written my READNEXT:
EXEC CICS READNEXT 02510099
025200 FILE('CARSDD') 02520099
025300 INTO(REGISTO) 02530099
025310 LENGTH(WS-LEN) 02531099
025320 RIDFLD(CARNO) 02532099
025330 RBA 02533099
025400 END-EXEC 02540099
First I tried to change LENGTH TO KEYLENGTH, but the compile Job would give an error because the translator would say that KEYLENGTH is incompatible with RBA.
So, I decided to remove the LENGTH, so the READNEXT is now like this:
EXEC CICS READNEXT 02510099
025200 FILE('CARSDD') 02520099
025300 INTO(REGISTO) 02530099
025320 RIDFLD(CARNO) 02532099
025330 RBA 02533099
025400 END-EXEC 02540099
After that, I compiled the program well (MAXCC = 0) and I executed it.
It works well as you can see:
TRANSACTION: ECAR PROGRAM: CARPRG TASK: 0000140 APPLID: CICS
STATUS: COMMAND EXECUTION COMPLETE
EXEC CICS READNEXT
FILE ('CARSDD ')
INTO ('123 DUMMYTEST TESTDATA
LENGTH (200)
RIDFLD (0)
REQID (0)
RBA
OFFSET:X'0013AE' LINE:00269 EIBFN=X'060E'
RESPONSE: NORMAL EIBRESP=0
Tomorrow I will try the part of the program that does the write.
Thank you once more.
Roger
