PJM

I googled MQCONN 2012 and got this link

community.microfocus.com/.../1661.mq-series-error-reason-2012-calll-not-valid-for-current-environment.aspx

Have a read of the info in there

It looks like something in your environment changed since the last run?

Or you are taking PROGA from ENVIRONA and trying to run it on ENVIRONB?

if the latter then did the preparation of the executable run without error or warning?

I have only used MQ on IBM mainframes but once you get the hang of it, including the trouble-shoooting, it is quite straight forward and works well

paulseawind

Bali - Indonesia

1) MQ RC 2012:

www-01.ibm.com/.../fm12190_.htm

2012 (07DC) (RC2012): MQRC_ENVIRONMENT_ERROR

2) MQ libs

www-01.ibm.com/.../fg16690_.htm

Preparing COBOL programs

3) MQRTS.cbl loads MQ libs with STDCALL ( call convention 74 )

      special-names.

          call-convention 74 is STDCALL.

      working-storage section.

      78 MQdll value "mqiccb".

         *> install_location  = IBM MQ  install_location

         *> install_location\\Tools\\Lib\\mqmcb     32-bit server for Micro Focus COBOL

         *> install_location\\Tools\\Lib\\mqiccb    32-bit client for Micro Focus COBOL

         *> install_location\\Tools\\Lib64\\mqmcb     64-bit server for Micro Focus COBOL

         *> install_location\\Tools\\Lib64\\mqiccb    64-bit client for Micro Focus COBOL

      01 pptr procedure-pointer.

      procedure division STDCALL.

          display "*--> MQrts " "load  IBM MQ DLL "

                                            MQdll " " with no advancing

          set pptr to null

          set pptr to entry MQdll

          if  pptr =  null display "KO" else display "OK" end-if

          exit program.

I classically do use code snippet above to load "MQ RTS", the keyword being STDCALL ( call convention 74 is being used to load MQ DLL/library) ....

4) INITCALL"MQRTS" in COBOL code proceeding to MQ I-Os

Regards

Yvon