1                char_string = card_image;
 2 /* BEGIN INCLUDE FILE ... ibm2780_data.incl.pl1 ... 3/77 */
 3 
 4 dcl  adp ptr;                                               /* local copy of pointer to attach data */
 5 
 6 dcl 1 ad aligned based (adp),
 7     2 remote_ttt_info like remote_ttt_info,
 8     2 fixed,
 9       3 phys_line_length fixed,
10       3 char_mode fixed bin,                                /* translation mode ascii or ebcdic */
11       3 record_len fixed bin,                               /* length of output record in characters */
12       3 line_length fixed bin,                              /* length of printer line */
13     2 bits,
14       3 ht bit (1),                                         /* on if terminal has tab option */
15       3 multi_record bit (1),                               /* enable multi record mode if on */
16       3 auto_turnaround bit (1),                            /* enable auto turnaround if on */
17       3 transparent bit (1),                                /* Set if in transparent mode */
18     2 ptrs,
19       3 comm_iocbp ptr,                                     /* iocb ptr  to comm_ dim  */
20     2 chars,
21       3 printer_select char(2),
22       3 punch_select char(2),
23       3 terminal_id char (2),                               /* terminal id string of terminal */
24       3 device_type char (32),                                        /* device selection character */
25       3 attach_desc char (256) var,
26       3 open_description char (24) var;
27 
28 dcl  ascii fixed bin int static init (1) options (constant);
29 dcl  ebcdic fixed bin int static init (2) options (constant);
30 
31 dcl  reader char (32) static init ("reader") options (constant);      /* device name */
32 dcl  punch char (32) static init ("punch") options (constant);        /* device name */
33 dcl  special char (32) static init ("special") options (constant); /* device name */
34 dcl  printer char (32) static init ("printer") options (constant); /* device name */
35 dcl  teleprinter char (32) static init ("teleprinter") options (constant); /* device name */
36 
37 dcl  HT char (1) int static options (constant) init ("      ");
38 dcl  ENQ char (1) int static options (constant) init ("^E");
39 dcl  ESC char (1) int static options (constant) init ("^[");
40 
41 /* END INCLUDE FILE ... ibm2780_data.incl.pl1 */