|
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. |
* DDSFUN: DDS Functionality
*
* used printer file DDSFUN.
*
FDDSFUN O E PRINTER
E DTA 1 10 8 Constant Data
E LIN 1 9 35 Title Lines
*
IFIELDS DS
I 1 315 LIN
I 1 35 LIN01
I 36 70 LIN02
I 71 105 LIN03
I 106 140 LIN04
I 141 141 LIN05
I 176 190 LIN06
I 211 245 LIN07
I 246 280 LIN08
I 281 315 LIN09
*
C MOVE DTA,1 BAR1@1 80 12345678
C MOVE DTA,2 BAR2@1 8 01020304
C*
C MOVE 'ROTATE' TXT1@1 6 ROTATE ex.
C MOVE TXT1@1 TXT1@2 6
C MOVE TXT1@1 TXT1@3 6
C MOVE TXT1@1 TXT1@4 6
C*
C MOVE DTA,3 TXT2@1 8 POSITION ex.
C MOVE DTA,3 TXT2@2 8
C MOVE DTA,3 TXT2@3 8
C MOVE DTA,3 TXT2@4 8
*
C Z-ADD0.9 LINDWN 53 Var Positioning
C Z-ADD3.3 LINACR 53
C WRITEHEADR1
C WRITELINE1
C WRITEBOX1
*
C WRITETXT0
C WRITETXT1
C WRITEBAR1
C WRITETXT2
C WRITETXT3
*
C MOVE 'IBMLOGOT'PSGNAM 8 Var Image (Page Seg)
C Z-ADD8.7 PSGDWN 53 Var Positioning
C Z-ADD3.6 PSGACR 53
C WRITEPSG1
*
C MOVE 'IBMLOGO 'PSGNAM
C Z-ADD8.8 PSGDWN 53
C Z-ADD5.3 PSGACR 53
C WRITEPSG1
*
C MOVE 'IBMSMALL'PSGNAM
C Z-ADD9.35 PSGDWN 53
C Z-ADD6.8 PSGACR 53
C WRITEPSG1
*
C MOVE 'DDSOVL2 'OVLNM2 8 Var Overlay
C Z-ADD4.4 OV3DWN 53 Var Positioning
C Z-ADD6.3 OV3ACR 53
C WRITEOVL1
*
C SETON LR
** BAR Bar code data
12345678
01020304
POSITION
** LIN LINES DATA
DDS Functionality
OS/400 V3R1 and later releases
Vertical/Horizontal lines and boxes
Bar Code Symbologies
L
ARGE CHARACTERS
All Points addressability
Multiple Overlays per page
Multiple Page Segments per page
|