|
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: 22272 (0x5700)
Notes: FORM36, MEMBER_O
Names: »#SA@EH «
└─⟦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
└─⟦16be10a51⟧
└─⟦this⟧ ».#SA@EH «
FormPointer36 {name=»HPENDO01«, f1=0x00, start=0x0002, length=0x05, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ ╳ HELP TEXT FOR CHOOSING END OF SELECTION OPTIONS ╳ Page 1 of 1 │
01│ │
02│ Work you do after selecting a library member is saved in SDA's primary │
03│ work file. When you indicate on the selection display that no │
04│ more work is to be done on your library member, SDA shows an │
05│ options display to prompt you for the following: │
06│ │
07│ - Whether to resume, save, or discard the work. │
08│ │
09│ - If saving your work, then: │
10│ - What additional member level work you want done. │
11│ - Where to put specifications (if any) which SDA has created. │
12│ │
13│ │
14│ │
15│ │
16│ │
17│ │
18│ │
19│ │
20│ │
21│ │
22│ │
23│ ROLL UP/DOWN-Scan help text ENTER-End help (c) 1983 IBM Corp. │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HPMENU01«, f1=0x00, start=0x0007, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ ╳ HELP TEXT FOR END OF MENU OPTIONS ╳ Page 1 of 2 │
01│ │
02│ You have indicated that no more work is to be done on this menu. │
03│ Before continuing, indicate what SDA should do with your work: │
04│ │
05│ Use option 0 to return to the Menu Selection/Text Name List display. │
06│ There you may continue to work on texts for this menu. │
07│ │
08│ Use option 2 to discard your work. If you select this option, no additions, │
09│ changes, or deletions are made to this menu's library members. │
10│ │
11│ Use option 1 to save the work done on this menu. │
12│ │
13│ If this is a new menu, SDA creates two new source members: │
14│ "menu name" -- a menu member built from menu and help texts │
15│ "menu name"## -- a menu member built from command text │
16│ │
17│ │
18│ │
19│ │
20│ │
21│ │
22│ │
23│ ROLL UP/DOWN-Scan help text ENTER-End help (c) 1983 IBM Corp. │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HPMENU02«, f1=0x00, start=0x000f, length=0x07, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ ╳ HELP TEXT FOR END OF MENU OPTIONS ╳ Page 2 of 2 │
01│ │
02│ When you select option 1 from SDA's End of Menu Options display, use │
03│ the library name prompt shown below to indicate which library SDA │
04│ should use in processing your save request. A default name is │
05│ supplied. Your menu's member names are shown for your reference. │
06│ │
07│ │
08│ Name the output source and load library. . . . . . . . . . .╳ ╳ │
09│ Output source and load member names will be . . . . │
10│ │
11│ Supply the name of an existing library. │
12│ When you are creating or updating a menu, SDA puts the referenced menu │
13│ members in the output source library, and then evokes BLDMENU to compile │
14│ your menu and to put the menu's load members there as well. A message will │
15│ be sent to your workstation when BLDMENU is done. │
16│ │
17│ When you are deleting a menu, SDA removes the referenced menu members │
18│ from this output library. Both load and source menu members are │
19│ removed, however SDA cannot remove your menu members if you or anyone │
20│ else on the system are currently using that menu. │
21│ │
22│ │
23│ ROLL UP/DOWN-Scan help text ENTER-End help (c) 1983 IBM Corp. │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HPFRMT01«, f1=0x00, start=0x0016, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ ╳ HELP TEXT FOR END OF FORMAT OPTIONS ╳ Page 1 of 3 │
01│ │
02│ You have indicated that no more work is to be done on this format member. │
03│ Before continuing, indicate what SDA should do with your work: │
04│ │
05│ Use option 0 to return to the Member Selection/Format Name List display. │
06│ There you may continue to work on formats in this format member. │
07│ │
08│ Use option 2 to discard your work. If you select this option, no additions, │
09│ changes, or deletions are made to the format member. │
10│ │
11│ Use option 1 to save the work done on formats in this member. │
12│ If this is a new format member, SDA creates a new source member in the │
13│ designated output source library. │
14│ When creating or updating a format member, SDA performs any requested │
15│ renumbering and printing, and then optionally evokes the FORMAT │
16│ procedure to compile your format member. A message will be sent │
17│ to your workstation when FORMAT is done. │
18│ Otherwise, if you have marked all formats in your member for deletion, │
19│ SDA removes the format source member from the designated output source │
20│ library. │
21│ │
22│ │
23│ ROLL UP/DOWN-Scan help text ENTER-End help (c) 1983 IBM Corp. │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HPFRMT02«, f1=0x00, start=0x001e, length=0x06, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ ╳ HELP TEXT FOR END OF MEMBER OPTIONS ╳ Page 2 of 3 │
01│ │
02│ When you select option 1 from SDA's End of Member Options display, use │
03│ the name prompts shown below to indicate which library and which source │
04│ member in it should contain the specifications which SDA has generated │
05│ for formats in your format member. Default names are supplied. │
06│ │
07│ │
08│ Name the output source library . . . . . . . . . . . . . . .╳ ╳ │
09│ Name the output source member. . . . . . . . . . . . . . . .╳ ╳ │
10│ │
11│ Supply the name of an existing library. Supply the name of an old or new │
12│ source member. The member name can contain up to eight characters. │
13│ The first character must be alphabetic. Do not use ALL, NEW, DIR, or │
14│ SYSTEM to define a new name. │
15│ │
16│ When you are deleting all formats in a format member, SDA removes this source │
17│ member from the output source library. │
18│ │
19│ │
20│ │
21│ │
22│ │
23│ ROLL UP/DOWN-Scan help text ENTER-End help (c) 1983 IBM Corp. │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HPFRMT03«, f1=0x00, start=0x0024, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ ╳ HELP TEXT FOR END OF MEMBER OPTIONS ╳ Page 3 of 3 │
01│ │
02│ Renumber source specifications . . . . . . . . . . . . . Y,N╳N╳ │
03│ Compile the source member (evoke $SFGR). . . . . . . . . Y,N╳Y╳ │
04│ Output load library name. . . . .╳ ╳ │
05│ Output load member name . . . . .╳ ╳ │
06│ │
07│ Indicate whether SDA should renumber the specifications it generates for │
08│ formats in your source member (sequence numbers go in columns 1 - 5 of │
09│ each source specification). │
10│ │
11│ Indicate whether SDA should call $SFGR to compile your source member. │
12│ If you respond with a Y to this prompt, you also need to supply load │
13│ library and member names. These names indicate where $SFGR should │
14│ put the compiled specifications. Default names are provided. │
15│ │
16│ Supply the name of an existing library. Supply the name of an old │
17│ or new load member. The name can contain up to eight characters. │
18│ The first character must be alphabetic. Do not use ALL, NEW, DIR, or │
19│ SYSTEM to define a new name. │
20│ │
21│ $SFGR creates a new version of the load format member when it is called. │
22│ │
23│ ROLL UP/DOWN-Scan help text ENTER-End help (c) 1983 IBM Corp. │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HPRPG201«, f1=0x00, start=0x002c, length=0x07, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ ╳ HELP TEXT FOR END OF RPG GENERATION ╳ Page 1 of 2 │
01│ │
02│ Generation of RPG II WORKSTN File specifications is complete. │
03│ Before continuing, indicate what SDA should do next: │
04│ │
05│ Use option 0 to resume RPG generation (you pressed CMD7) or to restart │
06│ SDA's RPG generation prompt sequence. │
07│ │
08│ Use option 2 to discard any specifications which SDA may have generated. │
09│ If you select this option, no additions or changes are made to members │
10│ in the designated output library. │
11│ │
12│ Use option 1 to save the specifications generated by SDA. │
13│ When you use this option, SDA puts RPG II WORKSTN File specifications │
14│ into a new or replaced source member in the designated output library. │
15│ SDA also performs any requested printing at this time. │
16│ Option 1 is not allowed if you pressed CMD7 during the generation │
17│ prompt sequence. │
18│ │
19│ │
20│ │
21│ │
22│ │
23│ ROLL UP/DOWN-Scan help text ENTER-End help (c) 1983 IBM Corp. │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HPRPG202«, f1=0x00, start=0x0033, length=0x07, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ ╳ HELP TEXT FOR END OF RPG GENERATION ╳ Page 2 of 2 │
01│ │
02│ When you select option 1 from SDA's End of RPG Program Generation display, │
03│ use the name prompts shown below to indicate which library and which │
04│ source member in it should contain the RPG specifications which SDA has │
05│ generated for formats in your format member. The contents of an existing │
06│ member are replaced. Default names are supplied. │
07│ │
08│ │
09│ Name the output source library . . . . . . . . . . . . . . .╳ ╳ │
10│ Name the output source member. . . . . . . . . . . . . . . .╳ ╳ │
11│ │
12│ Supply the name of an existing library. Supply the name of an old or new │
13│ source member. The member name can contain up to eight characters. │
14│ The first character must be alphabetic. Do not use ALL, NEW, DIR, or │
15│ SYSTEM to define a new name. │
16│ │
17│ Print generated source specifications. . . . . . . . . . Y,N╳N╳ │
18│ │
19│ Additionally, you may indicate whether the RPG specifications which are placed │
20│ in the source member should be printed. If so, respond with a Y to the │
21│ print prompt shown above. │
22│ │
23│ ROLL UP/DOWN-Scan help text ENTER-End help (c) 1983 IBM Corp. │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HPWSUP01«, f1=0x00, start=0x003a, length=0x06, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ ╳ HELP TEXT FOR END OF WSU GENERATION ╳ Page 1 of 3 │
01│ │
02│ Generation of WSU program specifications is complete. │
03│ Before continuing, indicate what SDA should do next: │
04│ │
05│ Use option 2 to discard any specifications which SDA may have generated. │
06│ If you select this option, no additions or changes are made to members │
07│ in the designated output library. │
08│ │
09│ Use option 1 to save the specifications generated by SDA. │
10│ When you use this option, SDA puts WSU program specifications │
11│ into a new or replaced source member in the designated output library. │
12│ SDA performs any requested printing at this time, and then │
13│ optionally evokes WSU to compile the generated program. │
14│ Option 1 is not allowed if you pressed CMD7 during the generation │
15│ prompt sequence. │
16│ │
17│ │
18│ │
19│ │
20│ │
21│ │
22│ │
23│ ROLL UP/DOWN-Scan help text ENTER-End help (c) 1983 IBM Corp. │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HPWSUP02«, f1=0x00, start=0x0040, length=0x06, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ ╳ HELP TEXT FOR END OF WSU GENERATION ╳ Page 2 of 3 │
01│ │
02│ When you select option 1 from SDA's End of WSU Program Generation display, │
03│ use the name prompts shown below to indicate which library and which │
04│ source member in it should contain the WSU specifications which SDA has │
05│ generated. The contents of an exisiting member are replaced. │
06│ Default names are supplied. │
07│ │
08│ │
09│ Name the output source library . . . . . . . . . . . . . . .╳ ╳ │
10│ Name the output source member. . . . . . . . . . . . . . . .╳ ╳ │
11│ │
12│ Supply the name of an existing library. Supply the name of an old or new │
13│ source member. The member name can contain up to eight characters. │
14│ The first character must be alphabetic. Do not use ALL, NEW, DIR, or │
15│ SYSTEM to define a new name. │
16│ │
17│ │
18│ │
19│ │
20│ │
21│ │
22│ │
23│ ROLL UP/DOWN-Scan help text ENTER-End help (c) 1983 IBM Corp. │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HPWSUP03«, f1=0x00, start=0x0046, length=0x05, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ ╳ HELP TEXT FOR END OF WSU GENERATION ╳ Page 3 of 3 │
01│ │
02│ When you select option 1 from SDA's End of WSU Program Generation display, │
03│ indicate whether the specifications which are being placed in the │
04│ source member should be printed. If so, respond with a Y to the │
05│ print prompt shown below. │
06│ │
07│ │
08│ Print program source specifications. . . . . . . . . . Y,N╳N╳ │
09│ Compile the source program (evoke WSU) . . . . . 0,1,2,Y,N╳N╳ │
10│ │
11│ Additionally, you may indicate whether the source member should be compiled. │
12│ To do so, use responses 0, 1, 2, or Y. Responses 0, 1, and 2 are cross- │
13│ reference levels for the WSU procedure which control the amount of │
14│ printing done by the WSU compiler (0 is least, 2 is most). The Y │
15│ response corresponds to cross-reference level 1. │
16│ │
17│ │
18│ │
19│ │
20│ │
21│ │
22│ │
23│ ROLL UP/DOWN-Scan help text ENTER-End help (c) 1983 IBM Corp. │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HPPRNT01«, f1=0x00, start=0x004b, length=0x06, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ ╳ HELP TEXT FOR END OF PRINT ╳ Page 1 of 2 │
01│ │
02│ You have indicated that no more print selections are to be made. │
03│ Before continuing, indicate how SDA should process your selections: │
04│ │
05│ Use option 0 to return to the Print Selection/Format Name List display. │
06│ There you may continue to select formats for printing. │
07│ │
08│ Use option 2 to discard your selections. If you choose this option, │
09│ no printing is done. │
10│ │
11│ Use option 1 to cause SDA to perform your print requests. │
12│ You need to identify whether the formats being printed are WSU │
13│ formats, whether you want SDA to print a border around format │
14│ images, and where on the page you want printed output to appear. │
15│ │
16│ │
17│ │
18│ │
19│ │
20│ │
21│ │
22│ │
23│ ROLL UP/DOWN-Scan help text ENTER-End help (c) 1983 IBM Corp. │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HPPRNT02«, f1=0x00, start=0x0051, length=0x06, f5=0x00, f6=0x00, f7=0x00, f8=0x80, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ ╳ HELP TEXT FOR END OF PRINT ╳ Page 2 of 2 │
01│ │
02│ Indicate if selected formats were designed for WSU . . . . . . Y,N╳N╳ │
03│ │
04│ When you select option 1 from SDA's End of Print display, indicate whether │
05│ the type of specifications being printed are for WSU formats. If so, │
06│ use the Y response for the WSU formats prompt shown above. │
07│ │
08│ │
09│ Print borders around display images . . . . . . . . . . . . . Y,N╳Y╳ │
10│ Indent all printed output . . . . . . . . . . . . . . . . . .2-35╳2 ╳ │
11│ │
12│ Using the prompts shown above, you may indicate whether to print a border │
13│ (shows line and column numbers) around any format images being printed, │
14│ or you may decide to indent printed output. Valid indentation numbers │
15│ start at 2 and cannot exceed 35. For 132-column screen formats, borders │
16│ will only be printed above and below the screen image and indentation │
17│ will be ignored. │
18│ │
19│ │
20│ │
21│ │
22│ │
23│ ROLL UP/DOWN-Scan help text ENTER-End help (c) 1983 IBM Corp. │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
0x0000…0138 Vector {
0x0000…0138 [0x0]: FormPointer36 {name=»HPENDO01«, f1=0x00, start=0x0002, length=0x05, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x0000…0138 [0x1]: FormPointer36 {name=»HPMENU01«, f1=0x00, start=0x0007, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x0000…0138 [0x2]: FormPointer36 {name=»HPMENU02«, f1=0x00, start=0x000f, length=0x07, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x0000…0138 [0x3]: FormPointer36 {name=»HPFRMT01«, f1=0x00, start=0x0016, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x0000…0138 [0x4]: FormPointer36 {name=»HPFRMT02«, f1=0x00, start=0x001e, length=0x06, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x0000…0138 [0x5]: FormPointer36 {name=»HPFRMT03«, f1=0x00, start=0x0024, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x0000…0138 [0x6]: FormPointer36 {name=»HPRPG201«, f1=0x00, start=0x002c, length=0x07, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x0000…0138 [0x7]: FormPointer36 {name=»HPRPG202«, f1=0x00, start=0x0033, length=0x07, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x0000…0138 [0x8]: FormPointer36 {name=»HPWSUP01«, f1=0x00, start=0x003a, length=0x06, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x0000…0138 [0x9]: FormPointer36 {name=»HPWSUP02«, f1=0x00, start=0x0040, length=0x06, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x0000…0138 [0xa]: FormPointer36 {name=»HPWSUP03«, f1=0x00, start=0x0046, length=0x05, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x0000…0138 [0xb]: FormPointer36 {name=»HPPRNT01«, f1=0x00, start=0x004b, length=0x06, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x0000…0138 [0xc]: FormPointer36 {name=»HPPRNT02«, f1=0x00, start=0x0051, length=0x06, f5=0x00, f6=0x00, f7=0x00, f8=0x80, f9=0000000000000000}
0x0000…0138 }
0x0138…0140 ff ff ff ff ff ff ff ff ┆ ┆
0x0140…0160 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 ┆ ┆
[…0x5…]
0x0200…0869 Form36 {
0x0200…0869 fh000 = 0x00 // 0x200 @0x0
0x0200…0869 fh00 = 2200 // 0x201 @0x1
0x0200…0869 fh01 = »NNN« // 0x203 @0x3
0x0200…0869 fh02 = 000000 // 0x206 @0x6
0x0200…0869 fh03 = »NNN« // 0x209 @0x9
0x0200…0869 fh04 = 0x0028 // 0x20c @0xc
0x0200…0869 fh05 = 0x0419 // 0x20e @0xe
0x0200…0869 fh06 = 000080011800000000000000000000000000 // 0x210 @0x10
0x0200…0869 at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x222 @0x22
0x0200…0869 panel = { // 0x228 @0x28
0x0200…0869 ┌────────────────────────────────────────────────────────────────────────────────┐
0x0200…0869 00│ ╳ HELP TEXT FOR CHOOSING END OF SELECTION OPTIONS ╳ Page 1 of 1 │
0x0200…0869 01│ │
0x0200…0869 02│ Work you do after selecting a library member is saved in SDA's primary │
0x0200…0869 03│ work file. When you indicate on the selection display that no │
0x0200…0869 04│ more work is to be done on your library member, SDA shows an │
0x0200…0869 05│ options display to prompt you for the following: │
0x0200…0869 06│ │
0x0200…0869 07│ - Whether to resume, save, or discard the work. │
0x0200…0869 08│ │
0x0200…0869 09│ - If saving your work, then: │
0x0200…0869 10│ - What additional member level work you want done. │
0x0200…0869 11│ - Where to put specifications (if any) which SDA has created. │
0x0200…0869 12│ │
0x0200…0869 13│ │
0x0200…0869 14│ │
0x0200…0869 15│ │
0x0200…0869 16│ │
0x0200…0869 17│ │
0x0200…0869 18│ │
0x0200…0869 19│ │
0x0200…0869 20│ │
0x0200…0869 21│ │
0x0200…0869 22│ │
0x0200…0869 23│ ROLL UP/DOWN-Scan help text ENTER-End help (c) 1983 IBM Corp. │
0x0200…0869 24│ │
0x0200…0869 25│ │
0x0200…0869 26│ │
0x0200…0869 27│ │
0x0200…0869 └────────────────────────────────────────────────────────────────────────────────┘
0x0200…0869 Panel5250 {
0x0200…0869 at0000 = ClearUnit {esc=04, cu=40} // 0x228 @0x0
0x0200…0869 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x22a @0x2
0x0200…0869 at0006 = SetBufferAddress {ic=11, line=0x01, col=0x06} // 0x22e @0x6
0x0200…0869 at0009 = Attribute {type=0x22} // 0x231 @0x9
0x0200…0869 at000a = » HELP TEXT FOR CHOOSING END OF SELECTION OPTIONS « // 0x232 @0xa
0x0200…0869 at0043 = Attribute {type=0x20} // 0x26b @0x43
0x0200…0869 at0044 = SetBufferAddress {ic=11, line=0x01, col=0x41} // 0x26c @0x44
0x0200…0869 at0047 = » Page 1 of 1 « // 0x26f @0x47
0x0200…0869 at0056 = SetBufferAddress {ic=11, line=0x03, col=0x03} // 0x27e @0x56
0x0200…0869 at0059 = »Work you do after selecting a library member is saved in SDA's primary « // 0x281 @0x59
0x0200…0869 at00a7 = » work file. When you indicate on the selection display that no « // 0x2cf @0xa7
0x0200…0869 at00f7 = » more work is to be done on your library member, SDA shows an « // 0x31f @0xf7
0x0200…0869 at0147 = » options display to prompt you for the following: « // 0x36f @0x147
0x0200…0869 at0197 = » « // 0x3bf @0x197
0x0200…0869 at01e7 = » - Whether to resume, save, or discard the work. « // 0x40f @0x1e7
0x0200…0869 at0237 = » « // 0x45f @0x237
0x0200…0869 at0287 = » - If saving your work, then: « // 0x4af @0x287
0x0200…0869 at02d7 = » - What additional member level work you want done. « // 0x4ff @0x2d7
0x0200…0869 at0327 = » - Where to put specifications (if any) which SDA has created. « // 0x54f @0x327
0x0200…0869 at0377 = » « // 0x59f @0x377
0x0200…0869 at03c7 = SetBufferAddress {ic=11, line=0x18, col=0x02} // 0x5ef @0x3c7
0x0200…0869 at03ca = »ROLL UP/DOWN-Scan help text ENTER-End help « // 0x5f2 @0x3ca
0x0200…0869 at0403 = SetBufferAddress {ic=11, line=0x18, col=0x3e} // 0x62b @0x403
0x0200…0869 at0406 = »(c) 1983 IBM Corp. « // 0x62e @0x406
0x0200…0869 }
0x0200…0869 }
0x0200…0869 }
0x0700…1591 Form36 {
0x0700…1591 fh000 = 0x01 // 0x700 @0x0
0x0700…1591 fh00 = 2600 // 0x701 @0x1
0x0700…1591 fh01 = »NNN« // 0x703 @0x3
0x0700…1591 fh02 = 000000 // 0x706 @0x6
0x0700…1591 fh03 = »NNN« // 0x709 @0x9
0x0700…1591 fh04 = 0x0030 // 0x70c @0xc
0x0700…1591 fh05 = 0x0731 // 0x70e @0xe
0x0700…1591 fh06 = 000080011800000000000000000000000000 // 0x710 @0x10
0x0700…1591 at0022 = 0x00000063 // 0x722 @0x22
0x0700…1591 at0026 = Form36LV {f00=0xfe, f01=0x0a, f88=00000000000000, f89=09} // 0x726 @0x26
0x0700…1591 panel = { // 0x730 @0x30
0x0700…1591 ┌────────────────────────────────────────────────────────────────────────────────┐
0x0700…1591 00│ ╳ HELP TEXT FOR END OF MENU OPTIONS ╳ Page 1 of 2 │
0x0700…1591 01│ │
0x0700…1591 02│ You have indicated that no more work is to be done on this menu. │
0x0700…1591 03│ Before continuing, indicate what SDA should do with your work: │
0x0700…1591 04│ │
0x0700…1591 05│ Use option 0 to return to the Menu Selection/Text Name List display. │
0x0700…1591 06│ There you may continue to work on texts for this menu. │
0x0700…1591 07│ │
0x0700…1591 08│ Use option 2 to discard your work. If you select this option, no additions, │
0x0700…1591 09│ changes, or deletions are made to this menu's library members. │
0x0700…1591 10│ │
0x0700…1591 11│ Use option 1 to save the work done on this menu. │
0x0700…1591 12│ │
0x0700…1591 13│ If this is a new menu, SDA creates two new source members: │
0x0700…1591 14│ "menu name" -- a menu member built from menu and help texts │
0x0700…1591 15│ "menu name"## -- a menu member built from command text │
0x0700…1591 16│ │
0x0700…1591 17│ │
0x0700…1591 18│ │
0x0700…1591 19│ │
0x0700…1591 20│ │
0x0700…1591 21│ │
0x0700…1591 22│ │
0x0700…1591 23│ ROLL UP/DOWN-Scan help text ENTER-End help (c) 1983 IBM Corp. │
0x0700…1591 24│ │
0x0700…1591 25│ │
0x0700…1591 26│ │
0x0700…1591 27│ │
0x0700…1591 └────────────────────────────────────────────────────────────────────────────────┘
0x0700…1591 Panel5250 {
0x0700…1591 at0000 = ClearUnit {esc=04, cu=40} // 0x730 @0x0
0x0700…1591 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x732 @0x2
0x0700…1591 at0006 = SetBufferAddress {ic=11, line=0x01, col=0x0c} // 0x736 @0x6
0x0700…1591 at0009 = Attribute {type=0x22} // 0x739 @0x9
0x0700…1591 at000a = » HELP TEXT FOR END OF MENU OPTIONS « // 0x73a @0xa
0x0700…1591 at003a = Attribute {type=0x20} // 0x76a @0x3a
0x0700…1591 at003b = SetBufferAddress {ic=11, line=0x01, col=0x41} // 0x76b @0x3b
0x0700…1591 at003e = » Page 1 of 2 « // 0x76e @0x3e
0x0700…1591 at004d = SetBufferAddress {ic=11, line=0x03, col=0x02} // 0x77d @0x4d
0x0700…1591 at0050 = »You have indicated that no more work is to be done on this menu. « // 0x780 @0x50
0x0700…1591 at009f = » Before continuing, indicate what SDA should do with your work: « // 0x7cf @0x9f
0x0700…1591 at00ef = » « // 0x81f @0xef
0x0700…1591 at013f = SetBufferAddress {ic=11, line=0x06, col=0x04} // 0x86f @0x13f
0x0700…1591 at0142 = »Use option 0 to return to the Menu Selection/Text Name List display. « // 0x872 @0x142
0x0700…1591 at018f = » There you may continue to work on texts for this menu. « // 0x8bf @0x18f
0x0700…1591 at01df = » « // 0x90f @0x1df
0x0700…1591 at022f = SetBufferAddress {ic=11, line=0x09, col=0x04} // 0x95f @0x22f
0x0700…1591 at0232 = »Use option 2 to discard your work. If you select this option, no additions, « // 0x962 @0x232
0x0700…1591 at027f = » changes, or deletions are made to this menu's library members. « // 0x9af @0x27f
0x0700…1591 at02cf = » « // 0x9ff @0x2cf
0x0700…1591 at031f = SetBufferAddress {ic=11, line=0x0c, col=0x04} // 0xa4f @0x31f
0x0700…1591 at0322 = »Use option 1 to save the work done on this menu. « // 0xa52 @0x322
0x0700…1591 at036f = » « // 0xa9f @0x36f
0x0700…1591 at03bf = » If this is a new menu, SDA creates two new source members: « // 0xaef @0x3bf
0x0700…1591 at040f = » "menu name" -- a menu member built from menu and help texts « // 0xb3f @0x40f
0x0700…1591 at045f = » "menu name"## -- a menu member built from command text « // 0xb8f @0x45f
0x0700…1591 at04af = » « // 0xbdf @0x4af
0x0700…1591 at04ff = » « // 0xc2f @0x4ff
0x0700…1591 at054f = » « // 0xc7f @0x54f
0x0700…1591 at059f = » « // 0xccf @0x59f
0x0700…1591 at05ef = » « // 0xd1f @0x5ef
0x0700…1591 at063f = » « // 0xd6f @0x63f
0x0700…1591 at068f = » « // 0xdbf @0x68f
0x0700…1591 at06df = SetBufferAddress {ic=11, line=0x18, col=0x02} // 0xe0f @0x6df
0x0700…1591 at06e2 = »ROLL UP/DOWN-Scan help text ENTER-End help « // 0xe12 @0x6e2
0x0700…1591 at071b = SetBufferAddress {ic=11, line=0x18, col=0x3e} // 0xe4b @0x71b
0x0700…1591 at071e = »(c) 1983 IBM Corp. « // 0xe4e @0x71e
0x0700…1591 }
0x0700…1591 }
0x0700…1591 }
0x0f00…24aa Form36 {
0x0f00…24aa fh000 = 0x01 // 0xf00 @0x0
0x0f00…24aa fh00 = 2600 // 0xf01 @0x1
0x0f00…24aa fh01 = »NNN« // 0xf03 @0x3
0x0f00…24aa fh02 = 000000 // 0xf06 @0x6
0x0f00…24aa fh03 = »NNN« // 0xf09 @0x9
0x0f00…24aa fh04 = 0x0040 // 0xf0c @0xc
0x0f00…24aa fh05 = 0x062a // 0xf0e @0xe
0x0f00…24aa fh06 = 000080011800000000000000000000000000 // 0xf10 @0x10
0x0f00…24aa at0022 = 0x00000063 // 0xf22 @0x22
0x0f00…24aa at0026 = Form36LV {f00=0x51, f01=0x12, f22=021f00080010, f23=094300, f24=»N«, f25=00, f26=»N«, f27=00, f28=»NNN«} // 0xf26 @0x26
0x0f00…24aa at0038 = Form36LV {f00=0xfe, f01=0x08, f88=0000000000, f89=07} // 0xf38 @0x38
0x0f00…24aa panel = { // 0xf40 @0x40
0x0f00…24aa ┌────────────────────────────────────────────────────────────────────────────────┐
0x0f00…24aa 00│ ╳ HELP TEXT FOR END OF MENU OPTIONS ╳ Page 2 of 2 │
0x0f00…24aa 01│ │
0x0f00…24aa 02│ When you select option 1 from SDA's End of Menu Options display, use │
0x0f00…24aa 03│ the library name prompt shown below to indicate which library SDA │
0x0f00…24aa 04│ should use in processing your save request. A default name is │
0x0f00…24aa 05│ supplied. Your menu's member names are shown for your reference. │
0x0f00…24aa 06│ │
0x0f00…24aa 07│ │
0x0f00…24aa 08│ Name the output source and load library. . . . . . . . . . .╳ ╳ │
0x0f00…24aa 09│ Output source and load member names will be . . . . │
0x0f00…24aa 10│ │
0x0f00…24aa 11│ Supply the name of an existing library. │
0x0f00…24aa 12│ When you are creating or updating a menu, SDA puts the referenced menu │
0x0f00…24aa 13│ members in the output source library, and then evokes BLDMENU to compile │
0x0f00…24aa 14│ your menu and to put the menu's load members there as well. A message will │
0x0f00…24aa 15│ be sent to your workstation when BLDMENU is done. │
0x0f00…24aa 16│ │
0x0f00…24aa 17│ When you are deleting a menu, SDA removes the referenced menu members │
0x0f00…24aa 18│ from this output library. Both load and source menu members are │
0x0f00…24aa 19│ removed, however SDA cannot remove your menu members if you or anyone │
0x0f00…24aa 20│ else on the system are currently using that menu. │
0x0f00…24aa 21│ │
0x0f00…24aa 22│ │
0x0f00…24aa 23│ ROLL UP/DOWN-Scan help text ENTER-End help (c) 1983 IBM Corp. │
0x0f00…24aa 24│ │
0x0f00…24aa 25│ │
0x0f00…24aa 26│ │
0x0f00…24aa 27│ │
0x0f00…24aa └────────────────────────────────────────────────────────────────────────────────┘
0x0f00…24aa Panel5250 {
0x0f00…24aa at0000 = ClearUnit {esc=04, cu=40} // 0xf40 @0x0
0x0f00…24aa at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0xf42 @0x2
0x0f00…24aa at0006 = SetBufferAddress {ic=11, line=0x01, col=0x0c} // 0xf46 @0x6
0x0f00…24aa at0009 = Attribute {type=0x22} // 0xf49 @0x9
0x0f00…24aa at000a = » HELP TEXT FOR END OF MENU OPTIONS « // 0xf4a @0xa
0x0f00…24aa at003b = Attribute {type=0x20} // 0xf7b @0x3b
0x0f00…24aa at003c = SetBufferAddress {ic=11, line=0x01, col=0x41} // 0xf7c @0x3c
0x0f00…24aa at003f = » Page 2 of 2 « // 0xf7f @0x3f
0x0f00…24aa at004e = SetBufferAddress {ic=11, line=0x03, col=0x02} // 0xf8e @0x4e
0x0f00…24aa at0051 = »When you select option 1 from SDA's End of Menu Options display, use « // 0xf91 @0x51
0x0f00…24aa at00a0 = » the library name prompt shown below to indicate which library SDA « // 0xfe0 @0xa0
0x0f00…24aa at00f0 = » should use in processing your save request. A default name is « // 0x1030 @0xf0
0x0f00…24aa at0140 = » supplied. Your menu's member names are shown for your reference. « // 0x1080 @0x140
0x0f00…24aa at0190 = » « // 0x10d0 @0x190
0x0f00…24aa at01e0 = SetBufferAddress {ic=11, line=0x09, col=0x06} // 0x1120 @0x1e0
0x0f00…24aa at01e3 = »Name the output source and load library. . . . . . . . . . .« // 0x1123 @0x1e3
0x0f00…24aa at021f = SetBufferAddress {ic=11, line=0x09, col=0x42} // 0x115f @0x21f
0x0f00…24aa at0222 = Attribute {type=0x30} // 0x1162 @0x222
0x0f00…24aa at0223 = » « // 0x1163 @0x223
0x0f00…24aa at022b = Attribute {type=0x20} // 0x116b @0x22b
0x0f00…24aa at022c = SetBufferAddress {ic=11, line=0x0a, col=0x0f} // 0x116c @0x22c
0x0f00…24aa at022f = »Output source and load member names will be . . . .« // 0x116f @0x22f
0x0f00…24aa at0262 = SetBufferAddress {ic=11, line=0x0c, col=0x02} // 0x11a2 @0x262
0x0f00…24aa at0265 = »Supply the name of an existing library. « // 0x11a5 @0x265
0x0f00…24aa at02b4 = SetBufferAddress {ic=11, line=0x0d, col=0x02} // 0x11f4 @0x2b4
0x0f00…24aa at02b7 = »When you are creating or updating a menu, SDA puts the referenced menu « // 0x11f7 @0x2b7
0x0f00…24aa at0306 = » members in the output source library, and then evokes BLDMENU to compile « // 0x1246 @0x306
0x0f00…24aa at0356 = » your menu and to put the menu's load members there as well. A message will « // 0x1296 @0x356
0x0f00…24aa at03a6 = » be sent to your workstation when BLDMENU is done. « // 0x12e6 @0x3a6
0x0f00…24aa at03f6 = » « // 0x1336 @0x3f6
0x0f00…24aa at0446 = SetBufferAddress {ic=11, line=0x12, col=0x02} // 0x1386 @0x446
0x0f00…24aa at0449 = »When you are deleting a menu, SDA removes the referenced menu members « // 0x1389 @0x449
0x0f00…24aa at0498 = » from this output library. Both load and source menu members are « // 0x13d8 @0x498
0x0f00…24aa at04e8 = » removed, however SDA cannot remove your menu members if you or anyone « // 0x1428 @0x4e8
0x0f00…24aa at0538 = » else on the system are currently using that menu. « // 0x1478 @0x538
0x0f00…24aa at0588 = » « // 0x14c8 @0x588
0x0f00…24aa at05d8 = SetBufferAddress {ic=11, line=0x18, col=0x02} // 0x1518 @0x5d8
0x0f00…24aa at05db = »ROLL UP/DOWN-Scan help text ENTER-End help « // 0x151b @0x5db
0x0f00…24aa at0614 = SetBufferAddress {ic=11, line=0x18, col=0x3e} // 0x1554 @0x614
0x0f00…24aa at0617 = »(c) 1983 IBM Corp. « // 0x1557 @0x617
0x0f00…24aa }
0x0f00…24aa }
0x0f00…24aa }
0x1600…3391 Form36 {
0x1600…3391 fh000 = 0x01 // 0x1600 @0x0
0x1600…3391 fh00 = 2600 // 0x1601 @0x1
0x1600…3391 fh01 = »NNN« // 0x1603 @0x3
0x1600…3391 fh02 = 000000 // 0x1606 @0x6
0x1600…3391 fh03 = »NNN« // 0x1609 @0x9
0x1600…3391 fh04 = 0x0030 // 0x160c @0xc
0x1600…3391 fh05 = 0x0731 // 0x160e @0xe
0x1600…3391 fh06 = 000080011800000000000000000000000000 // 0x1610 @0x10
0x1600…3391 at0022 = 0x00000063 // 0x1622 @0x22
0x1600…3391 at0026 = Form36LV {f00=0xfe, f01=0x0a, f88=00000000000000, f89=09} // 0x1626 @0x26
0x1600…3391 panel = { // 0x1630 @0x30
0x1600…3391 ┌────────────────────────────────────────────────────────────────────────────────┐
0x1600…3391 00│ ╳ HELP TEXT FOR END OF FORMAT OPTIONS ╳ Page 1 of 3 │
0x1600…3391 01│ │
0x1600…3391 02│ You have indicated that no more work is to be done on this format member. │
0x1600…3391 03│ Before continuing, indicate what SDA should do with your work: │
0x1600…3391 04│ │
0x1600…3391 05│ Use option 0 to return to the Member Selection/Format Name List display. │
0x1600…3391 06│ There you may continue to work on formats in this format member. │
0x1600…3391 07│ │
0x1600…3391 08│ Use option 2 to discard your work. If you select this option, no additions, │
0x1600…3391 09│ changes, or deletions are made to the format member. │
0x1600…3391 10│ │
0x1600…3391 11│ Use option 1 to save the work done on formats in this member. │
0x1600…3391 12│ If this is a new format member, SDA creates a new source member in the │
0x1600…3391 13│ designated output source library. │
0x1600…3391 14│ When creating or updating a format member, SDA performs any requested │
0x1600…3391 15│ renumbering and printing, and then optionally evokes the FORMAT │
0x1600…3391 16│ procedure to compile your format member. A message will be sent │
0x1600…3391 17│ to your workstation when FORMAT is done. │
0x1600…3391 18│ Otherwise, if you have marked all formats in your member for deletion, │
0x1600…3391 19│ SDA removes the format source member from the designated output source │
0x1600…3391 20│ library. │
0x1600…3391 21│ │
0x1600…3391 22│ │
0x1600…3391 23│ ROLL UP/DOWN-Scan help text ENTER-End help (c) 1983 IBM Corp. │
0x1600…3391 24│ │
0x1600…3391 25│ │
0x1600…3391 26│ │
0x1600…3391 27│ │
0x1600…3391 └────────────────────────────────────────────────────────────────────────────────┘
0x1600…3391 Panel5250 {
0x1600…3391 at0000 = ClearUnit {esc=04, cu=40} // 0x1630 @0x0
0x1600…3391 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x1632 @0x2
0x1600…3391 at0006 = SetBufferAddress {ic=11, line=0x01, col=0x0c} // 0x1636 @0x6
0x1600…3391 at0009 = Attribute {type=0x22} // 0x1639 @0x9
0x1600…3391 at000a = » HELP TEXT FOR END OF FORMAT OPTIONS « // 0x163a @0xa
0x1600…3391 at003a = Attribute {type=0x20} // 0x166a @0x3a
0x1600…3391 at003b = SetBufferAddress {ic=11, line=0x01, col=0x41} // 0x166b @0x3b
0x1600…3391 at003e = » Page 1 of 3 « // 0x166e @0x3e
0x1600…3391 at004d = SetBufferAddress {ic=11, line=0x03, col=0x02} // 0x167d @0x4d
0x1600…3391 at0050 = »You have indicated that no more work is to be done on this format member. « // 0x1680 @0x50
0x1600…3391 at009f = » Before continuing, indicate what SDA should do with your work: « // 0x16cf @0x9f
0x1600…3391 at00ef = » « // 0x171f @0xef
0x1600…3391 at013f = SetBufferAddress {ic=11, line=0x06, col=0x04} // 0x176f @0x13f
0x1600…3391 at0142 = »Use option 0 to return to the Member Selection/Format Name List display. « // 0x1772 @0x142
0x1600…3391 at018f = » There you may continue to work on formats in this format member. « // 0x17bf @0x18f
0x1600…3391 at01df = » « // 0x180f @0x1df
0x1600…3391 at022f = SetBufferAddress {ic=11, line=0x09, col=0x04} // 0x185f @0x22f
0x1600…3391 at0232 = »Use option 2 to discard your work. If you select this option, no additions, « // 0x1862 @0x232
0x1600…3391 at027f = » changes, or deletions are made to the format member. « // 0x18af @0x27f
0x1600…3391 at02cf = » « // 0x18ff @0x2cf
0x1600…3391 at031f = SetBufferAddress {ic=11, line=0x0c, col=0x04} // 0x194f @0x31f
0x1600…3391 at0322 = »Use option 1 to save the work done on formats in this member. « // 0x1952 @0x322
0x1600…3391 at036f = » If this is a new format member, SDA creates a new source member in the « // 0x199f @0x36f
0x1600…3391 at03bf = » designated output source library. « // 0x19ef @0x3bf
0x1600…3391 at040f = » When creating or updating a format member, SDA performs any requested « // 0x1a3f @0x40f
0x1600…3391 at045f = » renumbering and printing, and then optionally evokes the FORMAT « // 0x1a8f @0x45f
0x1600…3391 at04af = » procedure to compile your format member. A message will be sent « // 0x1adf @0x4af
0x1600…3391 at04ff = » to your workstation when FORMAT is done. « // 0x1b2f @0x4ff
0x1600…3391 at054f = » Otherwise, if you have marked all formats in your member for deletion, « // 0x1b7f @0x54f
0x1600…3391 at059f = » SDA removes the format source member from the designated output source « // 0x1bcf @0x59f
0x1600…3391 at05ef = » library. « // 0x1c1f @0x5ef
0x1600…3391 at063f = » « // 0x1c6f @0x63f
0x1600…3391 at068f = » « // 0x1cbf @0x68f
0x1600…3391 at06df = SetBufferAddress {ic=11, line=0x18, col=0x02} // 0x1d0f @0x6df
0x1600…3391 at06e2 = »ROLL UP/DOWN-Scan help text ENTER-End help « // 0x1d12 @0x6e2
0x1600…3391 at071b = SetBufferAddress {ic=11, line=0x18, col=0x3e} // 0x1d4b @0x71b
0x1600…3391 at071e = »(c) 1983 IBM Corp. « // 0x1d4e @0x71e
0x1600…3391 }
0x1600…3391 }
0x1600…3391 }
0x1e00…41ee Form36 {
0x1e00…41ee fh000 = 0x01 // 0x1e00 @0x0
0x1e00…41ee fh00 = 2600 // 0x1e01 @0x1
0x1e00…41ee fh01 = »NNN« // 0x1e03 @0x3
0x1e00…41ee fh02 = 000000 // 0x1e06 @0x6
0x1e00…41ee fh03 = »NNN« // 0x1e09 @0x9
0x1e00…41ee fh04 = 0x0050 // 0x1e0c @0xc
0x1e00…41ee fh05 = 0x054e // 0x1e0e @0xe
0x1e00…41ee fh06 = 000080011800000000000000000000000000 // 0x1e10 @0x10
0x1e00…41ee at0022 = 0x00000063 // 0x1e22 @0x22
0x1e00…41ee at0026 = Form36LV {f00=0x51, f01=0x12, f22=021f00080010, f23=094300, f24=»N«, f25=00, f26=»N«, f27=00, f28=»NNN«} // 0x1e26 @0x26
0x1e00…41ee at0038 = Form36LV {f00=0x51, f01=0x12, f22=026b00080010, f23=0a4300, f24=»N«, f25=00, f26=»N«, f27=00, f28=»NNN«} // 0x1e38 @0x38
0x1e00…41ee at004a = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x1e4a @0x4a
0x1e00…41ee panel = { // 0x1e50 @0x50
0x1e00…41ee ┌────────────────────────────────────────────────────────────────────────────────┐
0x1e00…41ee 00│ ╳ HELP TEXT FOR END OF MEMBER OPTIONS ╳ Page 2 of 3 │
0x1e00…41ee 01│ │
0x1e00…41ee 02│ When you select option 1 from SDA's End of Member Options display, use │
0x1e00…41ee 03│ the name prompts shown below to indicate which library and which source │
0x1e00…41ee 04│ member in it should contain the specifications which SDA has generated │
0x1e00…41ee 05│ for formats in your format member. Default names are supplied. │
0x1e00…41ee 06│ │
0x1e00…41ee 07│ │
0x1e00…41ee 08│ Name the output source library . . . . . . . . . . . . . . .╳ ╳ │
0x1e00…41ee 09│ Name the output source member. . . . . . . . . . . . . . . .╳ ╳ │
0x1e00…41ee 10│ │
0x1e00…41ee 11│ Supply the name of an existing library. Supply the name of an old or new │
0x1e00…41ee 12│ source member. The member name can contain up to eight characters. │
0x1e00…41ee 13│ The first character must be alphabetic. Do not use ALL, NEW, DIR, or │
0x1e00…41ee 14│ SYSTEM to define a new name. │
0x1e00…41ee 15│ │
0x1e00…41ee 16│ When you are deleting all formats in a format member, SDA removes this source │
0x1e00…41ee 17│ member from the output source library. │
0x1e00…41ee 18│ │
0x1e00…41ee 19│ │
0x1e00…41ee 20│ │
0x1e00…41ee 21│ │
0x1e00…41ee 22│ │
0x1e00…41ee 23│ ROLL UP/DOWN-Scan help text ENTER-End help (c) 1983 IBM Corp. │
0x1e00…41ee 24│ │
0x1e00…41ee 25│ │
0x1e00…41ee 26│ │
0x1e00…41ee 27│ │
0x1e00…41ee └────────────────────────────────────────────────────────────────────────────────┘
0x1e00…41ee Panel5250 {
0x1e00…41ee at0000 = ClearUnit {esc=04, cu=40} // 0x1e50 @0x0
0x1e00…41ee at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x1e52 @0x2
0x1e00…41ee at0006 = SetBufferAddress {ic=11, line=0x01, col=0x0d} // 0x1e56 @0x6
0x1e00…41ee at0009 = Attribute {type=0x22} // 0x1e59 @0x9
0x1e00…41ee at000a = » HELP TEXT FOR END OF MEMBER OPTIONS « // 0x1e5a @0xa
0x1e00…41ee at003b = Attribute {type=0x20} // 0x1e8b @0x3b
0x1e00…41ee at003c = SetBufferAddress {ic=11, line=0x01, col=0x41} // 0x1e8c @0x3c
0x1e00…41ee at003f = » Page 2 of 3 « // 0x1e8f @0x3f
0x1e00…41ee at004e = SetBufferAddress {ic=11, line=0x03, col=0x02} // 0x1e9e @0x4e
0x1e00…41ee at0051 = »When you select option 1 from SDA's End of Member Options display, use « // 0x1ea1 @0x51
0x1e00…41ee at00a0 = » the name prompts shown below to indicate which library and which source « // 0x1ef0 @0xa0
0x1e00…41ee at00f0 = » member in it should contain the specifications which SDA has generated « // 0x1f40 @0xf0
0x1e00…41ee at0140 = » for formats in your format member. Default names are supplied. « // 0x1f90 @0x140
0x1e00…41ee at0190 = » « // 0x1fe0 @0x190
0x1e00…41ee at01e0 = SetBufferAddress {ic=11, line=0x09, col=0x06} // 0x2030 @0x1e0
0x1e00…41ee at01e3 = »Name the output source library . . . . . . . . . . . . . . .« // 0x2033 @0x1e3
0x1e00…41ee at021f = SetBufferAddress {ic=11, line=0x09, col=0x42} // 0x206f @0x21f
0x1e00…41ee at0222 = Attribute {type=0x30} // 0x2072 @0x222
0x1e00…41ee at0223 = » « // 0x2073 @0x223
0x1e00…41ee at022b = Attribute {type=0x20} // 0x207b @0x22b
0x1e00…41ee at022c = SetBufferAddress {ic=11, line=0x0a, col=0x06} // 0x207c @0x22c
0x1e00…41ee at022f = »Name the output source member. . . . . . . . . . . . . . . .« // 0x207f @0x22f
0x1e00…41ee at026b = SetBufferAddress {ic=11, line=0x0a, col=0x42} // 0x20bb @0x26b
0x1e00…41ee at026e = Attribute {type=0x30} // 0x20be @0x26e
0x1e00…41ee at026f = » « // 0x20bf @0x26f
0x1e00…41ee at0277 = Attribute {type=0x20} // 0x20c7 @0x277
0x1e00…41ee at0278 = SetBufferAddress {ic=11, line=0x0c, col=0x02} // 0x20c8 @0x278
0x1e00…41ee at027b = »Supply the name of an existing library. Supply the name of an old or new « // 0x20cb @0x27b
0x1e00…41ee at02ca = » source member. The member name can contain up to eight characters. « // 0x211a @0x2ca
0x1e00…41ee at031a = » The first character must be alphabetic. Do not use ALL, NEW, DIR, or « // 0x216a @0x31a
0x1e00…41ee at036a = » SYSTEM to define a new name. « // 0x21ba @0x36a
0x1e00…41ee at03ba = » « // 0x220a @0x3ba
0x1e00…41ee at040a = SetBufferAddress {ic=11, line=0x11, col=0x02} // 0x225a @0x40a
0x1e00…41ee at040d = »When you are deleting all formats in a format member, SDA removes this source « // 0x225d @0x40d
0x1e00…41ee at045c = » member from the output source library. « // 0x22ac @0x45c
0x1e00…41ee at04ac = » « // 0x22fc @0x4ac
0x1e00…41ee at04fc = SetBufferAddress {ic=11, line=0x18, col=0x02} // 0x234c @0x4fc
0x1e00…41ee at04ff = »ROLL UP/DOWN-Scan help text ENTER-End help « // 0x234f @0x4ff
0x1e00…41ee at0538 = SetBufferAddress {ic=11, line=0x18, col=0x3e} // 0x2388 @0x538
0x1e00…41ee at053b = »(c) 1983 IBM Corp. « // 0x238b @0x53b
0x1e00…41ee }
0x1e00…41ee }
0x1e00…41ee }
0x2400…4f84 Form36 {
0x2400…4f84 fh000 = 0x01 // 0x2400 @0x0
0x2400…4f84 fh00 = 2600 // 0x2401 @0x1
0x2400…4f84 fh01 = »NNN« // 0x2403 @0x3
0x2400…4f84 fh02 = 000000 // 0x2406 @0x6
0x2400…4f84 fh03 = »NNN« // 0x2409 @0x9
0x2400…4f84 fh04 = 0x0078 // 0x240c @0xc
0x2400…4f84 fh05 = 0x0694 // 0x240e @0xe
0x2400…4f84 fh06 = 000080011800000000000000000000000000 // 0x2410 @0x10
0x2400…4f84 at0022 = 0x00000063 // 0x2422 @0x22
0x2400…4f84 at0026 = Form36LV {f00=0x51, f01=0x12, f22=009100010010, f23=034300, f24=»N«, f25=00, f26=»N«, f27=00, f28=»NNN«} // 0x2426 @0x26
0x2400…4f84 at0038 = Form36LV {f00=0x51, f01=0x12, f22=00d600010010, f23=044300, f24=»N«, f25=00, f26=»N«, f27=00, f28=»NNN«} // 0x2438 @0x38
0x2400…4f84 at004a = Form36LV {f00=0x51, f01=0x12, f22=010000080010, f23=054300, f24=»N«, f25=00, f26=»N«, f27=00, f28=»NNN«} // 0x244a @0x4a
0x2400…4f84 at005c = Form36LV {f00=0x51, f01=0x12, f22=013100080010, f23=064300, f24=»N«, f25=00, f26=»N«, f27=00, f28=»NNN«} // 0x245c @0x5c
0x2400…4f84 at006e = Form36LV {f00=0xfe, f01=0x0a, f88=00000000000000, f89=09} // 0x246e @0x6e
0x2400…4f84 panel = { // 0x2478 @0x78
0x2400…4f84 ┌────────────────────────────────────────────────────────────────────────────────┐
0x2400…4f84 00│ ╳ HELP TEXT FOR END OF MEMBER OPTIONS ╳ Page 3 of 3 │
0x2400…4f84 01│ │
0x2400…4f84 02│ Renumber source specifications . . . . . . . . . . . . . Y,N╳N╳ │
0x2400…4f84 03│ Compile the source member (evoke $SFGR). . . . . . . . . Y,N╳Y╳ │
0x2400…4f84 04│ Output load library name. . . . .╳ ╳ │
0x2400…4f84 05│ Output load member name . . . . .╳ ╳ │
0x2400…4f84 06│ │
0x2400…4f84 07│ Indicate whether SDA should renumber the specifications it generates for │
0x2400…4f84 08│ formats in your source member (sequence numbers go in columns 1 - 5 of │
0x2400…4f84 09│ each source specification). │
0x2400…4f84 10│ │
0x2400…4f84 11│ Indicate whether SDA should call $SFGR to compile your source member. │
0x2400…4f84 12│ If you respond with a Y to this prompt, you also need to supply load │
0x2400…4f84 13│ library and member names. These names indicate where $SFGR should │
0x2400…4f84 14│ put the compiled specifications. Default names are provided. │
0x2400…4f84 15│ │
0x2400…4f84 16│ Supply the name of an existing library. Supply the name of an old │
0x2400…4f84 17│ or new load member. The name can contain up to eight characters. │
0x2400…4f84 18│ The first character must be alphabetic. Do not use ALL, NEW, DIR, or │
0x2400…4f84 19│ SYSTEM to define a new name. │
0x2400…4f84 20│ │
0x2400…4f84 21│ $SFGR creates a new version of the load format member when it is called. │
0x2400…4f84 22│ │
0x2400…4f84 23│ ROLL UP/DOWN-Scan help text ENTER-End help (c) 1983 IBM Corp. │
0x2400…4f84 24│ │
0x2400…4f84 25│ │
0x2400…4f84 26│ │
0x2400…4f84 27│ │
0x2400…4f84 └────────────────────────────────────────────────────────────────────────────────┘
0x2400…4f84 Panel5250 {
0x2400…4f84 at0000 = ClearUnit {esc=04, cu=40} // 0x2478 @0x0
0x2400…4f84 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x247a @0x2
0x2400…4f84 at0006 = SetBufferAddress {ic=11, line=0x01, col=0x09} // 0x247e @0x6
0x2400…4f84 at0009 = Attribute {type=0x22} // 0x2481 @0x9
0x2400…4f84 at000a = » HELP TEXT FOR END OF MEMBER OPTIONS « // 0x2482 @0xa
0x2400…4f84 at003f = Attribute {type=0x20} // 0x24b7 @0x3f
0x2400…4f84 at0040 = SetBufferAddress {ic=11, line=0x01, col=0x41} // 0x24b8 @0x40
0x2400…4f84 at0043 = » Page 3 of 3 « // 0x24bb @0x43
0x2400…4f84 at0052 = SetBufferAddress {ic=11, line=0x03, col=0x06} // 0x24ca @0x52
0x2400…4f84 at0055 = »Renumber source specifications . . . . . . . . . . . . . Y,N« // 0x24cd @0x55
0x2400…4f84 at0091 = SetBufferAddress {ic=11, line=0x03, col=0x42} // 0x2509 @0x91
0x2400…4f84 at0094 = Attribute {type=0x30} // 0x250c @0x94
0x2400…4f84 at0095 = »N« // 0x250d @0x95
0x2400…4f84 at0096 = Attribute {type=0x20} // 0x250e @0x96
0x2400…4f84 at0097 = SetBufferAddress {ic=11, line=0x04, col=0x06} // 0x250f @0x97
0x2400…4f84 at009a = »Compile the source member (evoke $SFGR). . . . . . . . . Y,N« // 0x2512 @0x9a
0x2400…4f84 at00d6 = SetBufferAddress {ic=11, line=0x04, col=0x42} // 0x254e @0xd6
0x2400…4f84 at00d9 = Attribute {type=0x30} // 0x2551 @0xd9
0x2400…4f84 at00da = »Y« // 0x2552 @0xda
0x2400…4f84 at00db = Attribute {type=0x20} // 0x2553 @0xdb
0x2400…4f84 at00dc = SetBufferAddress {ic=11, line=0x05, col=0x21} // 0x2554 @0xdc
0x2400…4f84 at00df = »Output load library name. . . . .« // 0x2557 @0xdf
0x2400…4f84 at0100 = SetBufferAddress {ic=11, line=0x05, col=0x42} // 0x2578 @0x100
0x2400…4f84 at0103 = Attribute {type=0x30} // 0x257b @0x103
0x2400…4f84 at0104 = » « // 0x257c @0x104
0x2400…4f84 at010c = Attribute {type=0x20} // 0x2584 @0x10c
0x2400…4f84 at010d = SetBufferAddress {ic=11, line=0x06, col=0x21} // 0x2585 @0x10d
0x2400…4f84 at0110 = »Output load member name . . . . .« // 0x2588 @0x110
0x2400…4f84 at0131 = SetBufferAddress {ic=11, line=0x06, col=0x42} // 0x25a9 @0x131
0x2400…4f84 at0134 = Attribute {type=0x30} // 0x25ac @0x134
0x2400…4f84 at0135 = » « // 0x25ad @0x135
0x2400…4f84 at013d = Attribute {type=0x20} // 0x25b5 @0x13d
0x2400…4f84 at013e = SetBufferAddress {ic=11, line=0x08, col=0x02} // 0x25b6 @0x13e
0x2400…4f84 at0141 = »Indicate whether SDA should renumber the specifications it generates for « // 0x25b9 @0x141
0x2400…4f84 at0190 = » formats in your source member (sequence numbers go in columns 1 - 5 of « // 0x2608 @0x190
0x2400…4f84 at01e0 = » each source specification). « // 0x2658 @0x1e0
0x2400…4f84 at0230 = » « // 0x26a8 @0x230
0x2400…4f84 at0280 = SetBufferAddress {ic=11, line=0x0c, col=0x02} // 0x26f8 @0x280
0x2400…4f84 at0283 = »Indicate whether SDA should call $SFGR to compile your source member. « // 0x26fb @0x283
0x2400…4f84 at02d2 = » If you respond with a Y to this prompt, you also need to supply load « // 0x274a @0x2d2
0x2400…4f84 at0322 = » library and member names. These names indicate where $SFGR should « // 0x279a @0x322
0x2400…4f84 at0372 = » put the compiled specifications. Default names are provided. « // 0x27ea @0x372
0x2400…4f84 at03c2 = » « // 0x283a @0x3c2
0x2400…4f84 at0412 = » Supply the name of an existing library. Supply the name of an old « // 0x288a @0x412
0x2400…4f84 at0462 = » or new load member. The name can contain up to eight characters. « // 0x28da @0x462
0x2400…4f84 at04b2 = » The first character must be alphabetic. Do not use ALL, NEW, DIR, or « // 0x292a @0x4b2
0x2400…4f84 at0502 = » SYSTEM to define a new name. « // 0x297a @0x502
0x2400…4f84 at0552 = » « // 0x29ca @0x552
0x2400…4f84 at05a2 = » $SFGR creates a new version of the load format member when it is called. « // 0x2a1a @0x5a2
0x2400…4f84 at05f2 = » « // 0x2a6a @0x5f2
0x2400…4f84 at0642 = SetBufferAddress {ic=11, line=0x18, col=0x02} // 0x2aba @0x642
0x2400…4f84 at0645 = »ROLL UP/DOWN-Scan help text ENTER-End help « // 0x2abd @0x645
0x2400…4f84 at067e = SetBufferAddress {ic=11, line=0x18, col=0x3e} // 0x2af6 @0x67e
0x2400…4f84 at0681 = »(c) 1983 IBM Corp. « // 0x2af9 @0x681
0x2400…4f84 }
0x2400…4f84 }
0x2400…4f84 }
0x2c00…5e53 Form36 {
0x2c00…5e53 fh000 = 0x01 // 0x2c00 @0x0
0x2c00…5e53 fh00 = 2600 // 0x2c01 @0x1
0x2c00…5e53 fh01 = »NNN« // 0x2c03 @0x3
0x2c00…5e53 fh02 = 000000 // 0x2c06 @0x6
0x2c00…5e53 fh03 = »NNN« // 0x2c09 @0x9
0x2c00…5e53 fh04 = 0x0030 // 0x2c0c @0xc
0x2c00…5e53 fh05 = 0x05f3 // 0x2c0e @0xe
0x2c00…5e53 fh06 = 000080011800000000000000000000000000 // 0x2c10 @0x10
0x2c00…5e53 at0022 = 0x00000063 // 0x2c22 @0x22
0x2c00…5e53 at0026 = Form36LV {f00=0xfe, f01=0x0a, f88=00000000000000, f89=09} // 0x2c26 @0x26
0x2c00…5e53 panel = { // 0x2c30 @0x30
0x2c00…5e53 ┌────────────────────────────────────────────────────────────────────────────────┐
0x2c00…5e53 00│ ╳ HELP TEXT FOR END OF RPG GENERATION ╳ Page 1 of 2 │
0x2c00…5e53 01│ │
0x2c00…5e53 02│ Generation of RPG II WORKSTN File specifications is complete. │
0x2c00…5e53 03│ Before continuing, indicate what SDA should do next: │
0x2c00…5e53 04│ │
0x2c00…5e53 05│ Use option 0 to resume RPG generation (you pressed CMD7) or to restart │
0x2c00…5e53 06│ SDA's RPG generation prompt sequence. │
0x2c00…5e53 07│ │
0x2c00…5e53 08│ Use option 2 to discard any specifications which SDA may have generated. │
0x2c00…5e53 09│ If you select this option, no additions or changes are made to members │
0x2c00…5e53 10│ in the designated output library. │
0x2c00…5e53 11│ │
0x2c00…5e53 12│ Use option 1 to save the specifications generated by SDA. │
0x2c00…5e53 13│ When you use this option, SDA puts RPG II WORKSTN File specifications │
0x2c00…5e53 14│ into a new or replaced source member in the designated output library. │
0x2c00…5e53 15│ SDA also performs any requested printing at this time. │
0x2c00…5e53 16│ Option 1 is not allowed if you pressed CMD7 during the generation │
0x2c00…5e53 17│ prompt sequence. │
0x2c00…5e53 18│ │
0x2c00…5e53 19│ │
0x2c00…5e53 20│ │
0x2c00…5e53 21│ │
0x2c00…5e53 22│ │
0x2c00…5e53 23│ ROLL UP/DOWN-Scan help text ENTER-End help (c) 1983 IBM Corp. │
0x2c00…5e53 24│ │
0x2c00…5e53 25│ │
0x2c00…5e53 26│ │
0x2c00…5e53 27│ │
0x2c00…5e53 └────────────────────────────────────────────────────────────────────────────────┘
0x2c00…5e53 Panel5250 {
0x2c00…5e53 at0000 = ClearUnit {esc=04, cu=40} // 0x2c30 @0x0
0x2c00…5e53 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x2c32 @0x2
0x2c00…5e53 at0006 = SetBufferAddress {ic=11, line=0x01, col=0x0c} // 0x2c36 @0x6
0x2c00…5e53 at0009 = Attribute {type=0x22} // 0x2c39 @0x9
0x2c00…5e53 at000a = » HELP TEXT FOR END OF RPG GENERATION « // 0x2c3a @0xa
0x2c00…5e53 at003c = Attribute {type=0x20} // 0x2c6c @0x3c
0x2c00…5e53 at003d = SetBufferAddress {ic=11, line=0x01, col=0x41} // 0x2c6d @0x3d
0x2c00…5e53 at0040 = » Page 1 of 2 « // 0x2c70 @0x40
0x2c00…5e53 at004f = SetBufferAddress {ic=11, line=0x03, col=0x02} // 0x2c7f @0x4f
0x2c00…5e53 at0052 = »Generation of RPG II WORKSTN File specifications is complete. « // 0x2c82 @0x52
0x2c00…5e53 at00a1 = » Before continuing, indicate what SDA should do next: « // 0x2cd1 @0xa1
0x2c00…5e53 at00f1 = » « // 0x2d21 @0xf1
0x2c00…5e53 at0141 = SetBufferAddress {ic=11, line=0x06, col=0x04} // 0x2d71 @0x141
0x2c00…5e53 at0144 = »Use option 0 to resume RPG generation (you pressed CMD7) or to restart « // 0x2d74 @0x144
0x2c00…5e53 at0191 = » SDA's RPG generation prompt sequence. « // 0x2dc1 @0x191
0x2c00…5e53 at01e1 = » « // 0x2e11 @0x1e1
0x2c00…5e53 at0231 = SetBufferAddress {ic=11, line=0x09, col=0x04} // 0x2e61 @0x231
0x2c00…5e53 at0234 = »Use option 2 to discard any specifications which SDA may have generated. « // 0x2e64 @0x234
0x2c00…5e53 at0281 = » If you select this option, no additions or changes are made to members « // 0x2eb1 @0x281
0x2c00…5e53 at02d1 = » in the designated output library. « // 0x2f01 @0x2d1
0x2c00…5e53 at0321 = » « // 0x2f51 @0x321
0x2c00…5e53 at0371 = SetBufferAddress {ic=11, line=0x0d, col=0x04} // 0x2fa1 @0x371
0x2c00…5e53 at0374 = »Use option 1 to save the specifications generated by SDA. « // 0x2fa4 @0x374
0x2c00…5e53 at03c1 = » When you use this option, SDA puts RPG II WORKSTN File specifications « // 0x2ff1 @0x3c1
0x2c00…5e53 at0411 = » into a new or replaced source member in the designated output library. « // 0x3041 @0x411
0x2c00…5e53 at0461 = » SDA also performs any requested printing at this time. « // 0x3091 @0x461
0x2c00…5e53 at04b1 = » Option 1 is not allowed if you pressed CMD7 during the generation « // 0x30e1 @0x4b1
0x2c00…5e53 at0501 = » prompt sequence. « // 0x3131 @0x501
0x2c00…5e53 at0551 = » « // 0x3181 @0x551
0x2c00…5e53 at05a1 = SetBufferAddress {ic=11, line=0x18, col=0x02} // 0x31d1 @0x5a1
0x2c00…5e53 at05a4 = »ROLL UP/DOWN-Scan help text ENTER-End help « // 0x31d4 @0x5a4
0x2c00…5e53 at05dd = SetBufferAddress {ic=11, line=0x18, col=0x3e} // 0x320d @0x5dd
0x2c00…5e53 at05e0 = »(c) 1983 IBM Corp. « // 0x3210 @0x5e0
0x2c00…5e53 }
0x2c00…5e53 }
0x2c00…5e53 }
0x3300…6cfd Form36 {
0x3300…6cfd fh000 = 0x01 // 0x3300 @0x0
0x3300…6cfd fh00 = 2600 // 0x3301 @0x1
0x3300…6cfd fh01 = »NNN« // 0x3303 @0x3
0x3300…6cfd fh02 = 000000 // 0x3306 @0x6
0x3300…6cfd fh03 = »NNN« // 0x3309 @0x9
0x3300…6cfd fh04 = 0x0060 // 0x330c @0xc
0x3300…6cfd fh05 = 0x063d // 0x330e @0xe
0x3300…6cfd fh06 = 000080011800000000000000000000000000 // 0x3310 @0x10
0x3300…6cfd at0022 = 0x00000063 // 0x3322 @0x22
0x3300…6cfd at0026 = Form36LV {f00=0x51, f01=0x12, f22=027900080010, f23=0a4300, f24=»N«, f25=00, f26=»N«, f27=00, f28=»NNN«} // 0x3326 @0x26
0x3300…6cfd at0038 = Form36LV {f00=0x51, f01=0x12, f22=02c500080010, f23=0b4300, f24=»N«, f25=00, f26=»N«, f27=00, f28=»NNN«} // 0x3338 @0x38
0x3300…6cfd at004a = Form36LV {f00=0x51, f01=0x12, f22=04a300010010, f23=124300, f24=»N«, f25=00, f26=»N«, f27=00, f28=»NNN«} // 0x334a @0x4a
0x3300…6cfd at005c = Form36LV {f00=0xfe, f01=0x04, f88=00, f89=03} // 0x335c @0x5c
0x3300…6cfd panel = { // 0x3360 @0x60
0x3300…6cfd ┌────────────────────────────────────────────────────────────────────────────────┐
0x3300…6cfd 00│ ╳ HELP TEXT FOR END OF RPG GENERATION ╳ Page 2 of 2 │
0x3300…6cfd 01│ │
0x3300…6cfd 02│ When you select option 1 from SDA's End of RPG Program Generation display, │
0x3300…6cfd 03│ use the name prompts shown below to indicate which library and which │
0x3300…6cfd 04│ source member in it should contain the RPG specifications which SDA has │
0x3300…6cfd 05│ generated for formats in your format member. The contents of an existing │
0x3300…6cfd 06│ member are replaced. Default names are supplied. │
0x3300…6cfd 07│ │
0x3300…6cfd 08│ │
0x3300…6cfd 09│ Name the output source library . . . . . . . . . . . . . . .╳ ╳ │
0x3300…6cfd 10│ Name the output source member. . . . . . . . . . . . . . . .╳ ╳ │
0x3300…6cfd 11│ │
0x3300…6cfd 12│ Supply the name of an existing library. Supply the name of an old or new │
0x3300…6cfd 13│ source member. The member name can contain up to eight characters. │
0x3300…6cfd 14│ The first character must be alphabetic. Do not use ALL, NEW, DIR, or │
0x3300…6cfd 15│ SYSTEM to define a new name. │
0x3300…6cfd 16│ │
0x3300…6cfd 17│ Print generated source specifications. . . . . . . . . . Y,N╳N╳ │
0x3300…6cfd 18│ │
0x3300…6cfd 19│ Additionally, you may indicate whether the RPG specifications which are placed │
0x3300…6cfd 20│ in the source member should be printed. If so, respond with a Y to the │
0x3300…6cfd 21│ print prompt shown above. │
0x3300…6cfd 22│ │
0x3300…6cfd 23│ ROLL UP/DOWN-Scan help text ENTER-End help (c) 1983 IBM Corp. │
0x3300…6cfd 24│ │
0x3300…6cfd 25│ │
0x3300…6cfd 26│ │
0x3300…6cfd 27│ │
0x3300…6cfd └────────────────────────────────────────────────────────────────────────────────┘
0x3300…6cfd Panel5250 {
0x3300…6cfd at0000 = ClearUnit {esc=04, cu=40} // 0x3360 @0x0
0x3300…6cfd at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x3362 @0x2
0x3300…6cfd at0006 = SetBufferAddress {ic=11, line=0x01, col=0x03} // 0x3366 @0x6
0x3300…6cfd at0009 = Attribute {type=0x22} // 0x3369 @0x9
0x3300…6cfd at000a = » HELP TEXT FOR END OF RPG GENERATION « // 0x336a @0xa
0x3300…6cfd at0045 = Attribute {type=0x20} // 0x33a5 @0x45
0x3300…6cfd at0046 = SetBufferAddress {ic=11, line=0x01, col=0x41} // 0x33a6 @0x46
0x3300…6cfd at0049 = » Page 2 of 2 « // 0x33a9 @0x49
0x3300…6cfd at0058 = SetBufferAddress {ic=11, line=0x03, col=0x02} // 0x33b8 @0x58
0x3300…6cfd at005b = »When you select option 1 from SDA's End of RPG Program Generation display, « // 0x33bb @0x5b
0x3300…6cfd at00aa = » use the name prompts shown below to indicate which library and which « // 0x340a @0xaa
0x3300…6cfd at00fa = » source member in it should contain the RPG specifications which SDA has « // 0x345a @0xfa
0x3300…6cfd at014a = » generated for formats in your format member. The contents of an existing « // 0x34aa @0x14a
0x3300…6cfd at019a = » member are replaced. Default names are supplied. « // 0x34fa @0x19a
0x3300…6cfd at01ea = » « // 0x354a @0x1ea
0x3300…6cfd at023a = SetBufferAddress {ic=11, line=0x0a, col=0x06} // 0x359a @0x23a
0x3300…6cfd at023d = »Name the output source library . . . . . . . . . . . . . . .« // 0x359d @0x23d
0x3300…6cfd at0279 = SetBufferAddress {ic=11, line=0x0a, col=0x42} // 0x35d9 @0x279
0x3300…6cfd at027c = Attribute {type=0x30} // 0x35dc @0x27c
0x3300…6cfd at027d = » « // 0x35dd @0x27d
0x3300…6cfd at0285 = Attribute {type=0x20} // 0x35e5 @0x285
0x3300…6cfd at0286 = SetBufferAddress {ic=11, line=0x0b, col=0x06} // 0x35e6 @0x286
0x3300…6cfd at0289 = »Name the output source member. . . . . . . . . . . . . . . .« // 0x35e9 @0x289
0x3300…6cfd at02c5 = SetBufferAddress {ic=11, line=0x0b, col=0x42} // 0x3625 @0x2c5
0x3300…6cfd at02c8 = Attribute {type=0x30} // 0x3628 @0x2c8
0x3300…6cfd at02c9 = » « // 0x3629 @0x2c9
0x3300…6cfd at02d1 = Attribute {type=0x20} // 0x3631 @0x2d1
0x3300…6cfd at02d2 = SetBufferAddress {ic=11, line=0x0d, col=0x02} // 0x3632 @0x2d2
0x3300…6cfd at02d5 = »Supply the name of an existing library. Supply the name of an old or new « // 0x3635 @0x2d5
0x3300…6cfd at0324 = » source member. The member name can contain up to eight characters. « // 0x3684 @0x324
0x3300…6cfd at0374 = » The first character must be alphabetic. Do not use ALL, NEW, DIR, or « // 0x36d4 @0x374
0x3300…6cfd at03c4 = » SYSTEM to define a new name. « // 0x3724 @0x3c4
0x3300…6cfd at0414 = » « // 0x3774 @0x414
0x3300…6cfd at0464 = SetBufferAddress {ic=11, line=0x12, col=0x06} // 0x37c4 @0x464
0x3300…6cfd at0467 = »Print generated source specifications. . . . . . . . . . Y,N« // 0x37c7 @0x467
0x3300…6cfd at04a3 = SetBufferAddress {ic=11, line=0x12, col=0x42} // 0x3803 @0x4a3
0x3300…6cfd at04a6 = Attribute {type=0x30} // 0x3806 @0x4a6
0x3300…6cfd at04a7 = »N« // 0x3807 @0x4a7
0x3300…6cfd at04a8 = Attribute {type=0x20} // 0x3808 @0x4a8
0x3300…6cfd at04a9 = SetBufferAddress {ic=11, line=0x14, col=0x02} // 0x3809 @0x4a9
0x3300…6cfd at04ac = »Additionally, you may indicate whether the RPG specifications which are placed « // 0x380c @0x4ac
0x3300…6cfd at04fb = » in the source member should be printed. If so, respond with a Y to the « // 0x385b @0x4fb
0x3300…6cfd at054b = » print prompt shown above. « // 0x38ab @0x54b
0x3300…6cfd at059b = » « // 0x38fb @0x59b
0x3300…6cfd at05eb = SetBufferAddress {ic=11, line=0x18, col=0x02} // 0x394b @0x5eb
0x3300…6cfd at05ee = »ROLL UP/DOWN-Scan help text ENTER-End help « // 0x394e @0x5ee
0x3300…6cfd at0627 = SetBufferAddress {ic=11, line=0x18, col=0x3e} // 0x3987 @0x627
0x3300…6cfd at062a = »(c) 1983 IBM Corp. « // 0x398a @0x62a
0x3300…6cfd }
0x3300…6cfd }
0x3300…6cfd }
0x3a00…79b3 Form36 {
0x3a00…79b3 fh000 = 0x01 // 0x3a00 @0x0
0x3a00…79b3 fh00 = 2600 // 0x3a01 @0x1
0x3a00…79b3 fh01 = »NNN« // 0x3a03 @0x3
0x3a00…79b3 fh02 = 000000 // 0x3a06 @0x6
0x3a00…79b3 fh03 = »NNN« // 0x3a09 @0x9
0x3a00…79b3 fh04 = 0x0030 // 0x3a0c @0xc
0x3a00…79b3 fh05 = 0x0553 // 0x3a0e @0xe
0x3a00…79b3 fh06 = 000080011800000000000000000000000000 // 0x3a10 @0x10
0x3a00…79b3 at0022 = 0x00000063 // 0x3a22 @0x22
0x3a00…79b3 at0026 = Form36LV {f00=0xfe, f01=0x0a, f88=00000000000000, f89=09} // 0x3a26 @0x26
0x3a00…79b3 panel = { // 0x3a30 @0x30
0x3a00…79b3 ┌────────────────────────────────────────────────────────────────────────────────┐
0x3a00…79b3 00│ ╳ HELP TEXT FOR END OF WSU GENERATION ╳ Page 1 of 3 │
0x3a00…79b3 01│ │
0x3a00…79b3 02│ Generation of WSU program specifications is complete. │
0x3a00…79b3 03│ Before continuing, indicate what SDA should do next: │
0x3a00…79b3 04│ │
0x3a00…79b3 05│ Use option 2 to discard any specifications which SDA may have generated. │
0x3a00…79b3 06│ If you select this option, no additions or changes are made to members │
0x3a00…79b3 07│ in the designated output library. │
0x3a00…79b3 08│ │
0x3a00…79b3 09│ Use option 1 to save the specifications generated by SDA. │
0x3a00…79b3 10│ When you use this option, SDA puts WSU program specifications │
0x3a00…79b3 11│ into a new or replaced source member in the designated output library. │
0x3a00…79b3 12│ SDA performs any requested printing at this time, and then │
0x3a00…79b3 13│ optionally evokes WSU to compile the generated program. │
0x3a00…79b3 14│ Option 1 is not allowed if you pressed CMD7 during the generation │
0x3a00…79b3 15│ prompt sequence. │
0x3a00…79b3 16│ │
0x3a00…79b3 17│ │
0x3a00…79b3 18│ │
0x3a00…79b3 19│ │
0x3a00…79b3 20│ │
0x3a00…79b3 21│ │
0x3a00…79b3 22│ │
0x3a00…79b3 23│ ROLL UP/DOWN-Scan help text ENTER-End help (c) 1983 IBM Corp. │
0x3a00…79b3 24│ │
0x3a00…79b3 25│ │
0x3a00…79b3 26│ │
0x3a00…79b3 27│ │
0x3a00…79b3 └────────────────────────────────────────────────────────────────────────────────┘
0x3a00…79b3 Panel5250 {
0x3a00…79b3 at0000 = ClearUnit {esc=04, cu=40} // 0x3a30 @0x0
0x3a00…79b3 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x3a32 @0x2
0x3a00…79b3 at0006 = SetBufferAddress {ic=11, line=0x01, col=0x0c} // 0x3a36 @0x6
0x3a00…79b3 at0009 = Attribute {type=0x22} // 0x3a39 @0x9
0x3a00…79b3 at000a = » HELP TEXT FOR END OF WSU GENERATION « // 0x3a3a @0xa
0x3a00…79b3 at003c = Attribute {type=0x20} // 0x3a6c @0x3c
0x3a00…79b3 at003d = SetBufferAddress {ic=11, line=0x01, col=0x41} // 0x3a6d @0x3d
0x3a00…79b3 at0040 = » Page 1 of 3 « // 0x3a70 @0x40
0x3a00…79b3 at004f = SetBufferAddress {ic=11, line=0x03, col=0x02} // 0x3a7f @0x4f
0x3a00…79b3 at0052 = »Generation of WSU program specifications is complete. « // 0x3a82 @0x52
0x3a00…79b3 at00a1 = » Before continuing, indicate what SDA should do next: « // 0x3ad1 @0xa1
0x3a00…79b3 at00f1 = » « // 0x3b21 @0xf1
0x3a00…79b3 at0141 = SetBufferAddress {ic=11, line=0x06, col=0x04} // 0x3b71 @0x141
0x3a00…79b3 at0144 = »Use option 2 to discard any specifications which SDA may have generated. « // 0x3b74 @0x144
0x3a00…79b3 at0191 = » If you select this option, no additions or changes are made to members « // 0x3bc1 @0x191
0x3a00…79b3 at01e1 = » in the designated output library. « // 0x3c11 @0x1e1
0x3a00…79b3 at0231 = » « // 0x3c61 @0x231
0x3a00…79b3 at0281 = SetBufferAddress {ic=11, line=0x0a, col=0x04} // 0x3cb1 @0x281
0x3a00…79b3 at0284 = »Use option 1 to save the specifications generated by SDA. « // 0x3cb4 @0x284
0x3a00…79b3 at02d1 = » When you use this option, SDA puts WSU program specifications « // 0x3d01 @0x2d1
0x3a00…79b3 at0321 = » into a new or replaced source member in the designated output library. « // 0x3d51 @0x321
0x3a00…79b3 at0371 = » SDA performs any requested printing at this time, and then « // 0x3da1 @0x371
0x3a00…79b3 at03c1 = » optionally evokes WSU to compile the generated program. « // 0x3df1 @0x3c1
0x3a00…79b3 at0411 = » Option 1 is not allowed if you pressed CMD7 during the generation « // 0x3e41 @0x411
0x3a00…79b3 at0461 = » prompt sequence. « // 0x3e91 @0x461
0x3a00…79b3 at04b1 = » « // 0x3ee1 @0x4b1
0x3a00…79b3 at0501 = SetBufferAddress {ic=11, line=0x18, col=0x02} // 0x3f31 @0x501
0x3a00…79b3 at0504 = »ROLL UP/DOWN-Scan help text ENTER-End help « // 0x3f34 @0x504
0x3a00…79b3 at053d = SetBufferAddress {ic=11, line=0x18, col=0x3e} // 0x3f6d @0x53d
0x3a00…79b3 at0540 = »(c) 1983 IBM Corp. « // 0x3f70 @0x540
0x3a00…79b3 }
0x3a00…79b3 }
0x3a00…79b3 }
0x4000…8556 Form36 {
0x4000…8556 fh000 = 0x01 // 0x4000 @0x0
0x4000…8556 fh00 = 2600 // 0x4001 @0x1
0x4000…8556 fh01 = »NNN« // 0x4003 @0x3
0x4000…8556 fh02 = 000000 // 0x4006 @0x6
0x4000…8556 fh03 = »NNN« // 0x4009 @0x9
0x4000…8556 fh04 = 0x0050 // 0x400c @0xc
0x4000…8556 fh05 = 0x04b6 // 0x400e @0xe
0x4000…8556 fh06 = 000080011800000000000000000000000000 // 0x4010 @0x10
0x4000…8556 at0022 = 0x00000063 // 0x4022 @0x22
0x4000…8556 at0026 = Form36LV {f00=0x51, f01=0x12, f22=027900080010, f23=0a4300, f24=»N«, f25=00, f26=»N«, f27=00, f28=»NNN«} // 0x4026 @0x26
0x4000…8556 at0038 = Form36LV {f00=0x51, f01=0x12, f22=02c500080010, f23=0b4300, f24=»N«, f25=00, f26=»N«, f27=00, f28=»NNN«} // 0x4038 @0x38
0x4000…8556 at004a = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x404a @0x4a
0x4000…8556 panel = { // 0x4050 @0x50
0x4000…8556 ┌────────────────────────────────────────────────────────────────────────────────┐
0x4000…8556 00│ ╳ HELP TEXT FOR END OF WSU GENERATION ╳ Page 2 of 3 │
0x4000…8556 01│ │
0x4000…8556 02│ When you select option 1 from SDA's End of WSU Program Generation display, │
0x4000…8556 03│ use the name prompts shown below to indicate which library and which │
0x4000…8556 04│ source member in it should contain the WSU specifications which SDA has │
0x4000…8556 05│ generated. The contents of an exisiting member are replaced. │
0x4000…8556 06│ Default names are supplied. │
0x4000…8556 07│ │
0x4000…8556 08│ │
0x4000…8556 09│ Name the output source library . . . . . . . . . . . . . . .╳ ╳ │
0x4000…8556 10│ Name the output source member. . . . . . . . . . . . . . . .╳ ╳ │
0x4000…8556 11│ │
0x4000…8556 12│ Supply the name of an existing library. Supply the name of an old or new │
0x4000…8556 13│ source member. The member name can contain up to eight characters. │
0x4000…8556 14│ The first character must be alphabetic. Do not use ALL, NEW, DIR, or │
0x4000…8556 15│ SYSTEM to define a new name. │
0x4000…8556 16│ │
0x4000…8556 17│ │
0x4000…8556 18│ │
0x4000…8556 19│ │
0x4000…8556 20│ │
0x4000…8556 21│ │
0x4000…8556 22│ │
0x4000…8556 23│ ROLL UP/DOWN-Scan help text ENTER-End help (c) 1983 IBM Corp. │
0x4000…8556 24│ │
0x4000…8556 25│ │
0x4000…8556 26│ │
0x4000…8556 27│ │
0x4000…8556 └────────────────────────────────────────────────────────────────────────────────┘
0x4000…8556 Panel5250 {
0x4000…8556 at0000 = ClearUnit {esc=04, cu=40} // 0x4050 @0x0
0x4000…8556 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x4052 @0x2
0x4000…8556 at0006 = SetBufferAddress {ic=11, line=0x01, col=0x03} // 0x4056 @0x6
0x4000…8556 at0009 = Attribute {type=0x22} // 0x4059 @0x9
0x4000…8556 at000a = » HELP TEXT FOR END OF WSU GENERATION « // 0x405a @0xa
0x4000…8556 at0045 = Attribute {type=0x20} // 0x4095 @0x45
0x4000…8556 at0046 = SetBufferAddress {ic=11, line=0x01, col=0x41} // 0x4096 @0x46
0x4000…8556 at0049 = » Page 2 of 3 « // 0x4099 @0x49
0x4000…8556 at0058 = SetBufferAddress {ic=11, line=0x03, col=0x02} // 0x40a8 @0x58
0x4000…8556 at005b = »When you select option 1 from SDA's End of WSU Program Generation display, « // 0x40ab @0x5b
0x4000…8556 at00aa = » use the name prompts shown below to indicate which library and which « // 0x40fa @0xaa
0x4000…8556 at00fa = » source member in it should contain the WSU specifications which SDA has « // 0x414a @0xfa
0x4000…8556 at014a = » generated. The contents of an exisiting member are replaced. « // 0x419a @0x14a
0x4000…8556 at019a = » Default names are supplied. « // 0x41ea @0x19a
0x4000…8556 at01ea = » « // 0x423a @0x1ea
0x4000…8556 at023a = SetBufferAddress {ic=11, line=0x0a, col=0x06} // 0x428a @0x23a
0x4000…8556 at023d = »Name the output source library . . . . . . . . . . . . . . .« // 0x428d @0x23d
0x4000…8556 at0279 = SetBufferAddress {ic=11, line=0x0a, col=0x42} // 0x42c9 @0x279
0x4000…8556 at027c = Attribute {type=0x30} // 0x42cc @0x27c
0x4000…8556 at027d = » « // 0x42cd @0x27d
0x4000…8556 at0285 = Attribute {type=0x20} // 0x42d5 @0x285
0x4000…8556 at0286 = SetBufferAddress {ic=11, line=0x0b, col=0x06} // 0x42d6 @0x286
0x4000…8556 at0289 = »Name the output source member. . . . . . . . . . . . . . . .« // 0x42d9 @0x289
0x4000…8556 at02c5 = SetBufferAddress {ic=11, line=0x0b, col=0x42} // 0x4315 @0x2c5
0x4000…8556 at02c8 = Attribute {type=0x30} // 0x4318 @0x2c8
0x4000…8556 at02c9 = » « // 0x4319 @0x2c9
0x4000…8556 at02d1 = Attribute {type=0x20} // 0x4321 @0x2d1
0x4000…8556 at02d2 = SetBufferAddress {ic=11, line=0x0d, col=0x02} // 0x4322 @0x2d2
0x4000…8556 at02d5 = »Supply the name of an existing library. Supply the name of an old or new « // 0x4325 @0x2d5
0x4000…8556 at0324 = » source member. The member name can contain up to eight characters. « // 0x4374 @0x324
0x4000…8556 at0374 = » The first character must be alphabetic. Do not use ALL, NEW, DIR, or « // 0x43c4 @0x374
0x4000…8556 at03c4 = » SYSTEM to define a new name. « // 0x4414 @0x3c4
0x4000…8556 at0414 = » « // 0x4464 @0x414
0x4000…8556 at0464 = SetBufferAddress {ic=11, line=0x18, col=0x02} // 0x44b4 @0x464
0x4000…8556 at0467 = »ROLL UP/DOWN-Scan help text ENTER-End help « // 0x44b7 @0x467
0x4000…8556 at04a0 = SetBufferAddress {ic=11, line=0x18, col=0x3e} // 0x44f0 @0x4a0
0x4000…8556 at04a3 = »(c) 1983 IBM Corp. « // 0x44f3 @0x4a3
0x4000…8556 }
0x4000…8556 }
0x4000…8556 }
0x4600…9148 Form36 {
0x4600…9148 fh000 = 0x01 // 0x4600 @0x0
0x4600…9148 fh00 = 2600 // 0x4601 @0x1
0x4600…9148 fh01 = »NNN« // 0x4603 @0x3
0x4600…9148 fh02 = 000000 // 0x4606 @0x6
0x4600…9148 fh03 = »NNN« // 0x4609 @0x9
0x4600…9148 fh04 = 0x0050 // 0x460c @0xc
0x4600…9148 fh05 = 0x04a8 // 0x460e @0xe
0x4600…9148 fh06 = 000080011800000000000000000000000000 // 0x4610 @0x10
0x4600…9148 at0022 = 0x00000063 // 0x4622 @0x22
0x4600…9148 at0026 = Form36LV {f00=0x51, f01=0x12, f22=022900010010, f23=094300, f24=»N«, f25=00, f26=»N«, f27=00, f28=»NNN«} // 0x4626 @0x26
0x4600…9148 at0038 = Form36LV {f00=0x51, f01=0x12, f22=026e00010010, f23=0a4300, f24=»N«, f25=00, f26=»N«, f27=00, f28=»NNN«} // 0x4638 @0x38
0x4600…9148 at004a = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x464a @0x4a
0x4600…9148 panel = { // 0x4650 @0x50
0x4600…9148 ┌────────────────────────────────────────────────────────────────────────────────┐
0x4600…9148 00│ ╳ HELP TEXT FOR END OF WSU GENERATION ╳ Page 3 of 3 │
0x4600…9148 01│ │
0x4600…9148 02│ When you select option 1 from SDA's End of WSU Program Generation display, │
0x4600…9148 03│ indicate whether the specifications which are being placed in the │
0x4600…9148 04│ source member should be printed. If so, respond with a Y to the │
0x4600…9148 05│ print prompt shown below. │
0x4600…9148 06│ │
0x4600…9148 07│ │
0x4600…9148 08│ Print program source specifications. . . . . . . . . . Y,N╳N╳ │
0x4600…9148 09│ Compile the source program (evoke WSU) . . . . . 0,1,2,Y,N╳N╳ │
0x4600…9148 10│ │
0x4600…9148 11│ Additionally, you may indicate whether the source member should be compiled. │
0x4600…9148 12│ To do so, use responses 0, 1, 2, or Y. Responses 0, 1, and 2 are cross- │
0x4600…9148 13│ reference levels for the WSU procedure which control the amount of │
0x4600…9148 14│ printing done by the WSU compiler (0 is least, 2 is most). The Y │
0x4600…9148 15│ response corresponds to cross-reference level 1. │
0x4600…9148 16│ │
0x4600…9148 17│ │
0x4600…9148 18│ │
0x4600…9148 19│ │
0x4600…9148 20│ │
0x4600…9148 21│ │
0x4600…9148 22│ │
0x4600…9148 23│ ROLL UP/DOWN-Scan help text ENTER-End help (c) 1983 IBM Corp. │
0x4600…9148 24│ │
0x4600…9148 25│ │
0x4600…9148 26│ │
0x4600…9148 27│ │
0x4600…9148 └────────────────────────────────────────────────────────────────────────────────┘
0x4600…9148 Panel5250 {
0x4600…9148 at0000 = ClearUnit {esc=04, cu=40} // 0x4650 @0x0
0x4600…9148 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x4652 @0x2
0x4600…9148 at0006 = SetBufferAddress {ic=11, line=0x01, col=0x03} // 0x4656 @0x6
0x4600…9148 at0009 = Attribute {type=0x22} // 0x4659 @0x9
0x4600…9148 at000a = » HELP TEXT FOR END OF WSU GENERATION « // 0x465a @0xa
0x4600…9148 at0045 = Attribute {type=0x20} // 0x4695 @0x45
0x4600…9148 at0046 = SetBufferAddress {ic=11, line=0x01, col=0x41} // 0x4696 @0x46
0x4600…9148 at0049 = » Page 3 of 3 « // 0x4699 @0x49
0x4600…9148 at0058 = SetBufferAddress {ic=11, line=0x03, col=0x02} // 0x46a8 @0x58
0x4600…9148 at005b = »When you select option 1 from SDA's End of WSU Program Generation display, « // 0x46ab @0x5b
0x4600…9148 at00aa = » indicate whether the specifications which are being placed in the « // 0x46fa @0xaa
0x4600…9148 at00fa = » source member should be printed. If so, respond with a Y to the « // 0x474a @0xfa
0x4600…9148 at014a = » print prompt shown below. « // 0x479a @0x14a
0x4600…9148 at019a = » « // 0x47ea @0x19a
0x4600…9148 at01ea = SetBufferAddress {ic=11, line=0x09, col=0x06} // 0x483a @0x1ea
0x4600…9148 at01ed = » Print program source specifications. . . . . . . . . . Y,N« // 0x483d @0x1ed
0x4600…9148 at0229 = SetBufferAddress {ic=11, line=0x09, col=0x42} // 0x4879 @0x229
0x4600…9148 at022c = Attribute {type=0x30} // 0x487c @0x22c
0x4600…9148 at022d = »N« // 0x487d @0x22d
0x4600…9148 at022e = Attribute {type=0x20} // 0x487e @0x22e
0x4600…9148 at022f = SetBufferAddress {ic=11, line=0x0a, col=0x06} // 0x487f @0x22f
0x4600…9148 at0232 = » Compile the source program (evoke WSU) . . . . . 0,1,2,Y,N« // 0x4882 @0x232
0x4600…9148 at026e = SetBufferAddress {ic=11, line=0x0a, col=0x42} // 0x48be @0x26e
0x4600…9148 at0271 = Attribute {type=0x30} // 0x48c1 @0x271
0x4600…9148 at0272 = »N« // 0x48c2 @0x272
0x4600…9148 at0273 = Attribute {type=0x20} // 0x48c3 @0x273
0x4600…9148 at0274 = SetBufferAddress {ic=11, line=0x0c, col=0x02} // 0x48c4 @0x274
0x4600…9148 at0277 = »Additionally, you may indicate whether the source member should be compiled. « // 0x48c7 @0x277
0x4600…9148 at02c6 = » To do so, use responses 0, 1, 2, or Y. Responses 0, 1, and 2 are cross- « // 0x4916 @0x2c6
0x4600…9148 at0316 = » reference levels for the WSU procedure which control the amount of « // 0x4966 @0x316
0x4600…9148 at0366 = » printing done by the WSU compiler (0 is least, 2 is most). The Y « // 0x49b6 @0x366
0x4600…9148 at03b6 = » response corresponds to cross-reference level 1. « // 0x4a06 @0x3b6
0x4600…9148 at0406 = » « // 0x4a56 @0x406
0x4600…9148 at0456 = SetBufferAddress {ic=11, line=0x18, col=0x02} // 0x4aa6 @0x456
0x4600…9148 at0459 = »ROLL UP/DOWN-Scan help text ENTER-End help « // 0x4aa9 @0x459
0x4600…9148 at0492 = SetBufferAddress {ic=11, line=0x18, col=0x3e} // 0x4ae2 @0x492
0x4600…9148 at0495 = »(c) 1983 IBM Corp. « // 0x4ae5 @0x495
0x4600…9148 }
0x4600…9148 }
0x4600…9148 }
0x4b00…9b61 Form36 {
0x4b00…9b61 fh000 = 0x01 // 0x4b00 @0x0
0x4b00…9b61 fh00 = 2600 // 0x4b01 @0x1
0x4b00…9b61 fh01 = »NNN« // 0x4b03 @0x3
0x4b00…9b61 fh02 = 000000 // 0x4b06 @0x6
0x4b00…9b61 fh03 = »NNN« // 0x4b09 @0x9
0x4b00…9b61 fh04 = 0x0030 // 0x4b0c @0xc
0x4b00…9b61 fh05 = 0x0501 // 0x4b0e @0xe
0x4b00…9b61 fh06 = 000080011800000000000000000000000000 // 0x4b10 @0x10
0x4b00…9b61 at0022 = 0x00000063 // 0x4b22 @0x22
0x4b00…9b61 at0026 = Form36LV {f00=0xfe, f01=0x0a, f88=00000000000000, f89=09} // 0x4b26 @0x26
0x4b00…9b61 panel = { // 0x4b30 @0x30
0x4b00…9b61 ┌────────────────────────────────────────────────────────────────────────────────┐
0x4b00…9b61 00│ ╳ HELP TEXT FOR END OF PRINT ╳ Page 1 of 2 │
0x4b00…9b61 01│ │
0x4b00…9b61 02│ You have indicated that no more print selections are to be made. │
0x4b00…9b61 03│ Before continuing, indicate how SDA should process your selections: │
0x4b00…9b61 04│ │
0x4b00…9b61 05│ Use option 0 to return to the Print Selection/Format Name List display. │
0x4b00…9b61 06│ There you may continue to select formats for printing. │
0x4b00…9b61 07│ │
0x4b00…9b61 08│ Use option 2 to discard your selections. If you choose this option, │
0x4b00…9b61 09│ no printing is done. │
0x4b00…9b61 10│ │
0x4b00…9b61 11│ Use option 1 to cause SDA to perform your print requests. │
0x4b00…9b61 12│ You need to identify whether the formats being printed are WSU │
0x4b00…9b61 13│ formats, whether you want SDA to print a border around format │
0x4b00…9b61 14│ images, and where on the page you want printed output to appear. │
0x4b00…9b61 15│ │
0x4b00…9b61 16│ │
0x4b00…9b61 17│ │
0x4b00…9b61 18│ │
0x4b00…9b61 19│ │
0x4b00…9b61 20│ │
0x4b00…9b61 21│ │
0x4b00…9b61 22│ │
0x4b00…9b61 23│ ROLL UP/DOWN-Scan help text ENTER-End help (c) 1983 IBM Corp. │
0x4b00…9b61 24│ │
0x4b00…9b61 25│ │
0x4b00…9b61 26│ │
0x4b00…9b61 27│ │
0x4b00…9b61 └────────────────────────────────────────────────────────────────────────────────┘
0x4b00…9b61 Panel5250 {
0x4b00…9b61 at0000 = ClearUnit {esc=04, cu=40} // 0x4b30 @0x0
0x4b00…9b61 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x4b32 @0x2
0x4b00…9b61 at0006 = SetBufferAddress {ic=11, line=0x01, col=0x0c} // 0x4b36 @0x6
0x4b00…9b61 at0009 = Attribute {type=0x22} // 0x4b39 @0x9
0x4b00…9b61 at000a = » HELP TEXT FOR END OF PRINT « // 0x4b3a @0xa
0x4b00…9b61 at003a = Attribute {type=0x20} // 0x4b6a @0x3a
0x4b00…9b61 at003b = SetBufferAddress {ic=11, line=0x01, col=0x41} // 0x4b6b @0x3b
0x4b00…9b61 at003e = » Page 1 of 2 « // 0x4b6e @0x3e
0x4b00…9b61 at004d = SetBufferAddress {ic=11, line=0x03, col=0x02} // 0x4b7d @0x4d
0x4b00…9b61 at0050 = »You have indicated that no more print selections are to be made. « // 0x4b80 @0x50
0x4b00…9b61 at009f = » Before continuing, indicate how SDA should process your selections: « // 0x4bcf @0x9f
0x4b00…9b61 at00ef = » « // 0x4c1f @0xef
0x4b00…9b61 at013f = SetBufferAddress {ic=11, line=0x06, col=0x04} // 0x4c6f @0x13f
0x4b00…9b61 at0142 = »Use option 0 to return to the Print Selection/Format Name List display. « // 0x4c72 @0x142
0x4b00…9b61 at018f = » There you may continue to select formats for printing. « // 0x4cbf @0x18f
0x4b00…9b61 at01df = » « // 0x4d0f @0x1df
0x4b00…9b61 at022f = SetBufferAddress {ic=11, line=0x09, col=0x04} // 0x4d5f @0x22f
0x4b00…9b61 at0232 = »Use option 2 to discard your selections. If you choose this option, « // 0x4d62 @0x232
0x4b00…9b61 at027f = » no printing is done. « // 0x4daf @0x27f
0x4b00…9b61 at02cf = » « // 0x4dff @0x2cf
0x4b00…9b61 at031f = SetBufferAddress {ic=11, line=0x0c, col=0x04} // 0x4e4f @0x31f
0x4b00…9b61 at0322 = »Use option 1 to cause SDA to perform your print requests. « // 0x4e52 @0x322
0x4b00…9b61 at036f = » You need to identify whether the formats being printed are WSU « // 0x4e9f @0x36f
0x4b00…9b61 at03bf = » formats, whether you want SDA to print a border around format « // 0x4eef @0x3bf
0x4b00…9b61 at040f = » images, and where on the page you want printed output to appear. « // 0x4f3f @0x40f
0x4b00…9b61 at045f = » « // 0x4f8f @0x45f
0x4b00…9b61 at04af = SetBufferAddress {ic=11, line=0x18, col=0x02} // 0x4fdf @0x4af
0x4b00…9b61 at04b2 = »ROLL UP/DOWN-Scan help text ENTER-End help « // 0x4fe2 @0x4b2
0x4b00…9b61 at04eb = SetBufferAddress {ic=11, line=0x18, col=0x3e} // 0x501b @0x4eb
0x4b00…9b61 at04ee = »(c) 1983 IBM Corp. « // 0x501e @0x4ee
0x4b00…9b61 }
0x4b00…9b61 }
0x4b00…9b61 }
0x5100…a7b0 Form36 {
0x5100…a7b0 fh000 = 0x01 // 0x5100 @0x0
0x5100…a7b0 fh00 = 2600 // 0x5101 @0x1
0x5100…a7b0 fh01 = »NNN« // 0x5103 @0x3
0x5100…a7b0 fh02 = 000000 // 0x5106 @0x6
0x5100…a7b0 fh03 = »NNN« // 0x5109 @0x9
0x5100…a7b0 fh04 = 0x0060 // 0x510c @0xc
0x5100…a7b0 fh05 = 0x04f0 // 0x510e @0xe
0x5100…a7b0 fh06 = 000080011800000000000000000000000000 // 0x5110 @0x10
0x5100…a7b0 at0022 = 0x00000063 // 0x5122 @0x22
0x5100…a7b0 at0026 = Form36LV {f00=0x51, f01=0x12, f22=009000010010, f23=034900, f24=»N«, f25=00, f26=»N«, f27=00, f28=»NNN«} // 0x5126 @0x26
0x5100…a7b0 at0038 = Form36LV {f00=0x51, f01=0x12, f22=021c00010010, f23=0a4900, f24=»N«, f25=00, f26=»N«, f27=00, f28=»NNN«} // 0x5138 @0x38
0x5100…a7b0 at004a = Form36LV {f00=0x51, f01=0x12, f22=026600020010, f23=0b4900, f24=»N«, f25=00, f26=»N«, f27=00, f28=»NNN«} // 0x514a @0x4a
0x5100…a7b0 at005c = Form36LV {f00=0xfe, f01=0x04, f88=00, f89=03} // 0x515c @0x5c
0x5100…a7b0 panel = { // 0x5160 @0x60
0x5100…a7b0 ┌────────────────────────────────────────────────────────────────────────────────┐
0x5100…a7b0 00│ ╳ HELP TEXT FOR END OF PRINT ╳ Page 2 of 2 │
0x5100…a7b0 01│ │
0x5100…a7b0 02│ Indicate if selected formats were designed for WSU . . . . . . Y,N╳N╳ │
0x5100…a7b0 03│ │
0x5100…a7b0 04│ When you select option 1 from SDA's End of Print display, indicate whether │
0x5100…a7b0 05│ the type of specifications being printed are for WSU formats. If so, │
0x5100…a7b0 06│ use the Y response for the WSU formats prompt shown above. │
0x5100…a7b0 07│ │
0x5100…a7b0 08│ │
0x5100…a7b0 09│ Print borders around display images . . . . . . . . . . . . . Y,N╳Y╳ │
0x5100…a7b0 10│ Indent all printed output . . . . . . . . . . . . . . . . . .2-35╳2 ╳ │
0x5100…a7b0 11│ │
0x5100…a7b0 12│ Using the prompts shown above, you may indicate whether to print a border │
0x5100…a7b0 13│ (shows line and column numbers) around any format images being printed, │
0x5100…a7b0 14│ or you may decide to indent printed output. Valid indentation numbers │
0x5100…a7b0 15│ start at 2 and cannot exceed 35. For 132-column screen formats, borders │
0x5100…a7b0 16│ will only be printed above and below the screen image and indentation │
0x5100…a7b0 17│ will be ignored. │
0x5100…a7b0 18│ │
0x5100…a7b0 19│ │
0x5100…a7b0 20│ │
0x5100…a7b0 21│ │
0x5100…a7b0 22│ │
0x5100…a7b0 23│ ROLL UP/DOWN-Scan help text ENTER-End help (c) 1983 IBM Corp. │
0x5100…a7b0 24│ │
0x5100…a7b0 25│ │
0x5100…a7b0 26│ │
0x5100…a7b0 27│ │
0x5100…a7b0 └────────────────────────────────────────────────────────────────────────────────┘
0x5100…a7b0 Panel5250 {
0x5100…a7b0 at0000 = ClearUnit {esc=04, cu=40} // 0x5160 @0x0
0x5100…a7b0 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x5162 @0x2
0x5100…a7b0 at0006 = SetBufferAddress {ic=11, line=0x01, col=0x10} // 0x5166 @0x6
0x5100…a7b0 at0009 = Attribute {type=0x22} // 0x5169 @0x9
0x5100…a7b0 at000a = » HELP TEXT FOR END OF PRINT « // 0x516a @0xa
0x5100…a7b0 at0038 = Attribute {type=0x20} // 0x5198 @0x38
0x5100…a7b0 at0039 = SetBufferAddress {ic=11, line=0x01, col=0x41} // 0x5199 @0x39
0x5100…a7b0 at003c = » Page 2 of 2 « // 0x519c @0x3c
0x5100…a7b0 at004b = SetBufferAddress {ic=11, line=0x03, col=0x06} // 0x51ab @0x4b
0x5100…a7b0 at004e = »Indicate if selected formats were designed for WSU . . . . . . Y,N« // 0x51ae @0x4e
0x5100…a7b0 at0090 = SetBufferAddress {ic=11, line=0x03, col=0x48} // 0x51f0 @0x90
0x5100…a7b0 at0093 = Attribute {type=0x30} // 0x51f3 @0x93
0x5100…a7b0 at0094 = »N« // 0x51f4 @0x94
0x5100…a7b0 at0095 = Attribute {type=0x20} // 0x51f5 @0x95
0x5100…a7b0 at0096 = SetBufferAddress {ic=11, line=0x05, col=0x02} // 0x51f6 @0x96
0x5100…a7b0 at0099 = »When you select option 1 from SDA's End of Print display, indicate whether « // 0x51f9 @0x99
0x5100…a7b0 at00e8 = » the type of specifications being printed are for WSU formats. If so, « // 0x5248 @0xe8
0x5100…a7b0 at0138 = » use the Y response for the WSU formats prompt shown above. « // 0x5298 @0x138
0x5100…a7b0 at0188 = » « // 0x52e8 @0x188
0x5100…a7b0 at01d8 = SetBufferAddress {ic=11, line=0x0a, col=0x07} // 0x5338 @0x1d8
0x5100…a7b0 at01db = »Print borders around display images . . . . . . . . . . . . . Y,N« // 0x533b @0x1db
0x5100…a7b0 at021c = SetBufferAddress {ic=11, line=0x0a, col=0x48} // 0x537c @0x21c
0x5100…a7b0 at021f = Attribute {type=0x30} // 0x537f @0x21f
0x5100…a7b0 at0220 = »Y« // 0x5380 @0x220
0x5100…a7b0 at0221 = Attribute {type=0x20} // 0x5381 @0x221
0x5100…a7b0 at0222 = SetBufferAddress {ic=11, line=0x0b, col=0x07} // 0x5382 @0x222
0x5100…a7b0 at0225 = »Indent all printed output . . . . . . . . . . . . . . . . . .2-35« // 0x5385 @0x225
0x5100…a7b0 at0266 = SetBufferAddress {ic=11, line=0x0b, col=0x48} // 0x53c6 @0x266
0x5100…a7b0 at0269 = Attribute {type=0x30} // 0x53c9 @0x269
0x5100…a7b0 at026a = »2 « // 0x53ca @0x26a
0x5100…a7b0 at026c = Attribute {type=0x20} // 0x53cc @0x26c
0x5100…a7b0 at026d = SetBufferAddress {ic=11, line=0x0d, col=0x02} // 0x53cd @0x26d
0x5100…a7b0 at0270 = »Using the prompts shown above, you may indicate whether to print a border « // 0x53d0 @0x270
0x5100…a7b0 at02bf = » (shows line and column numbers) around any format images being printed, « // 0x541f @0x2bf
0x5100…a7b0 at030f = » or you may decide to indent printed output. Valid indentation numbers « // 0x546f @0x30f
0x5100…a7b0 at035f = » start at 2 and cannot exceed 35. For 132-column screen formats, borders « // 0x54bf @0x35f
0x5100…a7b0 at03af = » will only be printed above and below the screen image and indentation « // 0x550f @0x3af
0x5100…a7b0 at03ff = » will be ignored. « // 0x555f @0x3ff
0x5100…a7b0 at044f = » « // 0x55af @0x44f
0x5100…a7b0 at049e = SetBufferAddress {ic=11, line=0x18, col=0x02} // 0x55fe @0x49e
0x5100…a7b0 at04a1 = »ROLL UP/DOWN-Scan help text ENTER-End help « // 0x5601 @0x4a1
0x5100…a7b0 at04da = SetBufferAddress {ic=11, line=0x18, col=0x3e} // 0x563a @0x4da
0x5100…a7b0 at04dd = »(c) 1983 IBM Corp. « // 0x563d @0x4dd
0x5100…a7b0 }
0x5100…a7b0 }
0x5100…a7b0 }