CPF950D error in QMHRDQM API

This is a Mainframe COBOL forum - you can post your queries on Mainframe COBOL, VS COBOL II, COBOL/370 , Enterprise COBOL

Moderators: dbzTHEdinosauer, Moderator Group

Post Reply
ecgberht
Member
Posts: 1
Joined: Tue Feb 17, 2015 2:32 am

CPF950D error in QMHRDQM API

Post by ecgberht » Tue Feb 17, 2015 2:35 am

I am trying to make the QMHRDQM API work and am getting the error CPF950D The specified message selection template length is not valid. I believe I have followed the IBM documentation to the letter in setting up my working storage. Anyone have a clue?

Code: Select all

01  WS-LOCAL-VARIABLES.                                         
    05  QMHRDQM-DATA          PIC X(1000).                      
    05  QMHRDQM-LENGTH        PIC 9(04) BINARY.                 
    05  QMHRDQM-FORMAT        PIC X(8) VALUE "RDQM0100".        
    05  QMHRDQM-NAME          PIC X(20).                        
    05  QMHRDQM-MSI.                                            
        10  MSI-SELTYPE       PIC X(1) VALUE 'F'.               
        10  MSI-FILLER        PIC X(3) VALUE SPACES.            
        10  MSI-CNT           PIC 9(4) BINARY.                         
    05  QMHRDQM-MSIL          PIC 9(4) BINARY.                  
    05  QMHRDQM-MSIF          PIC X(8) VALUE "RDQS0100".        
    05  QMHRDQM-ERROR         PIC X(100).                        
The code for the actual call looks like this:

* Read data queue

Code: Select all

      INITIALIZE QMHRDQM-DATA                              
      INITIALIZE MSI-FILLER                                
      MOVE 1000 TO QMHRDQM-LENGTH                          
      MOVE 8 TO QMHRDQM-MSIL                               
      MOVE 'F' TO MSI-SELTYPE                              
      MOVE 10 TO MSI-CNT                                   
      CALL "QMHRDQM" USING  QMHRDQM-DATA                   
                            QMHRDQM-LENGTH                 
                            QMHRDQM-FORMAT                 
                            QMHRDQM-NAME                   
                            QMHRDQM-MSI                    
                            QMHRDQM-MSIL                   
                            QMHRDQM-MSIF                   
                            QMHRDQM-ERROR.

code tags added by dbz

Generalfres
Member
Posts: 1
Joined: Thu May 28, 2015 1:12 pm
Contact:

Post by Generalfres » Thu May 28, 2015 1:42 pm

I can not find any information in this section.

ibcbet mobile
Last edited by Generalfres on Mon May 29, 2017 8:47 am, edited 1 time in total.

William Collins
Active Member
Posts: 732
Joined: Thu May 24, 2012 4:07 am

Post by William Collins » Thu May 28, 2015 3:12 pm

That's because you're just scamming around. The system has noticed that, and realises there is no point showing you anything of actual value.

User avatar
dbzTHEdinosauer
Moderator
Posts: 981
Joined: Mon Oct 02, 2006 8:31 pm

Post by dbzTHEdinosauer » Mon Jun 01, 2015 6:50 pm

what is the Qualified data queue name?
Dick Brenholtz
JCL, SQL and code in programs have an irritating habit of doing what you say,
not what you meant.

Post Reply

FREE TUTORIALS

Tutorials
Free tutorials from mainframegurukul
  • JCL Tutorial
    Covers all important JCL concepts.
  • Cobol Tutorial
    This tutorials covers all Cobol Topics from STRING to COMP-3.
  • DB2 Tutorial
    DB2 Tutorial focuses on DB2 COBOL Programming.
  • SORT Tutorial
    This Tutorial covers all important aspects of DFSORT with examples
  • CICS Tutorial
    This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming.
Interview
Mainframe Interview questions



Other References
Mainframe Tools and others