1 2 /* BEGIN INCLUDE FILE ... cobol_type19.incl.pl1 */ 3 /* last modified on 11/19/76 by ORN */ 4 5 /* 6 A type 19 end of statement token is created in the procedure division 7 minpral file at the end of each minpral statement generated by the 8 procedure division syntax phase. A minpral statement may be a complete or 9 partial source language statement. A type 19 token contains information 10 describing the statement which it delimits. 11 */ 12 13 dcl eos_ptr ptr; 14 15 /* BEGIN DECLARATION OF TYPE19 (END STATEMENT) TOKEN */ 16 dcl 1 end_stmt based (eos_ptr), 17 %include cobol_TYPE19; 18 /* END DECLARATION OF TYPE19 (END STATEMENT) TOKEN */ 19 20 /* 21 FIELD CONTENTS 22 23 size The total size in bytes of this end of statement token. 24 line 0 25 column 0 26 type 19 27 verb A value indicating the verb in this statement 28 1 = accept 29 2 = add 30 3 = on size error 31 4 = alter 32 5 = call 33 7 = cancel 34 8 = close 35 9 = divide 36 10 = multiply 37 11 = subtract 38 12 = exit 39 14 = go 40 15 = merge 41 16 = initiate 42 17 = inspect 43 18 = move 44 19 = open 45 20 = perform 46 21 = read 47 23 = receive 48 24 = release 49 25 = return 50 26 = search 51 27 = rewrite 52 29 = seek 53 30 = send 54 31 = set 55 33 = stop 56 34 = string 57 35 = suspend 58 36 = terminate 59 37 = unstring 60 38 = write 61 39 = use 62 40 = compute 63 41 = disable 64 42 = display 65 43 = enable 66 45 = generate 67 46 = hold 68 48 = process 69 49 = sort 70 52 = procedure 71 53 = declaratives 72 54 = section name 73 55 = paragraph name 74 98 = end 75 e,h,i,j The significance of these fields differs with each 76 statement. These fields are normally used as counters. 77 a,b,c,d,f,g,k The significance of these fields differs with each 78 statement. These fields are normally used as indicators. 79 */ 80 81 /* END INCLUDE FILE ... cobol_type19.incl.pl1 */ 82