[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
 
/******************************************************************************/
/* Description.. Veryify IP Address with Ping                                 */
/* Program Name. PINGCL                                                       */
/* Author....... Bradley V. Stone                                             */
/*               BVS/Tools - www.bvstools.com                                 */
/******************************************************************************/
             PGM        PARM(&IP &OK)
             DCL        VAR(&IP)      TYPE(*CHAR) LEN(30)
             DCL        VAR(&OK)      TYPE(*CHAR) LEN(1)
             DCL        VAR(&MSGID)   TYPE(*CHAR) LEN(7)
             DCL        VAR(&MSGDATA) TYPE(*CHAR) LEN(4)

             CHGVAR     VAR(&OK) VALUE('Y')

             PING       RMTSYS(&IP) MSGMODE(*QUIET) NBRPKT(1)
             MONMSG     MSGID(TCP0000) EXEC(DO)
             CHGVAR     VAR(&OK) VALUE('N')
             GOTO       CMDLBL(END)
             ENDDO

             RCVMSG     MSGQ(*PGMQ) MSGTYPE(*LAST) MSGDTA(&MSGDATA) +
                           MSGID(&MSGID)

             IF         COND(%BIN(&MSGDATA) *EQ 0) THEN(DO)
             CHGVAR     VAR(&OK) VALUE('N')
             ENDDO

END:         ENDPGM
[an error occurred while processing this directive]