This page shows a list of some of our COBOL programs (and samples)
that we want to make available.
Some of them will need tailoring to meet your own site requirements.
As ever you are free to use this code but please read our disclaimers and copyright
information.
| Name |
Description | |
|---|---|---|
| This program demonstrates how to process parameters passed to a COBOL program. This avoids the need to change code as it gets rolled out from development through to production it is recommended that the name of the target Queue manager and target queue(s) be passed to the program via the EXEC DD card rather than be hardcoded into the program. | ||
|
| ||
| This code demonstrates how to gather system information from within a Cobol program. The code really doesn't do anything useful, but it serves as an example of how to navigate down system control blocks and extract information from within them. To see what information is maintained with system control blocks you will need to see the IBM documentation. Getting the LPAR name of the system that the program is running on will allow the program to take decisions based upon it. For example, if the program is running on a development LPAR then you may want to write trace messages or take a different logic flow based on the LPAR. | ||
|
| ||
| This code demonstrates how to gather system information from within a Cobol program. The code really doesn't do anything useful, but it serves as an example of how to navigate down system control blocks and extract information from within them. To see what information is maintained with system control blocks you will need to see the IBM documentation. Getting the LPAR name of the system that the program is running on will allow the program to take decisions based upon it. For example, if the program is running on a development LPAR then you may want to write trace messages or take a different logic flow based on the LPAR. | ||
|
| ||
| This is a little program that will display all of the MQ systems that are defined to a z/OS system. It will show the status of the systems (i.e Active or Inactive), the MQ version and the PTF level. The output from MQVERC is written to the output stream. Link to information page click here. | ||
|
| ||
| How to obtain the userid of the user running the program This could be useful when creating dynamic reply queues or for allocating and using user datasets within a Cobol program Link to information page click here. | ||
|
| ||
