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 list a DDNAMEs allocated in a program step from within a Cobol program. The code can be used to check for a particular DDNAME and act accordingly i.e. If a TRACE DD card is present, then program could issue trace messages. The program assembly and link information can be accessed by clicking here. | ||
|
| ||
| 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. The program assembly and link information can be accessed by clicking here. | ||
|
| ||
| This Cobol program 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. MQVERC is the Cobol equivalent to the MQVER program. The PTF level will be that of the Early Load program, CSQ3EPX. The output from MQVERC is displayed in the program log. For installation instructions click the button below. This program is distributed as a TSO TRANSMIT file. The source code is included in the SOURCE PDS. The file will need to be transferred to a z/OS system in binary format and then RECEIVED. The program assembly and link information can be accessed by clicking here. | ||
|
| ||
| Demonstrates how to use MQ to update a VSAM file. Included in the library is QLOAD which is a Cobol code used for loading a MQ Queue. Sample MQ Queue Defines and the define for a VSAM KSDS are also included. This program uses MQERROR (provided in the load library). This program is distributed as a TSO TRANSMIT file. The source code is included in the SOURCE PDS. The file will need to be transferred to a z/OS system in binary format and then RECEIVED. Link to information page click here. The program assembly and link information can be accessed by clicking 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. This program is distributed as a TSO TRANSMIT file. The source code is included in the SOURCE PDS. The file will need to be transferred to a z/OS system in binary format and then RECEIVED. The program assembly and link information can be accessed by clicking here. | ||
|
| ||
