|
Below are a small sample of IBM VSE mainframe programs I have written. |
|
COBOL (VSE) |
Description |
| DIR1 | Read 'SYSLST' type output of LIBR directory and create a condensed sorted list. |
| IMAGE3 JCL | This program reads PC image unformatted file (ESDS) and creates a formatted keyed file. |
| IMAGE2 JCL | This program reads/sorts the master account file and adds a check digit if account does not start with 005. |
| RPT03104 JCL | This program reads two files (Sequential DASD and KSDS), each sorted by account number one file is the CIF master account file, the other file contains the image account number and image size (uploaded from the PC), and produces a report. Two reports can be produced depending upon a one character switch that is entered in the jobstream. |
| COB05 | Read variable length VSAM KSDS file, write VSAM KSDS file. Uses internal SORT. |
| FCB | Create a printer FCB. |
| RTM2 | Read MacKinney CICS RTM data from Tape or Disk and depending on card input (SYSIPT) and produce report. |
| Assembler (VSE) | Subroutine's written to be called from another program (like COBOL). |
| DATEADD | Various date subroutines (written for Y2K problem). |
| DATEDIFF | Various date subroutines (written for Y2K problem). |
| DATENUM | Various date subroutines (written for Y2K problem). |
| JDATE | Various date subroutines (written for Y2K problem). |
| JDATE2 | Various date subroutines (written for Y2K problem). |
| LENGTH | Return length of a COBOL character or alphanumeric field. |
| TRANS | This subprogram translates a string from/to ASCII/EBCDIC. |
| REXX (VM) | |
| CALENDAR | This EXEC create a Calendar for any date. |
| COMPILE | This EXEC submits a COBOL compile jobstream to a VSE guest machine. |
| MERGE | Merge Two Sorted Files Together. |