1 
 2 /* BEGIN INCLUDE FILE ...   cobol_cirst.incl.pl1 */
 3 /*******************  COMMON INPUT RECORD of SORT TABLE  *********************/
 4 dcl  1  cirst based(com2_ptr),
 5                     2  s_ptr  char(5),  /* points to next entry */
 6                     2  s_start_size  fixed bin(15),  /* section_name_1's name size */
 7                     2  s_start  char(30),  /*  section_name_1 */
 8           2  s_stop_size  fixed bin(15),  /* section_name_2's name size */
 9           2  s_stop  char(30),  /* section_name_2 */
10           2  s_savesecnum fixed bin(15),   /* used by PDSYNTAX */
11           2  s_srtfilename_size  fixed bin(15),  /* filename_1's name size */
12           2  s_srtfilename  char(30),  /* file_name_1 */
13           2  s_sio  bit(1),  /* set to 0 */
14           2  s_rel  bit(1),  /* used by PDSYNTAX */
15           2  s_ret  bit(1),  /* used by PDSYNTAX */
16                     2 s_info, /* used by Replacement*/
17                               3 s_info1 bit(1),
18                               3 s_info2 bit(1),
19                               3 s_info3 bit(1),
20                               3 s_info4 bit(1),
21                               3 s_info5 bit(1);
22 
23 
24 /* The DCL for corst( COMMON OUTPUT RECORD of SORT TABLE ) is exactly the same, but using section_name_3 and
25     section_name_4. Also s_sio will be set to 1. */
26 
27 
28 /* END INCLUDE FILE ...   cobol_cirst.incl.pl1 */
29