Commit c72b871a authored by rdubner's avatar rdubner
Browse files

Create 'known-good' test files for RH7

parent 495caf6f
KNOWN GOOD LINES: 2
No stack.
The 'p ?' range has been set to +/- 6 lines
KNOWN GOOD LINES: 1
No stack.
KNOWN GOOD START
entering: jimbob
1234567.8
123456.78
entering: jim
James " Lowden
by pargraphs:
James
"
Lowden
by threw
James
"
Lowden
by sekshun:
James
"
Lowden
entering: bob
Robert J Dubner
by pargraphs:
Robert
J
Dubner
by threw
Robert
J
Dubner
by sekshun:
Robert
J
Dubner
entering: jorb
L
"
entering: JUST_ONE
+0000001031
+0000001032
+0000001033
4.3210001
GEORGE
WASHINGTON
CARVER
123.456789
123456.789
Wabash
[Inferior 1 (process 99999) exited normally]
KNOWN GOOD FINISH
KNOWN GOOD LINES: 1
No stack.
KNOWN GOOD START
1 : 01 GEORGE/test [L-S] :
2 : 02 NAME-FIRST/GEORGE/test [L-S] :
3 : 01 WASHINGTON/test [L-S] :
4 : 02 NAME-FIRST/WASHINGTON/test [L-S] :
5 : 02 LOCATION/WASHINGTON/test [L-S] :
6 : 02 TEMPERATURE/WASHINGTON/test [L-S] :
7 : 66 WABASH/TEMPERATURE/WASHINGTON/test [L-S] :
8 : 01 CARVER/test [L-S] :
9 : 02 NAME-FIRST/CARVER/test [L-S] :
10 : 01 PEANUTS/test [L-S] :
11 : 02 NAME-FIRST/PEANUTS/test [L-S] :
12 : 01 LEGUMES/test [L-S] :
13 : 02 NAME-FIRST/LEGUMES/test [L-S] :
14 : 01 WS-JIM/JIMBOB [W-S] :
15 : 02 WS-FIRSTNAME/WS-JIM/JIMBOB [W-S] :
16 : 02 WS-MIDDLE-INITIAL/WS-JIM/JIMBOB [W-S] :
17 : 02 WS-LASTNAME/WS-JIM/JIMBOB [W-S] :
18 : 01 WS-BOB/JIMBOB [W-S] :
19 : 02 WS-FIRSTNAME/WS-BOB/JIMBOB [W-S] :
20 : 02 WS-MIDDLE-INITIAL/WS-BOB/JIMBOB [W-S] :
21 : 02 WS-LASTNAME/WS-BOB/JIMBOB [W-S] :
22 : 01 WS-FLOATTEST/JIMBOB [W-S] : 0
1 : 01 GEORGE/test [L-S] :
2 : 02 NAME-FIRST/GEORGE/test [L-S] :
3 : 01 WASHINGTON/test [L-S] :
4 : 02 NAME-FIRST/WASHINGTON/test [L-S] :
5 : 66 WABASH/TEMPERATURE/WASHINGTON/test [L-S] :
6 : 01 CARVER/test [L-S] :
7 : 02 NAME-FIRST/CARVER/test [L-S] :
8 : 01 PEANUTS/test [L-S] :
9 : 02 NAME-FIRST/PEANUTS/test [L-S] :
10 : 01 LEGUMES/test [L-S] :
11 : 02 NAME-FIRST/LEGUMES/test [L-S] :
01 GEORGE/test [L-S] :
67 PROCEDURE DIVISION.
68 MOVE SPACES to WS-BOB.
1 : 77 TEST-NUMBER-A/JIMBOB [W-S] :
2 : 77 TEST-NUMBER-B1/JIMBOB [W-S] : 1234567.8
3 : 77 TEST-NUMBER-B2/JIMBOB [W-S] : 123456.78
4 : 77 TEST-NUMBER-C/JIMBOB [W-S] :
5 : 77 errno/JIMBOB [W-S] :
6 : 01 WS-JIM/JIMBOB [W-S] : James " Lowden
7 : 02 WS-FIRSTNAME/WS-JIM/JIMBOB [W-S] : James
8 : 02 WS-MIDDLE-INITIAL/WS-JIM/JIMBOB [W-S] :
9 : 02 WS-LASTNAME/WS-JIM/JIMBOB [W-S] : Lowden
10 : 01 WS-BOB/JIMBOB [W-S] :
11 : 02 WS-FIRSTNAME/WS-BOB/JIMBOB [W-S] :
12 : 02 WS-MIDDLE-INITIAL/WS-BOB/JIMBOB [W-S] :
13 : 02 WS-LASTNAME/WS-BOB/JIMBOB [W-S] :
14 : 01 WS-JUDY/JIMBOB [W-S] : Judy L Ruderman
15 : 02 WS-FIRSTNAME/WS-JUDY/JIMBOB [W-S] :
16 : 02 WS-MIDDLE-INITIAL/WS-JUDY/JIMBOB [W-S] :
17 : 02 WS-LASTNAME/WS-JUDY/JIMBOB [W-S] :
18 : 01 UNUSED/JIMBOB [W-S] :
19 : 02 NOT-USED/UNUSED/JIMBOB [W-S] :
20 : 01 WS-FLOATTEST/JIMBOB [W-S] : 1.234
1 : 77 TEST-NUMBER-B1/JIMBOB [W-S] : 1234567.8
2 : 77 TEST-NUMBER-B2/JIMBOB [W-S] : 123456.78
3 : 02 WS-FIRSTNAME/WS-JIM/JIMBOB [W-S] : James
4 : 02 WS-MIDDLE-INITIAL/WS-JIM/JIMBOB [W-S] :
5 : 02 WS-LASTNAME/WS-JIM/JIMBOB [W-S] : Lowden
6 : 01 WS-BOB/JIMBOB [W-S] :
7 : 02 WS-FIRSTNAME/WS-BOB/JIMBOB [W-S] :
8 : 02 WS-MIDDLE-INITIAL/WS-BOB/JIMBOB [W-S] :
9 : 02 WS-LASTNAME/WS-BOB/JIMBOB [W-S] :
10 : 02 WS-FIRSTNAME/WS-JUDY/JIMBOB [W-S] :
11 : 02 WS-MIDDLE-INITIAL/WS-JUDY/JIMBOB [W-S] :
12 : 02 WS-LASTNAME/WS-JUDY/JIMBOB [W-S] :
13 : 01 UNUSED/JIMBOB [W-S] :
14 : 02 NOT-USED/UNUSED/JIMBOB [W-S] :
15 : 01 WS-FLOATTEST/JIMBOB [W-S] : 1.234
77 TEST-NUMBER-B1/JIMBOB [W-S] : 0x3132333435363738
69 MOVE "Robert" to WS-FIRSTNAME IN WS-BOB.
1 : 77 TEST-NUMBER-A/JIMBOB [W-S] :
2 : 77 TEST-NUMBER-B1/JIMBOB [W-S] : 1234567.8
3 : 77 TEST-NUMBER-B2/JIMBOB [W-S] : 123456.78
4 : 77 TEST-NUMBER-C/JIMBOB [W-S] :
5 : 77 errno/JIMBOB [W-S] :
6 : 01 WS-JIM/JIMBOB [W-S] : James " Lowden
7 : 02 WS-FIRSTNAME/WS-JIM/JIMBOB [W-S] : James
8 : 02 WS-MIDDLE-INITIAL/WS-JIM/JIMBOB [W-S] :
9 : 02 WS-LASTNAME/WS-JIM/JIMBOB [W-S] : Lowden
10 : 01 WS-BOB/JIMBOB [W-S] :
11 : 02 WS-FIRSTNAME/WS-BOB/JIMBOB [W-S] :
12 : 02 WS-MIDDLE-INITIAL/WS-BOB/JIMBOB [W-S] :
13 : 02 WS-LASTNAME/WS-BOB/JIMBOB [W-S] :
14 : 01 WS-JUDY/JIMBOB [W-S] : Judy L Ruderman
15 : 02 WS-FIRSTNAME/WS-JUDY/JIMBOB [W-S] :
16 : 02 WS-MIDDLE-INITIAL/WS-JUDY/JIMBOB [W-S] :
17 : 02 WS-LASTNAME/WS-JUDY/JIMBOB [W-S] :
18 : 01 UNUSED/JIMBOB [W-S] :
19 : 02 NOT-USED/UNUSED/JIMBOB [W-S] :
20 : 01 WS-FLOATTEST/JIMBOB [W-S] : 1.234
1 : 77 TEST-NUMBER-B1/JIMBOB [W-S] : 1234567.8
2 : 77 TEST-NUMBER-B2/JIMBOB [W-S] : 123456.78
3 : 02 WS-FIRSTNAME/WS-JIM/JIMBOB [W-S] : James
4 : 02 WS-MIDDLE-INITIAL/WS-JIM/JIMBOB [W-S] :
5 : 02 WS-LASTNAME/WS-JIM/JIMBOB [W-S] : Lowden
6 : 01 WS-BOB/JIMBOB [W-S] :
7 : 02 WS-FIRSTNAME/WS-BOB/JIMBOB [W-S] :
8 : 02 WS-MIDDLE-INITIAL/WS-BOB/JIMBOB [W-S] :
9 : 02 WS-LASTNAME/WS-BOB/JIMBOB [W-S] :
10 : 02 WS-FIRSTNAME/WS-JUDY/JIMBOB [W-S] :
11 : 02 WS-MIDDLE-INITIAL/WS-JUDY/JIMBOB [W-S] :
12 : 02 WS-LASTNAME/WS-JUDY/JIMBOB [W-S] :
13 : 01 UNUSED/JIMBOB [W-S] :
14 : 02 NOT-USED/UNUSED/JIMBOB [W-S] :
15 : 01 WS-FLOATTEST/JIMBOB [W-S] : 1.234
77 TEST-NUMBER-B1/JIMBOB [W-S] : 0x3132333435363738
70 MOVE "J" to WS-MIDDLE-INITIAL IN WS-BOB.
1 : 77 TEST-NUMBER-A/JIMBOB [W-S] :
2 : 77 TEST-NUMBER-B1/JIMBOB [W-S] : 1234567.8
3 : 77 TEST-NUMBER-B2/JIMBOB [W-S] : 123456.78
4 : 77 TEST-NUMBER-C/JIMBOB [W-S] :
5 : 77 errno/JIMBOB [W-S] :
6 : 01 WS-JIM/JIMBOB [W-S] : James " Lowden
7 : 02 WS-FIRSTNAME/WS-JIM/JIMBOB [W-S] : James
8 : 02 WS-MIDDLE-INITIAL/WS-JIM/JIMBOB [W-S] :
9 : 02 WS-LASTNAME/WS-JIM/JIMBOB [W-S] : Lowden
10 : 01 WS-BOB/JIMBOB [W-S] : Robert
11 : 02 WS-FIRSTNAME/WS-BOB/JIMBOB [W-S] : Robert
12 : 02 WS-MIDDLE-INITIAL/WS-BOB/JIMBOB [W-S] :
13 : 02 WS-LASTNAME/WS-BOB/JIMBOB [W-S] :
14 : 01 WS-JUDY/JIMBOB [W-S] : Judy L Ruderman
15 : 02 WS-FIRSTNAME/WS-JUDY/JIMBOB [W-S] :
16 : 02 WS-MIDDLE-INITIAL/WS-JUDY/JIMBOB [W-S] :
17 : 02 WS-LASTNAME/WS-JUDY/JIMBOB [W-S] :
18 : 01 UNUSED/JIMBOB [W-S] :
19 : 02 NOT-USED/UNUSED/JIMBOB [W-S] :
20 : 01 WS-FLOATTEST/JIMBOB [W-S] : 1.234
1 : 77 TEST-NUMBER-B1/JIMBOB [W-S] : 1234567.8
2 : 77 TEST-NUMBER-B2/JIMBOB [W-S] : 123456.78
3 : 02 WS-FIRSTNAME/WS-JIM/JIMBOB [W-S] : James
4 : 02 WS-MIDDLE-INITIAL/WS-JIM/JIMBOB [W-S] :
5 : 02 WS-LASTNAME/WS-JIM/JIMBOB [W-S] : Lowden
6 : 01 WS-BOB/JIMBOB [W-S] : Robert
7 : 02 WS-FIRSTNAME/WS-BOB/JIMBOB [W-S] : Robert
8 : 02 WS-MIDDLE-INITIAL/WS-BOB/JIMBOB [W-S] :
9 : 02 WS-LASTNAME/WS-BOB/JIMBOB [W-S] :
10 : 02 WS-FIRSTNAME/WS-JUDY/JIMBOB [W-S] :
11 : 02 WS-MIDDLE-INITIAL/WS-JUDY/JIMBOB [W-S] :
12 : 02 WS-LASTNAME/WS-JUDY/JIMBOB [W-S] :
13 : 01 UNUSED/JIMBOB [W-S] :
14 : 02 NOT-USED/UNUSED/JIMBOB [W-S] :
15 : 01 WS-FLOATTEST/JIMBOB [W-S] : 1.234
77 TEST-NUMBER-B1/JIMBOB [W-S] : 0x3132333435363738
71 MOVE "Dubner" to WS-LASTNAME IN WS-BOB.
1 : 77 TEST-NUMBER-A/JIMBOB [W-S] :
2 : 77 TEST-NUMBER-B1/JIMBOB [W-S] : 1234567.8
3 : 77 TEST-NUMBER-B2/JIMBOB [W-S] : 123456.78
4 : 77 TEST-NUMBER-C/JIMBOB [W-S] :
5 : 77 errno/JIMBOB [W-S] :
6 : 01 WS-JIM/JIMBOB [W-S] : James " Lowden
7 : 02 WS-FIRSTNAME/WS-JIM/JIMBOB [W-S] : James
8 : 02 WS-MIDDLE-INITIAL/WS-JIM/JIMBOB [W-S] :
9 : 02 WS-LASTNAME/WS-JIM/JIMBOB [W-S] : Lowden
10 : 01 WS-BOB/JIMBOB [W-S] : Robert J
11 : 02 WS-FIRSTNAME/WS-BOB/JIMBOB [W-S] : Robert
12 : 02 WS-MIDDLE-INITIAL/WS-BOB/JIMBOB [W-S] : J
13 : 02 WS-LASTNAME/WS-BOB/JIMBOB [W-S] :
14 : 01 WS-JUDY/JIMBOB [W-S] : Judy L Ruderman
15 : 02 WS-FIRSTNAME/WS-JUDY/JIMBOB [W-S] :
16 : 02 WS-MIDDLE-INITIAL/WS-JUDY/JIMBOB [W-S] :
17 : 02 WS-LASTNAME/WS-JUDY/JIMBOB [W-S] :
18 : 01 UNUSED/JIMBOB [W-S] :
19 : 02 NOT-USED/UNUSED/JIMBOB [W-S] :
20 : 01 WS-FLOATTEST/JIMBOB [W-S] : 1.234
1 : 77 TEST-NUMBER-B1/JIMBOB [W-S] : 1234567.8
2 : 77 TEST-NUMBER-B2/JIMBOB [W-S] : 123456.78
3 : 01 WS-JIM/JIMBOB [W-S] : James " Lowden
4 : 02 WS-FIRSTNAME/WS-JIM/JIMBOB [W-S] : James
5 : 02 WS-MIDDLE-INITIAL/WS-JIM/JIMBOB [W-S] :
6 : 02 WS-LASTNAME/WS-JIM/JIMBOB [W-S] : Lowden
7 : 01 WS-BOB/JIMBOB [W-S] : Robert J
8 : 02 WS-FIRSTNAME/WS-BOB/JIMBOB [W-S] : Robert
9 : 02 WS-MIDDLE-INITIAL/WS-BOB/JIMBOB [W-S] : J
10 : 02 WS-LASTNAME/WS-BOB/JIMBOB [W-S] :
11 : 01 WS-JUDY/JIMBOB [W-S] : Judy L Ruderman
12 : 02 WS-FIRSTNAME/WS-JUDY/JIMBOB [W-S] :
13 : 02 WS-MIDDLE-INITIAL/WS-JUDY/JIMBOB [W-S] :
14 : 02 WS-LASTNAME/WS-JUDY/JIMBOB [W-S] :
15 : 01 UNUSED/JIMBOB [W-S] :
16 : 02 NOT-USED/UNUSED/JIMBOB [W-S] :
17 : 01 WS-FLOATTEST/JIMBOB [W-S] : 1.234
77 TEST-NUMBER-B1/JIMBOB [W-S] : 0x3132333435363738
72 DISPLAY "entering: jimbob"
1 : 77 TEST-NUMBER-A/JIMBOB [W-S] :
2 : 77 TEST-NUMBER-B1/JIMBOB [W-S] : 1234567.8
3 : 77 TEST-NUMBER-B2/JIMBOB [W-S] : 123456.78
4 : 77 TEST-NUMBER-C/JIMBOB [W-S] :
5 : 77 errno/JIMBOB [W-S] :
6 : 01 WS-JIM/JIMBOB [W-S] : James " Lowden
7 : 02 WS-FIRSTNAME/WS-JIM/JIMBOB [W-S] : James
8 : 02 WS-MIDDLE-INITIAL/WS-JIM/JIMBOB [W-S] :
9 : 02 WS-LASTNAME/WS-JIM/JIMBOB [W-S] : Lowden
10 : 01 WS-BOB/JIMBOB [W-S] : Robert J Dubner
11 : 02 WS-FIRSTNAME/WS-BOB/JIMBOB [W-S] : Robert
12 : 02 WS-MIDDLE-INITIAL/WS-BOB/JIMBOB [W-S] : J
13 : 02 WS-LASTNAME/WS-BOB/JIMBOB [W-S] : Dubner
14 : 01 WS-JUDY/JIMBOB [W-S] : Judy L Ruderman
15 : 02 WS-FIRSTNAME/WS-JUDY/JIMBOB [W-S] :
16 : 02 WS-MIDDLE-INITIAL/WS-JUDY/JIMBOB [W-S] :
17 : 02 WS-LASTNAME/WS-JUDY/JIMBOB [W-S] :
18 : 01 UNUSED/JIMBOB [W-S] :
19 : 02 NOT-USED/UNUSED/JIMBOB [W-S] :
20 : 01 WS-FLOATTEST/JIMBOB [W-S] : 1.234
1 : 77 TEST-NUMBER-B1/JIMBOB [W-S] : 1234567.8
2 : 77 TEST-NUMBER-B2/JIMBOB [W-S] : 123456.78
3 : 01 WS-JIM/JIMBOB [W-S] : James " Lowden
4 : 02 WS-FIRSTNAME/WS-JIM/JIMBOB [W-S] : James
5 : 02 WS-MIDDLE-INITIAL/WS-JIM/JIMBOB [W-S] :
6 : 02 WS-LASTNAME/WS-JIM/JIMBOB [W-S] : Lowden
7 : 01 WS-BOB/JIMBOB [W-S] : Robert J Dubner
8 : 02 WS-FIRSTNAME/WS-BOB/JIMBOB [W-S] : Robert
9 : 02 WS-MIDDLE-INITIAL/WS-BOB/JIMBOB [W-S] : J
10 : 02 WS-LASTNAME/WS-BOB/JIMBOB [W-S] : Dubner
11 : 01 WS-JUDY/JIMBOB [W-S] : Judy L Ruderman
12 : 02 WS-FIRSTNAME/WS-JUDY/JIMBOB [W-S] :
13 : 02 WS-MIDDLE-INITIAL/WS-JUDY/JIMBOB [W-S] :
14 : 02 WS-LASTNAME/WS-JUDY/JIMBOB [W-S] :
15 : 02 NOT-USED/UNUSED/JIMBOB [W-S] :
16 : 01 WS-FLOATTEST/JIMBOB [W-S] : 1.234
77 TEST-NUMBER-B1/JIMBOB [W-S] : 0x3132333435363738
entering: jimbob
73 DISPLAY TEST-NUMBER-B1.
1 : 77 TEST-NUMBER-A/JIMBOB [W-S] :
2 : 77 TEST-NUMBER-B1/JIMBOB [W-S] : 1234567.8
3 : 77 TEST-NUMBER-B2/JIMBOB [W-S] : 123456.78
4 : 77 TEST-NUMBER-C/JIMBOB [W-S] :
5 : 77 errno/JIMBOB [W-S] :
6 : 01 WS-JIM/JIMBOB [W-S] : James " Lowden
7 : 02 WS-FIRSTNAME/WS-JIM/JIMBOB [W-S] : James
8 : 02 WS-MIDDLE-INITIAL/WS-JIM/JIMBOB [W-S] :
9 : 02 WS-LASTNAME/WS-JIM/JIMBOB [W-S] : Lowden
10 : 01 WS-BOB/JIMBOB [W-S] : Robert J Dubner
11 : 02 WS-FIRSTNAME/WS-BOB/JIMBOB [W-S] : Robert
12 : 02 WS-MIDDLE-INITIAL/WS-BOB/JIMBOB [W-S] : J
13 : 02 WS-LASTNAME/WS-BOB/JIMBOB [W-S] : Dubner
14 : 01 WS-JUDY/JIMBOB [W-S] : Judy L Ruderman
15 : 02 WS-FIRSTNAME/WS-JUDY/JIMBOB [W-S] :
16 : 02 WS-MIDDLE-INITIAL/WS-JUDY/JIMBOB [W-S] :
17 : 02 WS-LASTNAME/WS-JUDY/JIMBOB [W-S] :
18 : 01 UNUSED/JIMBOB [W-S] :
19 : 02 NOT-USED/UNUSED/JIMBOB [W-S] :
20 : 01 WS-FLOATTEST/JIMBOB [W-S] : 1.234
1 : 77 TEST-NUMBER-B1/JIMBOB [W-S] : 1234567.8
2 : 77 TEST-NUMBER-B2/JIMBOB [W-S] : 123456.78
3 : 01 WS-JIM/JIMBOB [W-S] : James " Lowden
4 : 02 WS-FIRSTNAME/WS-JIM/JIMBOB [W-S] : James
5 : 02 WS-MIDDLE-INITIAL/WS-JIM/JIMBOB [W-S] :
6 : 02 WS-LASTNAME/WS-JIM/JIMBOB [W-S] : Lowden
7 : 01 WS-BOB/JIMBOB [W-S] : Robert J Dubner
8 : 02 WS-FIRSTNAME/WS-BOB/JIMBOB [W-S] : Robert
9 : 02 WS-MIDDLE-INITIAL/WS-BOB/JIMBOB [W-S] : J
10 : 02 WS-LASTNAME/WS-BOB/JIMBOB [W-S] : Dubner
11 : 01 WS-JUDY/JIMBOB [W-S] : Judy L Ruderman
12 : 02 WS-FIRSTNAME/WS-JUDY/JIMBOB [W-S] :
13 : 02 WS-MIDDLE-INITIAL/WS-JUDY/JIMBOB [W-S] :
14 : 02 WS-LASTNAME/WS-JUDY/JIMBOB [W-S] :
15 : 01 WS-FLOATTEST/JIMBOB [W-S] : 1.234
77 TEST-NUMBER-B1/JIMBOB [W-S] : 0x3132333435363738
1234567.8
74 DISPLAY TEST-NUMBER-B2.
1 : 77 TEST-NUMBER-A/JIMBOB [W-S] :
2 : 77 TEST-NUMBER-B1/JIMBOB [W-S] : 1234567.8
3 : 77 TEST-NUMBER-B2/JIMBOB [W-S] : 123456.78
4 : 77 TEST-NUMBER-C/JIMBOB [W-S] :
5 : 77 errno/JIMBOB [W-S] :
6 : 01 WS-JIM/JIMBOB [W-S] : James " Lowden
7 : 02 WS-FIRSTNAME/WS-JIM/JIMBOB [W-S] : James
8 : 02 WS-MIDDLE-INITIAL/WS-JIM/JIMBOB [W-S] :
9 : 02 WS-LASTNAME/WS-JIM/JIMBOB [W-S] : Lowden
10 : 01 WS-BOB/JIMBOB [W-S] : Robert J Dubner
11 : 02 WS-FIRSTNAME/WS-BOB/JIMBOB [W-S] : Robert
12 : 02 WS-MIDDLE-INITIAL/WS-BOB/JIMBOB [W-S] : J
13 : 02 WS-LASTNAME/WS-BOB/JIMBOB [W-S] : Dubner
14 : 01 WS-JUDY/JIMBOB [W-S] : Judy L Ruderman
15 : 02 WS-FIRSTNAME/WS-JUDY/JIMBOB [W-S] :
16 : 02 WS-MIDDLE-INITIAL/WS-JUDY/JIMBOB [W-S] :
17 : 02 WS-LASTNAME/WS-JUDY/JIMBOB [W-S] :
18 : 01 UNUSED/JIMBOB [W-S] :
19 : 02 NOT-USED/UNUSED/JIMBOB [W-S] :
20 : 01 WS-FLOATTEST/JIMBOB [W-S] : 1.234
1 : 77 TEST-NUMBER-B1/JIMBOB [W-S] : 1234567.8
2 : 77 TEST-NUMBER-B2/JIMBOB [W-S] : 123456.78
3 : 01 WS-JIM/JIMBOB [W-S] : James " Lowden
4 : 02 WS-FIRSTNAME/WS-JIM/JIMBOB [W-S] : James
5 : 02 WS-MIDDLE-INITIAL/WS-JIM/JIMBOB [W-S] :
6 : 02 WS-LASTNAME/WS-JIM/JIMBOB [W-S] : Lowden
7 : 01 WS-BOB/JIMBOB [W-S] : Robert J Dubner
8 : 02 WS-FIRSTNAME/WS-BOB/JIMBOB [W-S] : Robert
9 : 02 WS-MIDDLE-INITIAL/WS-BOB/JIMBOB [W-S] : J
10 : 02 WS-LASTNAME/WS-BOB/JIMBOB [W-S] : Dubner
11 : 01 WS-JUDY/JIMBOB [W-S] : Judy L Ruderman
12 : 02 WS-FIRSTNAME/WS-JUDY/JIMBOB [W-S] :
13 : 02 WS-MIDDLE-INITIAL/WS-JUDY/JIMBOB [W-S] :
14 : 02 WS-LASTNAME/WS-JUDY/JIMBOB [W-S] :
15 : 01 WS-FLOATTEST/JIMBOB [W-S] : 1.234
77 TEST-NUMBER-B1/JIMBOB [W-S] : 0x3132333435363738
123456.78
75 CALL 'JIM'.
1 : 77 TEST-NUMBER-A/JIMBOB [W-S] :
2 : 77 TEST-NUMBER-B1/JIMBOB [W-S] : 1234567.8
3 : 77 TEST-NUMBER-B2/JIMBOB [W-S] : 123456.78
4 : 77 TEST-NUMBER-C/JIMBOB [W-S] :
5 : 77 errno/JIMBOB [W-S] :
6 : 01 WS-JIM/JIMBOB [W-S] : James " Lowden
7 : 02 WS-FIRSTNAME/WS-JIM/JIMBOB [W-S] : James
8 : 02 WS-MIDDLE-INITIAL/WS-JIM/JIMBOB [W-S] :
9 : 02 WS-LASTNAME/WS-JIM/JIMBOB [W-S] : Lowden
10 : 01 WS-BOB/JIMBOB [W-S] : Robert J Dubner
11 : 02 WS-FIRSTNAME/WS-BOB/JIMBOB [W-S] : Robert
12 : 02 WS-MIDDLE-INITIAL/WS-BOB/JIMBOB [W-S] : J
13 : 02 WS-LASTNAME/WS-BOB/JIMBOB [W-S] : Dubner
14 : 01 WS-JUDY/JIMBOB [W-S] : Judy L Ruderman
15 : 02 WS-FIRSTNAME/WS-JUDY/JIMBOB [W-S] :
16 : 02 WS-MIDDLE-INITIAL/WS-JUDY/JIMBOB [W-S] :
17 : 02 WS-LASTNAME/WS-JUDY/JIMBOB [W-S] :
18 : 01 UNUSED/JIMBOB [W-S] :
19 : 02 NOT-USED/UNUSED/JIMBOB [W-S] :
20 : 01 WS-FLOATTEST/JIMBOB [W-S] : 1.234
1 : 77 TEST-NUMBER-B1/JIMBOB [W-S] : 1234567.8
2 : 77 TEST-NUMBER-B2/JIMBOB [W-S] : 123456.78
3 : 01 WS-JIM/JIMBOB [W-S] : James " Lowden
4 : 02 WS-FIRSTNAME/WS-JIM/JIMBOB [W-S] : James
5 : 02 WS-MIDDLE-INITIAL/WS-JIM/JIMBOB [W-S] :
6 : 02 WS-LASTNAME/WS-JIM/JIMBOB [W-S] : Lowden
7 : 01 WS-BOB/JIMBOB [W-S] : Robert J Dubner
8 : 02 WS-FIRSTNAME/WS-BOB/JIMBOB [W-S] : Robert
9 : 02 WS-MIDDLE-INITIAL/WS-BOB/JIMBOB [W-S] : J
10 : 02 WS-LASTNAME/WS-BOB/JIMBOB [W-S] : Dubner
11 : 01 WS-JUDY/JIMBOB [W-S] : Judy L Ruderman
12 : 02 WS-FIRSTNAME/WS-JUDY/JIMBOB [W-S] :
13 : 02 WS-MIDDLE-INITIAL/WS-JUDY/JIMBOB [W-S] :
14 : 02 WS-LASTNAME/WS-JUDY/JIMBOB [W-S] :
15 : 01 WS-FLOATTEST/JIMBOB [W-S] : 1.234
77 TEST-NUMBER-B1/JIMBOB [W-S] : 0x3132333435363738
84 PROCEDURE DIVISION.
85 DISPLAY "entering: jim"
1 : 01 WS-JIM/JIMBOB [W-S] : James " Lowden
2 : 02 WS-FIRSTNAME/WS-JIM/JIMBOB [W-S] : James
3 : 02 WS-MIDDLE-INITIAL/WS-JIM/JIMBOB [W-S] :
4 : 02 WS-LASTNAME/WS-JIM/JIMBOB [W-S] : Lowden
5 : 01 WS-BOB/JIMBOB [W-S] : Robert J Dubner
6 : 02 WS-FIRSTNAME/WS-BOB/JIMBOB [W-S] : Robert
7 : 02 WS-MIDDLE-INITIAL/WS-BOB/JIMBOB [W-S] : J
8 : 02 WS-LASTNAME/WS-BOB/JIMBOB [W-S] : Dubner
9 : 01 WS-FLOATTEST/JIMBOB [W-S] : 1.234
1 : 01 WS-JIM/JIMBOB [W-S] : James " Lowden
2 : 01 WS-FLOATTEST/JIMBOB [W-S] : 1.234
01 WS-JIM/JIMBOB [W-S] : James " Lowden
entering: jim
86 DISPLAY WS-JIM.
1 : 01 WS-JIM/JIMBOB [W-S] : James " Lowden
2 : 02 WS-FIRSTNAME/WS-JIM/JIMBOB [W-S] : James
3 : 02 WS-MIDDLE-INITIAL/WS-JIM/JIMBOB [W-S] :
4 : 02 WS-LASTNAME/WS-JIM/JIMBOB [W-S] : Lowden
5 : 01 WS-BOB/JIMBOB [W-S] : Robert J Dubner
6 : 02 WS-FIRSTNAME/WS-BOB/JIMBOB [W-S] : Robert
7 : 02 WS-MIDDLE-INITIAL/WS-BOB/JIMBOB [W-S] : J
8 : 02 WS-LASTNAME/WS-BOB/JIMBOB [W-S] : Dubner
9 : 01 WS-FLOATTEST/JIMBOB [W-S] : 1.234
1 : 01 WS-JIM/JIMBOB [W-S] : James " Lowden
2 : 01 WS-FLOATTEST/JIMBOB [W-S] : 1.234
01 WS-JIM/JIMBOB [W-S] : James " Lowden
James " Lowden
87 DISPLAY "by pargraphs:"
1 : 01 WS-JIM/JIMBOB [W-S] : James " Lowden
2 : 02 WS-FIRSTNAME/WS-JIM/JIMBOB [W-S] : James
3 : 02 WS-MIDDLE-INITIAL/WS-JIM/JIMBOB [W-S] :
4 : 02 WS-LASTNAME/WS-JIM/JIMBOB [W-S] : Lowden
5 : 01 WS-BOB/JIMBOB [W-S] : Robert J Dubner
6 : 02 WS-FIRSTNAME/WS-BOB/JIMBOB [W-S] : Robert
7 : 02 WS-MIDDLE-INITIAL/WS-BOB/JIMBOB [W-S] : J
8 : 02 WS-LASTNAME/WS-BOB/JIMBOB [W-S] : Dubner
9 : 01 WS-FLOATTEST/JIMBOB [W-S] : 1.234
1 : 01 WS-JIM/JIMBOB [W-S] : James " Lowden
2 : 01 WS-FLOATTEST/JIMBOB [W-S] : 1.234
01 WS-JIM/JIMBOB [W-S] : James " Lowden
by pargraphs:
88 PERFORM ParaFirstName.
1 : 01 WS-JIM/JIMBOB [W-S] : James " Lowden
2 : 02 WS-FIRSTNAME/WS-JIM/JIMBOB [W-S] : James
3 : 02 WS-MIDDLE-INITIAL/WS-JIM/JIMBOB [W-S] :
4 : 02 WS-LASTNAME/WS-JIM/JIMBOB [W-S] : Lowden
5 : 01 WS-BOB/JIMBOB [W-S] : Robert J Dubner
6 : 02 WS-FIRSTNAME/WS-BOB/JIMBOB [W-S] : Robert
7 : 02 WS-MIDDLE-INITIAL/WS-BOB/JIMBOB [W-S] : J
8 : 02 WS-LASTNAME/WS-BOB/JIMBOB [W-S] : Dubner
9 : 01 WS-FLOATTEST/JIMBOB [W-S] : 1.234
01 WS-JIM/JIMBOB [W-S] : James " Lowden
01 WS-JIM/JIMBOB [W-S] : James " Lowden
97 ParaFirstName. DISPLAY WS-FIRSTNAME OF WS-JIM.
1 : 01 WS-JIM/JIMBOB [W-S] : James " Lowden
2 : 02 WS-FIRSTNAME/WS-JIM/JIMBOB [W-S] : James
3 : 02 WS-MIDDLE-INITIAL/WS-JIM/JIMBOB [W-S] :
4 : 02 WS-LASTNAME/WS-JIM/JIMBOB [W-S] : Lowden
5 : 01 WS-BOB/JIMBOB [W-S] : Robert J Dubner
6 : 02 WS-FIRSTNAME/WS-BOB/JIMBOB [W-S] : Robert
7 : 02 WS-MIDDLE-INITIAL/WS-BOB/JIMBOB [W-S] : J
8 : 02 WS-LASTNAME/WS-BOB/JIMBOB [W-S] : Dubner
9 : 01 WS-FLOATTEST/JIMBOB [W-S] : 1.234
1 : 01 WS-JIM/JIMBOB [W-S] : James " Lowden
2 : 02 WS-FIRSTNAME/WS-JIM/JIMBOB [W-S] : James
3 : 02 WS-MIDDLE-INITIAL/WS-JIM/JIMBOB [W-S] :
4 : 02 WS-LASTNAME/WS-JIM/JIMBOB [W-S] : Lowden
5 : 02 WS-FIRSTNAME/WS-BOB/JIMBOB [W-S] : Robert
6 : 02 WS-MIDDLE-INITIAL/WS-BOB/JIMBOB [W-S] : J
7 : 02 WS-LASTNAME/WS-BOB/JIMBOB [W-S] : Dubner
01 WS-JIM/JIMBOB [W-S] : James " Lowden
James
89 PERFORM ParaMiddleInitial.
1 : 01 WS-JIM/JIMBOB [W-S] : James " Lowden
2 : 02 WS-FIRSTNAME/WS-JIM/JIMBOB [W-S] : James
3 : 02 WS-MIDDLE-INITIAL/WS-JIM/JIMBOB [W-S] :
4 : 02 WS-LASTNAME/WS-JIM/JIMBOB [W-S] : Lowden
5 : 01 WS-BOB/JIMBOB [W-S] : Robert J Dubner
6 : 02 WS-FIRSTNAME/WS-BOB/JIMBOB [W-S] : Robert
7 : 02 WS-MIDDLE-INITIAL/WS-BOB/JIMBOB [W-S] : J
8 : 02 WS-LASTNAME/WS-BOB/JIMBOB [W-S] : Dubner
9 : 01 WS-FLOATTEST/JIMBOB [W-S] : 1.234
1 : 01 WS-JIM/JIMBOB [W-S] : James " Lowden
2 : 02 WS-FIRSTNAME/WS-JIM/JIMBOB [W-S] : James
3 : 02 WS-MIDDLE-INITIAL/WS-JIM/JIMBOB [W-S] :
4 : 02 WS-LASTNAME/WS-JIM/JIMBOB [W-S] : Lowden
5 : 02 WS-FIRSTNAME/WS-BOB/JIMBOB [W-S] : Robert
6 : 02 WS-MIDDLE-INITIAL/WS-BOB/JIMBOB [W-S] : J
7 : 02 WS-LASTNAME/WS-BOB/JIMBOB [W-S] : Dubner
01 WS-JIM/JIMBOB [W-S] : James " Lowden
98 ParaMiddleInitial. DISPLAY WS-MIDDLE-INITIAL OF WS-JIM.
1 : 01 WS-JIM/JIMBOB [W-S] : James " Lowden
2 : 02 WS-FIRSTNAME/WS-JIM/JIMBOB [W-S] : James
3 : 02 WS-MIDDLE-INITIAL/WS-JIM/JIMBOB [W-S] :
4 : 02 WS-LASTNAME/WS-JIM/JIMBOB [W-S] : Lowden
5 : 01 WS-BOB/JIMBOB [W-S] : Robert J Dubner
6 : 02 WS-FIRSTNAME/WS-BOB/JIMBOB [W-S] : Robert
7 : 02 WS-MIDDLE-INITIAL/WS-BOB/JIMBOB [W-S] : J
8 : 02 WS-LASTNAME/WS-BOB/JIMBOB [W-S] : Dubner
9 : 01 WS-FLOATTEST/JIMBOB [W-S] : 1.234
1 : 01 WS-JIM/JIMBOB [W-S] : James " Lowden
2 : 02 WS-FIRSTNAME/WS-JIM/JIMBOB [W-S] : James
3 : 02 WS-MIDDLE-INITIAL/WS-JIM/JIMBOB [W-S] :
4 : 02 WS-LASTNAME/WS-JIM/JIMBOB [W-S] : Lowden
5 : 02 WS-FIRSTNAME/WS-BOB/JIMBOB [W-S] : Robert
6 : 02 WS-MIDDLE-INITIAL/WS-BOB/JIMBOB [W-S] : J
7 : 02 WS-LASTNAME/WS-BOB/JIMBOB [W-S] : Dubner
01 WS-JIM/JIMBOB [W-S] : James " Lowden
"
90 PERFORM ParaLastName.
1 : 01 WS-JIM/JIMBOB [W-S] : James " Lowden
2 : 02 WS-FIRSTNAME/WS-JIM/JIMBOB [W-S] : James
3 : 02 WS-MIDDLE-INITIAL/WS-JIM/JIMBOB [W-S] :
4 : 02 WS-LASTNAME/WS-JIM/JIMBOB [W-S] : Lowden
5 : 01 WS-BOB/JIMBOB [W-S] : Robert J Dubner
6 : 02 WS-FIRSTNAME/WS-BOB/JIMBOB [W-S] : Robert
7 : 02 WS-MIDDLE-INITIAL/WS-BOB/JIMBOB [W-S] : J
8 : 02 WS-LASTNAME/WS-BOB/JIMBOB [W-S] : Dubner
9 : 01 WS-FLOATTEST/JIMBOB [W-S] : 1.234
1 : 01 WS-JIM/JIMBOB [W-S] : James " Lowden
2 : 02 WS-FIRSTNAME/WS-JIM/JIMBOB [W-S] : James
3 : 02 WS-MIDDLE-INITIAL/WS-JIM/JIMBOB [W-S] :
4 : 02 WS-LASTNAME/WS-JIM/JIMBOB [W-S] : Lowden
5 : 02 WS-FIRSTNAME/WS-BOB/JIMBOB [W-S] : Robert
6 : 02 WS-MIDDLE-INITIAL/WS-BOB/JIMBOB [W-S] : J
7 : 02 WS-LASTNAME/WS-BOB/JIMBOB [W-S] : Dubner
01 WS-JIM/JIMBOB [W-S] : James " Lowden
99 ParaLastName. DISPLAY WS-LASTNAME OF WS-JIM.
1 : 01 WS-JIM/JIMBOB [W-S] : James " Lowden
2 : 02 WS-FIRSTNAME/WS-JIM/JIMBOB [W-S] : James
3 : 02 WS-MIDDLE-INITIAL/WS-JIM/JIMBOB [W-S] :
4 : 02 WS-LASTNAME/WS-JIM/JIMBOB [W-S] : Lowden
5 : 01 WS-BOB/JIMBOB [W-S] : Robert J Dubner
6 : 02 WS-FIRSTNAME/WS-BOB/JIMBOB [W-S] : Robert
7 : 02 WS-MIDDLE-INITIAL/WS-BOB/JIMBOB [W-S] : J
8 : 02 WS-LASTNAME/WS-BOB/JIMBOB [W-S] : Dubner
9 : 01 WS-FLOATTEST/JIMBOB [W-S] : 1.234
1 : 01 WS-JIM/JIMBOB [W-S] : James " Lowden
2 : 02 WS-FIRSTNAME/WS-JIM/JIMBOB [W-S] : James
3 : 02 WS-MIDDLE-INITIAL/WS-JIM/JIMBOB [W-S] :
4 : 02 WS-LASTNAME/WS-JIM/JIMBOB [W-S] : Lowden
5 : 02 WS-FIRSTNAME/WS-BOB/JIMBOB [W-S] : Robert
6 : 02 WS-MIDDLE-INITIAL/WS-BOB/JIMBOB [W-S] : J
7 : 02 WS-LASTNAME/WS-BOB/JIMBOB [W-S] : Dubner
01 WS-JIM/JIMBOB [W-S] : James " Lowden
Lowden
91 DISPLAY "by threw"
1 : 01 WS-JIM/JIMBOB [W-S] : James " Lowden
2 : 02 WS-FIRSTNAME/WS-JIM/JIMBOB [W-S] : James
3 : 02 WS-MIDDLE-INITIAL/WS-JIM/JIMBOB [W-S] :
4 : 02 WS-LASTNAME/WS-JIM/JIMBOB [W-S] : Lowden
5 : 01 WS-BOB/JIMBOB [W-S] : Robert J Dubner
6 : 02 WS-FIRSTNAME/WS-BOB/JIMBOB [W-S] : Robert
7 : 02 WS-MIDDLE-INITIAL/WS-BOB/JIMBOB [W-S] : J
8 : 02 WS-LASTNAME/WS-BOB/JIMBOB [W-S] : Dubner
9 : 01 WS-FLOATTEST/JIMBOB [W-S] : 1.234
1 : 01 WS-JIM/JIMBOB [W-S] : James " Lowden
2 : 02 WS-FIRSTNAME/WS-JIM/JIMBOB [W-S] : James
3 : 02 WS-MIDDLE-INITIAL/WS-JIM/JIMBOB [W-S] :
4 : 02 WS-LASTNAME/WS-JIM/JIMBOB [W-S] : Lowden
5 : 02 WS-FIRSTNAME/WS-BOB/JIMBOB [W-S] : Robert
6 : 02 WS-MIDDLE-INITIAL/WS-BOB/JIMBOB [W-S] : J
7 : 02 WS-LASTNAME/WS-BOB/JIMBOB [W-S] : Dubner
01 WS-JIM/JIMBOB [W-S] : James " Lowden
by threw
92 PERFORM ParaFirstName THRU ParaLastName.
1 : 01 WS-JIM/JIMBOB [W-S] : James " Lowden
2 : 02 WS-FIRSTNAME/WS-JIM/JIMBOB [W-S] : James
3 : 02 WS-MIDDLE-INITIAL/WS-JIM/JIMBOB [W-S] :
4 : 02 WS-LASTNAME/WS-JIM/JIMBOB [W-S] : Lowden
5 : 01 WS-BOB/JIMBOB [W-S] : Robert J Dubner
6 : 02 WS-FIRSTNAME/WS-BOB/JIMBOB [W-S] : Robert
7 : 02 WS-MIDDLE-INITIAL/WS-BOB/JIMBOB [W-S] : J
8 : 02 WS-LASTNAME/WS-BOB/JIMBOB [W-S] : Dubner
9 : 01 WS-FLOATTEST/JIMBOB [W-S] : 1.234
1 : 01 WS-JIM/JIMBOB [W-S] : James " Lowden
2 : 02 WS-FIRSTNAME/WS-JIM/JIMBOB [W-S] : James
3 : 02 WS-MIDDLE-INITIAL/WS-JIM/JIMBOB [W-S] :
4 : 02 WS-FIRSTNAME/WS-BOB/JIMBOB [W-S] : Robert
5 : 02 WS-MIDDLE-INITIAL/WS-BOB/JIMBOB [W-S] : J
01 WS-JIM/JIMBOB [W-S] : James " Lowden
97 ParaFirstName. DISPLAY WS-FIRSTNAME OF WS-JIM.
1 : 01 WS-JIM/JIMBOB [W-S] : James " Lowden
2 : 02 WS-FIRSTNAME/WS-JIM/JIMBOB [W-S] : James
3 : 02 WS-MIDDLE-INITIAL/WS-JIM/JIMBOB [W-S] :
4 : 02 WS-LASTNAME/WS-JIM/JIMBOB [W-S] : Lowden
5 : 01 WS-BOB/JIMBOB [W-S] : Robert J Dubner
6 : 02 WS-FIRSTNAME/WS-BOB/JIMBOB [W-S] : Robert
7 : 02 WS-MIDDLE-INITIAL/WS-BOB/JIMBOB [W-S] : J
8 : 02 WS-LASTNAME/WS-BOB/JIMBOB [W-S] : Dubner
9 : 01 WS-FLOATTEST/JIMBOB [W-S] : 1.234
1 : 01 WS-JIM/JIMBOB [W-S] : James " Lowden
2 : 02 WS-FIRSTNAME/WS-JIM/JIMBOB [W-S] : James
3 : 02 WS-MIDDLE-INITIAL/WS-JIM/JIMBOB [W-S] :
4 : 02 WS-LASTNAME/WS-JIM/JIMBOB [W-S] : Lowden
5 : 02 WS-FIRSTNAME/WS-BOB/JIMBOB [W-S] : Robert
6 : 02 WS-MIDDLE-INITIAL/WS-BOB/JIMBOB [W-S] : J
7 : 02 WS-LASTNAME/WS-BOB/JIMBOB [W-S] : Dubner
01 WS-JIM/JIMBOB [W-S] : James " Lowden
James
98 ParaMiddleInitial. DISPLAY WS-MIDDLE-INITIAL OF WS-JIM.
1 : 01 WS-JIM/JIMBOB [W-S] : James " Lowden
2 : 02 WS-FIRSTNAME/WS-JIM/JIMBOB [W-S] : James
3 : 02 WS-MIDDLE-INITIAL/WS-JIM/JIMBOB [W-S] :
4 : 02 WS-LASTNAME/WS-JIM/JIMBOB [W-S] : Lowden
5 : 01 WS-BOB/JIMBOB [W-S] : Robert J Dubner
6 : 02 WS-FIRSTNAME/WS-BOB/JIMBOB [W-S] : Robert
7 : 02 WS-MIDDLE-INITIAL/WS-BOB/JIMBOB [W-S] : J
8 : 02 WS-LASTNAME/WS-BOB/JIMBOB [W-S] : Dubner
9 : 01 WS-FLOATTEST/JIMBOB [W-S] : 1.234
1 : 01 WS-JIM/JIMBOB [W-S] : James " Lowden
2 : 02 WS-FIRSTNAME/WS-JIM/JIMBOB [W-S] : James
3 : 02 WS-MIDDLE-INITIAL/WS-JIM/JIMBOB [W-S] :
4 : 02 WS-LASTNAME/WS-JIM/JIMBOB [W-S] : Lowden
5 : 02 WS-FIRSTNAME/WS-BOB/JIMBOB [W-S] : Robert
6 : 02 WS-MIDDLE-INITIAL/WS-BOB/JIMBOB [W-S] : J
7 : 02 WS-LASTNAME/WS-BOB/JIMBOB [W-S] : Dubner
01 WS-JIM/JIMBOB [W-S] : James " Lowden
"
99 ParaLastName. DISPLAY WS-LASTNAME OF WS-JIM.
1 : 01 WS-JIM/JIMBOB [W-S] : James " Lowden
2 : 02 WS-FIRSTNAME/WS-JIM/JIMBOB [W-S] : James
3 : 02 WS-MIDDLE-INITIAL/WS-JIM/JIMBOB [W-S] :
4 : 02 WS-LASTNAME/WS-JIM/JIMBOB [W-S] : Lowden
5 : 01 WS-BOB/JIMBOB [W-S] : Robert J Dubner
6 : 02 WS-FIRSTNAME/WS-BOB/JIMBOB [W-S] : Robert
7 : 02 WS-MIDDLE-INITIAL/WS-BOB/JIMBOB [W-S] : J
8 : 02 WS-LASTNAME/WS-BOB/JIMBOB [W-S] : Dubner
9 : 01 WS-FLOATTEST/JIMBOB [W-S] : 1.234
1 : 01 WS-JIM/JIMBOB [W-S] : James " Lowden
2 : 02 WS-FIRSTNAME/WS-JIM/JIMBOB [W-S] : James
3 : 02 WS-MIDDLE-INITIAL/WS-JIM/JIMBOB [W-S] :
4 : 02 WS-LASTNAME/WS-JIM/JIMBOB [W-S] : Lowden
5 : 02 WS-FIRSTNAME/WS-BOB/JIMBOB [W-S] : Robert
6 : 02 WS-MIDDLE-INITIAL/WS-BOB/JIMBOB [W-S] : J
7 : 02 WS-LASTNAME/WS-BOB/JIMBOB [W-S] : Dubner
01 WS-JIM/JIMBOB [W-S] : James " Lowden
Lowden
93 DISPLAY "by sekshun:"
1 : 01 WS-JIM/JIMBOB [W-S] : James " Lowden
2 : 02 WS-FIRSTNAME/WS-JIM/JIMBOB [W-S] : James
3 : 02 WS-MIDDLE-INITIAL/WS-JIM/JIMBOB [W-S] :
4 : 02 WS-LASTNAME/WS-JIM/JIMBOB [W-S] : Lowden
5 : 01 WS-BOB/JIMBOB [W-S] : Robert J Dubner
6 : 02 WS-FIRSTNAME/WS-BOB/JIMBOB [W-S] : Robert
7 : 02 WS-MIDDLE-INITIAL/WS-BOB/JIMBOB [W-S] : J