1 /*  START OF:       ssu_invoker_dcls_.incl.pl1                *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * */
 2 
 3           /*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *   */
 4           /*                                                                                                */
 5           /* NAME:  ssu_invoker_dcls_.incl.pl1                                                              */
 6           /*                                                                                                */
 7           /* FUNCTION:  Provide ssu_-related declarations needed by a non-command, non-request program      */
 8           /* that needs to create an ssu_ standalone invocation.  The info_seg_ subroutine is an example.   */
 9           /*                                                                                                */
10           /*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *   */
11 
12 
13 /****^  HISTORY COMMENTS:
14   1) change(2020-06-09,GDixon), approve(2021-02-23,MCR10089),
15      audit(2021-03-31,Swenson), install(2021-03-31,MR12.6g-0053):
16      Created as an element of the verify_info command and its info_seg_
17      subroutine.
18                                                    END HISTORY COMMENTS */
19 
20 
21 
22   dcl  AsciP ptr;                                           /* Pointer to ssu_ invocation data.                       */
23 
24   dcl  code fixed bin(35);                                  /* Status code.                                           */
25 
26   dcl (F init("0"b), T init("1"b)) bit(1) aligned int static options(constant);
27                                                             /* Constants used in this include file.                   */
28 
29   dcl  ssu_$abort_line entry() options(variable);           /*  ssu_ request support routines.                        */
30   dcl  ssu_$abort_subsystem entry() options(variable);
31   dcl  ssu_$add_request_table entry (ptr, ptr, fixed bin, fixed bin(35));
32   dcl  ssu_$create_invocation entry (char(*), char(*), ptr, ptr, char(*), ptr, fixed bin(35));
33   dcl  ssu_$delete_request_table entry (ptr, ptr, fixed bin(35));
34   dcl  ssu_$destroy_invocation entry (ptr);
35   dcl  ssu_$execute_line entry (ptr, ptr, fixed bin(21), fixed bin(35));
36   dcl  ssu_$execute_string entry (ptr, char(*), fixed bin(35));
37   dcl  ssu_$get_area entry (ptr, ptr, char(*), ptr);
38   dcl  ssu_$get_info_ptr entry (ptr) returns(ptr);
39   dcl  ssu_$get_request_name entry (ptr) returns(char(32));
40   dcl  ssu_$get_subsystem_name entry (ptr) returns(char(32));
41   dcl  ssu_$get_subsystem_and_request_name entry (ptr) returns(char(72) var);
42   dcl  ssu_$get_temp_segment entry (ptr, char(*), ptr);
43   dcl  ssu_$listen entry (ptr, ptr, fixed bin(35));
44   dcl  ssu_$print_message entry() options(variable);
45   dcl  ssu_$set_info_ptr entry (ptr, ptr);
46   dcl  ssu_$set_prompt_mode entry (ptr, bit(*));
47   dcl  ssu_$set_request_tables entry (ptr, ptr, fixed bin(35));
48   dcl  ssu_$standalone_invocation entry (ptr, char(*), char(*), ptr, entry, fixed bin(35));
49 
50 
51 standalone_cleanup_handler:
52           proc(AisStandalone, AsciP);
53 
54   dcl  AisStandalone bit(1) aligned;                        /* T: ssu_$standalone_invocation created; F: not created  */
55   dcl  AsciP ptr;                                           /* Pointer to ssu_$standalone_invocation data.            */
56 
57           if AisStandalone then do;
58                call ssu_$destroy_invocation (AsciP);
59                AisStandalone = F;
60                end;
61           return;
62 
63           end standalone_cleanup_handler;
64 
65 /*  END OF:         ssu_invoker_dcls_.incl.pl1                *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * */