1 /*
 2 cobol_operators_: write statement
 3 
 4           OP39(init_write)
 5 
 6           OP40(write_stream)
 7 
 8                     SUBR_PUT_CHARS
 9 
10           OP41(seek_key)
11 
12                     SUBR_SEEK_OP(16)
13 
14           OP42(write_record)
15 
16                     iox_$write_record)
17 
18           OP68(write_stream_linage)
19 
20                     SUBR_PUT_CHARS
21 
22           OP90(alt_add_write_keys)
23 
24                     if cobol_mode = 61 then save prime key in crp.prime_key
25                     add alternate key values to record
26                     update fields in FSB
27                     RTS(56)
28 
29           OP91(alt_write_seek_key)
30 
31                     if cobol_mode = 61 then test key order (error_table_$key_order)
32                     if necessary then SAVE_CRP
33                     test alternate key values for legality (error_table_$invalid_key)
34                     if invalid key and SAVE_CRP was executed then RESTORE_CRP
35                      shift key one position to right and prefix
36                     RTS(51)
37 
38           SUBR_PUT_CHARS                40,68
39 
40                     iox_$put_chars
41 
42           SUBR_SEEK_OP(i)               41,[67]
43 
44                     iox_$seek_key
45                     RTS(i)
46 
47 */