|
On Fri, Jul 06, 2001 at 10:29:29AM -0500, Scott Klement klemscot@klements.com XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX wrote: > > Wow... I've never heard of anything like this with tn5250 before... > > Instead of using tcpdump, use the "trace" feature of tn5250. Do > something like: > > tn5250 trace=/home/nathaniel/trace.txt myas400 > > The trace output will be written to trace.txt. Then, look at that file > to see what it's sending and receiving. I'm trying :-) The trace output isn't terribly comprehensible to someone with no knowledge of tn5250's internals (I haven't been able to figure out where it shows the fields being sent back, for example...), but I've attached a relevant snippet to this message. Hopefully someone around here will have a better idea what to do with them :-). The attached trace goes from receiving the "Compile" screen, through the error I get when I simply press enter. Normally, simply pressing enter works, because good defaults have been filled in for all the required fields, but in this case the emulator doesn't seem to pass them back again, and I get an error telling me that a required field is missing. The trace ends there, but I can give people more if it's useful. I've also included two "screenshots" of tn5250 displaying the screen in question, in case they're useful for reference. > My best guess at this point is that there's a difference between the S/36 > telnet daemon and the AS/400's telnet daemon that's causing you grief. > > Has anyone else tried the emulator with a S/36? It's not actually an S/36; I'm connecting to the telnet daemon on the AS400, then running the "TFRM36" (TransFeR Machine) command to connect to the S/36. Rather like telnet'ing to one host, then telnet'ing again from there. So it's probably not the telnet daemon itself that causes the problem. It might be something odd about the sorts of screen the S/36 sends. Any thoughts? -- Nathaniel -- "...these, like all words, have single, decontextualized meanings: everyone knows what each of these words means, everyone knows what constitutes an instance of each of their referents. Language is fixed. Meaning is certain. Santa Claus comes down the chimney at midnight on December 24." -- The Language War, Robin Lakoff
@eor Dumping buffer (length=991): @record +0000 03df12a0 00000400 00020440 04110028 .... . .. .. . @record +0010 01030000 00130543 11011f00 00c3d6c2 .. ...... COB @record +0020 d6d3c300 d7d9d6c3 c5c4e4d9 c5000000 OLC PROCEDURE @record +0030 00001101 430000d6 97a38996 95819360 ... Optional- @record +0040 5c110302 00000000 00000000 00000000 *... @record +0050 00000000 00000000 000000c3 96949789 Compi @record +0060 9385a200 8100c3d6 c2d6d300 a296a499 les a COBOL sour @record +0070 83850097 99968799 81940000 00000000 ce program @record +0080 00000000 00000000 00000000 00000000 @record +0090 00001105 02d58194 85009686 00a296a4 ...Name of sou @record +00A0 99838500 97999687 99819400 a3960082 rce program to b @record +00B0 85008396 94978993 8584004b 004b004b e compiled . . . @record +00C0 004b004b 004b004b 004b004b 004b004b . . . . . . . . @record +00D0 004b004b 00110542 1d482030 0008d4d7 . . ....... .MP @record +00E0 d9d6c4d7 00001107 02d58194 85009686 RODP ...Name of @record +00F0 00938982 998199a8 00839695 a3818995 library contain @record +0100 89958700 a296a499 83850097 99968799 ing source progr @record +0110 8194004b 004b004b 004b004b 004b004b am . . . . . . . @record +0120 004b004b 004b004b 1107421d 48203000 . . . ........ @record +0130 08e6c9d3 c3d6e700 00110902 d5819485 .WILCOX ...Name @record +0140 00968600 93898299 8199a800 a3960083 of library to c @record +0150 9695a381 89950083 96949789 93858400 ontain compiled @record +0160 97999687 99819400 4b004b00 4b004b00 program . . . . @record +0170 4b004b00 4b004b00 4b004b11 09421d48 . . . . . ...... @record +0180 20300008 e6c9d3c3 d6e70000 11094e5c .. .WILCOX ..+* @record +0190 110b02c3 998581a3 85008489 81879596 ...Create diagno @record +01A0 a2858400 a296a499 83850094 85948285 sed source membe @record +01B0 9900004b 004b004b 004b004b 004b004b r . . . . . . . @record +01C0 004b004b 004b004b 00d5d6c4 e2d46bc4 . . . . NODSM,D @record +01D0 e2d40011 0b421d49 20300005 d5d6c4e2 SM ....... .NODS @record +01E0 d4110d02 d6a4a397 a4a30096 97a38996 M...Output optio @record +01F0 95008696 99008396 94978993 85990093 n for compiler l @record +0200 89a2a389 9587a200 4b004b00 4b004b00 istings . . . . @record +0210 4b00d7d9 c9d5e36b d5d6d7d9 c9d5e36b . PRINT,NOPRINT, @record +0220 c3d9e300 110d421d 49203000 07d7d9c9 CRT ....... .PRI @record +0230 d5e30000 110f02c3 998581a3 85008399 NT ...Create cr @record +0240 96a2a260 99858685 99859583 85009389 oss-reference li @record +0250 a2a38995 8700004b 004b004b 004b004b sting . . . . . @record +0260 004b004b 004b004b 004b00e7 d9c5c66b . . . . . XREF, @record +0270 d5d6e7d9 c5c60011 0f421d49 20300006 NOXREF ....... . @record +0280 00000000 0000110f 4e5c1111 02d585a5 ..+*...Nev @record +0290 85996085 95848995 87009799 96879981 er-ending progra @record +02A0 9400004b 004b004b 004b004b 004b004b m . . . . . . . @record +02B0 004b004b 004b004b 004b004b 004b004b . . . . . . . . @record +02C0 004b00d5 d6d5c5d7 6bd5c5d7 00111142 . NONEP,NEP ... @record +02D0 1d492030 0005d5d6 d5c5d711 1302d481 .... .NONEP...Ma @record +02E0 a78994a4 940095a4 94828599 00968600 ximum number of @record +02F0 998598a4 85a2a389 95870084 89a29793 requesting displ @record +0300 81a800a2 a381a389 9695a200 4b004b00 ay stations . . @record +0310 4b004b00 4b004b00 00f060f9 f9001113 . . . . 0-99 .. @record +0320 421d4b20 300002f0 00111502 e289a985 ..... .0 ...Size @record +0330 00968600 a6969992 00868993 85a20089 of work files i @record +0340 95008293 968392a2 00004b00 4b004b00 n blocks . . . @record +0350 4b004b00 4b004b00 4b004b00 4b004b00 . . . . . . . . @record +0360 4b004b00 00f160f9 f9f9f911 15421d4b . . 1-9999..... @record +0370 20300004 f4f00000 111702c3 9484f360 .. .40 ...Cmd3- @record +0380 d79985a5 8996a4a2 00948595 a4000000 Previous menu @record +0390 0000c394 84f460d7 a4a30096 95009196 Cmd4-Put on jo @record +03A0 820098a4 85a48500 00000000 c39484f1 b queue Cmd1 @record +03B0 f460d496 99850096 97a38996 95a20000 4-More options @record +03C0 00000000 00000000 0011183e c3d6d7d9 ...COPR @record +03D0 00c9c2d4 00c39699 974b00f1 f9f8f6 IBM Corp. 1986 @eor HandleReceive: entered. tn5250_stream_get_record: offset = 10 HandleReceive: cur_opcode = 0x02 0 OutputOnly: entered. ProcessStream: entered. ProcessStream: cur_command = 0x11 WriteToDisplay: entered. WriteToDisplay: 0x00:0x20 This->cy = 1, This->cx = 0 SetBufferAddress: row = 2; col = 1 RepeatToAddress: entered. RepeatToAddress: row = 7; col = 80; char = 0x00 This->cy = 1, This->cx = 0 SetBufferAddress: row = 2; col = 1 (0x20) This->cy = 2, This->cx = 1 SetBufferAddress: row = 3; col = 2 T (0xE3) h (0x88) e (0x85) (0x40) f (0x86) o (0x96) l (0x93) l (0x93) o (0x96) w (0xA6) i (0x89) n (0x95) g (0x87) (0x40) r (0x99) e (0x85) q (0x98) u (0xA4) e (0x85) s (0xA2) t (0xA3) s (0xA2) (0x40) a (0x81) r (0x99) e (0x85) (0x40) q (0x98) u (0xA4) e (0x85) u (0xA4) e (0x85) d (0x84) (0x40) f (0x86) o (0x96) r (0x99) (0x40) e (0x85) x (0xA7) e (0x85) c (0x83) u (0xA4) t (0xA3) i (0x89) o (0x96) n (0x95) . (0x4B) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) This->cy = 3, This->cx = 1 SetBufferAddress: row = 4; col = 2 1 (0xF1) . (0x4B) This->cy = 3, This->cx = 5 SetBufferAddress: row = 4; col = 6 C (0xC3) This->cy = 3, This->cx = 7 SetBufferAddress: row = 4; col = 8 M (0xD4) P (0xD7) R (0xD9) O (0xD6) D (0xC4) P (0xD7) (0x40) (0x40) This->cy = 3, This->cx = 16 SetBufferAddress: row = 4; col = 17 C (0xC3) This->cy = 4, This->cx = 1 SetBufferAddress: row = 5; col = 2 2 (0xF2) . (0x4B) This->cy = 4, This->cx = 5 SetBufferAddress: row = 5; col = 6 (0x40) This->cy = 4, This->cx = 7 SetBufferAddress: row = 5; col = 8 (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) This->cy = 4, This->cx = 16 SetBufferAddress: row = 5; col = 17 (0x40) This->cy = 5, This->cx = 1 SetBufferAddress: row = 6; col = 2 3 (0xF3) . (0x4B) This->cy = 5, This->cx = 5 SetBufferAddress: row = 6; col = 6 (0x40) This->cy = 5, This->cx = 7 SetBufferAddress: row = 6; col = 8 (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) This->cy = 5, This->cx = 16 SetBufferAddress: row = 6; col = 17 (0x40) This->cy = 3, This->cx = 21 SetBufferAddress: row = 4; col = 22 4 (0xF4) . (0x4B) This->cy = 3, This->cx = 25 SetBufferAddress: row = 4; col = 26 (0x40) This->cy = 3, This->cx = 27 SetBufferAddress: row = 4; col = 28 (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) This->cy = 3, This->cx = 36 SetBufferAddress: row = 4; col = 37 (0x40) This->cy = 4, This->cx = 21 SetBufferAddress: row = 5; col = 22 5 (0xF5) . (0x4B) This->cy = 4, This->cx = 25 SetBufferAddress: row = 5; col = 26 (0x40) This->cy = 4, This->cx = 27 SetBufferAddress: row = 5; col = 28 (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) This->cy = 4, This->cx = 36 SetBufferAddress: row = 5; col = 37 (0x40) This->cy = 5, This->cx = 21 SetBufferAddress: row = 6; col = 22 6 (0xF6) . (0x4B) This->cy = 5, This->cx = 25 SetBufferAddress: row = 6; col = 26 (0x40) This->cy = 5, This->cx = 27 SetBufferAddress: row = 6; col = 28 (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) This->cy = 5, This->cx = 36 SetBufferAddress: row = 6; col = 37 (0x40) This->cy = 3, This->cx = 41 SetBufferAddress: row = 4; col = 42 7 (0xF7) . (0x4B) This->cy = 3, This->cx = 45 SetBufferAddress: row = 4; col = 46 (0x40) This->cy = 3, This->cx = 47 SetBufferAddress: row = 4; col = 48 (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) This->cy = 3, This->cx = 56 SetBufferAddress: row = 4; col = 57 (0x40) This->cy = 4, This->cx = 41 SetBufferAddress: row = 5; col = 42 8 (0xF8) . (0x4B) This->cy = 4, This->cx = 45 SetBufferAddress: row = 5; col = 46 (0x40) This->cy = 4, This->cx = 47 SetBufferAddress: row = 5; col = 48 (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) This->cy = 4, This->cx = 56 SetBufferAddress: row = 5; col = 57 (0x40) This->cy = 5, This->cx = 41 SetBufferAddress: row = 6; col = 42 9 (0xF9) . (0x4B) This->cy = 5, This->cx = 45 SetBufferAddress: row = 6; col = 46 (0x40) This->cy = 5, This->cx = 47 SetBufferAddress: row = 6; col = 48 (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) This->cy = 5, This->cx = 56 SetBufferAddress: row = 6; col = 57 (0x40) This->cy = 3, This->cx = 61 SetBufferAddress: row = 4; col = 62 1 (0xF1) 0 (0xF0) . (0x4B) This->cy = 3, This->cx = 66 SetBufferAddress: row = 4; col = 67 (0x40) This->cy = 3, This->cx = 68 SetBufferAddress: row = 4; col = 69 (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) This->cy = 3, This->cx = 77 SetBufferAddress: row = 4; col = 78 (0x40) This->cy = 4, This->cx = 61 SetBufferAddress: row = 5; col = 62 1 (0xF1) 1 (0xF1) . (0x4B) This->cy = 4, This->cx = 66 SetBufferAddress: row = 5; col = 67 (0x40) This->cy = 4, This->cx = 68 SetBufferAddress: row = 5; col = 69 (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) This->cy = 4, This->cx = 77 SetBufferAddress: row = 5; col = 78 (0x40) This->cy = 5, This->cx = 61 SetBufferAddress: row = 6; col = 62 1 (0xF1) 2 (0xF2) . (0x4B) This->cy = 5, This->cx = 66 SetBufferAddress: row = 6; col = 67 (0x40) This->cy = 5, This->cx = 68 SetBufferAddress: row = 6; col = 69 (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) This->cy = 5, This->cx = 77 SetBufferAddress: row = 6; col = 78 (0x40) This->cy = 6, This->cx = 0 SetBufferAddress: row = 7; col = 1 (0x24) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x40) (0x20) This->cy = 8, This->cx = 21 Processing CC2 0x20. Done Processing CC2. tn5250_stream_get_record: offset = 10 HandleReceive: cur_opcode = 0x02 0 OutputOnly: entered. ProcessStream: entered. ProcessStream: cur_command = 0x40 ClearUnit: entered. tn5250_dbuffer_clear_table() entered. ProcessStream: cur_command = 0x11 WriteToDisplay: entered. WriteToDisplay: 0x00:0x28 StartOfHeader: entered. tn5250_dbuffer_clear_table() entered. IC order (y = X'04', x = X'42'). This->cy = 0, This->cx = 30 SetBufferAddress: row = 1; col = 31 (0x00) (0x00) C (0xC3) O (0xD6) B (0xC2) O (0xD6) L (0xD3) C (0xC3) (0x00) P (0xD7) R (0xD9) O (0xD6) C (0xC3) E (0xC5) D (0xC4) U (0xE4) R (0xD9) E (0xC5) (0x00) (0x00) (0x00) (0x00) (0x00) This->cy = 0, This->cx = 66 SetBufferAddress: row = 1; col = 67 (0x00) (0x00) O (0xD6) p (0x97) t (0xA3) i (0x89) o (0x96) n (0x95) a (0x81) l (0x93) - (0x60) * (0x5C) This->cy = 2, This->cx = 1 SetBufferAddress: row = 3; col = 2 (0x00) (0x00) (0x00) (0x00) (0x00) (0x00) (0x00) (0x00) (0x00) (0x00) (0x00) (0x00) (0x00) (0x00) (0x00) (0x00) (0x00) (0x00) (0x00) (0x00) (0x00) (0x00) (0x00) C (0xC3) o (0x96) m (0x94) p (0x97) i (0x89) l (0x93) e (0x85) s (0xA2) (0x00) a (0x81) (0x00) C (0xC3) O (0xD6) B (0xC2) O (0xD6) L (0xD3) (0x00) s (0xA2) o (0x96) u (0xA4) r (0x99) c (0x83) e (0x85) (0x00) p (0x97) r (0x99) o (0x96) g (0x87) r (0x99) a (0x81) m (0x94) (0x00) (0x00) (0x00) (0x00) (0x00) (0x00) (0x00) (0x00) (0x00) (0x00) (0x00) (0x00) (0x00) (0x00) (0x00) (0x00) (0x00) (0x00) (0x00) (0x00) (0x00) (0x00) (0x00) (0x00) This->cy = 4, This->cx = 1 SetBufferAddress: row = 5; col = 2 N (0xD5) a (0x81) m (0x94) e (0x85) (0x00) o (0x96) f (0x86) (0x00) s (0xA2) o (0x96) u (0xA4) r (0x99) c (0x83) e (0x85) (0x00) p (0x97) r (0x99) o (0x96) g (0x87) r (0x99) a (0x81) m (0x94) (0x00) t (0xA3) o (0x96) (0x00) b (0x82) e (0x85) (0x00) c (0x83) o (0x96) m (0x94) p (0x97) i (0x89) l (0x93) e (0x85) d (0x84) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) This->cy = 4, This->cx = 65 SetBufferAddress: row = 5; col = 66 StartOfField: entered. StartOfField: field format word = 0x4820 StartOfField: attribute = 0x30 StartOfField: Adding field. StartOfField: endrow = 4; endcol = 74 tn5250_field_dump: ffw flags = mdt monocase tn5250_field_dump: type = Alpha Shift tn5250_field_dump: adjust = No Adjust tn5250_field_dump: data = This->cy = 4, This->cx = 74 This->cy = 4, This->cx = 66 M (0xD4) P (0xD7) R (0xD9) O (0xD6) D (0xC4) P (0xD7) (0x00) (0x00) This->cy = 6, This->cx = 1 SetBufferAddress: row = 7; col = 2 N (0xD5) a (0x81) m (0x94) e (0x85) (0x00) o (0x96) f (0x86) (0x00) l (0x93) i (0x89) b (0x82) r (0x99) a (0x81) r (0x99) y (0xA8) (0x00) c (0x83) o (0x96) n (0x95) t (0xA3) a (0x81) i (0x89) n (0x95) i (0x89) n (0x95) g (0x87) (0x00) s (0xA2) o (0x96) u (0xA4) r (0x99) c (0x83) e (0x85) (0x00) p (0x97) r (0x99) o (0x96) g (0x87) r (0x99) a (0x81) m (0x94) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) This->cy = 6, This->cx = 65 SetBufferAddress: row = 7; col = 66 StartOfField: entered. StartOfField: field format word = 0x4820 StartOfField: attribute = 0x30 StartOfField: Adding field. StartOfField: endrow = 6; endcol = 74 tn5250_field_dump: ffw flags = mdt monocase tn5250_field_dump: type = Alpha Shift tn5250_field_dump: adjust = No Adjust tn5250_field_dump: data = This->cy = 6, This->cx = 74 This->cy = 6, This->cx = 66 W (0xE6) I (0xC9) L (0xD3) C (0xC3) O (0xD6) X (0xE7) (0x00) (0x00) This->cy = 8, This->cx = 1 SetBufferAddress: row = 9; col = 2 N (0xD5) a (0x81) m (0x94) e (0x85) (0x00) o (0x96) f (0x86) (0x00) l (0x93) i (0x89) b (0x82) r (0x99) a (0x81) r (0x99) y (0xA8) (0x00) t (0xA3) o (0x96) (0x00) c (0x83) o (0x96) n (0x95) t (0xA3) a (0x81) i (0x89) n (0x95) (0x00) c (0x83) o (0x96) m (0x94) p (0x97) i (0x89) l (0x93) e (0x85) d (0x84) (0x00) p (0x97) r (0x99) o (0x96) g (0x87) r (0x99) a (0x81) m (0x94) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) This->cy = 8, This->cx = 65 SetBufferAddress: row = 9; col = 66 StartOfField: entered. StartOfField: field format word = 0x4820 StartOfField: attribute = 0x30 StartOfField: Adding field. StartOfField: endrow = 8; endcol = 74 tn5250_field_dump: ffw flags = mdt monocase tn5250_field_dump: type = Alpha Shift tn5250_field_dump: adjust = No Adjust tn5250_field_dump: data = This->cy = 8, This->cx = 74 This->cy = 8, This->cx = 66 W (0xE6) I (0xC9) L (0xD3) C (0xC3) O (0xD6) X (0xE7) (0x00) (0x00) This->cy = 8, This->cx = 77 SetBufferAddress: row = 9; col = 78 * (0x5C) This->cy = 10, This->cx = 1 SetBufferAddress: row = 11; col = 2 C (0xC3) r (0x99) e (0x85) a (0x81) t (0xA3) e (0x85) (0x00) d (0x84) i (0x89) a (0x81) g (0x87) n (0x95) o (0x96) s (0xA2) e (0x85) d (0x84) (0x00) s (0xA2) o (0x96) u (0xA4) r (0x99) c (0x83) e (0x85) (0x00) m (0x94) e (0x85) m (0x94) b (0x82) e (0x85) r (0x99) (0x00) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) N (0xD5) O (0xD6) D (0xC4) S (0xE2) M (0xD4) , (0x6B) D (0xC4) S (0xE2) M (0xD4) (0x00) This->cy = 10, This->cx = 65 SetBufferAddress: row = 11; col = 66 StartOfField: entered. StartOfField: field format word = 0x4920 StartOfField: attribute = 0x30 StartOfField: Adding field. StartOfField: endrow = 10; endcol = 71 tn5250_field_dump: ffw flags = mdt monocase tn5250_field_dump: type = Alpha Only tn5250_field_dump: adjust = No Adjust tn5250_field_dump: data = This->cy = 10, This->cx = 71 This->cy = 10, This->cx = 66 N (0xD5) O (0xD6) D (0xC4) S (0xE2) M (0xD4) This->cy = 12, This->cx = 1 SetBufferAddress: row = 13; col = 2 O (0xD6) u (0xA4) t (0xA3) p (0x97) u (0xA4) t (0xA3) (0x00) o (0x96) p (0x97) t (0xA3) i (0x89) o (0x96) n (0x95) (0x00) f (0x86) o (0x96) r (0x99) (0x00) c (0x83) o (0x96) m (0x94) p (0x97) i (0x89) l (0x93) e (0x85) r (0x99) (0x00) l (0x93) i (0x89) s (0xA2) t (0xA3) i (0x89) n (0x95) g (0x87) s (0xA2) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) P (0xD7) R (0xD9) I (0xC9) N (0xD5) T (0xE3) , (0x6B) N (0xD5) O (0xD6) P (0xD7) R (0xD9) I (0xC9) N (0xD5) T (0xE3) , (0x6B) C (0xC3) R (0xD9) T (0xE3) (0x00) This->cy = 12, This->cx = 65 SetBufferAddress: row = 13; col = 66 StartOfField: entered. StartOfField: field format word = 0x4920 StartOfField: attribute = 0x30 StartOfField: Adding field. StartOfField: endrow = 12; endcol = 73 tn5250_field_dump: ffw flags = mdt monocase tn5250_field_dump: type = Alpha Only tn5250_field_dump: adjust = No Adjust tn5250_field_dump: data = This->cy = 12, This->cx = 73 This->cy = 12, This->cx = 66 P (0xD7) R (0xD9) I (0xC9) N (0xD5) T (0xE3) (0x00) (0x00) This->cy = 14, This->cx = 1 SetBufferAddress: row = 15; col = 2 C (0xC3) r (0x99) e (0x85) a (0x81) t (0xA3) e (0x85) (0x00) c (0x83) r (0x99) o (0x96) s (0xA2) s (0xA2) - (0x60) r (0x99) e (0x85) f (0x86) e (0x85) r (0x99) e (0x85) n (0x95) c (0x83) e (0x85) (0x00) l (0x93) i (0x89) s (0xA2) t (0xA3) i (0x89) n (0x95) g (0x87) (0x00) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) X (0xE7) R (0xD9) E (0xC5) F (0xC6) , (0x6B) N (0xD5) O (0xD6) X (0xE7) R (0xD9) E (0xC5) F (0xC6) (0x00) This->cy = 14, This->cx = 65 SetBufferAddress: row = 15; col = 66 StartOfField: entered. StartOfField: field format word = 0x4920 StartOfField: attribute = 0x30 StartOfField: Adding field. StartOfField: endrow = 14; endcol = 72 tn5250_field_dump: ffw flags = mdt monocase tn5250_field_dump: type = Alpha Only tn5250_field_dump: adjust = No Adjust tn5250_field_dump: data = This->cy = 14, This->cx = 72 This->cy = 14, This->cx = 66 (0x00) (0x00) (0x00) (0x00) (0x00) (0x00) This->cy = 14, This->cx = 77 SetBufferAddress: row = 15; col = 78 * (0x5C) This->cy = 16, This->cx = 1 SetBufferAddress: row = 17; col = 2 N (0xD5) e (0x85) v (0xA5) e (0x85) r (0x99) - (0x60) e (0x85) n (0x95) d (0x84) i (0x89) n (0x95) g (0x87) (0x00) p (0x97) r (0x99) o (0x96) g (0x87) r (0x99) a (0x81) m (0x94) (0x00) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) N (0xD5) O (0xD6) N (0xD5) E (0xC5) P (0xD7) , (0x6B) N (0xD5) E (0xC5) P (0xD7) (0x00) This->cy = 16, This->cx = 65 SetBufferAddress: row = 17; col = 66 StartOfField: entered. StartOfField: field format word = 0x4920 StartOfField: attribute = 0x30 StartOfField: Adding field. StartOfField: endrow = 16; endcol = 71 tn5250_field_dump: ffw flags = mdt monocase tn5250_field_dump: type = Alpha Only tn5250_field_dump: adjust = No Adjust tn5250_field_dump: data = This->cy = 16, This->cx = 71 This->cy = 16, This->cx = 66 N (0xD5) O (0xD6) N (0xD5) E (0xC5) P (0xD7) This->cy = 18, This->cx = 1 SetBufferAddress: row = 19; col = 2 M (0xD4) a (0x81) x (0xA7) i (0x89) m (0x94) u (0xA4) m (0x94) (0x00) n (0x95) u (0xA4) m (0x94) b (0x82) e (0x85) r (0x99) (0x00) o (0x96) f (0x86) (0x00) r (0x99) e (0x85) q (0x98) u (0xA4) e (0x85) s (0xA2) t (0xA3) i (0x89) n (0x95) g (0x87) (0x00) d (0x84) i (0x89) s (0xA2) p (0x97) l (0x93) a (0x81) y (0xA8) (0x00) s (0xA2) t (0xA3) a (0x81) t (0xA3) i (0x89) o (0x96) n (0x95) s (0xA2) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) (0x00) 0 (0xF0) - (0x60) 9 (0xF9) 9 (0xF9) (0x00) This->cy = 18, This->cx = 65 SetBufferAddress: row = 19; col = 66 StartOfField: entered. StartOfField: field format word = 0x4B20 StartOfField: attribute = 0x30 StartOfField: Adding field. StartOfField: endrow = 18; endcol = 68 tn5250_field_dump: ffw flags = mdt monocase tn5250_field_dump: type = Numeric Only tn5250_field_dump: adjust = No Adjust tn5250_field_dump: data = This->cy = 18, This->cx = 68 This->cy = 18, This->cx = 66 0 (0xF0) (0x00) This->cy = 20, This->cx = 1 SetBufferAddress: row = 21; col = 2 S (0xE2) i (0x89) z (0xA9) e (0x85) (0x00) o (0x96) f (0x86) (0x00) w (0xA6) o (0x96) r (0x99) k (0x92) (0x00) f (0x86) i (0x89) l (0x93) e (0x85) s (0xA2) (0x00) i (0x89) n (0x95) (0x00) b (0x82) l (0x93) o (0x96) c (0x83) k (0x92) s (0xA2) (0x00) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) . (0x4B) (0x00) (0x00) 1 (0xF1) - (0x60) 9 (0xF9) 9 (0xF9) 9 (0xF9) 9 (0xF9) This->cy = 20, This->cx = 65 SetBufferAddress: row = 21; col = 66 StartOfField: entered. StartOfField: field format word = 0x4B20 StartOfField: attribute = 0x30 StartOfField: Adding field. StartOfField: endrow = 20; endcol = 70 tn5250_field_dump: ffw flags = mdt monocase tn5250_field_dump: type = Numeric Only tn5250_field_dump: adjust = No Adjust tn5250_field_dump: data = This->cy = 20, This->cx = 70 This->cy = 20, This->cx = 66 4 (0xF4) 0 (0xF0) (0x00) (0x00) This->cy = 22, This->cx = 1 SetBufferAddress: row = 23; col = 2 C (0xC3) m (0x94) d (0x84) 3 (0xF3) - (0x60) P (0xD7) r (0x99) e (0x85) v (0xA5) i (0x89) o (0x96) u (0xA4) s (0xA2) (0x00) m (0x94) e (0x85) n (0x95) u (0xA4) (0x00) (0x00) (0x00) (0x00) (0x00) C (0xC3) m (0x94) d (0x84) 4 (0xF4) - (0x60) P (0xD7) u (0xA4) t (0xA3) (0x00) o (0x96) n (0x95) (0x00) j (0x91) o (0x96) b (0x82) (0x00) q (0x98) u (0xA4) e (0x85) u (0xA4) e (0x85) (0x00) (0x00) (0x00) (0x00) (0x00) C (0xC3) m (0x94) d (0x84) 1 (0xF1) 4 (0xF4) - (0x60) M (0xD4) o (0x96) r (0x99) e (0x85) (0x00) o (0x96) p (0x97) t (0xA3) i (0x89) o (0x96) n (0x95) s (0xA2) (0x00) (0x00) (0x00) (0x00) (0x00) (0x00) (0x00) (0x00) (0x00) (0x00) (0x00) This->cy = 23, This->cx = 61 SetBufferAddress: row = 24; col = 62 C (0xC3) O (0xD6) P (0xD7) R (0xD9) (0x00) I (0xC9) B (0xC2) M (0xD4) (0x00) C (0xC3) o (0x96) r (0x99) p (0x97) . (0x4B) (0x00) 1 (0xF1) 9 (0xF9) 8 (0xF8) 6 (0xF6) This->cy = 4, This->cx = 66 Processing CC2 0x28. Done Processing CC2. Dumping buffer (length=14): @record +0000 000e12a0 00000400 00010442 0000 ... . ... @eor HandleReceive: entered. tn5250_stream_get_record: offset = 10 HandleReceive: cur_opcode = 0x01 0 Invite: entered. ProcessStream: entered. ProcessStream: cur_command = 0x42 tn5250_session_read_cmd: readop = 0x42. Processing CC2 0x00. Done Processing CC2. tn5250_session_read_cmd: CC1 = 0x00; CC2 = 0x00 curses_getch: received 0x0A. @key 13 tn5250_display_do_aidkey (0xF1) called. SendFields: Number of fields: 9 SendFields: row = 4; col = 66; aid = 0xf1 SendPacket: length = 15 SendPacket: data follows. SendPacket: data: 00 0D 12 A0 00 00 04 00 00 03 05 43 F1 FF EF Dumping buffer (length=53): @record +0000 003512a0 00000400 00020411 00241305 ... . ... ... @record +0010 43110542 30110742 30110942 30110b42 ................ @record +0020 30110d42 30110f42 30111142 30111342 ................ @record +0030 30111542 30 ..... @eor HandleReceive: entered. tn5250_stream_get_record: offset = 10 HandleReceive: cur_opcode = 0x02 0 OutputOnly: entered. ProcessStream: entered. ProcessStream: cur_command = 0x11 WriteToDisplay: entered. WriteToDisplay: 0x00:0x24 IC order (y = X'04', x = X'42'). This->cy = 4, This->cx = 65 SetBufferAddress: row = 5; col = 66 (0x30) This->cy = 6, This->cx = 65 SetBufferAddress: row = 7; col = 66 (0x30) This->cy = 8, This->cx = 65 SetBufferAddress: row = 9; col = 66 (0x30) This->cy = 10, This->cx = 65 SetBufferAddress: row = 11; col = 66 (0x30) This->cy = 12, This->cx = 65 SetBufferAddress: row = 13; col = 66 (0x30) This->cy = 14, This->cx = 65 SetBufferAddress: row = 15; col = 66 (0x30) This->cy = 16, This->cx = 65 SetBufferAddress: row = 17; col = 66 (0x30) This->cy = 18, This->cx = 65 SetBufferAddress: row = 19; col = 66 (0x30) This->cy = 20, This->cx = 65 SetBufferAddress: row = 21; col = 66 (0x30) This->cy = 4, This->cx = 66 Processing CC2 0x24. TN5250_SESSION_CTL_ALARM was set. CURSES: beep Done Processing CC2. Dumping buffer (length=89): @record +0000 005912a0 00000400 00020421 22d98598 ... . ....Req @record +0010 a4899985 84409781 99819485 a3859940 uired parameter @record +0020 9489a2a2 89958760 60d79985 a2a240c5 missing--Press E @record +0030 d9d9d6d9 40d9c5e2 c5e34040 40404040 RROR RESET @record +0040 40404040 40404040 40404040 40404040 @record +0050 40404040 40404040 27 . @eor Dumping buffer (length=14): @record +0000 000e12a0 00000400 00010442 0000 ... . ...
midrange.com
COBOLC PROCEDURE Optional-*
Compiles a COBOL source program
Name of source program to be compiled . . . . . . . . . . . . . MPRODP
Name of library containing source program . . . . . . . . . . . WILCOX
Name of library to contain compiled program . . . . . . . . . . WILCOX *
Create diagnosed source member . . . . . . . . . . . NODSM,DSM NODSM
Output option for compiler listings . . . . . PRINT,NOPRINT,CRT PRINT
Create cross-reference listing . . . . . . . . . . XREF,NOXREF *
Never-ending program . . . . . . . . . . . . . . . . NONEP,NEP NONEP
Maximum number of requesting display stations . . . . . . 0-99 0
Size of work files in blocks . . . . . . . . . . . . . 1-9999 40
Cmd3-Previous menu Cmd4-Put on job queue Cmd14-More options
COPR IBM Corp. 1986
5250 067/005
COBOLC PROCEDURE Optional-*
Compiles a COBOL source program
Name of source program to be compiled . . . . . . . . . . . . . MPRODP
Name of library containing source program . . . . . . . . . . . WILCOX
Name of library to contain compiled program . . . . . . . . . . WILCOX *
Create diagnosed source member . . . . . . . . . . . NODSM,DSM NODSM
Output option for compiler listings . . . . . PRINT,NOPRINT,CRT PRINT
Create cross-reference listing . . . . . . . . . . XREF,NOXREF *
Never-ending program . . . . . . . . . . . . . . . . NONEP,NEP NONEP
Maximum number of requesting display stations . . . . . . 0-99 0
Size of work files in blocks . . . . . . . . . . . . . 1-9999 40
Cmd3-Previous menu Cmd4-Put on job queue Cmd14-More options
Required parameter missing--Press ERROR RESET
5250 X II 067/005
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
