[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
     A* DDSFUN: Printer file DDS for DDS Functionality
     A*
     A*   Printer File Create or Change Parameters:
     A*   - Printer Device Type (DEVTYPE)      *AFPDS
     A*   - Overflow Line (OVRFLW)             64
     A*
     A* (Note): Dynamic positioning was added in V3R1.  Remove the
     A*         asterisked statements (V3R1) in the Page Segment and
     A*         Overlay record formats to activate this function.
     A*
     A          R HEADR1
     A                                      PAGRTT(0)
     A*
     A*  'DDS Functionality'
     A*  - Helvetica Bold 20-pt
     A*  - Down 0.7 Across 3.0
     A*
     A            LIN01         35A
     A                                      FNTCHRSET(C0H400J0 T1V10037)
     A                                      POSITION(0.7 3.0)
     A*
     A*  'OS/400 V3R1 and later releases'
     A*  - Helvetica Reg 12-pt
     A*  - Var Positioning
     A*
     A            LIN02         35A
     A                                      FNTCHRSET(C0H200B0 T1V10037)
     A                                      POSITION(&LINDWN &LINACR)
     A            LINDWN         5S 3P
     A            LINACR         5S 3P
     A*
     A*  LINE Parameters:
     A*  - Start Position Down
     A*  - Start Position Across
     A*  - Length (use UOM in printer file)
     A*  - *HRZ or *VRT
     A*  - Line Width
     A*
     A          R LINE1
     A                                      LINE(1.3 2.6 0.2 *VRT *NARROW)
     A                                      LINE(1.1 2.8 0.4 *VRT *MEDIUM)
     A                                      LINE(0.9 3.0 0.6 *VRT *WIDE)
     A                                      LINE(1.4 3.3 3.2 *HRZ *WIDE)
     A                                      LINE(1.5 3.7 2.4 *HRZ *MEDIUM)
     A                                      LINE(1.6 4.1 1.6 *HRZ *NARROW)
     A*
     A*  BOX Parameters
     A*  - Start Position Down
     A*  - Start Position Across
     A*  - Diag Position Down
     A*  - Diag Position Across
     A*  - Line width
     A*
     A          R BOX1
     A                                      BOX(0.8 1.0 1.5 2.0 .1)
     A                                      BOX(0.4 7.0 2.1 7.2 .02)
     A          R TXT0
     A            LIN08         35A    36 27
     A            LIN09         35A    50 31
     A                                 51 33 'Dynamic Positioning for OVL & PSG'
     A                                      FONT(85)
     A*  LIN03 'Vertical/Horizontal lines and boxes'
     A*         - Font 18 = Courier Italic
     A*  LIN04 'Bar Code Symbologies'
     A*  LIN05 'L'
     A*         - Font ADMWMOB = Open Block (GDDM)
     A*  LIN06 'arge Characters'
     A*         - Font ADMWMOB = Open Block (GDDM)
     A*  LIN07 'All Points Addressability'
     A*         - Font 46 = Courier Bold
     A*
     A          R TXT1
     A            LIN03         35A
     A                                      POSITION(1.3 3.3)
     A                                      FONT(18)
     A            LIN04         35A
     A                                      POSITION(3.1 2.4)
     A            LIN05          1A
     A                                      FONT(ADMWMOB)
     A                                      POSITION(2.9 1.0)
     A                                      CHRSIZ(9.0 20.0)
     A            LIN06         15A
     A                                      POSITION(3.4 1.3)
     A                                      FONT(ADMWMOB)
     A                                      CHRSIZ(6.0 6.0)
     A            LIN07         35A
     A                                      POSITION(4.8 2.0)
     A                                      FONT(46)
     A*  Print 'ROTATE' in 4 orientations
     A*
     A          R TXT3
     A            TXT1@1         6
     A                                      POSITION(2.7 6.4)
     A            TXT1@2         6          TXTRTT(90)
     A                                      POSITION(2.7 6.4)
     A            TXT1@3         6          TXTRTT(180)
     A                                      POSITION(2.7 6.4)
     A            TXT1@4         6          TXTRTT(270)
     A                                      POSITION(2.7 6.4)
     A*
     A* Bar Code Parameters:
     A* BARCODE (Type, Height, + 6 parameters:
     A* - Horizontal/Vertical: *HRZ,*VRT
     A* - Human Readable: *HRI,*HRITOP,*NOHRI
     A* - Asterisk  *AST, *NOAST
     A* - Check Digit: type
     A* - Unit Width: narrow bar/space
     A* - Wide/Narrow Ratio
     A*
     A          R BAR1
     A            BAR1@1         8S         BARCODE(INTERL2OF5 3 *VRT)
     A                                      POSITION(2.0 1.8)
     A            BAR2@1         8          BARCODE(CODE3OF9 3)
     A                                      POSITION(2.0 2.5)
     A*
     A* Print 'POSITION' with different offsets
     A*
     A          R TXT2
     A            TXT2@1         8          POSITION(5.3 3.5)
     A            TXT2@2         8          POSITION(5.35 3.55)
     A            TXT2@3         8          POSITION(5.4 3.6)
     A            TXT2@4         8          POSITION(5.45 3.65)
     A            TXT2@5         8          POSITION(5.5 3.7)
     A*
     A* Page Segments
     A* - dynamic name
     A* - dynamic position
     A*
     A* (Note): Dynamic positioning was added in V3R1.  Remove the
     A*         asterisked statements (V3R1) below to activate this
     A*         function.
     A*
     A          R PSG1
     A                                      PAGSEG(&PSGNAM 8.7 3.6)
     A* V3R1                                PAGSEG(&PSGNAM &PSGDWN &PSGACR)
     A            PSGNAM         8A  P
     A* V3R1      PSGDWN         5S 3P
     A* V3R1      PSGACR         5S 3P
     A*
     A* Overlays
     A* - dynamic naming
     A* - dynamic position
     A*
     A* (Note): Dynamic positioning was added in V3R1.  Remove the
     A*         asterished statements below to activate this
     A*         function.
     A*
     A          R OVL1
     A                                      ENDPAGE
     A                                      OVERLAY(*LIBL/DDSOVL1 6.0 1.3)
     A                                      OVERLAY(&OVLNM2 6.9 2.5)
     A* V3R1 Only - Dynamic Pos             OVERLAY(DDSOVL3 &OV3DWN &OV3ACR)
     A                                      OVERLAY(DDSOVL3 4.5 6.5)
     A            OVLNM2         8A  P
     A* V3R1      OV3DWN         5S 3P
     A* V3R1      OV3ACR         5S 3P
[an error occurred while processing this directive]