|
View previous topic :: View next topic
|
| Author |
Message |
vickyprodigy
New User
Joined: 18 Jul 2007
Posts: 11
Location: Chennai
|
|
|
|
Hi ppl,
I am getting the below error while running a batch program that will read from IMS database sequentially.
| Code: |
0 ERROR ENCOUNTERED ON DLI SEGMENT
0 PCB-STATUS-CODE = LOW-VALUES ( ) PARAGRAPH-NUM = 1110A
0 AIB-RETURN-CODE = 000000000000 AIB-REASON-CODE = 000000000000
|
I am not able to find out why im getting a LOW-VALUES. The below is the part of code that i feel is giving the problem.
| Code: |
MOVE SPACES TO AIB-SUB-FUNCTION
CALL 'AIBTDLI' USING FUNC-GN
AIB
FCLOG01-SEGMT
GN-LOG01-SSA
IF (AIB-CALL-RETURN-CODE = ZEROS OR AIB-RETURN-0900)
PERFORM 1111-SET-WS-PCB-IMAGE
IF PCB-STATUS-OK
OR PCB-STATUS-EOF
NEXT SENTENCE
ELSE
MOVE '1110A' TO ERROR-PARAGRAPH
PERFORM 9999-SVR-DLI-ERROR
ELSE
MOVE '1110B' TO ERROR-PARAGRAPH
PERFORM 9999-SVR-DLI-ERROR.
|
Somebody please help me figure out the issue |
|
| Back to top |
|
 |
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne
|
|
|
|
Vickyprodigy,
only advice I can give you is change your name. |
|
| Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne
|
|
|
|
in addition to my previous advice,
you have not given us much to go on.
you have decided a routine is the problem, but all you provided is a hand-full of IF statements.
without the data definitions and the underlying sub-routines, have no idea.
I have to take your word for it that low-values as a return code is invalid. |
|
| Back to top |
|
|
vickyprodigy
New User
Joined: 18 Jul 2007
Posts: 11
Location: Chennai
|
|
|
|
Please see if the below info would help
| Code: |
10 WS-PCB-STAT-CODE PIC XX.
88 PCB-STATUS-OK VALUE ' '.
88 PCB-STATUS-OK-UNQUALIFIED VALUE ' ', 'GA', 'GK'.
88 PCB-STATUS-FILE-NOT-OPEN VALUE 'AI'.
88 PCB-STATUS-EOF VALUE 'GB'.
88 PCB-STATUS-NO-REC-FOUND VALUE 'GE'.
88 PCB-STATUS-DUP-RECORD VALUE 'II'.
88 PCB-STATUS-I-O-ERROR VALUE 'AO', 'NO'.
88 PCB-STATUS-SEG-NOT-FOUND VALUE 'GE', 'GB'.
MOVE WS-PCB-STAT-CODE TO OUTPUT-STAT-CODE.
IF PCB-STATUS-OK
MOVE 'PCB-STATUS-OK' TO ERROR-STATUS-CODE
ELSE
IF WS-PCB-STAT-CODE = 'NA' OR 'NU' OR 'BJ' OR 'BK'
MOVE 'PCB-NOT-AVILABLE' TO ERROR-STATUS-CODE
ELSE
IF WS-PCB-STAT-CODE = 'GA' OR 'GK'
MOVE 'PCB-STATUS-OK-UNQUALIF' TO ERROR-STATUS-CODE
ELSE
[b]IF WS-PCB-STAT-CODE = LOW-VALUES
MOVE 'LOW-VALUES' TO ERROR-STATUS-CODE[/b]
ELSE
IF PCB-STATUS-FILE-NOT-OPEN
MOVE 'PCB-STATUS-FILE-NOT-OPEN' TO ERROR-STATUS-CODE
ELSE
IF PCB-STATUS-EOF
MOVE 'PCB-STATUS-EOF' TO ERROR-STATUS-CODE
ELSE
IF PCB-STATUS-NO-REC-FOUND
MOVE 'PCB-STATUS-NO-REC-FOUND' TO ERROR-STATUS-CODE
ELSE
IF PCB-STATUS-DUP-RECORD
MOVE 'PCB-STATUS-DUP-RECORD' TO ERROR-STATUS-CODE
ELSE
IF PCB-STATUS-I-O-ERROR
MOVE 'PCB-STATUS-I-O-ERROR' TO ERROR-STATUS-CODE
ELSE
IF PCB-STATUS-SEG-NOT-FOUND
MOVE 'PCB-STATUS-SEG-NOT-FOUND' TO ERROR-STATUS-CODE.
|
My confusion is, why is it coming LOW-VALUES. If i get any proper error, i can proceed further. As u can see I am using 'AIBTDLI' to read IMS segments. |
|
| Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA
|
|
|
|
| Your two blocks of code have nothing to tie them together -- so are they even from the same program? We don't know because you haven't shown enough of anything to say one way or the other. I suspect that you never move anything to WS-PCB-STAT-CODE and your site has storage initialized to LOW-VALUES, which would perfectly explain the symptoms of your problem. |
|
| Back to top |
|
|
Sandy Zimmer
Active Member
Joined: 13 Jun 2007
Posts: 826
Location: Wilmington, DE
|
|
|
|
| NEVER-EVER-EVER move anything to any PCB - it BELONGS to IMS. Your PCB belongs in your LINKAGE section - not in working storage. |
|
| Back to top |
|
|
|
|
