Code Samples

Code Samples
  • FONTS

    A sample program demonstrating how to use different printer fonts.

  • FILE ATTRIBUTES

    These callable subroutines will allow your application to get and set attributes for a file. 

  • BARCODE

    A sample program that demonstrates how to print barcodes using PowerFORM.

  • CALLEXE

    A sample program that will launch an EXE from within a COBOL97 application.

  • DELETEFILE

    A subroutine that will delete a file from disk.

  • KEYTEST

    A sample program that captures which key (for example, function keys or the Enter key) was pressed. Two methods are demonstrated

  • LANDSCAPE

    Sample program that demonstrates how to print in landscape mode, as well as using different fonts.

  • FILE ATTRIBUTES

    These callable subroutines will allow your application to get and set attributes for a file. 

  • CCALLINGCOBOL

    A sample program that demonstrates how Microsoft® C++ can call a COBOL program, passing and receiving parameters.

  • DRIVESIZE

    Sample program that will, given a drive and pathname, return the total size of the disk, the number of free bytes, and the numbe

  • ODBC

    Test database for exercise in ODBC chapter of PowerCOBOL User's Guide (Access 95 and 97 versions).

  • CALLDLL

    A sample showing how to build PowerCOBOL projects that call (COBOL) .DLL files.

  • LISTVIEW-ICONS

    A description and example of how to add icons to your LISTVIEW objects.

  • CHG-DIR

    A callable program that will change the current directory. The directory name can be up to 255 characters, contain spaces, and c

  • E2ACONVR

    EBCDIC to ASCII file converter (or vice versa) using the CBL_byte stream file routines.

  • PRTFONT

    A sample that shows how to print in different font sizes.

  • CALLSHT

    A PowerCOBOL sample showing how to transfer control from one form to another.

  • OCXCLOCK

    A PowerCOBOL example on how to create your own OCX's, and use them in your applications. Step by step instructions are included.

  • COBOL2VB

    This sample program use a OLE class object to access a VB DLL from COBOL.

  • FIND-FIRST-NEXT

    A collection of subroutines that can be called from your applications, to locate specific files and or directories, and with spe

  • PRTFONT

    A sample that shows how to print in different font sizes.

  • CALLING-AN-EXE

    A PowerCOBOL sample showing how to call another application. Two methods are demonstrated (one using a Windows® API call, and th

  • POWDRIVESIZE

    Sample program that will, given a drive and pathname, return the total size of the disk, the number of free bytes, and the numbe

  • COMMANDLINE

    A sample program that shows one how to receive parameters from the command line.

  • FINDWINDOW

    This sample program will search all the open Windows® on your desktop for a specific window that you specify. This is useful for

  • REMOVE-DIR

    A callable program that will delete a directory. These subroutines can be used by both COBOL97 and PowerCOBOL applications.

  • DIALOG

    A sample showing how to use PowerCOBOL Modal and Modeless Dialog Boxes.

  • KEYPRESS

    This sample demonstrates how to use the KEYPRESS event, and uses it to force data entry to be all uppercase characters. 

  • Sample 10 Stock

    Download the Sample 10 stock database.  (Please note: in order for the Stock.mdb database to work, the user MUST have Access 97 

  • CREATE-DIR

    A callable program that will create a directory. The directory name can be up to 255 characters, contain spaces, and can be a ne

  • GALLOC32

    A sample for calling the Windows®95/NT WIN32 API to allocate global memory.

  • SCRNSIZE

    A sample program that shows you how you can use DOS screens larger than 80X24.

  • GETUSERNAME

    This subroutine will get the name of the currently logged on user.

  • DISPLAYMSG

    This sample demonstrates how you can display multiline messages using the DISPLAYMESSAGE method.

  • POWERFORM AND POWERCOBOL

    A sample program that demonstrates and describes how to use PowerFORM with PowerCOBOL. 

  • AS400

    Sample code of how one would modify an AS/400 application to run as a Fujitsu COBOL application.

  • DATE

    A sample program that shows how tell what day of the week any MMDDYY date is/was in about 10 lines of code.

  • GET-CURRENT-DIR

    A callable program that will return the name of the current directory. These subroutines can be used by both COBOL97 and PowerCO

  • GET-AND-SET- ENVIRONMENT- VARIABLES

    These subroutines will allow a COBOL program to fetch the settings of an environment variable as well as set an environment vari

  • EXCELCONTROL

    A sample program that demonstrates how to use the ExcelConnection control

  • TEXTBOXES

    This sample demonstrates how to use numeric data with Textbox controls. 

  • AUTONUMBER

    A sample program to demonstrate how a COBOL program can store to and read records from a Microsoft® Access table that has an AUT

  • DELETEDI

    A sample program that shows how to access the CBL_DELETE_DIRECTORY

  • GET-TEMP-PATH

    A callable program that will return the path name of the temporary directory (i.e. the path pointed to by the TEMP or TMP enviro