1 /*  BEGIN:   dsa_scu_sec_info.incl.pl1                        *  *  *  *  *  */
 2 
 3 /****^  HISTORY COMMENTS:
 4   1) change(84-06-23,Kissel), approve(87-07-23,MCR7742),
 5      audit(87-07-23,GDixon), install(87-08-04,MR12.1-1056):
 6      Created.
 7                                                    END HISTORY COMMENTS */
 8 
 9 /*****************************************************************************/
10 /*                                                                           */
11 /*   This Include  contains the structures needed at connect listen          */
12 /*   receive_control (establishment) to pass the information about           */
13 /*   the identity of the local or remote end_point of the session            */
14 /*                                                                           */
15 /*   Writen 6/84 by    R.J.C. Kissel   and  J.P.  Leguigner                  */
16 /*                                                                           */
17 /*****************************************************************************/
18 
19 /* format: style3,linecom,ifthenstmt,indthenelse,^indnoniterdo,indnoniterend,initcol3,dclind5,idind32 */
20 
21 dcl  SUBMITTER_ID_V1                 char (8) internal static options (constant) init ("SUBID_v1");
22 
23 dcl  subidp                          ptr;
24 dcl  1 submitter_id                  aligned based (subidp),
25        2 version                     char (8) unal,
26        2 person_id                   char (12) unal,
27        2 project_id                  char (12) unal,
28        2 billing_id                  char (12) unal,
29        2 password                    char (12) unal;
30 
31 dcl  SC_USER_SECURITY_INFO_V1        char (8) internal static options (constant) init ("SUSI_V1");
32 dcl  susip                           ptr;
33 dcl  1 sc_user_security_info         based (susip),
34        2 version                     char (8) unal,
35        2 submitter_id                like submitter_id,
36        2 flags                       unaligned,
37          3 person_loc_registered     bit (1),
38          3 project_loc_registered    bit (1),
39          3 password_loc_validated    bit (1),
40          3 person_rem_validated      bit (1),
41          3 project_rem_validated     bit (1),
42          3 badge_indicator           bit (1),
43          3 remote_SC_trusted         bit (1),
44          3 pad                       bit (31),
45        2 aim_classes                 (2) bit (72);
46 
47 /*  END OF:  dsa_scu_sec_info.incl.pl1                        *  *  *  *  *  */