| View previous topic :: View next topic |
| Author |
Message |
Samuel
Beginner
Joined: 12 Aug 2004
Posts: 38
Topics: 10
|
 Posted: Wed Oct 27, 2004 11:03 am Post subject: EasyTrieve B054 Not a Valid File |
 |
|
I am stumped...
Can someone point me in the right direction?
| Code: |
FILE FILEA VS UPDATE
%PSCRE003
FILE FILEB VS
%PSCRE006
JOB INPUT (FILEB KEY(FILEB-KEY) FILEA KEY(CR-PRG-KEY) )
IF MATCHED
IF FILEB-SEQ = CR-PRG-LAST-SEQ-NO-ASSIGNED
IF CR-DTL-CLAIM-BALANCE = 0
MOVE 'N' TO CR-PRG-WARNING-LETTER-FLAG
WRITE FILEA UPDATE STATUS
*******B054 NOT A VALID FILE - FILEA
END-IF
END-IF
END-IF
*
GOTO JOB
*
FOR THIS RUN - ABEXIT SNAP DEBUG (STATE FLDCHK NOXREF) LIST (P
EVICE SYSDA ALTSEQ NO MSG DEFAULT MEMORY MAX WORK 3) VFM
*******A014 PREMATURE TERMINATION DUE TO PREVIOUS ERROR(S)
====================== B O T T O M =============================
|
|
|
| Back to top |
|
 |
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12380
Topics: 75
Location: San Jose
|
| Posted: Wed Oct 27, 2004 11:56 am Post subject: |
|
|
Samuel,
You cannot update a vsam file in syncronised file processing. You need to read the record and then peform an update.
So Remove FILEA from the job statement. Try this
| Code: |
FILE FILEA VS UPDATE
%PSCRE003
FILE FILEB VS
%PSCRE006
JOB INPUT (FILEB)
READ FILEA KEY FILEB-KEY STATUS
IF FILE-STATUS EQ 0
IF FILEB-SEQ = CR-PRG-LAST-SEQ-NO-ASSIGNED
IF CR-DTL-CLAIM-BALANCE = 0
MOVE 'N' TO CR-PRG-WARNING-LETTER-FLAG
WRITE FILEA UPDATE
END-IF
END-IF
END-IF
|
Hope this helps...
Cheers
Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
