COBOL instrumentation and debugging
Gordon Lyon · 1978
AbCENDI "ACCEPT" "ACCESS" "ASSIGN" "AUTHOR" "BEFORE" "BOTTOM" "CANCEL" "COLUMN" "DELETE" "DETAIL" "DIVIDE" "ENABLE" "EXTEND" "FILLER" "GIVING" "LENGTh" "LIMITS" "LINAGE" "MEMORY" "NATIVE" "NUMBER" "OCCURS" "OUTPUT" "QUOTES" "RANDOM" "RECORD" "REPORT" "RETURN" "REWIND" "SEARCH" "SELECT"."SOURCE" "SPACES" "STATUS" "STRING" "VALUES" "ZEROES" Mt.S NG KEY K(> 03 k)3 FILLER FILLER PIC X(7) PIC X(7) VAl-UE "compute" VALUE "COWTROL" -16-03 FILLER PIC X (7) VALUE "DISABLE" 03 FILLER PIC X J) VALUE "DISPLAY" 03 FILLER PIC X J) VALUE "DYNAMIC" ™^• •••••• A # 03 FILLER PIC X J) VALUE "FOOTING" 03 FILLER PIC X [1) VALUE "GREATER" u3 FILLER PIC X (7) VALUE "ttEADiNG" 03 PIC X [1) VALUE "INDEXED" 03 FILLER PIC X 17) VALUE "Initial" .03 FILLER PIC X 17) VALUE "INSPECT" u3 filllr PIC X 17) VALUE "INVALID" 1^3 FILLER PIC X [7) VALUE "leading" .03 FILLER PIC X 117) VALUb "linkage" .1^3 FILLER PIC XI17) VALUE "MESSAGE" 03 FILLER PIC X 1 7) VALUE "WODULES " 03 FILLER PIC X 7) VALUE "numeric" .03 FILLER PIC X 7) VALUE "omitted" .03 FILLER PIC XI 7) VALUE "PERFORM" 03 FILLER PIC X 7) VALUE "PICTURE" 03 FILLER PIC X 7) VALUE " POINTER" 03 FILLER PIC X 7) VALUE "PROCEED" 03 FILLER PIC X 7) VALUE "PROGRAM" 03 FILLER PIC X 7) VALUE "RECEIVE" 03 FILLER PIC Xi 7) VALUE " RECORDS " 03 FILLER PIC Xi 7) VALUE "RELEASE" 03 FILLER PIC X 7) VALUE "REMOVAL" 03 FILLER PIC X 7) VALUE "RENAMES" 03 FILLER PIC X J) VALUE "REPORTS" 03 FILLER PIC xY TAbINX, ASCENDING k^EY K7. k(2 KTb.k)4 K7 pic A(7) • 03 FILLER PIC A(b) VALUE "CODE-SET" 03 FILLER PIC X(tf) VALUE "CONTAINS" 03 FILLER PIC X(b) VALUE "CONTROLS" 03 FILLER PIC X(b) VALUE "CURRENCY" 03 FILLER PIC X(8) VALUE "DIVISION" 03 FILLER PIC X(8) VALUE "GENERATE" 03 FILLER PIC X(8) VALUE "INDICATE" 03 FILLER PIC X(8) VALUE "INITIATE".03 FILLER PIC X(8) VALUE "MULTIPLE" 03 FILLER PIC X(8) VALUE "MULTIPLY" 03 FILLER PIC X(8) VALUE "NEGATIVE" 03 FILLER PIC X(8) VALUE "OPTIONAL" 03 FILLER PIC X(8) VALUE "OVERFLOW" 03 FILLER PIC X(8) VALUE "POSITION"