1 /* BEGIN INCLUDE FILE ... desc_dcls.incl.pl1 */
 2 
 3 /* This include segment contains declarations for use with assign_ */
 4 
 5 dcl       intype              fixed bin (17),
 6           outtype             fixed bin (17);
 7 
 8 dcl       inscale_prec        fixed bin (35),
 9           outscale_prec       fixed bin (35);
10 
11 dcl       1 info              based (addr (inscale_prec)) aligned,
12           2 inscale           fixed bin (17) unal,
13           2 inprec            fixed bin (17) unal;
14 
15 dcl       1 outfo             based (addr (outscale_prec)) aligned,
16           2 outscale          fixed bin (17) unal,
17           2 outprec           fixed bin (17) unal;
18 
19 dcl       inclength fixed bin(31) aligned based(addr(inscale_prec));
20 dcl       outclength fixed bin(31) aligned based(addr(outscale_prec));
21 
22 dcl       char_to_numeric_    entry (ptr, fixed bin (17), fixed bin (35), ptr, fixed bin (17)),
23           assign_             entry (ptr, fixed bin (17), fixed bin (35), ptr, fixed bin (17), fixed bin (35)),
24           assign_round_       entry (ptr, fixed bin (17), fixed bin (35), ptr, fixed bin (17), fixed bin (35)),
25           assign_truncate_    entry (ptr, fixed bin (17), fixed bin (35), ptr, fixed bin (17), fixed bin (35));
26 
27 /* END INCLUDE FILE ... desc_dcls.incl.pl1 */