[an error occurred while processing this directive] [an error occurred while processing this directive]
Do you have source some source that you want to share? Is there some source that you want to see posted here?
If so, Contact Us and we'll be more than happy to help.
Cobol Source
Driver Program
Color Program Source
Add Timestamp in cols 73-80
Convert line to upper case
Convert line to lower case
Add comment line
Remove comment line
CL Source
Color Source
Color Source Code (CMD)
Sample FTP Batch Processing
Get the device IP address
Verify IP Address with Ping
Set Library List with Job Description
Start My remote Printer (LPD)
Telnet Initialize program
Telnet Terminate program
DDS Source
Display a calendar window - DSPF
Color source code
DDS Functionality - AFPDS Examples
DDS to be used for external DS for DBF
DDS to be used for external DS for DSPF
DDS to be used for external DS for PRTF
DDS to be used for external DS for RPG
Display a calendar window - PF
Subfile Skeleton Display File
RPGLE Source
Display a calendar window
Color Souce code
1 EVAL statement to return the day of the week
Date Routine
Date and Time Subprocedures
DDS Functionality - AFPDS Examples
Convert Character to Numeric
Day of Week, Name of Month and Day
Standard HTTP Subprocedures (QTMHCGI)
Standard HTTP Supprocedures (QZHBCGI)
Library List Subprocedures
Replace Characters in String
String Functions
User Space Function Procedures
Copy Member for User Space Prototypes
Hello World Sample CGI Program using RPG
Increment a Character
Socket Program - Main
Subfile Skeleton Program
Socket Program - Submitted
Get and Put Spooled File API Example
      /IF NOT DEFINED(FunctUSp)
      **************************************************************************
      *
      *     Program Name: FunctUSPcp
      *
      *    Program Title: Copy Member for User Space Prototypes
      *
      * Program Function: Same as above.
      *
      *           Author: Dave Shoff  -  Cornerstone Implementations, Inc.
      *
      *      Origin Date: 10/30/97
      *
      *  Calling Program:
      *
      *     Restrictions: None
      *
      *       Indicators:
      *
      *    API's Used:
      *
      *    Other Credits:
      *
      *    Revision Date:
      *
      *
      **************************************************************************

      * Prototype for CrtUsrSpc procedure  (Create User Space)
     D CrtUsrSpc       PR             1A
     D  UsrSpcName                   20A   VALUE
     D  UsrSpcExtA                   10A   VALUE
     D  UsrSpcText                   50A   VALUE


      * Prototype for GetUsrSpcP procedure (Get User Space Pointer)
     D GetUsrSpcP      PR              *
     D  UsrSpcName                   20A   VALUE

      * Prototype for GetNumEnt procedure (Get Number of Entries in the User Space)
     D GetNumEnt       PR             9B 0
     D  UsrSpcName                   20A   VALUE

      * Prototype for GetSpcEnt procedure (Get Specific Entry in the User Space)
     D GetSpcEnt       PR         32767A
     D  UsrSpcName                   20A   VALUE
     D  EntNumber                     9B 0 VALUE

      * Prototype for DltUsrSpc procedure  (Delete User Space)
     D DltUsrSpc       PR             1A
     D  UsrSpcName                   20A   VALUE


      /DEFINE FunctUSp
      /ENDIF
[an error occurred while processing this directive]