1 /* BEGIN INCLUDE FILE ... hasp_signon_record_info.incl.pl1 */
 2 /* Created:  July 1981 by G. Palter */
 3 
 4 /* Structure used by the signon_record control order of a HASP sub-channel */
 5 
 6 dcl 1 signon_record_info aligned based (signon_record_info_ptr),
 7       2 version fixed binary,
 8       2 pad bit (36),
 9       2 event_channel fixed binary (71),                    /* IPC wait channel over which success/failure is signalled */
10       2 record character (80) unaligned;                    /*  actual record: hasp_host_ does necessary translations */
11 
12 dcl  signon_record_info_ptr pointer;
13 
14 dcl  SIGNON_RECORD_INFO_VERSION_1 fixed binary static options (constant) initial (1);
15 
16 
17 /* Possible results of transmitting the SIGNON record: returned as the event message signalled by the multiplexer on the
18    supplied IPC event-wait channel */
19 
20 dcl (HASP_SIGNON_OK           initial (1),                  /* remote system accepted the SIGNON record */
21      HASP_SIGNON_REJECTED     initial (2),                  /* remote system rejected it but allows a retry */
22      HASP_SIGNON_HANGUP       initial (3))                  /* remote system rejected it and disconnected the line */
23           fixed binary (71) static options (constant);
24 
25 /* END INCLUDE FILE ... hasp_signon_record_info.incl.pl1 */