COBOL Hints & Tips, Routines and Examples
MICRO FOCUS® - MS-DOS
This list is revised several times on a daily basis


File NameSizeFile Description
ALPHAAMT.CBL11519Convert numeric amount to alpha amount.
This COBOL sample converts a numeric amount to alpha text. Great for printing checks and invoices. Handles Billions. 30 points.
CALLPRGM.CBL2351Run any executable from a COBOL program.
This COBOL sample shows you how to run any executable program from a COBOL calling program. Executables may be any .COM, .EXE or .BAT file. 50 points.
COMPILE.BAT2192Batch Compile and Link of COBOL programs..
This sample batch file can be mofified to allow you to run COBOL compiles in batch mode an link them all in one step. 20 points.
CONVDATE.CBL8114Convert Julian/Gregorian/Julian date.
This COBOL routine converts any Julian date to Gregorian and vice versa. 20 points.
FINDDAY.CBL2819Find day-of-the-week from any Julian date.
This COBOL routine uses a formula to find the day-of-the-week from any julian date. Great companion to CONVDATE.CBL. 20 points.
GETDIR.CBL3470Get & Set drives and directories.
This COBOL sample shows you how to get the current drive and/or directory and also set the drive and/or directory of your choice. 70 points.
LINESEQ.CBL2145Determine record lenght of LINE SEQUENTIAL.
This COBOL sample shows you how to determine the lenght of a record after each read from a variable LINE SEQUENTIAL file. 40 points.
PRINTING.CBL14066HP LaserJet printing from COBOL.
This COBOL sample shows you how to bring your HP LaserJet printer under control, using all print features such as Landscape/Protrait - Font/Point selection - Typeface/Language - Normal/Bold/Underline,, etc... Can be adapted for other printer such as Epson, IBM, etc... 50 points
SYSVAR.CBL1789Accessing System variables.
This COBOL sample shows you how to access the system variables that are set using the Operating System SET command. 80 points.


CGM Home PageCOBOL Services Directory

COBOL Gold Mine is a Service Mark of Integrated Logic Systems International, Inc. Copyright® 1994-2017. All rights reserved worldwide.