Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

PCB-STATUS-CODE is LOW-VALUES

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IMS DB/DC
View previous topic :: :: View next topic  
Author Message
vickyprodigy

New User


Joined: 18 Jul 2007
Posts: 11
Location: Chennai

PostPosted: Sat Jan 09, 2010 3:17 pm    Post subject: PCB-STATUS-CODE is LOW-VALUES
Reply with quote

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
View user's profile Send private message

dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6967
Location: porcelain throne

PostPosted: Sat Jan 09, 2010 4:54 pm    Post subject:
Reply with quote

Vickyprodigy,

only advice I can give you is change your name.
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6967
Location: porcelain throne

PostPosted: Sat Jan 09, 2010 6:48 pm    Post subject:
Reply with quote

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
View user's profile Send private message
vickyprodigy

New User


Joined: 18 Jul 2007
Posts: 11
Location: Chennai

PostPosted: Sat Jan 09, 2010 11:37 pm    Post subject: Reply to: PCB-STATUS-CODE is LOW-VALUES
Reply with quote

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
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8057
Location: East Dubuque, Illinois, USA

PostPosted: Sun Jan 10, 2010 12:37 am    Post subject:
Reply with quote

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
View user's profile Send private message
Sandy Zimmer

Active Member


Joined: 13 Jun 2007
Posts: 826
Location: Wilmington, DE

PostPosted: Mon Jan 11, 2010 5:42 pm    Post subject:
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IMS DB/DC All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Sorting of hex values Saurabh_mi DFSORT/ICETOOL 11 Thu May 25, 2017 3:49 pm
No new posts Testing rerad cursor for status with ... John F Dutcher DB2 8 Fri May 19, 2017 9:35 pm
No new posts Job failing with USER = 4093 REASON C... Pradeepa S ABENDS & Debugging 1 Wed May 17, 2017 3:35 pm
No new posts Replace values in the input data Vikas Maharnawar DFSORT/ICETOOL 10 Thu May 11, 2017 2:18 pm
No new posts COBOL Code Parsers and Lineage Establ... balimanja COBOL Programming 2 Tue May 02, 2017 3:30 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us