1 dcl 1 plio_sb aligned ,
 2           2 fe(3)   ,                   /* cur, two more for the complex case */
 3                     3 type    fixed bin(15),
 4                     3 nval    fixed bin(15),
 5                     3 val,
 6                               4 val_1   fixed bin(15),
 7                               4 val_2   fixed bin(15),
 8                               4 val_3   fixed bin(15),
 9           2 cur_rep fixed bin(15),      /* octal offset 17  */
10           2 cur_sfp ptr,                /* octal offset 20,21   */
11           2 cur_fep ptr,
12           2 format_len fixed  bin(35),
13           2 saved_x0  fixed bin(35),
14           2 stk_index fixed bin(15),
15           2 space_ptr         ptr,
16           2 real_parts_len    fixed bin(35),
17           2 cplx_flags        fixed bin(35),
18           2 pef_finish        ptr,
19           2 extra_temp        fixed bin(35),
20           2 extra(4),
21                     3 extra_word        fixed bin(35),
22           2 frame(10),                  /* push down for "(" in a format list */
23                     3 sf1p    ptr,
24                     3 sf2p    ptr,
25                     3 fe1p    ptr,
26                     3 fe2p    ptr,
27                     3 rep     fixed bin(15);