Code Example
In the following example, 2 bar codes are defined with CMRs specified. The bar codes are defined for traditional, record format and XML page definitions.
Note: The DEFINE CMRNAMEs for
mycmrand dark1 are used in each page definition but defined only once. Page definitions that are in the same source file can only define a local CMR name once. This is because a DEFINE CMRNAME definition is global for all page definitions and form definitions in the same source code file.
Example
DEFINE mycmr CMRNAME
'Pict1550CC001.001PictV550@@'
'CS@@@@@@@@@@@@spac@@@@@@@@@@@RGB@'
'XYZ@@@@@@@@@' ;
DEFINE dark1 CMRNAME
'@@@@@@@@TCgeneric@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'
'dark@@@@@@@@@@@@@@@@@@@@@@' ;
/* Traditional Pagedef */
PAGEDEF cmr10P REPLACE yes;
PRINTLINE;
FIELD Start 1 Length 20
BARCODE TYPE code39 MOD 1
CMR myCMR audit;
FIELD Start 21 Length 40
BARCODE TYPE code39 MOD 1
CMR dark1 instr;
/* Record Layout Pagedef */
PAGEDEF cmr10L REPLACE yes;
Font f1;
LAYOUT 'L1';
FIELD Start 1 Length 20
BARCODE TYPE code39 MOD 1
CMR myCMR audit;
FIELD Start 21 Length 40
BARCODE TYPE code39 MOD 1
CMR dark1 instr;
/* XML Pagedef */
PAGEDEF cmr10X REPLACE yes;
Font f1 TYPE ebcdic;
XLAYOUT QTAG 'x1';
FIELD Start 1 Length 20
BARCODE TYPE code39 MOD 1
CMR myCMR audit;
FIELD Start 21 Length 40
BARCODE TYPE code39 MOD 1
CMR dark1 instr;