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: 6966
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: 6966
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: 7931
Location: Bellevue, IA

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 How to Capture the Max return code of... anilkumar922 All Other Mainframe Topics 0 Thu Jan 12, 2017 12:02 pm
This topic is locked: you cannot edit posts or make replies. Calling REXX code from ISPF panel sanchita dey TSO/ISPF 4 Mon Jan 02, 2017 5:13 pm
No new posts SQL query to run through list of valu... Ni3-db2 DB2 14 Wed Dec 14, 2016 9:52 am
This topic is locked: you cannot edit posts or make replies. session stuck in TPX with status ACL amitc23 CA Products 1 Tue Dec 13, 2016 12:53 pm
No new posts PL/I code tuning/Performance improvement Virendra Shambharkar PL/I & Assembler 4 Mon Dec 05, 2016 11:57 am


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