MVSFORUMS.com

The best thing with Forums like this is when you describe your problem you increase the possibility of solving the problem. I've solved it myself.
Added the statement MOVE MQPMO-VERSION-3 TO MQPMO-VE ...

I'm struggle with having this to work but I fail.

I've set the message properties using
CALL 'MQCRTMH' and CALL 'MQSETMP' getting 0 in Compcode and reasoncode
In the MQPUT session I've moved the ...

This is a sample from a JCL I use. The only extra for me is the libraries in the JOBLIB statements, CICS.CICSTS23.. and I guess CEE.SCEERUN.
You also have to compile the program to include the CICS s ...

We have a frequently used function for translating uppercase to lowercase. The Cobol code we use is:
INSPECT TEST-DATA3CONVERTING 'ABCDEFGHIJKLMNOPQRSTUVWXY

Yes, you need a step in the compile job to translate EXEC CICS till Call 'DFHXCIE' using...

In our installation:
//TRN EXEC PGM=DFHECP1

You can also call a CICS program from a batch program. Like this:

EXEC CICS LINK PROGRAM ('LK0200')
TRANSID ('EXCI') ...

I declare and open a cursor in a DB2 database. After some fetch I call a subprogram reading a DL/1 database. When the subprogram terminates the PSB a syncpoint is done. And the syncpoint make the call ...

I'am sorry to blame you Kolusu. But your code open up for a unpredictable adress error. Change to WS-SUB > 200. And the PERFORM statement will be execute for every input record if (I suppose you have ...

I understand the task like this:
A parameter will give you the start tag, in the sample above it's <WAA>. The start tag can have any length, not just 5 characters. You want the data string from ...

Sorry I don't know. I would fix a table sorted in ascending order on both fields and try. If it's possible you can also avoid to load all items with dia-num outside 4000-4999, or create a work table a ...

Here is sample code:
05 FSALLMJ-WORK-LKFTABELL.
07 FSALLMJ-I-TOPLKF PIC S9(4) COMP.
07 FSALLMJ-I-MAXLKF PIC S9(4) COMP VALUE 500.
07 FSAL ...

I guess you can get a small speed improvement by moving CUST-NUM(index2) to a field declared outside the table, like W-CUST-NUM, and change the test in the SEARCH statement to: WHEN CUST-NUM(index1) = ...

It's no big performance difference between SEARCH and SEARCH ALL if you have a small table (10-50 entries). If it's possible to put the most search values in the first entries you can get better perfo ...

It's a little bit tricky to sort variable length records. The described error occurs for example if the program don't understand that the SD file contains variable length records. But I don't know if ...

We did the same migration some years ago and had no problems with internal sort.
Let us know if your site is in a country with letters other than A-Z. This often cause problems.
Do you use the same ...