Over the years, a number of small but usefull routines were
accummulated. Rather than setup a "package" for each, I decided
to combined all of these items into a distribution package. The
package consists of two source PDS libraries, two JCL libraries and a
loadlib on an AWS tape file.
Please visit our online support forum to download our software offerings.
The source and JCL libraries were created using IEBUPDTX, an exhanced
version of IBM's IEBUPDTE. IEBUPDTX offers the ability to track
changes (via chaining) and is more flexible than IEBUPDTE.
You do not need IEBUPDTX to read any members in the PDS. I don't
suggest changing these since the integrety of the update tracking will
be compromised. If you feel you must update them, use IEBUPDTX or
copy the member to another PDS for before changing it.
DYNALOAD
Version 1.0.0
One of the useful routine I used over the years was DYNALOAD. DYNALOAD freeed the MVT Cobol programmer from the static call dungeon. I have used it a lot over the years, even with Fortran and PL1. The DYNALOAD routine has not changed since the original release. I just repackaged it. I added two more programs, DYNALDA and DYNALDP. These are both variations of the original DYNALOAD.
DYNALDA allows PL/I(F) programs to dynamically call programs that expect standard MVS parameters. DYNALDP allows PL/I(F) programs to dynamically call programs that expect PL/I (F) parameters. PL/I (F) has a funky way of passing parms. How a variable is declared dictates how it is passed by a call statement. See the program BLOCKPLI for an example of how to set up variable to be passed.
BLKPRT
Version 1.1.0 - updated 04/21/2009
BLKPRT simply accepts an eight character string and returns it as 12x12 block letters, suitable for separator pages. Letters may be formatted as slanted or straight. In case your wondering, this code was copied from the JES2 printer driver. Despite this, it has no operating system calls.
Included are a series of Assembler, Cobol, Fortran and PL/I(F) programs that start with BLOCKxxx. Each of these demonstrates how to call BLKPRT. Note the lack of an RPG program - if you are an RPG fan, see if you can get a demo program for RPG.
MYGENER
Version 1.0.0
MYGENER was a quick and dirty program intended to convert record formats, something that IEBGENER cannot do. MYGENER converts files with Fixed records to and from variable records. Basically, the whole conversion process consists of truncating trailing space or adding trailing spaces, depending on the type of conversion.
MAKESTMT
Version 1.0.0
MAKESTMT is another one of those write the parm to a file programs that many shops have. MAKESTMT does that but also has a macro facility for generating statements. For example, to delete a file using IDCAMS, the parm to MAKESTMT would be PARM='@DEL\SOME.DATASET.NAME' would generate DELETE 'SOME.DATASET.NAME' NONVSAM PURGE. See the MAKESTMT.TXT file for examples of that this program can do.
SETRC
Version 1.0.0 - Added 4/21/2009
SETRC uses the parm field to determine how to set the step's return code. Setting a return code can be used to control conditional execution of subsequent job steps. For example, embedding SETRC in a PROC allows you to control step execution using parms.
MAP3270
Version 2.1.0 - Updated 01/10/2011
MAP3270 is a package that provides a simplified panel interface for Assembler, COBOL and PL/I(F) programs running under TSO and MVS 3.8j. Panels are created using a "picture" of the screen, much like the way panels are defined for ISPF. Note that ISPF is not required to use MAP3270. Panels are compiled into physical and symbolic maps. These maps are not compatable with CICS or any CICS clones. A subsystem, TTY3270, is included to provide a simple interface as an alternative to allocating files to DA(*). The top 22 lines of the 3270 screen are used to scroll messages issued by the program. Line 23 is used as an input area. Line 24 is used for error messages or prompts. TTY3270 behaves like a 3270 MVS console.
Please visit our online support forum to download our software offerings.
