[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
      * DSPF FILE INFORMATION DATA STRUCTURE
      * CRTPF MBR(*NONE)
      * SYSTEM        : TS400
      * USER NAME     : JOHN ROSS
      * DATE          : 02/21/1999
      *=====================================================================
      * MAINTENANCE   :
      *=====================================================================
     A          R @INFDS#                   TEXT('INFDS DSPF')
     A            @#XX00        10          TEXT('FILLER')
     A            @#STCD         5S 0       TEXT('*STATUS')
     A            @#OPCD         6          TEXT('OPERATION CODE')
     A            @#SBRT         8          TEXT('SUBROUTINE NAME')
     A            @#SRSQ         8          TEXT('SOURCE SEQUENCE #')
     A            @#XX01         8          TEXT('FILLER')
     A            @#MSID         7          TEXT('MACHINE OR SYSTEM MESSAGE ID')
     A            @#XX02        14          TEXT('FILLER')
     A            @#SCSZ         4S 0       TEXT('SCREEN SIZE')
     A            @#XX81        81          TEXT('FILLER')
     A            @#SCRW         2B 0       TEXT('# OF ROWS ON DISPLAY/PAGE')
     A            @#SCCL         2B 0       TEXT('# OF COLUMNS ON DISPLAY/PAGE')
     A            @#XX06       105          TEXT('FILLER')
     A            @#DFMT        10          TEXT('DEVICE FORMAT')
     A            @#XX04        99          TEXT('FILLER')
     A            @#RWCL         4B 0       TEXT('ROW * 256 + COLUMN')
     A            @#XX05         6          TEXT('FILLER')
     A            @#SFRC         4B 0       TEXT('SFLRCD AFTER ROLL KEY')
     A            @#XX07         2          TEXT('FILLER')
     A            @#WWRC         4B 0       TEXT('WDW - ROW * 256 + COLUMN')
[an error occurred while processing this directive]