1 /* plio2_descriptor_forms */
 2 
 3 dcl types_table(12) char(4) aligned internal static options(constant) init(
 4 /* cr-bd-ff-ls  */
 5 
 6 /*                  NEW DESC            OLD DESC            */
 7           "rbis",   /* 404 */           /* 00001 */
 8           "rbil",   /* 410 */           /* 00002 */
 9           "rbls",   /* 414 */           /* 00003 */
10           "rbll",   /* 420 */           /* 00004 */
11           "cbis",   /* 424 */           /* 00005 */
12           "cbil",   /* 430 */           /* 00006 */
13           "cbls",   /* 434 */           /* 00007 */
14           "cbll",   /* 440 */           /* 00010 */
15                     /* the first 8 agree with old descriptors */
16           "rdix",   /* 444 */
17           "rdlx",   /* 450 */
18           "cdix",   /* 454 */
19           "cdlx"    /* 460 */           );
20 
21 
22           dcl desc_ptr  ptr;
23 
24 
25 dcl  1  old_desc aligned based(desc_ptr),
26           2 ( od_type bit(15),
27               od_junk bit(3),
28               od_deci bit(1),
29               od_scale bit(8),
30               od_prec bit(9) ) unaligned;
31 
32 dcl  1  new_desc aligned based(desc_ptr),
33           2 ( nd_first bit(1),
34               nd_type  bit(6),
35               nd_pack  bit(1),
36               nd_ndims bit(4),
37               nd_scale bit(12),
38               nd_prec  bit(12)  )  unaligned;
39 
40 % include plio2_unpack;
41 
42 /* end of plio2_descriptor_forms  */