1 
 2 /* BEGIN INCLUDE FILE ...   cobol_perform_stuff.incl.pl1 */
 3 
 4 dcl c26 char (28) based;      /* used to move perform range entry */
 5 
 6 dcl fb26 fixed bin (15) static init (28);         /* used to write perform range entry */
 7 
 8 dcl convalue fixed bin (15) static init (48);   /* used for range check in set verb */
 9 
10 /* END INCLUDE FILE ...   cobol_perform_stuff.incl.pl1 */
11