1 /*  START OF:       mbuild_request_parms_.incl.pl1            *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * */
 2 
 3 
 4 /****^  HISTORY COMMENTS:
 5   1) change(2019-08-17,GDixon), approve(2019-10-23,MCR10069),
 6      audit(2020-01-20,Swenson), install(2020-01-20,MR12.6g-0035):
 7      Declarations needed by an mbuild request or subroutine program that
 8      references mbuild_data_.incl.pl1, to assert that they support the latest
 9      version of structures declared in that include file.
10   2) change(2022-09-10,GDixon), approve(2022-09-12,MCR10126),
11      audit(2022-10-11,Swenson), install(2022-10-12,MR12.8-1042):
12      Add check_parms_B procedure.
13                                                    END HISTORY COMMENTS */
14 
15 /*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *   */
16 /*                                                                                                */
17 /* Verify input structure version.                                                                */
18 /*                                                                                                */
19 /*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *   */
20 
21 check_parms:
22      proc (coded_for_version) returns(bit(1) aligned);
23 
24   dcl  coded_for_version char(*) var parameter;
25 
26   dcl  error_table_$unimplemented_version fixed bin(35) ext static;
27 
28      if bld.version ^= coded_for_version then do;
29           call ssu_$print_message (bld.sciP, error_table_$unimplemented_version, "Abuild_dataP parameter in ^a.", PROC);
30           return (F);
31           end;
32      return (T);
33 
34 
35 check_parms2:
36      entry (Abuild_dataP, coded_for_version) returns(bit(1) aligned);
37 
38   dcl  Abuild_dataP ptr parameter;
39 
40      if Abuild_dataP->bld.version ^= coded_for_version then do;
41           call ssu_$print_message (Abuild_dataP->bld.sciP, error_table_$unimplemented_version,
42                "Abuild_dataP parameter in ^a.", PROC);
43           return (F);
44           end;
45      return (T);
46 
47      end check_parms;
48 
49 /*  END OF:         mbuild_request_parms_.incl.pl1            *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * */