1 /* BEGIN INCLUDE FILE ... picture_util.incl.pl1 */
 2 
 3 dcl       pack_picture_                 entry (char (1), char (1), char (1)),
 4           unpack_picture_               entry (char (1), char (1), char (1)),
 5           validate_picture_             entry (char (1), char (1), fixed bin (15), fixed bin (15)),
 6 
 7           assign_type_d                 entry (bit (36) aligned, ptr, ptr, fixed bin (17), fixed bin (35)),
 8           assign_type_p                 entry (ptr, fixed bin (17), fixed bin (35)),
 9 
10           char1                         char (1) based;
11 
12 /* END INCLUDE FILE ... picture_util.incl.pl1 */