|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/36 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/36 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 7936 (0x1f00)
Notes: FORM36, MEMBER_O
Names: »#WS@HELP«
└─⟦a3c23c3a0⟧ Bits:30009813 REF.NO PWD35 PGM 5727-UT6 FEAT9074 UTILITIES US Z250-0042-2 REV/LEV 05.01 SEQ. 2/2 DISKET 2S 96TPI INTERNAL 88.03.04 31
└─⟦1182850e3⟧
└─⟦this⟧ ».#WS@HELP«
FormPointer36 {name=»H@MENU00«, f1=0x00, start=0x0002, length=0x05, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ HELP FOR WORK STATION UTILITY MENU DISPLAY │
01│ │
02│ │
03│ Allows you to: │
04│ 1. select a display by specifying the display station ID. │
05│ 2. end your work session. │
06│ 3. select a new work session. │
07│ 4. review a record by specifying the relative record nember. │
08│ │
09│ │
10│ │
11│ Enter display selection identifier . . . . . . . . . . . . . . │
12│ │
13│ The 2-character ID of the display being selected. In enter mode, the │
14│ ID of the current display cannot be selected. │
15│ │
16│ │
17│ │
18│ │
19│ │
20│ │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»H@MENU01«, f1=0x00, start=0x0007, length=0x06, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ HELP FOR WORK STATION UTILITY MENU DISPLAY │
01│ │
02│ │
03│ Enter EW to end work session . . . . . . . . . . . . . . . . . │
04│ │
05│ You can end you work session by pressing EW and pressing the │
06│ Enter/Rec Adv key. │
07│ │
08│ │
09│ │
10│ Enter session selection identifier for restart . . . . . . . . │
11│ │
12│ You can restart your work session or start a different work session by │
13│ entering the appropriate work session ID. │
14│ │
15│ │
16│ │
17│ Enter review record number . . . . . . . . . . . . . . . . . . │
18│ │
19│ You can review a specific record in the transaction file by entering │
20│ the record's relative record number. │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»H@MENU02«, f1=0x00, start=0x000d, length=0x06, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ HELP FOR WORK STATION UTILITY MENU DISPLAY │
01│ │
02│ │
03│ Format/level ID field │
04│ - format ID of the current display │
05│ - WSU processing level │
06│ - ** if there is no current processing │
07│ - -- if current processing has been stopped by the operator before │
08│ it was finished │
09│ │
10│ │
11│ Session ID field │
12│ - session ID of the active session │
13│ │
14│ │
15│ Mode/processing level field │
16│ RV - review ES - end sequence set │
17│ IN - insert EW - end work session │
18│ DL - delete EJ - end job │
19│ IJ - initiate job blank - normal enter mode │
20│ IW - initiate work session │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»H@MENU03«, f1=0x00, start=0x0013, length=0x05, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ HELP FOR WORK STATION UTILITY MENU DISPLAY │
01│ │
02│ │
03│ Add/update relative record number field │
04│ Current record number for add or update operations. │
05│ ****** if there is no current review record. │
06│ 000000 if there is no transaction file. │
07│ │
08│ │
09│ Chain-end indicator field │
10│ -- if review mode is not supported in the program │
11│ ** if you are at end of chain │
12│ blank if review mode is supported but not active or if you are not at │
13│ end of chain │
14│ │
15│ │
16│ Returning from WSU display │
17│ WSU Display command key (Cmd1), if you were in enter mode or reviewing, │
18│ deleting, or inserting a record (in which case the entries are │
19│ ignored). │
20│ ENTER key, in which case the entries must all be blanks or zeros. │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»H@DBUG00«, f1=0x00, start=0x0018, length=0x07, f5=0x00, f6=0x00, f7=0x00, f8=0x80, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ HELP FOR WORK STATION UTILITY DEBUG DISPLAY │
01│ │
02│ │
03│ DEBUG-YES was specified in the procedure that called this WSU program. │
04│ The current display has been saved. The debugging display contains: │
05│ │
06│ - The display station ID │
07│ - The contents of the field or literal in factor 1, or the statement │
08│ number of the DEBUG operation if factor 1 is blank │
09│ - A list of indicators that are on or the word NONE if no indicators │
10│ are on │
11│ - The contents of the result field, if a result is specified │
12│ │
13│ │
14│ You can use the Print key to print the DEBUG display. When you press Enter │
15│ from the DEBUG display, the saved display is shown again and processing │
16│ continues at the operation following the DEBUG operation. │
17│ │
18│ DEBUG operations occupy main storage. After the program has been debugged, │
19│ removing the DEBUG operations and generating the program again might improve │
20│ performance. │
21│ │
22│ │
23│ Enter-Exit help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
0x0000…0078 Vector {
0x0000…0078 [0x0]: FormPointer36 {name=»H@MENU00«, f1=0x00, start=0x0002, length=0x05, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x0000…0078 [0x1]: FormPointer36 {name=»H@MENU01«, f1=0x00, start=0x0007, length=0x06, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x0000…0078 [0x2]: FormPointer36 {name=»H@MENU02«, f1=0x00, start=0x000d, length=0x06, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x0000…0078 [0x3]: FormPointer36 {name=»H@MENU03«, f1=0x00, start=0x0013, length=0x05, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x0000…0078 [0x4]: FormPointer36 {name=»H@DBUG00«, f1=0x00, start=0x0018, length=0x07, f5=0x00, f6=0x00, f7=0x00, f8=0x80, f9=0000000000000000}
0x0000…0078 }
0x0078…0080 ff ff ff ff ff ff ff ff ┆ ┆
0x0080…00a0 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
[…0xb…]
0x0200…0838 Form36 {
0x0200…0838 fh000 = 0x00 // 0x200 @0x0
0x0200…0838 fh00 = 2200 // 0x201 @0x1
0x0200…0838 fh01 = »NNN« // 0x203 @0x3
0x0200…0838 fh02 = 000000 // 0x206 @0x6
0x0200…0838 fh03 = »NNN« // 0x209 @0x9
0x0200…0838 fh04 = 0x0028 // 0x20c @0xc
0x0200…0838 fh05 = 0x03e8 // 0x20e @0xe
0x0200…0838 fh06 = 000080011800000000000000000000000000 // 0x210 @0x10
0x0200…0838 at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x222 @0x22
0x0200…0838 panel = { // 0x228 @0x28
0x0200…0838 ┌────────────────────────────────────────────────────────────────────────────────┐
0x0200…0838 00│ HELP FOR WORK STATION UTILITY MENU DISPLAY │
0x0200…0838 01│ │
0x0200…0838 02│ │
0x0200…0838 03│ Allows you to: │
0x0200…0838 04│ 1. select a display by specifying the display station ID. │
0x0200…0838 05│ 2. end your work session. │
0x0200…0838 06│ 3. select a new work session. │
0x0200…0838 07│ 4. review a record by specifying the relative record nember. │
0x0200…0838 08│ │
0x0200…0838 09│ │
0x0200…0838 10│ │
0x0200…0838 11│ Enter display selection identifier . . . . . . . . . . . . . . │
0x0200…0838 12│ │
0x0200…0838 13│ The 2-character ID of the display being selected. In enter mode, the │
0x0200…0838 14│ ID of the current display cannot be selected. │
0x0200…0838 15│ │
0x0200…0838 16│ │
0x0200…0838 17│ │
0x0200…0838 18│ │
0x0200…0838 19│ │
0x0200…0838 20│ │
0x0200…0838 21│ │
0x0200…0838 22│ │
0x0200…0838 23│ Enter-Exit help text Roll keys-Page help text │
0x0200…0838 24│ │
0x0200…0838 25│ │
0x0200…0838 26│ │
0x0200…0838 27│ │
0x0200…0838 └────────────────────────────────────────────────────────────────────────────────┘
0x0200…0838 Panel5250 {
0x0200…0838 at0000 = ClearUnit {esc=04, cu=40} // 0x228 @0x0
0x0200…0838 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x22a @0x2
0x0200…0838 at0006 = SetBufferAddress {ic=11, line=0x01, col=0x13} // 0x22e @0x6
0x0200…0838 at0009 = »HELP FOR WORK STATION UTILITY MENU DISPLAY« // 0x231 @0x9
0x0200…0838 at0033 = SetBufferAddress {ic=11, line=0x04, col=0x02} // 0x25b @0x33
0x0200…0838 at0036 = »Allows you to: « // 0x25e @0x36
0x0200…0838 at0085 = » 1. select a display by specifying the display station ID. « // 0x2ad @0x85
0x0200…0838 at00d5 = » 2. end your work session. « // 0x2fd @0xd5
0x0200…0838 at0125 = » 3. select a new work session. « // 0x34d @0x125
0x0200…0838 at0175 = » 4. review a record by specifying the relative record nember. « // 0x39d @0x175
0x0200…0838 at01c5 = » « // 0x3ed @0x1c5
0x0200…0838 at0214 = SetBufferAddress {ic=11, line=0x0c, col=0x02} // 0x43c @0x214
0x0200…0838 at0217 = »Enter display selection identifier . . . . . . . . . . . . . .« // 0x43f @0x217
0x0200…0838 at0256 = SetBufferAddress {ic=11, line=0x0d, col=0x02} // 0x47e @0x256
0x0200…0838 at0259 = » « // 0x481 @0x259
0x0200…0838 at02a8 = » The 2-character ID of the display being selected. In enter mode, the « // 0x4d0 @0x2a8
0x0200…0838 at02f8 = » ID of the current display cannot be selected. « // 0x520 @0x2f8
0x0200…0838 at0348 = » « // 0x570 @0x348
0x0200…0838 at0397 = SetBufferAddress {ic=11, line=0x18, col=0x02} // 0x5bf @0x397
0x0200…0838 at039a = »Enter-Exit help text Roll keys-Page help text « // 0x5c2 @0x39a
0x0200…0838 }
0x0200…0838 }
0x0200…0838 }
0x0700…13fd Form36 {
0x0700…13fd fh000 = 0x00 // 0x700 @0x0
0x0700…13fd fh00 = 2200 // 0x701 @0x1
0x0700…13fd fh01 = »NNN« // 0x703 @0x3
0x0700…13fd fh02 = 000000 // 0x706 @0x6
0x0700…13fd fh03 = »NNN« // 0x709 @0x9
0x0700…13fd fh04 = 0x0028 // 0x70c @0xc
0x0700…13fd fh05 = 0x05ad // 0x70e @0xe
0x0700…13fd fh06 = 000080011800000000000000000000000000 // 0x710 @0x10
0x0700…13fd at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x722 @0x22
0x0700…13fd panel = { // 0x728 @0x28
0x0700…13fd ┌────────────────────────────────────────────────────────────────────────────────┐
0x0700…13fd 00│ HELP FOR WORK STATION UTILITY MENU DISPLAY │
0x0700…13fd 01│ │
0x0700…13fd 02│ │
0x0700…13fd 03│ Enter EW to end work session . . . . . . . . . . . . . . . . . │
0x0700…13fd 04│ │
0x0700…13fd 05│ You can end you work session by pressing EW and pressing the │
0x0700…13fd 06│ Enter/Rec Adv key. │
0x0700…13fd 07│ │
0x0700…13fd 08│ │
0x0700…13fd 09│ │
0x0700…13fd 10│ Enter session selection identifier for restart . . . . . . . . │
0x0700…13fd 11│ │
0x0700…13fd 12│ You can restart your work session or start a different work session by │
0x0700…13fd 13│ entering the appropriate work session ID. │
0x0700…13fd 14│ │
0x0700…13fd 15│ │
0x0700…13fd 16│ │
0x0700…13fd 17│ Enter review record number . . . . . . . . . . . . . . . . . . │
0x0700…13fd 18│ │
0x0700…13fd 19│ You can review a specific record in the transaction file by entering │
0x0700…13fd 20│ the record's relative record number. │
0x0700…13fd 21│ │
0x0700…13fd 22│ │
0x0700…13fd 23│ Enter-Exit help text Roll keys-Page help text │
0x0700…13fd 24│ │
0x0700…13fd 25│ │
0x0700…13fd 26│ │
0x0700…13fd 27│ │
0x0700…13fd └────────────────────────────────────────────────────────────────────────────────┘
0x0700…13fd Panel5250 {
0x0700…13fd at0000 = ClearUnit {esc=04, cu=40} // 0x728 @0x0
0x0700…13fd at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x72a @0x2
0x0700…13fd at0006 = SetBufferAddress {ic=11, line=0x01, col=0x15} // 0x72e @0x6
0x0700…13fd at0009 = »HELP FOR WORK STATION UTILITY MENU DISPLAY« // 0x731 @0x9
0x0700…13fd at0033 = SetBufferAddress {ic=11, line=0x04, col=0x02} // 0x75b @0x33
0x0700…13fd at0036 = »Enter EW to end work session . . . . . . . . . . . . . . . . .« // 0x75e @0x36
0x0700…13fd at0075 = SetBufferAddress {ic=11, line=0x05, col=0x02} // 0x79d @0x75
0x0700…13fd at0078 = » « // 0x7a0 @0x78
0x0700…13fd at00c7 = » You can end you work session by pressing EW and pressing the « // 0x7ef @0xc7
0x0700…13fd at0117 = » Enter/Rec Adv key. « // 0x83f @0x117
0x0700…13fd at0167 = » « // 0x88f @0x167
0x0700…13fd at01b7 = » « // 0x8df @0x1b7
0x0700…13fd at0207 = » « // 0x92f @0x207
0x0700…13fd at0256 = SetBufferAddress {ic=11, line=0x0b, col=0x02} // 0x97e @0x256
0x0700…13fd at0259 = »Enter session selection identifier for restart . . . . . . . .« // 0x981 @0x259
0x0700…13fd at0298 = SetBufferAddress {ic=11, line=0x0c, col=0x02} // 0x9c0 @0x298
0x0700…13fd at029b = » « // 0x9c3 @0x29b
0x0700…13fd at02ea = » You can restart your work session or start a different work session by « // 0xa12 @0x2ea
0x0700…13fd at033a = » entering the appropriate work session ID. « // 0xa62 @0x33a
0x0700…13fd at038a = » « // 0xab2 @0x38a
0x0700…13fd at03d9 = SetBufferAddress {ic=11, line=0x12, col=0x02} // 0xb01 @0x3d9
0x0700…13fd at03dc = »Enter review record number . . . . . . . . . . . . . . . . . .« // 0xb04 @0x3dc
0x0700…13fd at041b = SetBufferAddress {ic=11, line=0x13, col=0x02} // 0xb43 @0x41b
0x0700…13fd at041e = » « // 0xb46 @0x41e
0x0700…13fd at046d = » You can review a specific record in the transaction file by entering « // 0xb95 @0x46d
0x0700…13fd at04bd = » the record's relative record number. « // 0xbe5 @0x4bd
0x0700…13fd at050d = » « // 0xc35 @0x50d
0x0700…13fd at055c = SetBufferAddress {ic=11, line=0x18, col=0x02} // 0xc84 @0x55c
0x0700…13fd at055f = »Enter-Exit help text Roll keys-Page help text « // 0xc87 @0x55f
0x0700…13fd }
0x0700…13fd }
0x0700…13fd }
0x0d00…1fd9 Form36 {
0x0d00…1fd9 fh000 = 0x00 // 0xd00 @0x0
0x0d00…1fd9 fh00 = 2200 // 0xd01 @0x1
0x0d00…1fd9 fh01 = »NNN« // 0xd03 @0x3
0x0d00…1fd9 fh02 = 000000 // 0xd06 @0x6
0x0d00…1fd9 fh03 = »NNN« // 0xd09 @0x9
0x0d00…1fd9 fh04 = 0x0028 // 0xd0c @0xc
0x0d00…1fd9 fh05 = 0x0589 // 0xd0e @0xe
0x0d00…1fd9 fh06 = 000080011800000000000000000000000000 // 0xd10 @0x10
0x0d00…1fd9 at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0xd22 @0x22
0x0d00…1fd9 panel = { // 0xd28 @0x28
0x0d00…1fd9 ┌────────────────────────────────────────────────────────────────────────────────┐
0x0d00…1fd9 00│ HELP FOR WORK STATION UTILITY MENU DISPLAY │
0x0d00…1fd9 01│ │
0x0d00…1fd9 02│ │
0x0d00…1fd9 03│ Format/level ID field │
0x0d00…1fd9 04│ - format ID of the current display │
0x0d00…1fd9 05│ - WSU processing level │
0x0d00…1fd9 06│ - ** if there is no current processing │
0x0d00…1fd9 07│ - -- if current processing has been stopped by the operator before │
0x0d00…1fd9 08│ it was finished │
0x0d00…1fd9 09│ │
0x0d00…1fd9 10│ │
0x0d00…1fd9 11│ Session ID field │
0x0d00…1fd9 12│ - session ID of the active session │
0x0d00…1fd9 13│ │
0x0d00…1fd9 14│ │
0x0d00…1fd9 15│ Mode/processing level field │
0x0d00…1fd9 16│ RV - review ES - end sequence set │
0x0d00…1fd9 17│ IN - insert EW - end work session │
0x0d00…1fd9 18│ DL - delete EJ - end job │
0x0d00…1fd9 19│ IJ - initiate job blank - normal enter mode │
0x0d00…1fd9 20│ IW - initiate work session │
0x0d00…1fd9 21│ │
0x0d00…1fd9 22│ │
0x0d00…1fd9 23│ Enter-Exit help text Roll keys-Page help text │
0x0d00…1fd9 24│ │
0x0d00…1fd9 25│ │
0x0d00…1fd9 26│ │
0x0d00…1fd9 27│ │
0x0d00…1fd9 └────────────────────────────────────────────────────────────────────────────────┘
0x0d00…1fd9 Panel5250 {
0x0d00…1fd9 at0000 = ClearUnit {esc=04, cu=40} // 0xd28 @0x0
0x0d00…1fd9 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0xd2a @0x2
0x0d00…1fd9 at0006 = SetBufferAddress {ic=11, line=0x01, col=0x16} // 0xd2e @0x6
0x0d00…1fd9 at0009 = »HELP FOR WORK STATION UTILITY MENU DISPLAY« // 0xd31 @0x9
0x0d00…1fd9 at0033 = SetBufferAddress {ic=11, line=0x04, col=0x02} // 0xd5b @0x33
0x0d00…1fd9 at0036 = »Format/level ID field « // 0xd5e @0x36
0x0d00…1fd9 at0085 = » - format ID of the current display « // 0xdad @0x85
0x0d00…1fd9 at00d4 = SetBufferAddress {ic=11, line=0x06, col=0x02} // 0xdfc @0xd4
0x0d00…1fd9 at00d7 = » - WSU processing level « // 0xdff @0xd7
0x0d00…1fd9 at0126 = » - ** if there is no current processing « // 0xe4e @0x126
0x0d00…1fd9 at0175 = SetBufferAddress {ic=11, line=0x08, col=0x02} // 0xe9d @0x175
0x0d00…1fd9 at0178 = » - -- if current processing has been stopped by the operator before « // 0xea0 @0x178
0x0d00…1fd9 at01c7 = » it was finished « // 0xeef @0x1c7
0x0d00…1fd9 at0217 = » « // 0xf3f @0x217
0x0d00…1fd9 at0266 = SetBufferAddress {ic=11, line=0x0c, col=0x02} // 0xf8e @0x266
0x0d00…1fd9 at0269 = »Session ID field « // 0xf91 @0x269
0x0d00…1fd9 at02b8 = » - session ID of the active session « // 0xfe0 @0x2b8
0x0d00…1fd9 at0307 = SetBufferAddress {ic=11, line=0x10, col=0x02} // 0x102f @0x307
0x0d00…1fd9 at030a = »Mode/processing level field « // 0x1032 @0x30a
0x0d00…1fd9 at0359 = » RV - review ES - end sequence set « // 0x1081 @0x359
0x0d00…1fd9 at03a9 = » IN - insert EW - end work session « // 0x10d1 @0x3a9
0x0d00…1fd9 at03f9 = » DL - delete EJ - end job « // 0x1121 @0x3f9
0x0d00…1fd9 at0449 = » IJ - initiate job blank - normal enter mode « // 0x1171 @0x449
0x0d00…1fd9 at0499 = » IW - initiate work session « // 0x11c1 @0x499
0x0d00…1fd9 at04e9 = » « // 0x1211 @0x4e9
0x0d00…1fd9 at0538 = SetBufferAddress {ic=11, line=0x18, col=0x02} // 0x1260 @0x538
0x0d00…1fd9 at053b = »Enter-Exit help text Roll keys-Page help text « // 0x1263 @0x53b
0x0d00…1fd9 }
0x0d00…1fd9 }
0x0d00…1fd9 }
0x1300…2afd Form36 {
0x1300…2afd fh000 = 0x00 // 0x1300 @0x0
0x1300…2afd fh00 = 2200 // 0x1301 @0x1
0x1300…2afd fh01 = »NNN« // 0x1303 @0x3
0x1300…2afd fh02 = 000000 // 0x1306 @0x6
0x1300…2afd fh03 = »NNN« // 0x1309 @0x9
0x1300…2afd fh04 = 0x0028 // 0x130c @0xc
0x1300…2afd fh05 = 0x04ad // 0x130e @0xe
0x1300…2afd fh06 = 000080011800000000000000000000000000 // 0x1310 @0x10
0x1300…2afd at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x1322 @0x22
0x1300…2afd panel = { // 0x1328 @0x28
0x1300…2afd ┌────────────────────────────────────────────────────────────────────────────────┐
0x1300…2afd 00│ HELP FOR WORK STATION UTILITY MENU DISPLAY │
0x1300…2afd 01│ │
0x1300…2afd 02│ │
0x1300…2afd 03│ Add/update relative record number field │
0x1300…2afd 04│ Current record number for add or update operations. │
0x1300…2afd 05│ ****** if there is no current review record. │
0x1300…2afd 06│ 000000 if there is no transaction file. │
0x1300…2afd 07│ │
0x1300…2afd 08│ │
0x1300…2afd 09│ Chain-end indicator field │
0x1300…2afd 10│ -- if review mode is not supported in the program │
0x1300…2afd 11│ ** if you are at end of chain │
0x1300…2afd 12│ blank if review mode is supported but not active or if you are not at │
0x1300…2afd 13│ end of chain │
0x1300…2afd 14│ │
0x1300…2afd 15│ │
0x1300…2afd 16│ Returning from WSU display │
0x1300…2afd 17│ WSU Display command key (Cmd1), if you were in enter mode or reviewing, │
0x1300…2afd 18│ deleting, or inserting a record (in which case the entries are │
0x1300…2afd 19│ ignored). │
0x1300…2afd 20│ ENTER key, in which case the entries must all be blanks or zeros. │
0x1300…2afd 21│ │
0x1300…2afd 22│ │
0x1300…2afd 23│ Enter-Exit help text Roll keys-Page help text │
0x1300…2afd 24│ │
0x1300…2afd 25│ │
0x1300…2afd 26│ │
0x1300…2afd 27│ │
0x1300…2afd └────────────────────────────────────────────────────────────────────────────────┘
0x1300…2afd Panel5250 {
0x1300…2afd at0000 = ClearUnit {esc=04, cu=40} // 0x1328 @0x0
0x1300…2afd at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x132a @0x2
0x1300…2afd at0006 = SetBufferAddress {ic=11, line=0x01, col=0x16} // 0x132e @0x6
0x1300…2afd at0009 = »HELP FOR WORK STATION UTILITY MENU DISPLAY« // 0x1331 @0x9
0x1300…2afd at0033 = SetBufferAddress {ic=11, line=0x04, col=0x02} // 0x135b @0x33
0x1300…2afd at0036 = »Add/update relative record number field « // 0x135e @0x36
0x1300…2afd at0085 = » Current record number for add or update operations. « // 0x13ad @0x85
0x1300…2afd at00d4 = SetBufferAddress {ic=11, line=0x06, col=0x02} // 0x13fc @0xd4
0x1300…2afd at00d7 = » ****** if there is no current review record. « // 0x13ff @0xd7
0x1300…2afd at0126 = » 000000 if there is no transaction file. « // 0x144e @0x126
0x1300…2afd at0175 = SetBufferAddress {ic=11, line=0x0a, col=0x02} // 0x149d @0x175
0x1300…2afd at0178 = »Chain-end indicator field « // 0x14a0 @0x178
0x1300…2afd at01c7 = » -- if review mode is not supported in the program « // 0x14ef @0x1c7
0x1300…2afd at0216 = SetBufferAddress {ic=11, line=0x0c, col=0x02} // 0x153e @0x216
0x1300…2afd at0219 = » ** if you are at end of chain « // 0x1541 @0x219
0x1300…2afd at0268 = » blank if review mode is supported but not active or if you are not at « // 0x1590 @0x268
0x1300…2afd at02b7 = SetBufferAddress {ic=11, line=0x0e, col=0x02} // 0x15df @0x2b7
0x1300…2afd at02ba = » end of chain « // 0x15e2 @0x2ba
0x1300…2afd at0309 = » « // 0x1631 @0x309
0x1300…2afd at0358 = SetBufferAddress {ic=11, line=0x11, col=0x02} // 0x1680 @0x358
0x1300…2afd at035b = »Returning from WSU display« // 0x1683 @0x35b
0x1300…2afd at0375 = SetBufferAddress {ic=11, line=0x12, col=0x04} // 0x169d @0x375
0x1300…2afd at0378 = » WSU Display command key (Cmd1), if you were in enter mode or reviewing,« // 0x16a0 @0x378
0x1300…2afd at03c1 = SetBufferAddress {ic=11, line=0x13, col=0x04} // 0x16e9 @0x3c1
0x1300…2afd at03c4 = » deleting, or inserting a record (in which case the entries are« // 0x16ec @0x3c4
0x1300…2afd at0406 = SetBufferAddress {ic=11, line=0x14, col=0x04} // 0x172e @0x406
0x1300…2afd at0409 = » ignored).« // 0x1731 @0x409
0x1300…2afd at0416 = SetBufferAddress {ic=11, line=0x15, col=0x04} // 0x173e @0x416
0x1300…2afd at0419 = » ENTER key, in which case the entries must all be blanks or zeros.« // 0x1741 @0x419
0x1300…2afd at045c = SetBufferAddress {ic=11, line=0x18, col=0x02} // 0x1784 @0x45c
0x1300…2afd at045f = »Enter-Exit help text Roll keys-Page help text « // 0x1787 @0x45f
0x1300…2afd }
0x1300…2afd }
0x1300…2afd }
0x1800…3677 Form36 {
0x1800…3677 fh000 = 0x00 // 0x1800 @0x0
0x1800…3677 fh00 = 2200 // 0x1801 @0x1
0x1800…3677 fh01 = »NNN« // 0x1803 @0x3
0x1800…3677 fh02 = 000000 // 0x1806 @0x6
0x1800…3677 fh03 = »NNN« // 0x1809 @0x9
0x1800…3677 fh04 = 0x0028 // 0x180c @0xc
0x1800…3677 fh05 = 0x0627 // 0x180e @0xe
0x1800…3677 fh06 = 000080011800000000000000000000000000 // 0x1810 @0x10
0x1800…3677 at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x1822 @0x22
0x1800…3677 panel = { // 0x1828 @0x28
0x1800…3677 ┌────────────────────────────────────────────────────────────────────────────────┐
0x1800…3677 00│ HELP FOR WORK STATION UTILITY DEBUG DISPLAY │
0x1800…3677 01│ │
0x1800…3677 02│ │
0x1800…3677 03│ DEBUG-YES was specified in the procedure that called this WSU program. │
0x1800…3677 04│ The current display has been saved. The debugging display contains: │
0x1800…3677 05│ │
0x1800…3677 06│ - The display station ID │
0x1800…3677 07│ - The contents of the field or literal in factor 1, or the statement │
0x1800…3677 08│ number of the DEBUG operation if factor 1 is blank │
0x1800…3677 09│ - A list of indicators that are on or the word NONE if no indicators │
0x1800…3677 10│ are on │
0x1800…3677 11│ - The contents of the result field, if a result is specified │
0x1800…3677 12│ │
0x1800…3677 13│ │
0x1800…3677 14│ You can use the Print key to print the DEBUG display. When you press Enter │
0x1800…3677 15│ from the DEBUG display, the saved display is shown again and processing │
0x1800…3677 16│ continues at the operation following the DEBUG operation. │
0x1800…3677 17│ │
0x1800…3677 18│ DEBUG operations occupy main storage. After the program has been debugged, │
0x1800…3677 19│ removing the DEBUG operations and generating the program again might improve │
0x1800…3677 20│ performance. │
0x1800…3677 21│ │
0x1800…3677 22│ │
0x1800…3677 23│ Enter-Exit help text │
0x1800…3677 24│ │
0x1800…3677 25│ │
0x1800…3677 26│ │
0x1800…3677 27│ │
0x1800…3677 └────────────────────────────────────────────────────────────────────────────────┘
0x1800…3677 Panel5250 {
0x1800…3677 at0000 = ClearUnit {esc=04, cu=40} // 0x1828 @0x0
0x1800…3677 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x182a @0x2
0x1800…3677 at0006 = SetBufferAddress {ic=11, line=0x01, col=0x13} // 0x182e @0x6
0x1800…3677 at0009 = »HELP FOR WORK STATION UTILITY DEBUG DISPLAY« // 0x1831 @0x9
0x1800…3677 at0034 = SetBufferAddress {ic=11, line=0x04, col=0x02} // 0x185c @0x34
0x1800…3677 at0037 = »DEBUG-YES was specified in the procedure that called this WSU program. « // 0x185f @0x37
0x1800…3677 at0086 = » The current display has been saved. The debugging display contains: « // 0x18ae @0x86
0x1800…3677 at00d6 = » « // 0x18fe @0xd6
0x1800…3677 at0126 = » - The display station ID « // 0x194e @0x126
0x1800…3677 at0176 = » - The contents of the field or literal in factor 1, or the statement « // 0x199e @0x176
0x1800…3677 at01c6 = » number of the DEBUG operation if factor 1 is blank « // 0x19ee @0x1c6
0x1800…3677 at0216 = » - A list of indicators that are on or the word NONE if no indicators « // 0x1a3e @0x216
0x1800…3677 at0266 = » are on « // 0x1a8e @0x266
0x1800…3677 at02b6 = » - The contents of the result field, if a result is specified « // 0x1ade @0x2b6
0x1800…3677 at0306 = » « // 0x1b2e @0x306
0x1800…3677 at0356 = » « // 0x1b7e @0x356
0x1800…3677 at03a4 = SetBufferAddress {ic=11, line=0x0f, col=0x02} // 0x1bcc @0x3a4
0x1800…3677 at03a7 = »You can use the Print key to print the DEBUG display. When you press Enter « // 0x1bcf @0x3a7
0x1800…3677 at03f6 = » from the DEBUG display, the saved display is shown again and processing « // 0x1c1e @0x3f6
0x1800…3677 at0446 = » continues at the operation following the DEBUG operation. « // 0x1c6e @0x446
0x1800…3677 at0496 = » « // 0x1cbe @0x496
0x1800…3677 at04e5 = SetBufferAddress {ic=11, line=0x13, col=0x02} // 0x1d0d @0x4e5
0x1800…3677 at04e8 = »DEBUG operations occupy main storage. After the program has been debugged, « // 0x1d10 @0x4e8
0x1800…3677 at0537 = » removing the DEBUG operations and generating the program again might improve « // 0x1d5f @0x537
0x1800…3677 at0587 = » performance. « // 0x1daf @0x587
0x1800…3677 at05d6 = SetBufferAddress {ic=11, line=0x18, col=0x02} // 0x1dfe @0x5d6
0x1800…3677 at05d9 = »Enter-Exit help text « // 0x1e01 @0x5d9
0x1800…3677 }
0x1800…3677 }
0x1800…3677 }