Mainframe

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.

Home