Tag Archives: COBOL

CICS Data Table Full alert

Oops, one of the CICS data tables in our system filled up, and, unfortunately, the application did not report the NOSPACE condition or even abend when it ran into the problem.  So, I guess that makes it the system programmer’s responsibility to detect. (That was a bit of sarcasm.) Can we detect this condition with… Read More »

Validating an email address format in CICS

Faced with the requirement to edit for a valid email address format from a CICS application, one developer was using the java regular expression support which necessitated starting up a JVM Server in multiple CICS regions at about 90MB of storage per region.  I think the developer must have gotten the regular expression to use… Read More »

COBOL SSL Sockets

What good are regular sockets when, in today’s environment of complex compliance requirements, we need to encrypt data in flight?  Building on my early post on COBOL POSIX Sockets, let’s show how to convert it to use SSL. Since we are acting as an SSL client and not a server (and no client certificates will… Read More »

Processing a GDG in Any Order Using IGGCSI00 in COBOL

We know we can process an entire set of GDG datasets by allocating the GDG base name in the JCL So, for example, if we have a GDG with three generations, GDG Base: XXXXXXXX.TEST.GDG Generations: XXXXXXXX.TEST.GDG.G0001V00 XXXXXXXX.TEST.GDG.G0002V00 XXXXXXXX.TEST.GDG.G0003V00 We can refer to the most current generation with XXXXXXXX.TEST.GDG(0) or XXXXXXXX.TEST.GDG.G0003V00, the second with XXXXXXXX.TEST.GDG(-1), the… Read More »

COBOL POSIX Sockets

What good is it to have the relatively new COBOL verbs XML-PARSE and XML-GENERATE without a web client or server? Well, I am being a little facetious.  You could use an MQ request-reply model, but, for instance, you probably wouldn’t use the native COBOL XML support in a CICS program since CICS has it’s own… Read More »

Catalog Search (IGGCSI00) From COBOL

IGGCSI00 is a callable subroutine to search the catalog. It is provided by DFHSMS and documented in Managing Catalogs.  It can be used to search for dataset names, tape libraries and volumes (as cataloged in the DFSMS catalog, not CA-1 or some other catalog). There are some assembler and REXX samples in SYS1.SAMPLIB demonstrating how… Read More »

Is it time for a Syncpoint?

When you are sharing an online database with batch update jobs you don’t want batch jobs to affect online response time.  One thing that invariably delays online transactions are batch database locks.  If the batch job doesn’t take enough syncpoints, more and more of the database will be locked as the job runs. The best… Read More »