|
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: 28160 (0x6e00)
Notes: FORM36, MEMBER_O
Names: »#RP@FMTS«
└─⟦ce1fc3cee⟧ Bits:30009814 REF.NO PWD33 PGM 5727-RG6 FEAT9074 RPG II US Z250-0040-2 REV/LEV 05.01 SEQ. 1/1 DISKET 2S 96TPI INTERNAL 88.05.24 31
└─⟦6ee5d0e69⟧
└─⟦this⟧ ».#RP@FMTS«
FormPointer36 {name=»RPGONL1 «, f1=0x00, start=0x0002, length=0x06, f5=0x00, f6=0x00, f7=0x21, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ RPGONL PROCEDURE Optional-* │
01│ │
02│ RPG II interactive program-development procedure │
03│ │
04│ │
05│ Name of source program to be compiled . . . . . . . . . . . . ␣␣␣␣␣␣␣␣┴┤ │
06│ │
07│ Name of library containing program to be compiled . . . . . . ␣␣␣␣␣␣␣␣┴┤ │
08│ │
09│ Name of library to contain compiled program . . . . . . . . . ␣␣␣␣␣␣␣␣┴┤ * │
10│ │
11│ Name of data dictionary to be used . . . . . . . . . . . . . . ␣␣␣␣␣␣␣␣┴┤ * │
12│ │
13│ Create or change source before first compilation? . . . . Y,N Y┴┤ │
14│ │
15│ │
16│ │
17│ │
18│ │
19│ │
20│ │
21│ │
22│ Cmd3-Previous menu Cmd7-End Cmd14-Compiler options (c) 1985 IBM Corp.╳│
23│␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣╳ │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»RPGONLO1«, f1=0x00, start=0x0008, length=0x09, f5=0x00, f6=0x00, f7=0x42, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ RPGONL PROCEDURE Optional-* │
01│ │
02│ RPG II compiler options │
03│ │
04│ ╳␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣╳ │
05│ │
06│ Override print option in source . . . SOURCE,NOSOURCE,PSOURCE ␣␣␣␣␣␣␣␣┴┤ * │
07│ Override debug option in source . . . . . . . . DEBUG,NODEBUG ␣␣␣␣␣␣␣┴┤ * │
08│ Override size-to-execute option in source . . . . . . . 2-64 ␣␣┴┤ * │
09│ Create cross-reference listing . . . . . . . . . . NOXREF,XREF NOXREF┴┤ │
10│ Create program that can be run . . . . . . . . . . LINK,NOLINK LINK ┴┤ │
11│ Create program that must be │
12│ link-edited . . . . . . . . . . . . . . . . NOOBJECT,OBJECT NOOBJECT┴┤ │
13│ Name of subroutine input library . . . . . . . . . . . . . . . ␣␣␣␣␣␣␣␣┴┤ * │
14│ Never-ending program . . . . . . . . . . . . . . . . NONEP,NEP NONEP┴┤ │
15│ Maximum number of │
16│ requesting display stations. . . . . . . . . . . . . . 0-99 0 ┴┤ │
17│ Generate CONSOLE file display formats . . . . . . . GEN,NOGEN GEN ┴┤ │
18│ Size of work files in blocks . . . . . . . . . . . . . 1-9999 40 ┴┤ │
19│ Create program with │
20│ memory resident overlays . . . . . . . . . . . . . NOMRO,MRO NOMRO┴┤ │
21│ │
22│ Cmd2-Page back Cmd7-End (c) 1985 IBM Corp.╳│
23│␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣╳ │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»RPGONLO2«, f1=0x00, start=0x0011, length=0x09, f5=0x00, f6=0x00, f7=0x42, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ RPGONL PROCEDURE Optional-* │
01│ │
02│ RPG II compiler options │
03│ │
04│ ╳␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣╳ │
05│ │
06│ Override print option in source . . . SOURCE,NOSOURCE,PSOURCE ␣␣␣␣␣␣␣␣┴┤ * │
07│ Override debug option in source . . . . . . . . DEBUG,NODEBUG ␣␣␣␣␣␣␣┴┤ * │
08│ Override size-to-execute option in source . . . . . . . 2-64 ␣␣┴┤ * │
09│ Create cross-reference listing . . . . . . . . . . NOXREF,XREF NOXREF┴┤ │
10│ Create program that can be run . . . . . . . . . . LINK,NOLINK LINK ┴┤ │
11│ Create program that must be │
12│ link-edited . . . . . . . . . . . . . . . . NOOBJECT,OBJECT NOOBJECT┴┤ │
13│ Name of subroutine input library . . . . . . . . . . . . . . . ␣␣␣␣␣␣␣␣┴┤ * │
14│ Never-ending program . . . . . . . . . . . . . . . . NONEP,NEP NONEP┴┤ │
15│ Maximum number of │
16│ requesting display stations. . . . . . . . . . . . . . 0-99 0 ┴┤ │
17│ Generate CONSOLE file display formats . . . . . . . GEN,NOGEN GEN ┴┤ │
18│ Size of work files in blocks . . . . . . . . . . . . . 1-9999 40 ┴┤ │
19│ Create program with │
20│ memory resident overlays . . . . . . . . . . . . . NOMRO,MRO NOMRO┴┤ │
21│ │
22│ Cmd7-End (c) 1985 IBM Corp.╳│
23│␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣╳ │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»RPGONLC «, f1=0x00, start=0x001a, length=0x05, f5=0x00, f6=0x00, f7=0x02, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ RPGONL PROCEDURE │
01│ │
02│ Continuation options │
03│ │
04│ │
05│ Would you like to view the compiler listing? . . . Y,N N┴┤ │
06│ │
07│ Would you like to recompile the source program? . . Y,N Y┴┤ │
08│ │
09│ --------------------------------------------------------------------------- │
10│ │
11│ │
12│ Source program . . . . . . . . . ╳␣␣␣␣␣␣␣␣╳ │
13│ Input library . . . . . . . . . . ╳␣␣␣␣␣␣␣␣╳ │
14│ Output library . . . . . . . . . ╳␣␣␣␣␣␣␣␣╳ │
15│ Data dictionary . . . . . . . . . ╳␣␣␣␣␣␣␣␣╳ │
16│ │
17│ │
18│ │
19│ │
20│ │
21│ Cmd1-Work with different member Cmd7-End │
22│ Cmd14-Compiler options (c) 1985 IBM Corp.╳│
23│␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣╳ │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HELP0101«, f1=0x00, start=0x001f, length=0x05, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ HELP FOR RPGONL PROCEDURE Page 1 of 13 │
01│ │
02│╳DESCRIPTION ╳ │
03│ │
04│ The RPG II interactive program development procedure (RPGONL) │
05│ lets you create error-free RPG II programs without leaving the │
06│ display station. With this procedure you can create RPG II │
07│ programs, compile these programs, correct errors detected by │
08│ the system, and then recompile the corrected programs. Because │
09│ this procedure is interactive, you can continue to recompile │
10│ a program as many times as you wish. In addition, the system │
11│ "remembers" the compiler options you chose for the previous │
12│ compilation, so you have to type these options only once. │
13│ │
14│ │
15│ │
16│ │
17│ │
18│ │
19│ │
20│ │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text (C) 1985 IBM CORP. │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HELP0102«, f1=0x00, start=0x0024, length=0x07, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ HELP FOR RPGONL PROCEDURE Page 2 of 13 │
01│ │
02│ There are four steps in the RPGONL procedure. │
03│ │
04│ The first step is to respond to the options on the first two displays. │
05│ These options are described later in this help text. │
06│ │
07│ The second step depends on your response to the fourth prompt on the │
08│ first display (Create or change source before first compilation?). │
09│ │
10│ If you entered Y, RPG calls DSU/SEU now, allowing you to create or │
11│ update an RPG II source member. When you finish using DSU/SEU and │
12│ press Cmd7, the source program is compiled. │
13│ │
14│ If you entered N, the existing source program is compiled and │
15│ the DSU/SEU step is skipped. When the compilation is complete, the │
16│ system replaces the existing program with the newly compiled │
17│ program. No message is displayed. │
18│ │
19│ │
20│ │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text (c) 1985 IBM Corp. │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HELP0103«, f1=0x00, start=0x002b, length=0x07, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ HELP FOR RPGONL PROCEDURE Page 3 of 13 │
01│ │
02│ The third step is a display of your source program with all error │
03│ messages (denoted by ?? in columns 1-2) inserted immediately │
04│ before the statement in error. At this time you can correct these │
05│ statements. Use Cmd7 to end DSU/SEU. On the DSU/SEU end-of-job │
06│ display, you can request that all diagnostics be removed from the │
07│ source program. │
08│ │
09│ │
10│ The fourth step is that the Continuation options display appears. │
11│ On this display you can choose to do the following: │
12│ │
13│ 1) View at your display station the compiler listing for the │
14│ source member just compiled. If you choose not to view the │
15│ listing, it is automatically deleted. │
16│ │
17│ 2) Recompile the source member whose name is shown on the │
18│ bottom half of the display. │
19│ │
20│ │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text (c) 1985 IBM Corp. │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HELP0104«, f1=0x00, start=0x0032, length=0x05, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ HELP FOR RPGONL PROCEDURE Page 4 of 13 │
01│ │
02│ Use Cmd14 if you would like to change any of the RPG II compiler │
03│ options before the next compilation. Use Cmd1 if you would │
04│ like to work with a new or different source member. Use Cmd7 │
05│ to end this procedure. │
06│ │
07│ │
08│ │
09│╳KEYS YOU CAN USE ON THE RPGONL PROCEDURE │
10│ ╳ │
11│ Cmd1 - Work with a new or different member │
12│ Cmd2 - Show previous display │
13│ Cmd3 - Display the previous menu │
14│ Cmd7 - End the procedure │
15│ Cmd14- Display RPG II compiler options │
16│ │
17│ │
18│ │
19│ │
20│ │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text (c) 1985 IBM Corp. │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HELP0105«, f1=0x00, start=0x0037, length=0x06, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ HELP FOR RPGONL PROCEDURE Page 5 of 13 │
01│ │
02│╳Name of source program to be compiled . . . . . . . . . . . . ╳│
03│ │
04│ The name you give to the set of RPG II specifications │
05│ used as input for a program. This name can be up to 8 │
06│ characters long and must begin with an alphabetic character │
07│ (A-Z,#,$,@). │
08│ │
09│ │
10│ │
11│ │
12│╳Name of library containing source program . . . . . . . . . . ╳ │
13│ │
14│ The name you give to the area on disk that contains the RPG II │
15│ source program. The library name can be up to 8 characters │
16│ long and must begin with an alphabetic character. The │
17│ default is the current active library. │
18│ │
19│ │
20│ │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text (c) 1985 IBM Corp. │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HELP0106«, f1=0x00, start=0x003d, length=0x05, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ HELP FOR RPGONL PROCEDURE Page 6 of 13 │
01│ │
02│╳Name of library to contain compiled program . . . . . . . . . ╳│
03│ │
04│ The name you give to the area on disk that will contain │
05│ the compiled source program. If you leave this entry │
06│ blank, the system uses the name of the source input library. │
07│ │
08│ │
09│╳Name of data dictionary to be used . . . . . . . . . . . . . . │
10│╳ │
11│ The name of the data dictionary to use during the compile. │
12│ There is no assumed default. │
13│ │
14│╳Create or change source before first compilation? . . . . Y,N ╳│
15│ │
16│ If you answer Y (yes), you can create a new source program │
17│ or change an existing source program by using SEU or DSU. │
18│ Use command key 7 to end DSU/SEU. If you answer │
19│ N (no), the system compiles the existing source program. │
20│ │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text (c) 1985 IBM Corp. │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HELP0107«, f1=0x00, start=0x0042, length=0x07, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ HELP FOR RPGONL PROCEDURE Page 7 of 13 │
01│ │
02│╳Override print option in source . . . SOURCE,NOSOURCE,PSOURCE ╳│
03│ │
04│ Use this option to override the entry you made in column 11 │
05│ of the RPG II control specification. │
06│ │
07│ │
08│ SOURCE - Requests a complete program listing. │
09│ NOSOURCE - Requests no program listing. Use this option to │
10│ create a compiled program for which you have a listing. │
11│ PSOURCE - Requests a partial program listing. │
12│ │
13│╳Override debug option in source . . . . . . . . DEBUG,NODEBUG ╳│
14│ │
15│ Use this option to override the entry you made in column 15 of the │
16│ RPG II control specification. │
17│ │
18│ DEBUG - Your program uses the DEBUG operation. │
19│ NODEBUG - Your program does not use the DEBUG operation. │
20│ │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text (c) 1985 IBM Corp. │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HELP0108«, f1=0x00, start=0x0049, length=0x06, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ HELP FOR RPGONL PROCEDURE Page 8 of 13 │
01│ │
02│╳Override size-to-execute option in source . . . . . . . 2-64 ╳│
03│ │
04│ Use this option to override the entry you made in columns 13-14 │
05│ of the RPG II control specification. You can enter any even number │
06│ from 2 to 64. │
07│ │
08│ │
09│╳Create cross-reference listing . . . . . . . . . . NOXREF,XREF ╳│
10│ │
11│ Use this option to request a cross-reference listing of symbols │
12│ for the program being compiled. A cross-reference listing │
13│ consists of an alphabetic list of all symbols used in the │
14│ program and the line number in which each symbol is used. │
15│ │
16│ NOXREF (default) - Does not request a cross-reference listing. │
17│ XREF - Requests a cross-reference listing. │
18│ │
19│ │
20│ │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text (c) 1985 IBM Corp. │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HELP0109«, f1=0x00, start=0x004f, length=0x07, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ HELP FOR RPGONL PROCEDURE Page 9 of 13 │
01│ │
02│╳Create program that can be run . . . . . . . . . . LINK,NOLINK ╳│
03│ │
04│ Use this option to create a load module. A load module can be run │
05│ without first being link-edited by the OLINK procedure. │
06│ │
07│ │
08│ LINK (default) - Requests a load module if there are no terminal │
09│ errors. │
10│ NOLINK - Does not request a load module. │
11│ │
12│╳Create program that must be ╳│
13│ ╳ link-edited . . . . . . . . . . . . . . . . NOOBJECT,OBJECT ╳│
14│ │
15│ Use this option to create a subroutine module. A subroutine │
16│ module must be link-edited by the OLINK procedure before it can │
17│ be run. │
18│ │
19│ NOOBJECT (default) - Does not request a subroutine module. │
20│ OBJECT - Requests a subroutine module if there are │
21│ no terminal errors. │
22│ │
23│ Enter-Exit help text Roll keys-Page help text (c) 1985 IBM Corp. │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HELP0110«, f1=0x00, start=0x0056, length=0x07, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ HELP FOR RPGONL PROCEDURE Page 10 of 13 │
01│ │
02│╳Name of subroutine input library . . . . . . . . . . . . . . . ╳│
03│ │
04│ The name of the area on disk that contains your compiled │
05│ Assembler subroutines to be combined with the program │
06│ to be compiled. If no name is specified, the name of the │
07│ source input library is used. │
08│ │
09│ │
10│╳Never-ending program . . . . . . . . . . . . . . . . NONEP,NEP ╳│
11│ │
12│ Use this option if you want this program to be a │
13│ Never-ending program (NEP). A NEP is defined │
14│ as a long-running program. No system resources, │
15│ except shared files, allocated to a NEP program are │
16│ available to other jobs. │
17│ │
18│ NONEP (default) - Program is not a NEP. │
19│ NEP - Program is a NEP. │
20│ │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text (c) 1985 IBM Corp. │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HELP0111«, f1=0x00, start=0x005d, length=0x07, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ HELP FOR RPGONL PROCEDURE Page 11 of 13 │
01│ │
02│╳Maximum number of ╳│
03│╳ requesting display stations . . . . . . . . . . . . . 0-99 ╳│
04│ │
05│ Maximum number of display stations that can request the compiled │
06│ program at the same time. A value of 0 indicates that the program │
07│ is a single requesting terminal (SRT) program. │
08│ │
09│ │
10│╳Generate CONSOLE file display formats . . . . . . . GEN,NOGEN ╳│
11│ │
12│ If the program contains CONSOLE files, generate display formats. │
13│ │
14│ GEN (default) - Generate display formats. │
15│ NOGEN - Do not generate display formats. │
16│ │
17│╳Size of work files in blocks . . . . . . . . . . . . . 1-9999 ╳│
18│ │
19│ The size of the RPG II work files. The default is 40 blocks. │
20│ │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text (c) 1985 IBM Corp. │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HELP0112«, f1=0x00, start=0x0064, length=0x04, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ HELP FOR RPGONL PROCEDURE Page 12 of 13 │
01│ │
02│╳Create program with ╳│
03│╳ memory resident overlays . . . . . . . . . . . . . NOMRO,MRO ╳│
04│ │
05│ Creates a program that requests that its overlays remain in main memory. │
06│ This option is meaningful only if link-editing is performed and overlays │
07│ are needed. │
08│ │
09│ NOMRO (default) - Do not create the program with memory resident overlays. │
10│ │
11│ MRO - Create the program with memory resident overlays. │
12│ │
13│ │
14│ │
15│ │
16│ │
17│ │
18│ │
19│ │
20│ │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text (c) 1985 IBM Corp. │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HELP0113«, f1=0x00, start=0x0068, length=0x06, f5=0x00, f6=0x00, f7=0x00, f8=0x80, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ HELP FOR RPGONL PROCEDURE Page 13 of 13 │
01│ │
02│╳Would you like to view the compiler listing? . . . . . . Y,N ╳│
03│ │
04│ Use this option if you would like to view the compiler listing │
05│ for the program just compiled. │
06│ │
07│ │
08│ Y - The listing is displayed. From the display, you │
09│ can request a printed listing. │
10│ N (default) - The listing is deleted. │
11│ │
12│ │
13│╳Would you like to recompile the source program? . . . . . Y,N ╳│
14│ │
15│ Use this option if you would like to recompile the source │
16│ program shown on the bottom half of the display. │
17│ │
18│ Y (default) - The source program is recompiled. │
19│ N - The source program is not recompiled. │
20│ │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text (c) 1985 IBM Corp. │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
0x0000…0198 Vector {
0x0000…0198 [0x00]: FormPointer36 {name=»RPGONL1 «, f1=0x00, start=0x0002, length=0x06, f5=0x00, f6=0x00, f7=0x21, f8=0x00, f9=0000000000000000}
0x0000…0198 [0x01]: FormPointer36 {name=»RPGONLO1«, f1=0x00, start=0x0008, length=0x09, f5=0x00, f6=0x00, f7=0x42, f8=0x00, f9=0000000000000000}
0x0000…0198 [0x02]: FormPointer36 {name=»RPGONLO2«, f1=0x00, start=0x0011, length=0x09, f5=0x00, f6=0x00, f7=0x42, f8=0x00, f9=0000000000000000}
0x0000…0198 [0x03]: FormPointer36 {name=»RPGONLC «, f1=0x00, start=0x001a, length=0x05, f5=0x00, f6=0x00, f7=0x02, f8=0x00, f9=0000000000000000}
0x0000…0198 [0x04]: FormPointer36 {name=»HELP0101«, f1=0x00, start=0x001f, length=0x05, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x0000…0198 [0x05]: FormPointer36 {name=»HELP0102«, f1=0x00, start=0x0024, length=0x07, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x0000…0198 [0x06]: FormPointer36 {name=»HELP0103«, f1=0x00, start=0x002b, length=0x07, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x0000…0198 [0x07]: FormPointer36 {name=»HELP0104«, f1=0x00, start=0x0032, length=0x05, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x0000…0198 [0x08]: FormPointer36 {name=»HELP0105«, f1=0x00, start=0x0037, length=0x06, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x0000…0198 [0x09]: FormPointer36 {name=»HELP0106«, f1=0x00, start=0x003d, length=0x05, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x0000…0198 [0x0a]: FormPointer36 {name=»HELP0107«, f1=0x00, start=0x0042, length=0x07, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x0000…0198 [0x0b]: FormPointer36 {name=»HELP0108«, f1=0x00, start=0x0049, length=0x06, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x0000…0198 [0x0c]: FormPointer36 {name=»HELP0109«, f1=0x00, start=0x004f, length=0x07, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x0000…0198 [0x0d]: FormPointer36 {name=»HELP0110«, f1=0x00, start=0x0056, length=0x07, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x0000…0198 [0x0e]: FormPointer36 {name=»HELP0111«, f1=0x00, start=0x005d, length=0x07, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x0000…0198 [0x0f]: FormPointer36 {name=»HELP0112«, f1=0x00, start=0x0064, length=0x04, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x0000…0198 [0x10]: FormPointer36 {name=»HELP0113«, f1=0x00, start=0x0068, length=0x06, f5=0x00, f6=0x00, f7=0x00, f8=0x80, f9=0000000000000000}
0x0000…0198 }
0x0198…01a0 ff ff ff ff ff ff ff ff ┆ ┆
0x01a0…01c0 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 ┆ ┆
[…0x2…]
0x0200…0a52 Form36 {
0x0200…0a52 fh000 = 0x01 // 0x200 @0x0
0x0200…0a52 fh00 = 2624 // 0x201 @0x1
0x0200…0a52 fh01 = »NN « // 0x203 @0x3
0x0200…0a52 fh02 = 000000 // 0x206 @0x6
0x0200…0a52 fh03 = »NNN« // 0x209 @0x9
0x0200…0a52 fh04 = 0x00f8 // 0x20c @0xc
0x0200…0a52 fh05 = 0x0462 // 0x20e @0xe
0x0200…0a52 fh06 = 005d80011800000000000000000000000000 // 0x210 @0x10
0x0200…0a52 at0022 = 0x22040003 // 0x222 @0x22
0x0200…0a52 at0026 = Form36LV {f00=0x24, f01=0x1f, f12=0x0643094a, f13=»HELP0105«, f14=»#RP@FMTS«, f15=»#RPGLIB «, f1z=0x1e} // 0x226 @0x26
0x0200…0a52 at0045 = Form36LV {f00=0x24, f01=0x1f, f12=0x0a430e4a, f13=»HELP0106«, f14=»#RP@FMTS«, f15=»#RPGLIB «, f1z=0x1e} // 0x245 @0x45
0x0200…0a52 at0064 = Form36LV {f00=0x24, f01=0x1f, f12=0x01011850, f13=»HELP0101«, f14=»#RP@FMTS«, f15=»#RPGLIB «, f1z=0x1e} // 0x264 @0x64
0x0200…0a52 at0083 = Form36LV {f00=0x51, f01=0x12, f22=000e00085151, f23=064315, f24=»N«, f25=00, f26=»N«, f27=01, f28=»N N«} // 0x283 @0x83
0x0200…0a52 at0095 = Form36LV {f00=0x51, f01=0x12, f22=001f00085151, f23=084316, f24=»N«, f25=00, f26=»N«, f27=02, f28=»N N«} // 0x295 @0x95
0x0200…0a52 at00a7 = Form36LV {f00=0x51, f01=0x12, f22=003000085151, f23=0a4317, f24=»N«, f25=00, f26=»N«, f27=03, f28=»N N«} // 0x2a7 @0xa7
0x0200…0a52 at00b9 = Form36LV {f00=0x51, f01=0x12, f22=004100085151, f23=0c431a, f24=»N«, f25=00, f26=»N«, f27=04, f28=»N N«} // 0x2b9 @0xb9
0x0200…0a52 at00cb = Form36LV {f00=0x51, f01=0x12, f22=005200015151, f23=0e4318, f24=»N«, f25=00, f26=»N«, f27=05, f28=»N N«} // 0x2cb @0xcb
0x0200…0a52 at00dd = Form36LV {f00=0x51, f01=0x12, f22=0340004b6101, f23=180100, f24=»Y«, f25=00, f26=»N«, f27=06, f28=»NNN«} // 0x2dd @0xdd
0x0200…0a52 at00ef = Form36LV {f00=0xfe, f01=0x09, f88=000000000000, f89=08} // 0x2ef @0xef
0x0200…0a52 panel = { // 0x2f8 @0xf8
0x0200…0a52 ┌────────────────────────────────────────────────────────────────────────────────┐
0x0200…0a52 00│ RPGONL PROCEDURE Optional-* │
0x0200…0a52 01│ │
0x0200…0a52 02│ RPG II interactive program-development procedure │
0x0200…0a52 03│ │
0x0200…0a52 04│ │
0x0200…0a52 05│ Name of source program to be compiled . . . . . . . . . . . . ␣␣␣␣␣␣␣␣┴┤ │
0x0200…0a52 06│ │
0x0200…0a52 07│ Name of library containing program to be compiled . . . . . . ␣␣␣␣␣␣␣␣┴┤ │
0x0200…0a52 08│ │
0x0200…0a52 09│ Name of library to contain compiled program . . . . . . . . . ␣␣␣␣␣␣␣␣┴┤ * │
0x0200…0a52 10│ │
0x0200…0a52 11│ Name of data dictionary to be used . . . . . . . . . . . . . . ␣␣␣␣␣␣␣␣┴┤ * │
0x0200…0a52 12│ │
0x0200…0a52 13│ Create or change source before first compilation? . . . . Y,N Y┴┤ │
0x0200…0a52 14│ │
0x0200…0a52 15│ │
0x0200…0a52 16│ │
0x0200…0a52 17│ │
0x0200…0a52 18│ │
0x0200…0a52 19│ │
0x0200…0a52 20│ │
0x0200…0a52 21│ │
0x0200…0a52 22│ Cmd3-Previous menu Cmd7-End Cmd14-Compiler options (c) 1985 IBM Corp.╳│
0x0200…0a52 23│␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣╳ │
0x0200…0a52 24│ │
0x0200…0a52 25│ │
0x0200…0a52 26│ │
0x0200…0a52 27│ │
0x0200…0a52 └────────────────────────────────────────────────────────────────────────────────┘
0x0200…0a52 Panel5250 {
0x0200…0a52 at0000 = ClearUnit {esc=04, cu=40} // 0x2f8 @0x0
0x0200…0a52 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x2fa @0x2
0x0200…0a52 at0006 = StartOfHeader {soh=01, len=0x03, extra=000001} // 0x2fe @0x6
0x0200…0a52 at000b = InsertCursor {ic=13, line=0x06, col=0x43} // 0x303 @0xb
0x0200…0a52 at000e = SetBufferAddress {ic=11, line=0x06, col=0x42} // 0x306 @0xe
0x0200…0a52 at0011 = StartField {sf=1d, ffw=0x4820, attr=0x30, len=0x0008} // 0x309 @0x11
0x0200…0a52 at0017 = »␣␣␣␣␣␣␣␣« // 0x30f @0x17
0x0200…0a52 at001f = SetBufferAddress {ic=11, line=0x08, col=0x42} // 0x317 @0x1f
0x0200…0a52 at0022 = StartField {sf=1d, ffw=0x4820, attr=0x30, len=0x0008} // 0x31a @0x22
0x0200…0a52 at0028 = »␣␣␣␣␣␣␣␣« // 0x320 @0x28
0x0200…0a52 at0030 = SetBufferAddress {ic=11, line=0x0a, col=0x42} // 0x328 @0x30
0x0200…0a52 at0033 = StartField {sf=1d, ffw=0x4820, attr=0x30, len=0x0008} // 0x32b @0x33
0x0200…0a52 at0039 = »␣␣␣␣␣␣␣␣« // 0x331 @0x39
0x0200…0a52 at0041 = SetBufferAddress {ic=11, line=0x0c, col=0x42} // 0x339 @0x41
0x0200…0a52 at0044 = StartField {sf=1d, ffw=0x4820, attr=0x30, len=0x0008} // 0x33c @0x44
0x0200…0a52 at004a = »␣␣␣␣␣␣␣␣« // 0x342 @0x4a
0x0200…0a52 at0052 = SetBufferAddress {ic=11, line=0x0e, col=0x42} // 0x34a @0x52
0x0200…0a52 at0055 = StartField {sf=1d, ffw=0x4920, fcw=0x80ff, attr=0x30, len=0x0001} // 0x34d @0x55
0x0200…0a52 at005d = »Y« // 0x355 @0x5d
0x0200…0a52 at005e = SetBufferAddress {ic=11, line=0x05, col=0x02} // 0x356 @0x5e
0x0200…0a52 at0061 = » « // 0x359 @0x61
0x0200…0a52 at00b0 = » Name of source program to be compiled . . . . . . . . . . . .« // 0x3a8 @0xb0
0x0200…0a52 at00f0 = SetBufferAddress {ic=11, line=0x07, col=0x02} // 0x3e8 @0xf0
0x0200…0a52 at00f3 = » « // 0x3eb @0xf3
0x0200…0a52 at0142 = » Name of library containing program to be compiled . . . . . .« // 0x43a @0x142
0x0200…0a52 at0182 = SetBufferAddress {ic=11, line=0x09, col=0x02} // 0x47a @0x182
0x0200…0a52 at0185 = » « // 0x47d @0x185
0x0200…0a52 at01d4 = » Name of library to contain compiled program . . . . . . . . .« // 0x4cc @0x1d4
0x0200…0a52 at0214 = SetBufferAddress {ic=11, line=0x0a, col=0x4e} // 0x50c @0x214
0x0200…0a52 at0217 = »*« // 0x50f @0x217
0x0200…0a52 at0218 = SetBufferAddress {ic=11, line=0x0b, col=0x02} // 0x510 @0x218
0x0200…0a52 at021b = » « // 0x513 @0x21b
0x0200…0a52 at026a = » Name of data dictionary to be used . . . . . . . . . . . . . .« // 0x562 @0x26a
0x0200…0a52 at02aa = SetBufferAddress {ic=11, line=0x0c, col=0x4e} // 0x5a2 @0x2aa
0x0200…0a52 at02ad = »*« // 0x5a5 @0x2ad
0x0200…0a52 at02ae = SetBufferAddress {ic=11, line=0x0d, col=0x02} // 0x5a6 @0x2ae
0x0200…0a52 at02b1 = » « // 0x5a9 @0x2b1
0x0200…0a52 at0300 = » Create or change source before first compilation? . . . . Y,N« // 0x5f8 @0x300
0x0200…0a52 at0340 = SetBufferAddress {ic=11, line=0x17, col=0x50} // 0x638 @0x340
0x0200…0a52 at0343 = Attribute {type=0x22} // 0x63b @0x343
0x0200…0a52 at0344 = »␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣« // 0x63c @0x344
0x0200…0a52 at038f = Attribute {type=0x20} // 0x687 @0x38f
0x0200…0a52 at0390 = SetBufferAddress {ic=11, line=0x01, col=0x18} // 0x688 @0x390
0x0200…0a52 at0393 = » RPGONL PROCEDURE « // 0x68b @0x393
0x0200…0a52 at03b2 = SetBufferAddress {ic=11, line=0x01, col=0x43} // 0x6aa @0x3b2
0x0200…0a52 at03b5 = » Optional-* « // 0x6ad @0x3b5
0x0200…0a52 at03c3 = SetBufferAddress {ic=11, line=0x03, col=0x03} // 0x6bb @0x3c3
0x0200…0a52 at03c6 = » RPG II interactive program-development procedure « // 0x6be @0x3c6
0x0200…0a52 at0413 = SetBufferAddress {ic=11, line=0x17, col=0x04} // 0x70b @0x413
0x0200…0a52 at0416 = »Cmd3-Previous menu Cmd7-End Cmd14-Compiler options (c) 1985 IBM Corp.« // 0x70e @0x416
0x0200…0a52 }
0x0200…0a52 }
0x0200…0a52 }
0x0800…1a38 Form36 {
0x0800…1a38 fh000 = 0x01 // 0x800 @0x0
0x0800…1a38 fh00 = 2624 // 0x801 @0x1
0x0800…1a38 fh01 = »NN « // 0x803 @0x3
0x0800…1a38 fh02 = 000000 // 0x806 @0x6
0x0800…1a38 fh03 = »NNN« // 0x809 @0x9
0x0800…1a38 fh04 = 0x0200 // 0x80c @0xc
0x0800…1a38 fh05 = 0x0638 // 0x80e @0xe
0x0800…1a38 fh06 = 00d980011800000000000000000000000000 // 0x810 @0x10
0x0800…1a38 at0022 = 0x42000003 // 0x822 @0x22
0x0800…1a38 at0026 = Form36LV {f00=0x24, f01=0x1f, f12=0x0743084a, f13=»HELP0107«, f14=»#RP@FMTS«, f15=»#RPGLIB «, f1z=0x1e} // 0x826 @0x26
0x0800…1a38 at0045 = Form36LV {f00=0x24, f01=0x1f, f12=0x09430a4a, f13=»HELP0108«, f14=»#RP@FMTS«, f15=»#RPGLIB «, f1z=0x1e} // 0x845 @0x45
0x0800…1a38 at0064 = Form36LV {f00=0x24, f01=0x1f, f12=0x0b430d4a, f13=»HELP0109«, f14=»#RP@FMTS«, f15=»#RPGLIB «, f1z=0x1e} // 0x864 @0x64
0x0800…1a38 at0083 = Form36LV {f00=0x24, f01=0x1f, f12=0x0e430f4a, f13=»HELP0110«, f14=»#RP@FMTS«, f15=»#RPGLIB «, f1z=0x1e} // 0x883 @0x83
0x0800…1a38 at00a2 = Form36LV {f00=0x24, f01=0x1f, f12=0x1143134a, f13=»HELP0111«, f14=»#RP@FMTS«, f15=»#RPGLIB «, f1z=0x1e} // 0x8a2 @0xa2
0x0800…1a38 at00c1 = Form36LV {f00=0x24, f01=0x1f, f12=0x1543154a, f13=»HELP0112«, f14=»#RP@FMTS«, f15=»#RPGLIB «, f1z=0x1e} // 0x8c1 @0xc1
0x0800…1a38 at00e0 = Form36LV {f00=0x24, f01=0x1f, f12=0x01011850, f13=»HELP0101«, f14=»#RP@FMTS«, f15=»#RPGLIB «, f1z=0x1e} // 0x8e0 @0xe0
0x0800…1a38 at00ff = Form36LV {f00=0x51, f01=0x12, f22=000e00085151, f23=074333, f24=»N«, f25=00, f26=»N«, f27=07, f28=»N N«} // 0x8ff @0xff
0x0800…1a38 at0111 = Form36LV {f00=0x51, f01=0x12, f22=001f00075151, f23=084334, f24=»N«, f25=00, f26=»N«, f27=08, f28=»N N«} // 0x911 @0x111
0x0800…1a38 at0123 = Form36LV {f00=0x51, f01=0x12, f22=002f00025151, f23=094335, f24=»N«, f25=00, f26=»N«, f27=09, f28=»N N«} // 0x923 @0x123
0x0800…1a38 at0135 = Form36LV {f00=0x51, f01=0x12, f22=003a00065151, f23=0a4336, f24=»N«, f25=00, f26=»N«, f27=0a, f28=»N N«} // 0x935 @0x135
0x0800…1a38 at0147 = Form36LV {f00=0x51, f01=0x12, f22=004900065151, f23=0b4337, f24=»N«, f25=00, f26=»N«, f27=0b, f28=»N N«} // 0x947 @0x147
0x0800…1a38 at0159 = Form36LV {f00=0x51, f01=0x12, f22=005800085151, f23=0d4338, f24=»N«, f25=00, f26=»N«, f27=0c, f28=»N N«} // 0x959 @0x159
0x0800…1a38 at016b = Form36LV {f00=0x51, f01=0x12, f22=006900085151, f23=0e4339, f24=»N«, f25=00, f26=»N«, f27=0d, f28=»N N«} // 0x96b @0x16b
0x0800…1a38 at017d = Form36LV {f00=0x51, f01=0x12, f22=007a00055151, f23=0f433a, f24=»N«, f25=00, f26=»N«, f27=0e, f28=»N N«} // 0x97d @0x17d
0x0800…1a38 at018f = Form36LV {f00=0x51, f01=0x12, f22=008800025151, f23=11433b, f24=»N«, f25=00, f26=»N«, f27=0f, f28=»N N«} // 0x98f @0x18f
0x0800…1a38 at01a1 = Form36LV {f00=0x51, f01=0x12, f22=009300055151, f23=12433c, f24=»N«, f25=00, f26=»N«, f27=10, f28=»N N«} // 0x9a1 @0x1a1
0x0800…1a38 at01b3 = Form36LV {f00=0x51, f01=0x12, f22=00a100045151, f23=13433d, f24=»N«, f25=00, f26=»N«, f27=11, f28=»N N«} // 0x9b3 @0x1b3
0x0800…1a38 at01c5 = Form36LV {f00=0x51, f01=0x12, f22=00ae00055151, f23=154319, f24=»N«, f25=00, f26=»N«, f27=12, f28=»N N«} // 0x9c5 @0x1c5
0x0800…1a38 at01d7 = Form36LV {f00=0x51, f01=0x12, f22=04ba002c4101, f23=050300, f24=»Y«, f25=00, f26=»N«, f27=13, f28=»NNN«} // 0x9d7 @0x1d7
0x0800…1a38 at01e9 = Form36LV {f00=0x51, f01=0x12, f22=04eb004b6101, f23=180100, f24=»Y«, f25=00, f26=»N«, f27=14, f28=»NNN«} // 0x9e9 @0x1e9
0x0800…1a38 at01fb = Form36LV {f00=0xfe, f01=0x05, f88=0000, f89=04} // 0x9fb @0x1fb
0x0800…1a38 panel = { // 0xa00 @0x200
0x0800…1a38 ┌────────────────────────────────────────────────────────────────────────────────┐
0x0800…1a38 00│ RPGONL PROCEDURE Optional-* │
0x0800…1a38 01│ │
0x0800…1a38 02│ RPG II compiler options │
0x0800…1a38 03│ │
0x0800…1a38 04│ ╳␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣╳ │
0x0800…1a38 05│ │
0x0800…1a38 06│ Override print option in source . . . SOURCE,NOSOURCE,PSOURCE ␣␣␣␣␣␣␣␣┴┤ * │
0x0800…1a38 07│ Override debug option in source . . . . . . . . DEBUG,NODEBUG ␣␣␣␣␣␣␣┴┤ * │
0x0800…1a38 08│ Override size-to-execute option in source . . . . . . . 2-64 ␣␣┴┤ * │
0x0800…1a38 09│ Create cross-reference listing . . . . . . . . . . NOXREF,XREF NOXREF┴┤ │
0x0800…1a38 10│ Create program that can be run . . . . . . . . . . LINK,NOLINK LINK ┴┤ │
0x0800…1a38 11│ Create program that must be │
0x0800…1a38 12│ link-edited . . . . . . . . . . . . . . . . NOOBJECT,OBJECT NOOBJECT┴┤ │
0x0800…1a38 13│ Name of subroutine input library . . . . . . . . . . . . . . . ␣␣␣␣␣␣␣␣┴┤ * │
0x0800…1a38 14│ Never-ending program . . . . . . . . . . . . . . . . NONEP,NEP NONEP┴┤ │
0x0800…1a38 15│ Maximum number of │
0x0800…1a38 16│ requesting display stations. . . . . . . . . . . . . . 0-99 0 ┴┤ │
0x0800…1a38 17│ Generate CONSOLE file display formats . . . . . . . GEN,NOGEN GEN ┴┤ │
0x0800…1a38 18│ Size of work files in blocks . . . . . . . . . . . . . 1-9999 40 ┴┤ │
0x0800…1a38 19│ Create program with │
0x0800…1a38 20│ memory resident overlays . . . . . . . . . . . . . NOMRO,MRO NOMRO┴┤ │
0x0800…1a38 21│ │
0x0800…1a38 22│ Cmd2-Page back Cmd7-End (c) 1985 IBM Corp.╳│
0x0800…1a38 23│␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣╳ │
0x0800…1a38 24│ │
0x0800…1a38 25│ │
0x0800…1a38 26│ │
0x0800…1a38 27│ │
0x0800…1a38 └────────────────────────────────────────────────────────────────────────────────┘
0x0800…1a38 Panel5250 {
0x0800…1a38 at0000 = ClearUnit {esc=04, cu=40} // 0xa00 @0x0
0x0800…1a38 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0xa02 @0x2
0x0800…1a38 at0006 = StartOfHeader {soh=01, len=0x03, extra=000001} // 0xa06 @0x6
0x0800…1a38 at000b = InsertCursor {ic=13, line=0x07, col=0x43} // 0xa0b @0xb
0x0800…1a38 at000e = SetBufferAddress {ic=11, line=0x07, col=0x42} // 0xa0e @0xe
0x0800…1a38 at0011 = StartField {sf=1d, ffw=0x4920, attr=0x30, len=0x0008} // 0xa11 @0x11
0x0800…1a38 at0017 = »␣␣␣␣␣␣␣␣« // 0xa17 @0x17
0x0800…1a38 at001f = SetBufferAddress {ic=11, line=0x08, col=0x42} // 0xa1f @0x1f
0x0800…1a38 at0022 = StartField {sf=1d, ffw=0x4920, attr=0x30, len=0x0007} // 0xa22 @0x22
0x0800…1a38 at0028 = »␣␣␣␣␣␣␣« // 0xa28 @0x28
0x0800…1a38 at002f = SetBufferAddress {ic=11, line=0x09, col=0x42} // 0xa2f @0x2f
0x0800…1a38 at0032 = StartField {sf=1d, ffw=0x4b20, attr=0x30, len=0x0002} // 0xa32 @0x32
0x0800…1a38 at0038 = »␣␣« // 0xa38 @0x38
0x0800…1a38 at003a = SetBufferAddress {ic=11, line=0x0a, col=0x42} // 0xa3a @0x3a
0x0800…1a38 at003d = StartField {sf=1d, ffw=0x4920, attr=0x30, len=0x0006} // 0xa3d @0x3d
0x0800…1a38 at0043 = »NOXREF« // 0xa43 @0x43
0x0800…1a38 at0049 = SetBufferAddress {ic=11, line=0x0b, col=0x42} // 0xa49 @0x49
0x0800…1a38 at004c = StartField {sf=1d, ffw=0x4920, attr=0x30, len=0x0006} // 0xa4c @0x4c
0x0800…1a38 at0052 = »LINK « // 0xa52 @0x52
0x0800…1a38 at0058 = SetBufferAddress {ic=11, line=0x0d, col=0x42} // 0xa58 @0x58
0x0800…1a38 at005b = StartField {sf=1d, ffw=0x4920, attr=0x30, len=0x0008} // 0xa5b @0x5b
0x0800…1a38 at0061 = »NOOBJECT« // 0xa61 @0x61
0x0800…1a38 at0069 = SetBufferAddress {ic=11, line=0x0e, col=0x42} // 0xa69 @0x69
0x0800…1a38 at006c = StartField {sf=1d, ffw=0x4820, attr=0x30, len=0x0008} // 0xa6c @0x6c
0x0800…1a38 at0072 = »␣␣␣␣␣␣␣␣« // 0xa72 @0x72
0x0800…1a38 at007a = SetBufferAddress {ic=11, line=0x0f, col=0x42} // 0xa7a @0x7a
0x0800…1a38 at007d = StartField {sf=1d, ffw=0x4920, attr=0x30, len=0x0005} // 0xa7d @0x7d
0x0800…1a38 at0083 = »NONEP« // 0xa83 @0x83
0x0800…1a38 at0088 = SetBufferAddress {ic=11, line=0x11, col=0x42} // 0xa88 @0x88
0x0800…1a38 at008b = StartField {sf=1d, ffw=0x4b25, attr=0x30, len=0x0002} // 0xa8b @0x8b
0x0800…1a38 at0091 = »0 « // 0xa91 @0x91
0x0800…1a38 at0093 = SetBufferAddress {ic=11, line=0x12, col=0x42} // 0xa93 @0x93
0x0800…1a38 at0096 = StartField {sf=1d, ffw=0x4920, attr=0x30, len=0x0005} // 0xa96 @0x96
0x0800…1a38 at009c = »GEN « // 0xa9c @0x9c
0x0800…1a38 at00a1 = SetBufferAddress {ic=11, line=0x13, col=0x42} // 0xaa1 @0xa1
0x0800…1a38 at00a4 = StartField {sf=1d, ffw=0x4b25, attr=0x30, len=0x0004} // 0xaa4 @0xa4
0x0800…1a38 at00aa = »40 « // 0xaaa @0xaa
0x0800…1a38 at00ae = SetBufferAddress {ic=11, line=0x15, col=0x42} // 0xaae @0xae
0x0800…1a38 at00b1 = StartField {sf=1d, ffw=0x4920, fcw=0x80ff, attr=0x30, len=0x0005} // 0xab1 @0xb1
0x0800…1a38 at00b9 = »NOMRO« // 0xab9 @0xb9
0x0800…1a38 at00be = SetBufferAddress {ic=11, line=0x06, col=0x02} // 0xabe @0xbe
0x0800…1a38 at00c1 = » « // 0xac1 @0xc1
0x0800…1a38 at0110 = » Override print option in source . . . SOURCE,NOSOURCE,PSOURCE« // 0xb10 @0x110
0x0800…1a38 at0150 = SetBufferAddress {ic=11, line=0x07, col=0x4e} // 0xb50 @0x150
0x0800…1a38 at0153 = »*« // 0xb53 @0x153
0x0800…1a38 at0154 = SetBufferAddress {ic=11, line=0x08, col=0x02} // 0xb54 @0x154
0x0800…1a38 at0157 = » Override debug option in source . . . . . . . . DEBUG,NODEBUG« // 0xb57 @0x157
0x0800…1a38 at0196 = SetBufferAddress {ic=11, line=0x08, col=0x4e} // 0xb96 @0x196
0x0800…1a38 at0199 = »*« // 0xb99 @0x199
0x0800…1a38 at019a = SetBufferAddress {ic=11, line=0x09, col=0x02} // 0xb9a @0x19a
0x0800…1a38 at019d = » Override size-to-execute option in source . . . . . . . 2-64« // 0xb9d @0x19d
0x0800…1a38 at01dc = SetBufferAddress {ic=11, line=0x09, col=0x4e} // 0xbdc @0x1dc
0x0800…1a38 at01df = »*« // 0xbdf @0x1df
0x0800…1a38 at01e0 = SetBufferAddress {ic=11, line=0x0a, col=0x02} // 0xbe0 @0x1e0
0x0800…1a38 at01e3 = » Create cross-reference listing . . . . . . . . . . NOXREF,XREF« // 0xbe3 @0x1e3
0x0800…1a38 at0222 = SetBufferAddress {ic=11, line=0x0b, col=0x02} // 0xc22 @0x222
0x0800…1a38 at0225 = » Create program that can be run . . . . . . . . . . LINK,NOLINK« // 0xc25 @0x225
0x0800…1a38 at0264 = SetBufferAddress {ic=11, line=0x0c, col=0x02} // 0xc64 @0x264
0x0800…1a38 at0267 = » Create program that must be « // 0xc67 @0x267
0x0800…1a38 at02a6 = SetBufferAddress {ic=11, line=0x0e, col=0x02} // 0xca6 @0x2a6
0x0800…1a38 at02a9 = » Name of subroutine input library . . . . . . . . . . . . . . .« // 0xca9 @0x2a9
0x0800…1a38 at02e8 = SetBufferAddress {ic=11, line=0x0e, col=0x4e} // 0xce8 @0x2e8
0x0800…1a38 at02eb = »*« // 0xceb @0x2eb
0x0800…1a38 at02ec = SetBufferAddress {ic=11, line=0x0f, col=0x02} // 0xcec @0x2ec
0x0800…1a38 at02ef = » Never-ending program . . . . . . . . . . . . . . . . NONEP,NEP« // 0xcef @0x2ef
0x0800…1a38 at032e = SetBufferAddress {ic=11, line=0x10, col=0x02} // 0xd2e @0x32e
0x0800…1a38 at0331 = » Maximum number of « // 0xd31 @0x331
0x0800…1a38 at0370 = SetBufferAddress {ic=11, line=0x11, col=0x02} // 0xd70 @0x370
0x0800…1a38 at0373 = » requesting display stations. . . . . . . . . . . . . . 0-99« // 0xd73 @0x373
0x0800…1a38 at03b2 = SetBufferAddress {ic=11, line=0x12, col=0x02} // 0xdb2 @0x3b2
0x0800…1a38 at03b5 = » Generate CONSOLE file display formats . . . . . . . GEN,NOGEN« // 0xdb5 @0x3b5
0x0800…1a38 at03f4 = SetBufferAddress {ic=11, line=0x13, col=0x02} // 0xdf4 @0x3f4
0x0800…1a38 at03f7 = » Size of work files in blocks . . . . . . . . . . . . . 1-9999« // 0xdf7 @0x3f7
0x0800…1a38 at0436 = SetBufferAddress {ic=11, line=0x14, col=0x02} // 0xe36 @0x436
0x0800…1a38 at0439 = » Create program with « // 0xe39 @0x439
0x0800…1a38 at0478 = SetBufferAddress {ic=11, line=0x15, col=0x02} // 0xe78 @0x478
0x0800…1a38 at047b = » memory resident overlays . . . . . . . . . . . . . NOMRO,MRO« // 0xe7b @0x47b
0x0800…1a38 at04ba = SetBufferAddress {ic=11, line=0x05, col=0x02} // 0xeba @0x4ba
0x0800…1a38 at04bd = Attribute {type=0x22} // 0xebd @0x4bd
0x0800…1a38 at04be = »␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣« // 0xebe @0x4be
0x0800…1a38 at04ea = Attribute {type=0x20} // 0xeea @0x4ea
0x0800…1a38 at04eb = SetBufferAddress {ic=11, line=0x17, col=0x50} // 0xeeb @0x4eb
0x0800…1a38 at04ee = Attribute {type=0x22} // 0xeee @0x4ee
0x0800…1a38 at04ef = »␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣« // 0xeef @0x4ef
0x0800…1a38 at053a = Attribute {type=0x20} // 0xf3a @0x53a
0x0800…1a38 at053b = SetBufferAddress {ic=11, line=0x01, col=0x13} // 0xf3b @0x53b
0x0800…1a38 at053e = » RPGONL PROCEDURE « // 0xf3e @0x53e
0x0800…1a38 at0568 = SetBufferAddress {ic=11, line=0x01, col=0x42} // 0xf68 @0x568
0x0800…1a38 at056b = » Optional-* « // 0xf6b @0x56b
0x0800…1a38 at057a = SetBufferAddress {ic=11, line=0x03, col=0x13} // 0xf7a @0x57a
0x0800…1a38 at057d = » RPG II compiler options « // 0xf7d @0x57d
0x0800…1a38 at05a7 = SetBufferAddress {ic=11, line=0x0d, col=0x02} // 0xfa7 @0x5a7
0x0800…1a38 at05aa = » link-edited . . . . . . . . . . . . . . . . NOOBJECT,OBJECT« // 0xfaa @0x5aa
0x0800…1a38 at05e9 = SetBufferAddress {ic=11, line=0x17, col=0x04} // 0xfe9 @0x5e9
0x0800…1a38 at05ec = »Cmd2-Page back Cmd7-End (c) 1985 IBM Corp.« // 0xfec @0x5ec
0x0800…1a38 }
0x0800…1a38 }
0x0800…1a38 }
0x1100…2c2b Form36 {
0x1100…2c2b fh000 = 0x01 // 0x1100 @0x0
0x1100…2c2b fh00 = 2624 // 0x1101 @0x1
0x1100…2c2b fh01 = »NN « // 0x1103 @0x3
0x1100…2c2b fh02 = 000000 // 0x1106 @0x6
0x1100…2c2b fh03 = »NNN« // 0x1109 @0x9
0x1100…2c2b fh04 = 0x0200 // 0x110c @0xc
0x1100…2c2b fh05 = 0x062b // 0x110e @0xe
0x1100…2c2b fh06 = 00d980011800000000000000000000000000 // 0x1110 @0x10
0x1100…2c2b at0022 = 0x02000003 // 0x1122 @0x22
0x1100…2c2b at0026 = Form36LV {f00=0x24, f01=0x1f, f12=0x0743084a, f13=»HELP0107«, f14=»#RP@FMTS«, f15=»#RPGLIB «, f1z=0x1e} // 0x1126 @0x26
0x1100…2c2b at0045 = Form36LV {f00=0x24, f01=0x1f, f12=0x09430a4a, f13=»HELP0108«, f14=»#RP@FMTS«, f15=»#RPGLIB «, f1z=0x1e} // 0x1145 @0x45
0x1100…2c2b at0064 = Form36LV {f00=0x24, f01=0x1f, f12=0x0b430d4a, f13=»HELP0109«, f14=»#RP@FMTS«, f15=»#RPGLIB «, f1z=0x1e} // 0x1164 @0x64
0x1100…2c2b at0083 = Form36LV {f00=0x24, f01=0x1f, f12=0x0e430f4a, f13=»HELP0110«, f14=»#RP@FMTS«, f15=»#RPGLIB «, f1z=0x1e} // 0x1183 @0x83
0x1100…2c2b at00a2 = Form36LV {f00=0x24, f01=0x1f, f12=0x1143134a, f13=»HELP0111«, f14=»#RP@FMTS«, f15=»#RPGLIB «, f1z=0x1e} // 0x11a2 @0xa2
0x1100…2c2b at00c1 = Form36LV {f00=0x24, f01=0x1f, f12=0x1543154a, f13=»HELP0112«, f14=»#RP@FMTS«, f15=»#RPGLIB «, f1z=0x1e} // 0x11c1 @0xc1
0x1100…2c2b at00e0 = Form36LV {f00=0x24, f01=0x1f, f12=0x01011850, f13=»HELP0101«, f14=»#RP@FMTS«, f15=»#RPGLIB «, f1z=0x1e} // 0x11e0 @0xe0
0x1100…2c2b at00ff = Form36LV {f00=0x51, f01=0x12, f22=000e00085151, f23=074333, f24=»N«, f25=00, f26=»N«, f27=07, f28=»N N«} // 0x11ff @0xff
0x1100…2c2b at0111 = Form36LV {f00=0x51, f01=0x12, f22=001f00075151, f23=084334, f24=»N«, f25=00, f26=»N«, f27=08, f28=»N N«} // 0x1211 @0x111
0x1100…2c2b at0123 = Form36LV {f00=0x51, f01=0x12, f22=002f00025151, f23=094335, f24=»N«, f25=00, f26=»N«, f27=09, f28=»N N«} // 0x1223 @0x123
0x1100…2c2b at0135 = Form36LV {f00=0x51, f01=0x12, f22=003a00065151, f23=0a4336, f24=»N«, f25=00, f26=»N«, f27=0a, f28=»N N«} // 0x1235 @0x135
0x1100…2c2b at0147 = Form36LV {f00=0x51, f01=0x12, f22=004900065151, f23=0b4337, f24=»N«, f25=00, f26=»N«, f27=0b, f28=»N N«} // 0x1247 @0x147
0x1100…2c2b at0159 = Form36LV {f00=0x51, f01=0x12, f22=005800085151, f23=0d4338, f24=»N«, f25=00, f26=»N«, f27=0c, f28=»N N«} // 0x1259 @0x159
0x1100…2c2b at016b = Form36LV {f00=0x51, f01=0x12, f22=006900085151, f23=0e4339, f24=»N«, f25=00, f26=»N«, f27=0d, f28=»N N«} // 0x126b @0x16b
0x1100…2c2b at017d = Form36LV {f00=0x51, f01=0x12, f22=007a00055151, f23=0f433a, f24=»N«, f25=00, f26=»N«, f27=0e, f28=»N N«} // 0x127d @0x17d
0x1100…2c2b at018f = Form36LV {f00=0x51, f01=0x12, f22=008800025151, f23=11433b, f24=»N«, f25=00, f26=»N«, f27=0f, f28=»N N«} // 0x128f @0x18f
0x1100…2c2b at01a1 = Form36LV {f00=0x51, f01=0x12, f22=009300055151, f23=12433c, f24=»N«, f25=00, f26=»N«, f27=10, f28=»N N«} // 0x12a1 @0x1a1
0x1100…2c2b at01b3 = Form36LV {f00=0x51, f01=0x12, f22=00a100045151, f23=13433d, f24=»N«, f25=00, f26=»N«, f27=11, f28=»N N«} // 0x12b3 @0x1b3
0x1100…2c2b at01c5 = Form36LV {f00=0x51, f01=0x12, f22=00ae00055151, f23=154319, f24=»N«, f25=00, f26=»N«, f27=12, f28=»N N«} // 0x12c5 @0x1c5
0x1100…2c2b at01d7 = Form36LV {f00=0x51, f01=0x12, f22=04ba00234101, f23=050300, f24=»Y«, f25=00, f26=»N«, f27=13, f28=»NNN«} // 0x12d7 @0x1d7
0x1100…2c2b at01e9 = Form36LV {f00=0x51, f01=0x12, f22=04e2004b6101, f23=180100, f24=»Y«, f25=00, f26=»N«, f27=14, f28=»NNN«} // 0x12e9 @0x1e9
0x1100…2c2b at01fb = Form36LV {f00=0xfe, f01=0x05, f88=0000, f89=04} // 0x12fb @0x1fb
0x1100…2c2b panel = { // 0x1300 @0x200
0x1100…2c2b ┌────────────────────────────────────────────────────────────────────────────────┐
0x1100…2c2b 00│ RPGONL PROCEDURE Optional-* │
0x1100…2c2b 01│ │
0x1100…2c2b 02│ RPG II compiler options │
0x1100…2c2b 03│ │
0x1100…2c2b 04│ ╳␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣╳ │
0x1100…2c2b 05│ │
0x1100…2c2b 06│ Override print option in source . . . SOURCE,NOSOURCE,PSOURCE ␣␣␣␣␣␣␣␣┴┤ * │
0x1100…2c2b 07│ Override debug option in source . . . . . . . . DEBUG,NODEBUG ␣␣␣␣␣␣␣┴┤ * │
0x1100…2c2b 08│ Override size-to-execute option in source . . . . . . . 2-64 ␣␣┴┤ * │
0x1100…2c2b 09│ Create cross-reference listing . . . . . . . . . . NOXREF,XREF NOXREF┴┤ │
0x1100…2c2b 10│ Create program that can be run . . . . . . . . . . LINK,NOLINK LINK ┴┤ │
0x1100…2c2b 11│ Create program that must be │
0x1100…2c2b 12│ link-edited . . . . . . . . . . . . . . . . NOOBJECT,OBJECT NOOBJECT┴┤ │
0x1100…2c2b 13│ Name of subroutine input library . . . . . . . . . . . . . . . ␣␣␣␣␣␣␣␣┴┤ * │
0x1100…2c2b 14│ Never-ending program . . . . . . . . . . . . . . . . NONEP,NEP NONEP┴┤ │
0x1100…2c2b 15│ Maximum number of │
0x1100…2c2b 16│ requesting display stations. . . . . . . . . . . . . . 0-99 0 ┴┤ │
0x1100…2c2b 17│ Generate CONSOLE file display formats . . . . . . . GEN,NOGEN GEN ┴┤ │
0x1100…2c2b 18│ Size of work files in blocks . . . . . . . . . . . . . 1-9999 40 ┴┤ │
0x1100…2c2b 19│ Create program with │
0x1100…2c2b 20│ memory resident overlays . . . . . . . . . . . . . NOMRO,MRO NOMRO┴┤ │
0x1100…2c2b 21│ │
0x1100…2c2b 22│ Cmd7-End (c) 1985 IBM Corp.╳│
0x1100…2c2b 23│␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣╳ │
0x1100…2c2b 24│ │
0x1100…2c2b 25│ │
0x1100…2c2b 26│ │
0x1100…2c2b 27│ │
0x1100…2c2b └────────────────────────────────────────────────────────────────────────────────┘
0x1100…2c2b Panel5250 {
0x1100…2c2b at0000 = ClearUnit {esc=04, cu=40} // 0x1300 @0x0
0x1100…2c2b at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x1302 @0x2
0x1100…2c2b at0006 = StartOfHeader {soh=01, len=0x03, extra=000001} // 0x1306 @0x6
0x1100…2c2b at000b = InsertCursor {ic=13, line=0x07, col=0x43} // 0x130b @0xb
0x1100…2c2b at000e = SetBufferAddress {ic=11, line=0x07, col=0x42} // 0x130e @0xe
0x1100…2c2b at0011 = StartField {sf=1d, ffw=0x4920, attr=0x30, len=0x0008} // 0x1311 @0x11
0x1100…2c2b at0017 = »␣␣␣␣␣␣␣␣« // 0x1317 @0x17
0x1100…2c2b at001f = SetBufferAddress {ic=11, line=0x08, col=0x42} // 0x131f @0x1f
0x1100…2c2b at0022 = StartField {sf=1d, ffw=0x4920, attr=0x30, len=0x0007} // 0x1322 @0x22
0x1100…2c2b at0028 = »␣␣␣␣␣␣␣« // 0x1328 @0x28
0x1100…2c2b at002f = SetBufferAddress {ic=11, line=0x09, col=0x42} // 0x132f @0x2f
0x1100…2c2b at0032 = StartField {sf=1d, ffw=0x4b20, attr=0x30, len=0x0002} // 0x1332 @0x32
0x1100…2c2b at0038 = »␣␣« // 0x1338 @0x38
0x1100…2c2b at003a = SetBufferAddress {ic=11, line=0x0a, col=0x42} // 0x133a @0x3a
0x1100…2c2b at003d = StartField {sf=1d, ffw=0x4920, attr=0x30, len=0x0006} // 0x133d @0x3d
0x1100…2c2b at0043 = »NOXREF« // 0x1343 @0x43
0x1100…2c2b at0049 = SetBufferAddress {ic=11, line=0x0b, col=0x42} // 0x1349 @0x49
0x1100…2c2b at004c = StartField {sf=1d, ffw=0x4920, attr=0x30, len=0x0006} // 0x134c @0x4c
0x1100…2c2b at0052 = »LINK « // 0x1352 @0x52
0x1100…2c2b at0058 = SetBufferAddress {ic=11, line=0x0d, col=0x42} // 0x1358 @0x58
0x1100…2c2b at005b = StartField {sf=1d, ffw=0x4920, attr=0x30, len=0x0008} // 0x135b @0x5b
0x1100…2c2b at0061 = »NOOBJECT« // 0x1361 @0x61
0x1100…2c2b at0069 = SetBufferAddress {ic=11, line=0x0e, col=0x42} // 0x1369 @0x69
0x1100…2c2b at006c = StartField {sf=1d, ffw=0x4820, attr=0x30, len=0x0008} // 0x136c @0x6c
0x1100…2c2b at0072 = »␣␣␣␣␣␣␣␣« // 0x1372 @0x72
0x1100…2c2b at007a = SetBufferAddress {ic=11, line=0x0f, col=0x42} // 0x137a @0x7a
0x1100…2c2b at007d = StartField {sf=1d, ffw=0x4920, attr=0x30, len=0x0005} // 0x137d @0x7d
0x1100…2c2b at0083 = »NONEP« // 0x1383 @0x83
0x1100…2c2b at0088 = SetBufferAddress {ic=11, line=0x11, col=0x42} // 0x1388 @0x88
0x1100…2c2b at008b = StartField {sf=1d, ffw=0x4b25, attr=0x30, len=0x0002} // 0x138b @0x8b
0x1100…2c2b at0091 = »0 « // 0x1391 @0x91
0x1100…2c2b at0093 = SetBufferAddress {ic=11, line=0x12, col=0x42} // 0x1393 @0x93
0x1100…2c2b at0096 = StartField {sf=1d, ffw=0x4920, attr=0x30, len=0x0005} // 0x1396 @0x96
0x1100…2c2b at009c = »GEN « // 0x139c @0x9c
0x1100…2c2b at00a1 = SetBufferAddress {ic=11, line=0x13, col=0x42} // 0x13a1 @0xa1
0x1100…2c2b at00a4 = StartField {sf=1d, ffw=0x4b25, attr=0x30, len=0x0004} // 0x13a4 @0xa4
0x1100…2c2b at00aa = »40 « // 0x13aa @0xaa
0x1100…2c2b at00ae = SetBufferAddress {ic=11, line=0x15, col=0x42} // 0x13ae @0xae
0x1100…2c2b at00b1 = StartField {sf=1d, ffw=0x4920, fcw=0x80ff, attr=0x30, len=0x0005} // 0x13b1 @0xb1
0x1100…2c2b at00b9 = »NOMRO« // 0x13b9 @0xb9
0x1100…2c2b at00be = SetBufferAddress {ic=11, line=0x06, col=0x02} // 0x13be @0xbe
0x1100…2c2b at00c1 = » « // 0x13c1 @0xc1
0x1100…2c2b at0110 = » Override print option in source . . . SOURCE,NOSOURCE,PSOURCE« // 0x1410 @0x110
0x1100…2c2b at0150 = SetBufferAddress {ic=11, line=0x07, col=0x4e} // 0x1450 @0x150
0x1100…2c2b at0153 = »*« // 0x1453 @0x153
0x1100…2c2b at0154 = SetBufferAddress {ic=11, line=0x08, col=0x02} // 0x1454 @0x154
0x1100…2c2b at0157 = » Override debug option in source . . . . . . . . DEBUG,NODEBUG« // 0x1457 @0x157
0x1100…2c2b at0196 = SetBufferAddress {ic=11, line=0x08, col=0x4e} // 0x1496 @0x196
0x1100…2c2b at0199 = »*« // 0x1499 @0x199
0x1100…2c2b at019a = SetBufferAddress {ic=11, line=0x09, col=0x02} // 0x149a @0x19a
0x1100…2c2b at019d = » Override size-to-execute option in source . . . . . . . 2-64« // 0x149d @0x19d
0x1100…2c2b at01dc = SetBufferAddress {ic=11, line=0x09, col=0x4e} // 0x14dc @0x1dc
0x1100…2c2b at01df = »*« // 0x14df @0x1df
0x1100…2c2b at01e0 = SetBufferAddress {ic=11, line=0x0a, col=0x02} // 0x14e0 @0x1e0
0x1100…2c2b at01e3 = » Create cross-reference listing . . . . . . . . . . NOXREF,XREF« // 0x14e3 @0x1e3
0x1100…2c2b at0222 = SetBufferAddress {ic=11, line=0x0b, col=0x02} // 0x1522 @0x222
0x1100…2c2b at0225 = » Create program that can be run . . . . . . . . . . LINK,NOLINK« // 0x1525 @0x225
0x1100…2c2b at0264 = SetBufferAddress {ic=11, line=0x0c, col=0x02} // 0x1564 @0x264
0x1100…2c2b at0267 = » Create program that must be « // 0x1567 @0x267
0x1100…2c2b at02a6 = SetBufferAddress {ic=11, line=0x0e, col=0x02} // 0x15a6 @0x2a6
0x1100…2c2b at02a9 = » Name of subroutine input library . . . . . . . . . . . . . . .« // 0x15a9 @0x2a9
0x1100…2c2b at02e8 = SetBufferAddress {ic=11, line=0x0e, col=0x4e} // 0x15e8 @0x2e8
0x1100…2c2b at02eb = »*« // 0x15eb @0x2eb
0x1100…2c2b at02ec = SetBufferAddress {ic=11, line=0x0f, col=0x02} // 0x15ec @0x2ec
0x1100…2c2b at02ef = » Never-ending program . . . . . . . . . . . . . . . . NONEP,NEP« // 0x15ef @0x2ef
0x1100…2c2b at032e = SetBufferAddress {ic=11, line=0x10, col=0x02} // 0x162e @0x32e
0x1100…2c2b at0331 = » Maximum number of « // 0x1631 @0x331
0x1100…2c2b at0370 = SetBufferAddress {ic=11, line=0x11, col=0x02} // 0x1670 @0x370
0x1100…2c2b at0373 = » requesting display stations. . . . . . . . . . . . . . 0-99« // 0x1673 @0x373
0x1100…2c2b at03b2 = SetBufferAddress {ic=11, line=0x12, col=0x02} // 0x16b2 @0x3b2
0x1100…2c2b at03b5 = » Generate CONSOLE file display formats . . . . . . . GEN,NOGEN« // 0x16b5 @0x3b5
0x1100…2c2b at03f4 = SetBufferAddress {ic=11, line=0x13, col=0x02} // 0x16f4 @0x3f4
0x1100…2c2b at03f7 = » Size of work files in blocks . . . . . . . . . . . . . 1-9999« // 0x16f7 @0x3f7
0x1100…2c2b at0436 = SetBufferAddress {ic=11, line=0x14, col=0x02} // 0x1736 @0x436
0x1100…2c2b at0439 = » Create program with « // 0x1739 @0x439
0x1100…2c2b at0478 = SetBufferAddress {ic=11, line=0x15, col=0x02} // 0x1778 @0x478
0x1100…2c2b at047b = » memory resident overlays . . . . . . . . . . . . . NOMRO,MRO« // 0x177b @0x47b
0x1100…2c2b at04ba = SetBufferAddress {ic=11, line=0x05, col=0x02} // 0x17ba @0x4ba
0x1100…2c2b at04bd = Attribute {type=0x22} // 0x17bd @0x4bd
0x1100…2c2b at04be = »␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣« // 0x17be @0x4be
0x1100…2c2b at04e1 = Attribute {type=0x20} // 0x17e1 @0x4e1
0x1100…2c2b at04e2 = SetBufferAddress {ic=11, line=0x17, col=0x50} // 0x17e2 @0x4e2
0x1100…2c2b at04e5 = Attribute {type=0x22} // 0x17e5 @0x4e5
0x1100…2c2b at04e6 = »␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣« // 0x17e6 @0x4e6
0x1100…2c2b at0531 = Attribute {type=0x20} // 0x1831 @0x531
0x1100…2c2b at0532 = SetBufferAddress {ic=11, line=0x01, col=0x13} // 0x1832 @0x532
0x1100…2c2b at0535 = » RPGONL PROCEDURE « // 0x1835 @0x535
0x1100…2c2b at055e = SetBufferAddress {ic=11, line=0x01, col=0x44} // 0x185e @0x55e
0x1100…2c2b at0561 = » Optional-* « // 0x1861 @0x561
0x1100…2c2b at056e = SetBufferAddress {ic=11, line=0x03, col=0x13} // 0x186e @0x56e
0x1100…2c2b at0571 = » RPG II compiler options « // 0x1871 @0x571
0x1100…2c2b at059a = SetBufferAddress {ic=11, line=0x0d, col=0x02} // 0x189a @0x59a
0x1100…2c2b at059d = » link-edited . . . . . . . . . . . . . . . . NOOBJECT,OBJECT« // 0x189d @0x59d
0x1100…2c2b at05dc = SetBufferAddress {ic=11, line=0x17, col=0x04} // 0x18dc @0x5dc
0x1100…2c2b at05df = »Cmd7-End (c) 1985 IBM Corp.« // 0x18df @0x5df
0x1100…2c2b }
0x1100…2c2b }
0x1100…2c2b }
0x1a00…3974 Form36 {
0x1a00…3974 fh000 = 0x01 // 0x1a00 @0x0
0x1a00…3974 fh00 = 2624 // 0x1a01 @0x1
0x1a00…3974 fh01 = »NN « // 0x1a03 @0x3
0x1a00…3974 fh02 = 000000 // 0x1a06 @0x6
0x1a00…3974 fh03 = »NNN« // 0x1a09 @0x9
0x1a00…3974 fh04 = 0x00e8 // 0x1a0c @0xc
0x1a00…3974 fh05 = 0x03a4 // 0x1a0e @0xe
0x1a00…3974 fh06 = 003e80011800000000000000000000000000 // 0x1a10 @0x10
0x1a00…3974 at0022 = 0x82040003 // 0x1a22 @0x22
0x1a00…3974 at0026 = Form36LV {f00=0x24, f01=0x1f, f12=0x0643084a, f13=»HELP0113«, f14=»#RP@FMTS«, f15=»#RPGLIB «, f1z=0x1e} // 0x1a26 @0x26
0x1a00…3974 at0045 = Form36LV {f00=0x24, f01=0x1f, f12=0x01011850, f13=»HELP0101«, f14=»#RP@FMTS«, f15=»#RPGLIB «, f1z=0x1e} // 0x1a45 @0x45
0x1a00…3974 at0064 = Form36LV {f00=0x51, f01=0x12, f22=000e00015151, f23=06433e, f24=»N«, f25=00, f26=»N«, f27=1e, f28=»N N«} // 0x1a64 @0x64
0x1a00…3974 at0076 = Form36LV {f00=0x51, f01=0x12, f22=001800015151, f23=08433f, f24=»N«, f25=00, f26=»N«, f27=1f, f28=»N N«} // 0x1a76 @0x76
0x1a00…3974 at0088 = Form36LV {f00=0x51, f01=0x12, f22=01bb00084101, f23=0d2700, f24=»Y«, f25=00, f26=»N«, f27=20, f28=»NNN«} // 0x1a88 @0x88
0x1a00…3974 at009a = Form36LV {f00=0x51, f01=0x12, f22=01ed00084101, f23=0e2700, f24=»Y«, f25=00, f26=»N«, f27=21, f28=»NNN«} // 0x1a9a @0x9a
0x1a00…3974 at00ac = Form36LV {f00=0x51, f01=0x12, f22=021f00084101, f23=0f2700, f24=»Y«, f25=00, f26=»N«, f27=22, f28=»NNN«} // 0x1aac @0xac
0x1a00…3974 at00be = Form36LV {f00=0x51, f01=0x12, f22=025100084101, f23=102700, f24=»Y«, f25=00, f26=»N«, f27=23, f28=»NNN«} // 0x1abe @0xbe
0x1a00…3974 at00d0 = Form36LV {f00=0x51, f01=0x12, f22=025e004b6101, f23=180100, f24=»Y«, f25=00, f26=»N«, f27=24, f28=»NNN«} // 0x1ad0 @0xd0
0x1a00…3974 at00e2 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x1ae2 @0xe2
0x1a00…3974 panel = { // 0x1ae8 @0xe8
0x1a00…3974 ┌────────────────────────────────────────────────────────────────────────────────┐
0x1a00…3974 00│ RPGONL PROCEDURE │
0x1a00…3974 01│ │
0x1a00…3974 02│ Continuation options │
0x1a00…3974 03│ │
0x1a00…3974 04│ │
0x1a00…3974 05│ Would you like to view the compiler listing? . . . Y,N N┴┤ │
0x1a00…3974 06│ │
0x1a00…3974 07│ Would you like to recompile the source program? . . Y,N Y┴┤ │
0x1a00…3974 08│ │
0x1a00…3974 09│ --------------------------------------------------------------------------- │
0x1a00…3974 10│ │
0x1a00…3974 11│ │
0x1a00…3974 12│ Source program . . . . . . . . . ╳␣␣␣␣␣␣␣␣╳ │
0x1a00…3974 13│ Input library . . . . . . . . . . ╳␣␣␣␣␣␣␣␣╳ │
0x1a00…3974 14│ Output library . . . . . . . . . ╳␣␣␣␣␣␣␣␣╳ │
0x1a00…3974 15│ Data dictionary . . . . . . . . . ╳␣␣␣␣␣␣␣␣╳ │
0x1a00…3974 16│ │
0x1a00…3974 17│ │
0x1a00…3974 18│ │
0x1a00…3974 19│ │
0x1a00…3974 20│ │
0x1a00…3974 21│ Cmd1-Work with different member Cmd7-End │
0x1a00…3974 22│ Cmd14-Compiler options (c) 1985 IBM Corp.╳│
0x1a00…3974 23│␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣╳ │
0x1a00…3974 24│ │
0x1a00…3974 25│ │
0x1a00…3974 26│ │
0x1a00…3974 27│ │
0x1a00…3974 └────────────────────────────────────────────────────────────────────────────────┘
0x1a00…3974 Panel5250 {
0x1a00…3974 at0000 = ClearUnit {esc=04, cu=40} // 0x1ae8 @0x0
0x1a00…3974 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x1aea @0x2
0x1a00…3974 at0006 = StartOfHeader {soh=01, len=0x03, extra=000001} // 0x1aee @0x6
0x1a00…3974 at000b = InsertCursor {ic=13, line=0x06, col=0x43} // 0x1af3 @0xb
0x1a00…3974 at000e = SetBufferAddress {ic=11, line=0x06, col=0x42} // 0x1af6 @0xe
0x1a00…3974 at0011 = StartField {sf=1d, ffw=0x4920, attr=0x30, len=0x0001} // 0x1af9 @0x11
0x1a00…3974 at0017 = »N« // 0x1aff @0x17
0x1a00…3974 at0018 = SetBufferAddress {ic=11, line=0x08, col=0x42} // 0x1b00 @0x18
0x1a00…3974 at001b = StartField {sf=1d, ffw=0x4920, fcw=0x80ff, attr=0x30, len=0x0001} // 0x1b03 @0x1b
0x1a00…3974 at0023 = »Y« // 0x1b0b @0x23
0x1a00…3974 at0024 = SetBufferAddress {ic=11, line=0x05, col=0x02} // 0x1b0c @0x24
0x1a00…3974 at0027 = » « // 0x1b0f @0x27
0x1a00…3974 at0076 = » Would you like to view the compiler listing? . . . Y,N « // 0x1b5e @0x76
0x1a00…3974 at00b6 = SetBufferAddress {ic=11, line=0x07, col=0x02} // 0x1b9e @0xb6
0x1a00…3974 at00b9 = » « // 0x1ba1 @0xb9
0x1a00…3974 at0108 = » Would you like to recompile the source program? . . Y,N « // 0x1bf0 @0x108
0x1a00…3974 at0148 = SetBufferAddress {ic=11, line=0x0a, col=0x03} // 0x1c30 @0x148
0x1a00…3974 at014b = »---------------------------------------------------------------------------« // 0x1c33 @0x14b
0x1a00…3974 at0196 = SetBufferAddress {ic=11, line=0x0d, col=0x03} // 0x1c7e @0x196
0x1a00…3974 at0199 = »Source program . . . . . . . . . « // 0x1c81 @0x199
0x1a00…3974 at01bb = SetBufferAddress {ic=11, line=0x0d, col=0x26} // 0x1ca3 @0x1bb
0x1a00…3974 at01be = Attribute {type=0x22} // 0x1ca6 @0x1be
0x1a00…3974 at01bf = »␣␣␣␣␣␣␣␣« // 0x1ca7 @0x1bf
0x1a00…3974 at01c7 = Attribute {type=0x20} // 0x1caf @0x1c7
0x1a00…3974 at01c8 = SetBufferAddress {ic=11, line=0x0e, col=0x03} // 0x1cb0 @0x1c8
0x1a00…3974 at01cb = »Input library . . . . . . . . . . « // 0x1cb3 @0x1cb
0x1a00…3974 at01ed = SetBufferAddress {ic=11, line=0x0e, col=0x26} // 0x1cd5 @0x1ed
0x1a00…3974 at01f0 = Attribute {type=0x22} // 0x1cd8 @0x1f0
0x1a00…3974 at01f1 = »␣␣␣␣␣␣␣␣« // 0x1cd9 @0x1f1
0x1a00…3974 at01f9 = Attribute {type=0x20} // 0x1ce1 @0x1f9
0x1a00…3974 at01fa = SetBufferAddress {ic=11, line=0x0f, col=0x03} // 0x1ce2 @0x1fa
0x1a00…3974 at01fd = »Output library . . . . . . . . . « // 0x1ce5 @0x1fd
0x1a00…3974 at021f = SetBufferAddress {ic=11, line=0x0f, col=0x26} // 0x1d07 @0x21f
0x1a00…3974 at0222 = Attribute {type=0x22} // 0x1d0a @0x222
0x1a00…3974 at0223 = »␣␣␣␣␣␣␣␣« // 0x1d0b @0x223
0x1a00…3974 at022b = Attribute {type=0x20} // 0x1d13 @0x22b
0x1a00…3974 at022c = SetBufferAddress {ic=11, line=0x10, col=0x03} // 0x1d14 @0x22c
0x1a00…3974 at022f = »Data dictionary . . . . . . . . . « // 0x1d17 @0x22f
0x1a00…3974 at0251 = SetBufferAddress {ic=11, line=0x10, col=0x26} // 0x1d39 @0x251
0x1a00…3974 at0254 = Attribute {type=0x22} // 0x1d3c @0x254
0x1a00…3974 at0255 = »␣␣␣␣␣␣␣␣« // 0x1d3d @0x255
0x1a00…3974 at025d = Attribute {type=0x20} // 0x1d45 @0x25d
0x1a00…3974 at025e = SetBufferAddress {ic=11, line=0x17, col=0x50} // 0x1d46 @0x25e
0x1a00…3974 at0261 = Attribute {type=0x22} // 0x1d49 @0x261
0x1a00…3974 at0262 = »␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣« // 0x1d4a @0x262
0x1a00…3974 at02ad = Attribute {type=0x20} // 0x1d95 @0x2ad
0x1a00…3974 at02ae = SetBufferAddress {ic=11, line=0x17, col=0x04} // 0x1d96 @0x2ae
0x1a00…3974 at02b1 = »Cmd14-Compiler options (c) 1985 IBM Corp.« // 0x1d99 @0x2b1
0x1a00…3974 at02fd = SetBufferAddress {ic=11, line=0x01, col=0x13} // 0x1de5 @0x2fd
0x1a00…3974 at0300 = » RPGONL PROCEDURE « // 0x1de8 @0x300
0x1a00…3974 at0329 = SetBufferAddress {ic=11, line=0x03, col=0x13} // 0x1e11 @0x329
0x1a00…3974 at032c = » Continuation options « // 0x1e14 @0x32c
0x1a00…3974 at0355 = SetBufferAddress {ic=11, line=0x16, col=0x04} // 0x1e3d @0x355
0x1a00…3974 at0358 = »Cmd1-Work with different member Cmd7-End « // 0x1e40 @0x358
0x1a00…3974 }
0x1a00…3974 }
0x1a00…3974 }
0x1f00…42d7 Form36 {
0x1f00…42d7 fh000 = 0x01 // 0x1f00 @0x0
0x1f00…42d7 fh00 = 2600 // 0x1f01 @0x1
0x1f00…42d7 fh01 = »NNN« // 0x1f03 @0x3
0x1f00…42d7 fh02 = 000000 // 0x1f06 @0x6
0x1f00…42d7 fh03 = »NNN« // 0x1f09 @0x9
0x1f00…42d7 fh04 = 0x0030 // 0x1f0c @0xc
0x1f00…42d7 fh05 = 0x0477 // 0x1f0e @0xe
0x1f00…42d7 fh06 = 000080011800000000000000000000000000 // 0x1f10 @0x10
0x1f00…42d7 at0022 = 0x00000063 // 0x1f22 @0x22
0x1f00…42d7 at0026 = Form36LV {f00=0xfe, f01=0x0a, f88=00000000000000, f89=09} // 0x1f26 @0x26
0x1f00…42d7 panel = { // 0x1f30 @0x30
0x1f00…42d7 ┌────────────────────────────────────────────────────────────────────────────────┐
0x1f00…42d7 00│ HELP FOR RPGONL PROCEDURE Page 1 of 13 │
0x1f00…42d7 01│ │
0x1f00…42d7 02│╳DESCRIPTION ╳ │
0x1f00…42d7 03│ │
0x1f00…42d7 04│ The RPG II interactive program development procedure (RPGONL) │
0x1f00…42d7 05│ lets you create error-free RPG II programs without leaving the │
0x1f00…42d7 06│ display station. With this procedure you can create RPG II │
0x1f00…42d7 07│ programs, compile these programs, correct errors detected by │
0x1f00…42d7 08│ the system, and then recompile the corrected programs. Because │
0x1f00…42d7 09│ this procedure is interactive, you can continue to recompile │
0x1f00…42d7 10│ a program as many times as you wish. In addition, the system │
0x1f00…42d7 11│ "remembers" the compiler options you chose for the previous │
0x1f00…42d7 12│ compilation, so you have to type these options only once. │
0x1f00…42d7 13│ │
0x1f00…42d7 14│ │
0x1f00…42d7 15│ │
0x1f00…42d7 16│ │
0x1f00…42d7 17│ │
0x1f00…42d7 18│ │
0x1f00…42d7 19│ │
0x1f00…42d7 20│ │
0x1f00…42d7 21│ │
0x1f00…42d7 22│ │
0x1f00…42d7 23│ Enter-Exit help text Roll keys-Page help text (C) 1985 IBM CORP. │
0x1f00…42d7 24│ │
0x1f00…42d7 25│ │
0x1f00…42d7 26│ │
0x1f00…42d7 27│ │
0x1f00…42d7 └────────────────────────────────────────────────────────────────────────────────┘
0x1f00…42d7 Panel5250 {
0x1f00…42d7 at0000 = ClearUnit {esc=04, cu=40} // 0x1f30 @0x0
0x1f00…42d7 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x1f32 @0x2
0x1f00…42d7 at0006 = SetBufferAddress {ic=11, line=0x01, col=0x15} // 0x1f36 @0x6
0x1f00…42d7 at0009 = » HELP FOR RPGONL PROCEDURE « // 0x1f39 @0x9
0x1f00…42d7 at0030 = SetBufferAddress {ic=11, line=0x01, col=0x3d} // 0x1f60 @0x30
0x1f00…42d7 at0033 = »Page 1 of 13 « // 0x1f63 @0x33
0x1f00…42d7 at0043 = SetBufferAddress {ic=11, line=0x03, col=0x01} // 0x1f73 @0x43
0x1f00…42d7 at0046 = Attribute {type=0x22} // 0x1f76 @0x46
0x1f00…42d7 at0047 = »DESCRIPTION « // 0x1f77 @0x47
0x1f00…42d7 at0065 = Attribute {type=0x20} // 0x1f95 @0x65
0x1f00…42d7 at0066 = SetBufferAddress {ic=11, line=0x05, col=0x03} // 0x1f96 @0x66
0x1f00…42d7 at0069 = » The RPG II interactive program development procedure (RPGONL) « // 0x1f99 @0x69
0x1f00…42d7 at00b7 = » lets you create error-free RPG II programs without leaving the « // 0x1fe7 @0xb7
0x1f00…42d7 at0107 = » display station. With this procedure you can create RPG II « // 0x2037 @0x107
0x1f00…42d7 at0157 = » programs, compile these programs, correct errors detected by « // 0x2087 @0x157
0x1f00…42d7 at01a7 = » the system, and then recompile the corrected programs. Because « // 0x20d7 @0x1a7
0x1f00…42d7 at01f7 = » this procedure is interactive, you can continue to recompile « // 0x2127 @0x1f7
0x1f00…42d7 at0247 = » a program as many times as you wish. In addition, the system « // 0x2177 @0x247
0x1f00…42d7 at0297 = » "remembers" the compiler options you chose for the previous « // 0x21c7 @0x297
0x1f00…42d7 at02e7 = » compilation, so you have to type these options only once. « // 0x2217 @0x2e7
0x1f00…42d7 at0337 = » « // 0x2267 @0x337
0x1f00…42d7 at0387 = » « // 0x22b7 @0x387
0x1f00…42d7 at03d7 = » « // 0x2307 @0x3d7
0x1f00…42d7 at0426 = SetBufferAddress {ic=11, line=0x18, col=0x02} // 0x2356 @0x426
0x1f00…42d7 at0429 = »Enter-Exit help text Roll keys-Page help text (C) 1985 IBM CORP.« // 0x2359 @0x429
0x1f00…42d7 }
0x1f00…42d7 }
0x1f00…42d7 }
0x2400…4e95 Form36 {
0x2400…4e95 fh000 = 0x01 // 0x2400 @0x0
0x2400…4e95 fh00 = 2600 // 0x2401 @0x1
0x2400…4e95 fh01 = »NNN« // 0x2403 @0x3
0x2400…4e95 fh02 = 000000 // 0x2406 @0x6
0x2400…4e95 fh03 = »NNN« // 0x2409 @0x9
0x2400…4e95 fh04 = 0x0030 // 0x240c @0xc
0x2400…4e95 fh05 = 0x0635 // 0x240e @0xe
0x2400…4e95 fh06 = 000080011800000000000000000000000000 // 0x2410 @0x10
0x2400…4e95 at0022 = 0x00000063 // 0x2422 @0x22
0x2400…4e95 at0026 = Form36LV {f00=0xfe, f01=0x0a, f88=00000000000000, f89=09} // 0x2426 @0x26
0x2400…4e95 panel = { // 0x2430 @0x30
0x2400…4e95 ┌────────────────────────────────────────────────────────────────────────────────┐
0x2400…4e95 00│ HELP FOR RPGONL PROCEDURE Page 2 of 13 │
0x2400…4e95 01│ │
0x2400…4e95 02│ There are four steps in the RPGONL procedure. │
0x2400…4e95 03│ │
0x2400…4e95 04│ The first step is to respond to the options on the first two displays. │
0x2400…4e95 05│ These options are described later in this help text. │
0x2400…4e95 06│ │
0x2400…4e95 07│ The second step depends on your response to the fourth prompt on the │
0x2400…4e95 08│ first display (Create or change source before first compilation?). │
0x2400…4e95 09│ │
0x2400…4e95 10│ If you entered Y, RPG calls DSU/SEU now, allowing you to create or │
0x2400…4e95 11│ update an RPG II source member. When you finish using DSU/SEU and │
0x2400…4e95 12│ press Cmd7, the source program is compiled. │
0x2400…4e95 13│ │
0x2400…4e95 14│ If you entered N, the existing source program is compiled and │
0x2400…4e95 15│ the DSU/SEU step is skipped. When the compilation is complete, the │
0x2400…4e95 16│ system replaces the existing program with the newly compiled │
0x2400…4e95 17│ program. No message is displayed. │
0x2400…4e95 18│ │
0x2400…4e95 19│ │
0x2400…4e95 20│ │
0x2400…4e95 21│ │
0x2400…4e95 22│ │
0x2400…4e95 23│ Enter-Exit help text Roll keys-Page help text (c) 1985 IBM Corp. │
0x2400…4e95 24│ │
0x2400…4e95 25│ │
0x2400…4e95 26│ │
0x2400…4e95 27│ │
0x2400…4e95 └────────────────────────────────────────────────────────────────────────────────┘
0x2400…4e95 Panel5250 {
0x2400…4e95 at0000 = ClearUnit {esc=04, cu=40} // 0x2430 @0x0
0x2400…4e95 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x2432 @0x2
0x2400…4e95 at0006 = SetBufferAddress {ic=11, line=0x01, col=0x15} // 0x2436 @0x6
0x2400…4e95 at0009 = » HELP FOR RPGONL PROCEDURE Page 2 of 13 « // 0x2439 @0x9
0x2400…4e95 at0044 = SetBufferAddress {ic=11, line=0x03, col=0x03} // 0x2474 @0x44
0x2400…4e95 at0047 = » There are four steps in the RPGONL procedure. « // 0x2477 @0x47
0x2400…4e95 at0095 = » « // 0x24c5 @0x95
0x2400…4e95 at00e5 = » The first step is to respond to the options on the first two displays. « // 0x2515 @0xe5
0x2400…4e95 at0135 = » These options are described later in this help text. « // 0x2565 @0x135
0x2400…4e95 at0185 = » « // 0x25b5 @0x185
0x2400…4e95 at01d5 = » The second step depends on your response to the fourth prompt on the « // 0x2605 @0x1d5
0x2400…4e95 at0225 = » first display (Create or change source before first compilation?). « // 0x2655 @0x225
0x2400…4e95 at0275 = » « // 0x26a5 @0x275
0x2400…4e95 at02c5 = » If you entered Y, RPG calls DSU/SEU now, allowing you to create or « // 0x26f5 @0x2c5
0x2400…4e95 at0315 = » update an RPG II source member. When you finish using DSU/SEU and « // 0x2745 @0x315
0x2400…4e95 at0365 = » press Cmd7, the source program is compiled. « // 0x2795 @0x365
0x2400…4e95 at03b5 = » « // 0x27e5 @0x3b5
0x2400…4e95 at0405 = » If you entered N, the existing source program is compiled and « // 0x2835 @0x405
0x2400…4e95 at0455 = » the DSU/SEU step is skipped. When the compilation is complete, the « // 0x2885 @0x455
0x2400…4e95 at04a5 = » system replaces the existing program with the newly compiled « // 0x28d5 @0x4a5
0x2400…4e95 at04f5 = » program. No message is displayed. « // 0x2925 @0x4f5
0x2400…4e95 at0545 = » « // 0x2975 @0x545
0x2400…4e95 at0595 = » « // 0x29c5 @0x595
0x2400…4e95 at05e4 = SetBufferAddress {ic=11, line=0x18, col=0x02} // 0x2a14 @0x5e4
0x2400…4e95 at05e7 = »Enter-Exit help text Roll keys-Page help text (c) 1985 IBM Corp.« // 0x2a17 @0x5e7
0x2400…4e95 }
0x2400…4e95 }
0x2400…4e95 }
0x2b00…5c4c Form36 {
0x2b00…5c4c fh000 = 0x01 // 0x2b00 @0x0
0x2b00…5c4c fh00 = 2600 // 0x2b01 @0x1
0x2b00…5c4c fh01 = »NNN« // 0x2b03 @0x3
0x2b00…5c4c fh02 = 000000 // 0x2b06 @0x6
0x2b00…5c4c fh03 = »NNN« // 0x2b09 @0x9
0x2b00…5c4c fh04 = 0x0030 // 0x2b0c @0xc
0x2b00…5c4c fh05 = 0x05ec // 0x2b0e @0xe
0x2b00…5c4c fh06 = 000080011800000000000000000000000000 // 0x2b10 @0x10
0x2b00…5c4c at0022 = 0x00000063 // 0x2b22 @0x22
0x2b00…5c4c at0026 = Form36LV {f00=0xfe, f01=0x0a, f88=00000000000000, f89=09} // 0x2b26 @0x26
0x2b00…5c4c panel = { // 0x2b30 @0x30
0x2b00…5c4c ┌────────────────────────────────────────────────────────────────────────────────┐
0x2b00…5c4c 00│ HELP FOR RPGONL PROCEDURE Page 3 of 13 │
0x2b00…5c4c 01│ │
0x2b00…5c4c 02│ The third step is a display of your source program with all error │
0x2b00…5c4c 03│ messages (denoted by ?? in columns 1-2) inserted immediately │
0x2b00…5c4c 04│ before the statement in error. At this time you can correct these │
0x2b00…5c4c 05│ statements. Use Cmd7 to end DSU/SEU. On the DSU/SEU end-of-job │
0x2b00…5c4c 06│ display, you can request that all diagnostics be removed from the │
0x2b00…5c4c 07│ source program. │
0x2b00…5c4c 08│ │
0x2b00…5c4c 09│ │
0x2b00…5c4c 10│ The fourth step is that the Continuation options display appears. │
0x2b00…5c4c 11│ On this display you can choose to do the following: │
0x2b00…5c4c 12│ │
0x2b00…5c4c 13│ 1) View at your display station the compiler listing for the │
0x2b00…5c4c 14│ source member just compiled. If you choose not to view the │
0x2b00…5c4c 15│ listing, it is automatically deleted. │
0x2b00…5c4c 16│ │
0x2b00…5c4c 17│ 2) Recompile the source member whose name is shown on the │
0x2b00…5c4c 18│ bottom half of the display. │
0x2b00…5c4c 19│ │
0x2b00…5c4c 20│ │
0x2b00…5c4c 21│ │
0x2b00…5c4c 22│ │
0x2b00…5c4c 23│ Enter-Exit help text Roll keys-Page help text (c) 1985 IBM Corp. │
0x2b00…5c4c 24│ │
0x2b00…5c4c 25│ │
0x2b00…5c4c 26│ │
0x2b00…5c4c 27│ │
0x2b00…5c4c └────────────────────────────────────────────────────────────────────────────────┘
0x2b00…5c4c Panel5250 {
0x2b00…5c4c at0000 = ClearUnit {esc=04, cu=40} // 0x2b30 @0x0
0x2b00…5c4c at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x2b32 @0x2
0x2b00…5c4c at0006 = SetBufferAddress {ic=11, line=0x01, col=0x12} // 0x2b36 @0x6
0x2b00…5c4c at0009 = » HELP FOR RPGONL PROCEDURE Page 3 of 13 « // 0x2b39 @0x9
0x2b00…5c4c at0047 = SetBufferAddress {ic=11, line=0x03, col=0x02} // 0x2b77 @0x47
0x2b00…5c4c at004a = » The third step is a display of your source program with all error « // 0x2b7a @0x4a
0x2b00…5c4c at0099 = » messages (denoted by ?? in columns 1-2) inserted immediately « // 0x2bc9 @0x99
0x2b00…5c4c at00e9 = » before the statement in error. At this time you can correct these « // 0x2c19 @0xe9
0x2b00…5c4c at0139 = » statements. Use Cmd7 to end DSU/SEU. On the DSU/SEU end-of-job « // 0x2c69 @0x139
0x2b00…5c4c at0189 = » display, you can request that all diagnostics be removed from the « // 0x2cb9 @0x189
0x2b00…5c4c at01d9 = » source program. « // 0x2d09 @0x1d9
0x2b00…5c4c at0229 = » « // 0x2d59 @0x229
0x2b00…5c4c at0278 = SetBufferAddress {ic=11, line=0x0b, col=0x02} // 0x2da8 @0x278
0x2b00…5c4c at027b = » The fourth step is that the Continuation options display appears. « // 0x2dab @0x27b
0x2b00…5c4c at02ca = » On this display you can choose to do the following: « // 0x2dfa @0x2ca
0x2b00…5c4c at031a = » « // 0x2e4a @0x31a
0x2b00…5c4c at0369 = SetBufferAddress {ic=11, line=0x0e, col=0x02} // 0x2e99 @0x369
0x2b00…5c4c at036c = » 1) View at your display station the compiler listing for the « // 0x2e9c @0x36c
0x2b00…5c4c at03bb = » source member just compiled. If you choose not to view the « // 0x2eeb @0x3bb
0x2b00…5c4c at040b = » listing, it is automatically deleted. « // 0x2f3b @0x40b
0x2b00…5c4c at045b = » « // 0x2f8b @0x45b
0x2b00…5c4c at04aa = SetBufferAddress {ic=11, line=0x12, col=0x02} // 0x2fda @0x4aa
0x2b00…5c4c at04ad = » 2) Recompile the source member whose name is shown on the « // 0x2fdd @0x4ad
0x2b00…5c4c at04fc = » bottom half of the display. « // 0x302c @0x4fc
0x2b00…5c4c at054c = » « // 0x307c @0x54c
0x2b00…5c4c at059b = SetBufferAddress {ic=11, line=0x18, col=0x02} // 0x30cb @0x59b
0x2b00…5c4c at059e = »Enter-Exit help text Roll keys-Page help text (c) 1985 IBM Corp.« // 0x30ce @0x59e
0x2b00…5c4c }
0x2b00…5c4c }
0x2b00…5c4c }
0x3200…68e5 Form36 {
0x3200…68e5 fh000 = 0x01 // 0x3200 @0x0
0x3200…68e5 fh00 = 2600 // 0x3201 @0x1
0x3200…68e5 fh01 = »NNN« // 0x3203 @0x3
0x3200…68e5 fh02 = 000000 // 0x3206 @0x6
0x3200…68e5 fh03 = »NNN« // 0x3209 @0x9
0x3200…68e5 fh04 = 0x0030 // 0x320c @0xc
0x3200…68e5 fh05 = 0x0485 // 0x320e @0xe
0x3200…68e5 fh06 = 000080011800000000000000000000000000 // 0x3210 @0x10
0x3200…68e5 at0022 = 0x00000063 // 0x3222 @0x22
0x3200…68e5 at0026 = Form36LV {f00=0xfe, f01=0x0a, f88=00000000000000, f89=09} // 0x3226 @0x26
0x3200…68e5 panel = { // 0x3230 @0x30
0x3200…68e5 ┌────────────────────────────────────────────────────────────────────────────────┐
0x3200…68e5 00│ HELP FOR RPGONL PROCEDURE Page 4 of 13 │
0x3200…68e5 01│ │
0x3200…68e5 02│ Use Cmd14 if you would like to change any of the RPG II compiler │
0x3200…68e5 03│ options before the next compilation. Use Cmd1 if you would │
0x3200…68e5 04│ like to work with a new or different source member. Use Cmd7 │
0x3200…68e5 05│ to end this procedure. │
0x3200…68e5 06│ │
0x3200…68e5 07│ │
0x3200…68e5 08│ │
0x3200…68e5 09│╳KEYS YOU CAN USE ON THE RPGONL PROCEDURE │
0x3200…68e5 10│ ╳ │
0x3200…68e5 11│ Cmd1 - Work with a new or different member │
0x3200…68e5 12│ Cmd2 - Show previous display │
0x3200…68e5 13│ Cmd3 - Display the previous menu │
0x3200…68e5 14│ Cmd7 - End the procedure │
0x3200…68e5 15│ Cmd14- Display RPG II compiler options │
0x3200…68e5 16│ │
0x3200…68e5 17│ │
0x3200…68e5 18│ │
0x3200…68e5 19│ │
0x3200…68e5 20│ │
0x3200…68e5 21│ │
0x3200…68e5 22│ │
0x3200…68e5 23│ Enter-Exit help text Roll keys-Page help text (c) 1985 IBM Corp. │
0x3200…68e5 24│ │
0x3200…68e5 25│ │
0x3200…68e5 26│ │
0x3200…68e5 27│ │
0x3200…68e5 └────────────────────────────────────────────────────────────────────────────────┘
0x3200…68e5 Panel5250 {
0x3200…68e5 at0000 = ClearUnit {esc=04, cu=40} // 0x3230 @0x0
0x3200…68e5 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x3232 @0x2
0x3200…68e5 at0006 = SetBufferAddress {ic=11, line=0x01, col=0x03} // 0x3236 @0x6
0x3200…68e5 at0009 = » HELP FOR RPGONL PROCEDURE « // 0x3239 @0x9
0x3200…68e5 at0042 = SetBufferAddress {ic=11, line=0x01, col=0x3d} // 0x3272 @0x42
0x3200…68e5 at0045 = »Page 4 of 13 « // 0x3275 @0x45
0x3200…68e5 at0058 = SetBufferAddress {ic=11, line=0x03, col=0x02} // 0x3288 @0x58
0x3200…68e5 at005b = » Use Cmd14 if you would like to change any of the RPG II compiler « // 0x328b @0x5b
0x3200…68e5 at00aa = » options before the next compilation. Use Cmd1 if you would « // 0x32da @0xaa
0x3200…68e5 at00fa = » like to work with a new or different source member. Use Cmd7 « // 0x332a @0xfa
0x3200…68e5 at014a = » to end this procedure. « // 0x337a @0x14a
0x3200…68e5 at019a = » « // 0x33ca @0x19a
0x3200…68e5 at01e9 = SetBufferAddress {ic=11, line=0x0a, col=0x01} // 0x3419 @0x1e9
0x3200…68e5 at01ec = Attribute {type=0x22} // 0x341c @0x1ec
0x3200…68e5 at01ed = »KEYS YOU CAN USE ON THE RPGONL PROCEDURE « // 0x341d @0x1ed
0x3200…68e5 at023c = » « // 0x346c @0x23c
0x3200…68e5 at0269 = Attribute {type=0x20} // 0x3499 @0x269
0x3200…68e5 at026a = SetBufferAddress {ic=11, line=0x0c, col=0x02} // 0x349a @0x26a
0x3200…68e5 at026d = » Cmd1 - Work with a new or different member « // 0x349d @0x26d
0x3200…68e5 at02bc = SetBufferAddress {ic=11, line=0x0d, col=0x02} // 0x34ec @0x2bc
0x3200…68e5 at02bf = » Cmd2 - Show previous display « // 0x34ef @0x2bf
0x3200…68e5 at030e = SetBufferAddress {ic=11, line=0x0e, col=0x02} // 0x353e @0x30e
0x3200…68e5 at0311 = » Cmd3 - Display the previous menu « // 0x3541 @0x311
0x3200…68e5 at0360 = SetBufferAddress {ic=11, line=0x0f, col=0x02} // 0x3590 @0x360
0x3200…68e5 at0363 = » Cmd7 - End the procedure « // 0x3593 @0x363
0x3200…68e5 at03b2 = SetBufferAddress {ic=11, line=0x10, col=0x02} // 0x35e2 @0x3b2
0x3200…68e5 at03b5 = » Cmd14- Display RPG II compiler options « // 0x35e5 @0x3b5
0x3200…68e5 at0404 = » « // 0x3634 @0x404
0x3200…68e5 at0434 = SetBufferAddress {ic=11, line=0x18, col=0x02} // 0x3664 @0x434
0x3200…68e5 at0437 = »Enter-Exit help text Roll keys-Page help text (c) 1985 IBM Corp.« // 0x3667 @0x437
0x3200…68e5 }
0x3200…68e5 }
0x3200…68e5 }
0x3700…734b Form36 {
0x3700…734b fh000 = 0x01 // 0x3700 @0x0
0x3700…734b fh00 = 2600 // 0x3701 @0x1
0x3700…734b fh01 = »NNN« // 0x3703 @0x3
0x3700…734b fh02 = 000000 // 0x3706 @0x6
0x3700…734b fh03 = »NNN« // 0x3709 @0x9
0x3700…734b fh04 = 0x0030 // 0x370c @0xc
0x3700…734b fh05 = 0x04eb // 0x370e @0xe
0x3700…734b fh06 = 000080011800000000000000000000000000 // 0x3710 @0x10
0x3700…734b at0022 = 0x00000063 // 0x3722 @0x22
0x3700…734b at0026 = Form36LV {f00=0xfe, f01=0x0a, f88=00000000000000, f89=09} // 0x3726 @0x26
0x3700…734b panel = { // 0x3730 @0x30
0x3700…734b ┌────────────────────────────────────────────────────────────────────────────────┐
0x3700…734b 00│ HELP FOR RPGONL PROCEDURE Page 5 of 13 │
0x3700…734b 01│ │
0x3700…734b 02│╳Name of source program to be compiled . . . . . . . . . . . . ╳│
0x3700…734b 03│ │
0x3700…734b 04│ The name you give to the set of RPG II specifications │
0x3700…734b 05│ used as input for a program. This name can be up to 8 │
0x3700…734b 06│ characters long and must begin with an alphabetic character │
0x3700…734b 07│ (A-Z,#,$,@). │
0x3700…734b 08│ │
0x3700…734b 09│ │
0x3700…734b 10│ │
0x3700…734b 11│ │
0x3700…734b 12│╳Name of library containing source program . . . . . . . . . . ╳ │
0x3700…734b 13│ │
0x3700…734b 14│ The name you give to the area on disk that contains the RPG II │
0x3700…734b 15│ source program. The library name can be up to 8 characters │
0x3700…734b 16│ long and must begin with an alphabetic character. The │
0x3700…734b 17│ default is the current active library. │
0x3700…734b 18│ │
0x3700…734b 19│ │
0x3700…734b 20│ │
0x3700…734b 21│ │
0x3700…734b 22│ │
0x3700…734b 23│ Enter-Exit help text Roll keys-Page help text (c) 1985 IBM Corp. │
0x3700…734b 24│ │
0x3700…734b 25│ │
0x3700…734b 26│ │
0x3700…734b 27│ │
0x3700…734b └────────────────────────────────────────────────────────────────────────────────┘
0x3700…734b Panel5250 {
0x3700…734b at0000 = ClearUnit {esc=04, cu=40} // 0x3730 @0x0
0x3700…734b at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x3732 @0x2
0x3700…734b at0006 = SetBufferAddress {ic=11, line=0x01, col=0x03} // 0x3736 @0x6
0x3700…734b at0009 = » HELP FOR RPGONL PROCEDURE « // 0x3739 @0x9
0x3700…734b at0042 = SetBufferAddress {ic=11, line=0x01, col=0x3d} // 0x3772 @0x42
0x3700…734b at0045 = »Page 5 of 13 « // 0x3775 @0x45
0x3700…734b at0058 = SetBufferAddress {ic=11, line=0x03, col=0x01} // 0x3788 @0x58
0x3700…734b at005b = Attribute {type=0x22} // 0x378b @0x5b
0x3700…734b at005c = »Name of source program to be compiled . . . . . . . . . . . . « // 0x378c @0x5c
0x3700…734b at00aa = Attribute {type=0x20} // 0x37da @0xaa
0x3700…734b at00ab = SetBufferAddress {ic=11, line=0x05, col=0x02} // 0x37db @0xab
0x3700…734b at00ae = » The name you give to the set of RPG II specifications « // 0x37de @0xae
0x3700…734b at00fd = » used as input for a program. This name can be up to 8 « // 0x382d @0xfd
0x3700…734b at014d = » characters long and must begin with an alphabetic character « // 0x387d @0x14d
0x3700…734b at019d = » (A-Z,#,$,@). « // 0x38cd @0x19d
0x3700…734b at01ed = » « // 0x391d @0x1ed
0x3700…734b at023c = SetBufferAddress {ic=11, line=0x0d, col=0x01} // 0x396c @0x23c
0x3700…734b at023f = Attribute {type=0x22} // 0x396f @0x23f
0x3700…734b at0240 = »Name of library containing source program . . . . . . . . . . « // 0x3970 @0x240
0x3700…734b at027f = Attribute {type=0x20} // 0x39af @0x27f
0x3700…734b at0280 = SetBufferAddress {ic=11, line=0x0f, col=0x05} // 0x39b0 @0x280
0x3700…734b at0283 = »The name you give to the area on disk that contains the RPG II « // 0x39b3 @0x283
0x3700…734b at02cf = » source program. The library name can be up to 8 characters « // 0x39ff @0x2cf
0x3700…734b at031f = » long and must begin with an alphabetic character. The « // 0x3a4f @0x31f
0x3700…734b at036f = » default is the current active library. « // 0x3a9f @0x36f
0x3700…734b at03bf = » « // 0x3aef @0x3bf
0x3700…734b at040f = » « // 0x3b3f @0x40f
0x3700…734b at045f = » « // 0x3b8f @0x45f
0x3700…734b at049a = SetBufferAddress {ic=11, line=0x18, col=0x02} // 0x3bca @0x49a
0x3700…734b at049d = »Enter-Exit help text Roll keys-Page help text (c) 1985 IBM Corp.« // 0x3bcd @0x49d
0x3700…734b }
0x3700…734b }
0x3700…734b }
0x3d00…7f2a Form36 {
0x3d00…7f2a fh000 = 0x01 // 0x3d00 @0x0
0x3d00…7f2a fh00 = 2600 // 0x3d01 @0x1
0x3d00…7f2a fh01 = »NNN« // 0x3d03 @0x3
0x3d00…7f2a fh02 = 000000 // 0x3d06 @0x6
0x3d00…7f2a fh03 = »NNN« // 0x3d09 @0x9
0x3d00…7f2a fh04 = 0x0030 // 0x3d0c @0xc
0x3d00…7f2a fh05 = 0x04ca // 0x3d0e @0xe
0x3d00…7f2a fh06 = 000080011800000000000000000000000000 // 0x3d10 @0x10
0x3d00…7f2a at0022 = 0x00000063 // 0x3d22 @0x22
0x3d00…7f2a at0026 = Form36LV {f00=0xfe, f01=0x0a, f88=00000000000000, f89=09} // 0x3d26 @0x26
0x3d00…7f2a panel = { // 0x3d30 @0x30
0x3d00…7f2a ┌────────────────────────────────────────────────────────────────────────────────┐
0x3d00…7f2a 00│ HELP FOR RPGONL PROCEDURE Page 6 of 13 │
0x3d00…7f2a 01│ │
0x3d00…7f2a 02│╳Name of library to contain compiled program . . . . . . . . . ╳│
0x3d00…7f2a 03│ │
0x3d00…7f2a 04│ The name you give to the area on disk that will contain │
0x3d00…7f2a 05│ the compiled source program. If you leave this entry │
0x3d00…7f2a 06│ blank, the system uses the name of the source input library. │
0x3d00…7f2a 07│ │
0x3d00…7f2a 08│ │
0x3d00…7f2a 09│╳Name of data dictionary to be used . . . . . . . . . . . . . . │
0x3d00…7f2a 10│╳ │
0x3d00…7f2a 11│ The name of the data dictionary to use during the compile. │
0x3d00…7f2a 12│ There is no assumed default. │
0x3d00…7f2a 13│ │
0x3d00…7f2a 14│╳Create or change source before first compilation? . . . . Y,N ╳│
0x3d00…7f2a 15│ │
0x3d00…7f2a 16│ If you answer Y (yes), you can create a new source program │
0x3d00…7f2a 17│ or change an existing source program by using SEU or DSU. │
0x3d00…7f2a 18│ Use command key 7 to end DSU/SEU. If you answer │
0x3d00…7f2a 19│ N (no), the system compiles the existing source program. │
0x3d00…7f2a 20│ │
0x3d00…7f2a 21│ │
0x3d00…7f2a 22│ │
0x3d00…7f2a 23│ Enter-Exit help text Roll keys-Page help text (c) 1985 IBM Corp. │
0x3d00…7f2a 24│ │
0x3d00…7f2a 25│ │
0x3d00…7f2a 26│ │
0x3d00…7f2a 27│ │
0x3d00…7f2a └────────────────────────────────────────────────────────────────────────────────┘
0x3d00…7f2a Panel5250 {
0x3d00…7f2a at0000 = ClearUnit {esc=04, cu=40} // 0x3d30 @0x0
0x3d00…7f2a at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x3d32 @0x2
0x3d00…7f2a at0006 = SetBufferAddress {ic=11, line=0x01, col=0x03} // 0x3d36 @0x6
0x3d00…7f2a at0009 = » HELP FOR RPGONL PROCEDURE « // 0x3d39 @0x9
0x3d00…7f2a at0042 = SetBufferAddress {ic=11, line=0x01, col=0x3d} // 0x3d72 @0x42
0x3d00…7f2a at0045 = »Page 6 of 13 « // 0x3d75 @0x45
0x3d00…7f2a at0058 = SetBufferAddress {ic=11, line=0x03, col=0x01} // 0x3d88 @0x58
0x3d00…7f2a at005b = Attribute {type=0x22} // 0x3d8b @0x5b
0x3d00…7f2a at005c = »Name of library to contain compiled program . . . . . . . . . « // 0x3d8c @0x5c
0x3d00…7f2a at00aa = Attribute {type=0x20} // 0x3dda @0xaa
0x3d00…7f2a at00ab = SetBufferAddress {ic=11, line=0x05, col=0x02} // 0x3ddb @0xab
0x3d00…7f2a at00ae = » The name you give to the area on disk that will contain « // 0x3dde @0xae
0x3d00…7f2a at00fd = » the compiled source program. If you leave this entry « // 0x3e2d @0xfd
0x3d00…7f2a at014d = » blank, the system uses the name of the source input library. « // 0x3e7d @0x14d
0x3d00…7f2a at019d = » « // 0x3ecd @0x19d
0x3d00…7f2a at01ec = SetBufferAddress {ic=11, line=0x0a, col=0x01} // 0x3f1c @0x1ec
0x3d00…7f2a at01ef = Attribute {type=0x22} // 0x3f1f @0x1ef
0x3d00…7f2a at01f0 = »Name of data dictionary to be used . . . . . . . . . . . . . . « // 0x3f20 @0x1f0
0x3d00…7f2a at023f = Attribute {type=0x20} // 0x3f6f @0x23f
0x3d00…7f2a at0240 = SetBufferAddress {ic=11, line=0x0c, col=0x02} // 0x3f70 @0x240
0x3d00…7f2a at0243 = » The name of the data dictionary to use during the compile. « // 0x3f73 @0x243
0x3d00…7f2a at0292 = SetBufferAddress {ic=11, line=0x0d, col=0x02} // 0x3fc2 @0x292
0x3d00…7f2a at0295 = » There is no assumed default. « // 0x3fc5 @0x295
0x3d00…7f2a at02e4 = SetBufferAddress {ic=11, line=0x0f, col=0x01} // 0x4014 @0x2e4
0x3d00…7f2a at02e7 = Attribute {type=0x22} // 0x4017 @0x2e7
0x3d00…7f2a at02e8 = »Create or change source before first compilation? . . . . Y,N « // 0x4018 @0x2e8
0x3d00…7f2a at0336 = Attribute {type=0x20} // 0x4066 @0x336
0x3d00…7f2a at0337 = SetBufferAddress {ic=11, line=0x11, col=0x02} // 0x4067 @0x337
0x3d00…7f2a at033a = » If you answer Y (yes), you can create a new source program « // 0x406a @0x33a
0x3d00…7f2a at0389 = » or change an existing source program by using SEU or DSU. « // 0x40b9 @0x389
0x3d00…7f2a at03d9 = » Use command key 7 to end DSU/SEU. If you answer « // 0x4109 @0x3d9
0x3d00…7f2a at0429 = » N (no), the system compiles the existing source program. « // 0x4159 @0x429
0x3d00…7f2a at0479 = SetBufferAddress {ic=11, line=0x18, col=0x02} // 0x41a9 @0x479
0x3d00…7f2a at047c = »Enter-Exit help text Roll keys-Page help text (c) 1985 IBM Corp.« // 0x41ac @0x47c
0x3d00…7f2a }
0x3d00…7f2a }
0x3d00…7f2a }
0x4200…8a63 Form36 {
0x4200…8a63 fh000 = 0x01 // 0x4200 @0x0
0x4200…8a63 fh00 = 2600 // 0x4201 @0x1
0x4200…8a63 fh01 = »NNN« // 0x4203 @0x3
0x4200…8a63 fh02 = 000000 // 0x4206 @0x6
0x4200…8a63 fh03 = »NNN« // 0x4209 @0x9
0x4200…8a63 fh04 = 0x0030 // 0x420c @0xc
0x4200…8a63 fh05 = 0x0603 // 0x420e @0xe
0x4200…8a63 fh06 = 000080011800000000000000000000000000 // 0x4210 @0x10
0x4200…8a63 at0022 = 0x00000063 // 0x4222 @0x22
0x4200…8a63 at0026 = Form36LV {f00=0xfe, f01=0x0a, f88=00000000000000, f89=09} // 0x4226 @0x26
0x4200…8a63 panel = { // 0x4230 @0x30
0x4200…8a63 ┌────────────────────────────────────────────────────────────────────────────────┐
0x4200…8a63 00│ HELP FOR RPGONL PROCEDURE Page 7 of 13 │
0x4200…8a63 01│ │
0x4200…8a63 02│╳Override print option in source . . . SOURCE,NOSOURCE,PSOURCE ╳│
0x4200…8a63 03│ │
0x4200…8a63 04│ Use this option to override the entry you made in column 11 │
0x4200…8a63 05│ of the RPG II control specification. │
0x4200…8a63 06│ │
0x4200…8a63 07│ │
0x4200…8a63 08│ SOURCE - Requests a complete program listing. │
0x4200…8a63 09│ NOSOURCE - Requests no program listing. Use this option to │
0x4200…8a63 10│ create a compiled program for which you have a listing. │
0x4200…8a63 11│ PSOURCE - Requests a partial program listing. │
0x4200…8a63 12│ │
0x4200…8a63 13│╳Override debug option in source . . . . . . . . DEBUG,NODEBUG ╳│
0x4200…8a63 14│ │
0x4200…8a63 15│ Use this option to override the entry you made in column 15 of the │
0x4200…8a63 16│ RPG II control specification. │
0x4200…8a63 17│ │
0x4200…8a63 18│ DEBUG - Your program uses the DEBUG operation. │
0x4200…8a63 19│ NODEBUG - Your program does not use the DEBUG operation. │
0x4200…8a63 20│ │
0x4200…8a63 21│ │
0x4200…8a63 22│ │
0x4200…8a63 23│ Enter-Exit help text Roll keys-Page help text (c) 1985 IBM Corp. │
0x4200…8a63 24│ │
0x4200…8a63 25│ │
0x4200…8a63 26│ │
0x4200…8a63 27│ │
0x4200…8a63 └────────────────────────────────────────────────────────────────────────────────┘
0x4200…8a63 Panel5250 {
0x4200…8a63 at0000 = ClearUnit {esc=04, cu=40} // 0x4230 @0x0
0x4200…8a63 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x4232 @0x2
0x4200…8a63 at0006 = SetBufferAddress {ic=11, line=0x01, col=0x03} // 0x4236 @0x6
0x4200…8a63 at0009 = » HELP FOR RPGONL PROCEDURE « // 0x4239 @0x9
0x4200…8a63 at0042 = SetBufferAddress {ic=11, line=0x01, col=0x3d} // 0x4272 @0x42
0x4200…8a63 at0045 = »Page 7 of 13 « // 0x4275 @0x45
0x4200…8a63 at0058 = SetBufferAddress {ic=11, line=0x03, col=0x01} // 0x4288 @0x58
0x4200…8a63 at005b = Attribute {type=0x22} // 0x428b @0x5b
0x4200…8a63 at005c = »Override print option in source . . . SOURCE,NOSOURCE,PSOURCE « // 0x428c @0x5c
0x4200…8a63 at00aa = Attribute {type=0x20} // 0x42da @0xaa
0x4200…8a63 at00ab = SetBufferAddress {ic=11, line=0x05, col=0x02} // 0x42db @0xab
0x4200…8a63 at00ae = » Use this option to override the entry you made in column 11 « // 0x42de @0xae
0x4200…8a63 at00fd = » of the RPG II control specification. « // 0x432d @0xfd
0x4200…8a63 at014d = » « // 0x437d @0x14d
0x4200…8a63 at019c = SetBufferAddress {ic=11, line=0x09, col=0x02} // 0x43cc @0x19c
0x4200…8a63 at019f = » SOURCE - Requests a complete program listing. « // 0x43cf @0x19f
0x4200…8a63 at01ee = » NOSOURCE - Requests no program listing. Use this option to « // 0x441e @0x1ee
0x4200…8a63 at023e = » create a compiled program for which you have a listing. « // 0x446e @0x23e
0x4200…8a63 at028e = » PSOURCE - Requests a partial program listing. « // 0x44be @0x28e
0x4200…8a63 at02de = » « // 0x450e @0x2de
0x4200…8a63 at032d = SetBufferAddress {ic=11, line=0x0e, col=0x01} // 0x455d @0x32d
0x4200…8a63 at0330 = Attribute {type=0x22} // 0x4560 @0x330
0x4200…8a63 at0331 = »Override debug option in source . . . . . . . . DEBUG,NODEBUG « // 0x4561 @0x331
0x4200…8a63 at037f = Attribute {type=0x20} // 0x45af @0x37f
0x4200…8a63 at0380 = SetBufferAddress {ic=11, line=0x10, col=0x02} // 0x45b0 @0x380
0x4200…8a63 at0383 = » Use this option to override the entry you made in column 15 of the « // 0x45b3 @0x383
0x4200…8a63 at03d2 = » RPG II control specification. « // 0x4602 @0x3d2
0x4200…8a63 at0422 = » « // 0x4652 @0x422
0x4200…8a63 at0471 = SetBufferAddress {ic=11, line=0x13, col=0x02} // 0x46a1 @0x471
0x4200…8a63 at0474 = » DEBUG - Your program uses the DEBUG operation. « // 0x46a4 @0x474
0x4200…8a63 at04c3 = » NODEBUG - Your program does not use the DEBUG operation. « // 0x46f3 @0x4c3
0x4200…8a63 at0513 = » « // 0x4743 @0x513
0x4200…8a63 at0563 = » « // 0x4793 @0x563
0x4200…8a63 at05b2 = SetBufferAddress {ic=11, line=0x18, col=0x02} // 0x47e2 @0x5b2
0x4200…8a63 at05b5 = »Enter-Exit help text Roll keys-Page help text (c) 1985 IBM Corp.« // 0x47e5 @0x5b5
0x4200…8a63 }
0x4200…8a63 }
0x4200…8a63 }
0x4900…9814 Form36 {
0x4900…9814 fh000 = 0x01 // 0x4900 @0x0
0x4900…9814 fh00 = 2600 // 0x4901 @0x1
0x4900…9814 fh01 = »NNN« // 0x4903 @0x3
0x4900…9814 fh02 = 000000 // 0x4906 @0x6
0x4900…9814 fh03 = »NNN« // 0x4909 @0x9
0x4900…9814 fh04 = 0x0030 // 0x490c @0xc
0x4900…9814 fh05 = 0x05b4 // 0x490e @0xe
0x4900…9814 fh06 = 000080011800000000000000000000000000 // 0x4910 @0x10
0x4900…9814 at0022 = 0x00000063 // 0x4922 @0x22
0x4900…9814 at0026 = Form36LV {f00=0xfe, f01=0x0a, f88=00000000000000, f89=09} // 0x4926 @0x26
0x4900…9814 panel = { // 0x4930 @0x30
0x4900…9814 ┌────────────────────────────────────────────────────────────────────────────────┐
0x4900…9814 00│ HELP FOR RPGONL PROCEDURE Page 8 of 13 │
0x4900…9814 01│ │
0x4900…9814 02│╳Override size-to-execute option in source . . . . . . . 2-64 ╳│
0x4900…9814 03│ │
0x4900…9814 04│ Use this option to override the entry you made in columns 13-14 │
0x4900…9814 05│ of the RPG II control specification. You can enter any even number │
0x4900…9814 06│ from 2 to 64. │
0x4900…9814 07│ │
0x4900…9814 08│ │
0x4900…9814 09│╳Create cross-reference listing . . . . . . . . . . NOXREF,XREF ╳│
0x4900…9814 10│ │
0x4900…9814 11│ Use this option to request a cross-reference listing of symbols │
0x4900…9814 12│ for the program being compiled. A cross-reference listing │
0x4900…9814 13│ consists of an alphabetic list of all symbols used in the │
0x4900…9814 14│ program and the line number in which each symbol is used. │
0x4900…9814 15│ │
0x4900…9814 16│ NOXREF (default) - Does not request a cross-reference listing. │
0x4900…9814 17│ XREF - Requests a cross-reference listing. │
0x4900…9814 18│ │
0x4900…9814 19│ │
0x4900…9814 20│ │
0x4900…9814 21│ │
0x4900…9814 22│ │
0x4900…9814 23│ Enter-Exit help text Roll keys-Page help text (c) 1985 IBM Corp. │
0x4900…9814 24│ │
0x4900…9814 25│ │
0x4900…9814 26│ │
0x4900…9814 27│ │
0x4900…9814 └────────────────────────────────────────────────────────────────────────────────┘
0x4900…9814 Panel5250 {
0x4900…9814 at0000 = ClearUnit {esc=04, cu=40} // 0x4930 @0x0
0x4900…9814 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x4932 @0x2
0x4900…9814 at0006 = SetBufferAddress {ic=11, line=0x01, col=0x03} // 0x4936 @0x6
0x4900…9814 at0009 = » HELP FOR RPGONL PROCEDURE « // 0x4939 @0x9
0x4900…9814 at0042 = SetBufferAddress {ic=11, line=0x01, col=0x3d} // 0x4972 @0x42
0x4900…9814 at0045 = »Page 8 of 13 « // 0x4975 @0x45
0x4900…9814 at0058 = SetBufferAddress {ic=11, line=0x03, col=0x01} // 0x4988 @0x58
0x4900…9814 at005b = Attribute {type=0x22} // 0x498b @0x5b
0x4900…9814 at005c = »Override size-to-execute option in source . . . . . . . 2-64 « // 0x498c @0x5c
0x4900…9814 at00aa = Attribute {type=0x20} // 0x49da @0xaa
0x4900…9814 at00ab = SetBufferAddress {ic=11, line=0x05, col=0x02} // 0x49db @0xab
0x4900…9814 at00ae = » Use this option to override the entry you made in columns 13-14 « // 0x49de @0xae
0x4900…9814 at00fd = » of the RPG II control specification. You can enter any even number « // 0x4a2d @0xfd
0x4900…9814 at014d = » from 2 to 64. « // 0x4a7d @0x14d
0x4900…9814 at019d = » « // 0x4acd @0x19d
0x4900…9814 at01ed = SetBufferAddress {ic=11, line=0x0a, col=0x01} // 0x4b1d @0x1ed
0x4900…9814 at01f0 = Attribute {type=0x22} // 0x4b20 @0x1f0
0x4900…9814 at01f1 = »Create cross-reference listing . . . . . . . . . . NOXREF,XREF « // 0x4b21 @0x1f1
0x4900…9814 at023f = Attribute {type=0x20} // 0x4b6f @0x23f
0x4900…9814 at0240 = SetBufferAddress {ic=11, line=0x0c, col=0x02} // 0x4b70 @0x240
0x4900…9814 at0243 = » Use this option to request a cross-reference listing of symbols « // 0x4b73 @0x243
0x4900…9814 at0292 = » for the program being compiled. A cross-reference listing « // 0x4bc2 @0x292
0x4900…9814 at02e2 = » consists of an alphabetic list of all symbols used in the « // 0x4c12 @0x2e2
0x4900…9814 at0332 = » program and the line number in which each symbol is used. « // 0x4c62 @0x332
0x4900…9814 at0382 = » « // 0x4cb2 @0x382
0x4900…9814 at03d2 = » « // 0x4d02 @0x3d2
0x4900…9814 at03d3 = SetBufferAddress {ic=11, line=0x11, col=0x03} // 0x4d03 @0x3d3
0x4900…9814 at03d6 = » NOXREF (default) - Does not request a cross-reference listing. « // 0x4d06 @0x3d6
0x4900…9814 at0424 = » XREF - Requests a cross-reference listing. « // 0x4d54 @0x424
0x4900…9814 at0474 = » « // 0x4da4 @0x474
0x4900…9814 at04c4 = » « // 0x4df4 @0x4c4
0x4900…9814 at0514 = » « // 0x4e44 @0x514
0x4900…9814 at0563 = SetBufferAddress {ic=11, line=0x18, col=0x02} // 0x4e93 @0x563
0x4900…9814 at0566 = »Enter-Exit help text Roll keys-Page help text (c) 1985 IBM Corp.« // 0x4e96 @0x566
0x4900…9814 }
0x4900…9814 }
0x4900…9814 }
0x4f00…a4b9 Form36 {
0x4f00…a4b9 fh000 = 0x01 // 0x4f00 @0x0
0x4f00…a4b9 fh00 = 2600 // 0x4f01 @0x1
0x4f00…a4b9 fh01 = »NNN« // 0x4f03 @0x3
0x4f00…a4b9 fh02 = 000000 // 0x4f06 @0x6
0x4f00…a4b9 fh03 = »NNN« // 0x4f09 @0x9
0x4f00…a4b9 fh04 = 0x0030 // 0x4f0c @0xc
0x4f00…a4b9 fh05 = 0x0659 // 0x4f0e @0xe
0x4f00…a4b9 fh06 = 000080011800000000000000000000000000 // 0x4f10 @0x10
0x4f00…a4b9 at0022 = 0x00000063 // 0x4f22 @0x22
0x4f00…a4b9 at0026 = Form36LV {f00=0xfe, f01=0x0a, f88=00000000000000, f89=09} // 0x4f26 @0x26
0x4f00…a4b9 panel = { // 0x4f30 @0x30
0x4f00…a4b9 ┌────────────────────────────────────────────────────────────────────────────────┐
0x4f00…a4b9 00│ HELP FOR RPGONL PROCEDURE Page 9 of 13 │
0x4f00…a4b9 01│ │
0x4f00…a4b9 02│╳Create program that can be run . . . . . . . . . . LINK,NOLINK ╳│
0x4f00…a4b9 03│ │
0x4f00…a4b9 04│ Use this option to create a load module. A load module can be run │
0x4f00…a4b9 05│ without first being link-edited by the OLINK procedure. │
0x4f00…a4b9 06│ │
0x4f00…a4b9 07│ │
0x4f00…a4b9 08│ LINK (default) - Requests a load module if there are no terminal │
0x4f00…a4b9 09│ errors. │
0x4f00…a4b9 10│ NOLINK - Does not request a load module. │
0x4f00…a4b9 11│ │
0x4f00…a4b9 12│╳Create program that must be ╳│
0x4f00…a4b9 13│ ╳ link-edited . . . . . . . . . . . . . . . . NOOBJECT,OBJECT ╳│
0x4f00…a4b9 14│ │
0x4f00…a4b9 15│ Use this option to create a subroutine module. A subroutine │
0x4f00…a4b9 16│ module must be link-edited by the OLINK procedure before it can │
0x4f00…a4b9 17│ be run. │
0x4f00…a4b9 18│ │
0x4f00…a4b9 19│ NOOBJECT (default) - Does not request a subroutine module. │
0x4f00…a4b9 20│ OBJECT - Requests a subroutine module if there are │
0x4f00…a4b9 21│ no terminal errors. │
0x4f00…a4b9 22│ │
0x4f00…a4b9 23│ Enter-Exit help text Roll keys-Page help text (c) 1985 IBM Corp. │
0x4f00…a4b9 24│ │
0x4f00…a4b9 25│ │
0x4f00…a4b9 26│ │
0x4f00…a4b9 27│ │
0x4f00…a4b9 └────────────────────────────────────────────────────────────────────────────────┘
0x4f00…a4b9 Panel5250 {
0x4f00…a4b9 at0000 = ClearUnit {esc=04, cu=40} // 0x4f30 @0x0
0x4f00…a4b9 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x4f32 @0x2
0x4f00…a4b9 at0006 = SetBufferAddress {ic=11, line=0x01, col=0x03} // 0x4f36 @0x6
0x4f00…a4b9 at0009 = » HELP FOR RPGONL PROCEDURE « // 0x4f39 @0x9
0x4f00…a4b9 at0042 = SetBufferAddress {ic=11, line=0x01, col=0x3d} // 0x4f72 @0x42
0x4f00…a4b9 at0045 = »Page 9 of 13 « // 0x4f75 @0x45
0x4f00…a4b9 at0058 = SetBufferAddress {ic=11, line=0x03, col=0x01} // 0x4f88 @0x58
0x4f00…a4b9 at005b = Attribute {type=0x22} // 0x4f8b @0x5b
0x4f00…a4b9 at005c = »Create program that can be run . . . . . . . . . . LINK,NOLINK « // 0x4f8c @0x5c
0x4f00…a4b9 at00aa = Attribute {type=0x20} // 0x4fda @0xaa
0x4f00…a4b9 at00ab = SetBufferAddress {ic=11, line=0x05, col=0x02} // 0x4fdb @0xab
0x4f00…a4b9 at00ae = » Use this option to create a load module. A load module can be run « // 0x4fde @0xae
0x4f00…a4b9 at00fd = » without first being link-edited by the OLINK procedure. « // 0x502d @0xfd
0x4f00…a4b9 at014d = » « // 0x507d @0x14d
0x4f00…a4b9 at019d = » « // 0x50cd @0x19d
0x4f00…a4b9 at019e = SetBufferAddress {ic=11, line=0x09, col=0x03} // 0x50ce @0x19e
0x4f00…a4b9 at01a1 = » LINK (default) - Requests a load module if there are no terminal « // 0x50d1 @0x1a1
0x4f00…a4b9 at01ef = » errors. « // 0x511f @0x1ef
0x4f00…a4b9 at023f = » NOLINK - Does not request a load module. « // 0x516f @0x23f
0x4f00…a4b9 at028f = » « // 0x51bf @0x28f
0x4f00…a4b9 at02df = SetBufferAddress {ic=11, line=0x0d, col=0x01} // 0x520f @0x2df
0x4f00…a4b9 at02e2 = Attribute {type=0x22} // 0x5212 @0x2e2
0x4f00…a4b9 at02e3 = »Create program that must be « // 0x5213 @0x2e3
0x4f00…a4b9 at0331 = Attribute {type=0x20} // 0x5261 @0x331
0x4f00…a4b9 at0332 = SetBufferAddress {ic=11, line=0x0e, col=0x02} // 0x5262 @0x332
0x4f00…a4b9 at0335 = Attribute {type=0x22} // 0x5265 @0x335
0x4f00…a4b9 at0336 = » link-edited . . . . . . . . . . . . . . . . NOOBJECT,OBJECT « // 0x5266 @0x336
0x4f00…a4b9 at0383 = Attribute {type=0x20} // 0x52b3 @0x383
0x4f00…a4b9 at0384 = SetBufferAddress {ic=11, line=0x10, col=0x02} // 0x52b4 @0x384
0x4f00…a4b9 at0387 = » Use this option to create a subroutine module. A subroutine « // 0x52b7 @0x387
0x4f00…a4b9 at03d6 = » module must be link-edited by the OLINK procedure before it can « // 0x5306 @0x3d6
0x4f00…a4b9 at0426 = » be run. « // 0x5356 @0x426
0x4f00…a4b9 at0476 = » « // 0x53a6 @0x476
0x4f00…a4b9 at04c6 = » « // 0x53f6 @0x4c6
0x4f00…a4b9 at04c7 = SetBufferAddress {ic=11, line=0x14, col=0x03} // 0x53f7 @0x4c7
0x4f00…a4b9 at04ca = » NOOBJECT (default) - Does not request a subroutine module. « // 0x53fa @0x4ca
0x4f00…a4b9 at0518 = » OBJECT - Requests a subroutine module if there are « // 0x5448 @0x518
0x4f00…a4b9 at0568 = » no terminal errors. « // 0x5498 @0x568
0x4f00…a4b9 at05b8 = » « // 0x54e8 @0x5b8
0x4f00…a4b9 at0608 = SetBufferAddress {ic=11, line=0x18, col=0x02} // 0x5538 @0x608
0x4f00…a4b9 at060b = »Enter-Exit help text Roll keys-Page help text (c) 1985 IBM Corp.« // 0x553b @0x60b
0x4f00…a4b9 }
0x4f00…a4b9 }
0x4f00…a4b9 }
0x5600…b265 Form36 {
0x5600…b265 fh000 = 0x01 // 0x5600 @0x0
0x5600…b265 fh00 = 2600 // 0x5601 @0x1
0x5600…b265 fh01 = »NNN« // 0x5603 @0x3
0x5600…b265 fh02 = 000000 // 0x5606 @0x6
0x5600…b265 fh03 = »NNN« // 0x5609 @0x9
0x5600…b265 fh04 = 0x0030 // 0x560c @0xc
0x5600…b265 fh05 = 0x0605 // 0x560e @0xe
0x5600…b265 fh06 = 000080011800000000000000000000000000 // 0x5610 @0x10
0x5600…b265 at0022 = 0x00000063 // 0x5622 @0x22
0x5600…b265 at0026 = Form36LV {f00=0xfe, f01=0x0a, f88=00000000000000, f89=09} // 0x5626 @0x26
0x5600…b265 panel = { // 0x5630 @0x30
0x5600…b265 ┌────────────────────────────────────────────────────────────────────────────────┐
0x5600…b265 00│ HELP FOR RPGONL PROCEDURE Page 10 of 13 │
0x5600…b265 01│ │
0x5600…b265 02│╳Name of subroutine input library . . . . . . . . . . . . . . . ╳│
0x5600…b265 03│ │
0x5600…b265 04│ The name of the area on disk that contains your compiled │
0x5600…b265 05│ Assembler subroutines to be combined with the program │
0x5600…b265 06│ to be compiled. If no name is specified, the name of the │
0x5600…b265 07│ source input library is used. │
0x5600…b265 08│ │
0x5600…b265 09│ │
0x5600…b265 10│╳Never-ending program . . . . . . . . . . . . . . . . NONEP,NEP ╳│
0x5600…b265 11│ │
0x5600…b265 12│ Use this option if you want this program to be a │
0x5600…b265 13│ Never-ending program (NEP). A NEP is defined │
0x5600…b265 14│ as a long-running program. No system resources, │
0x5600…b265 15│ except shared files, allocated to a NEP program are │
0x5600…b265 16│ available to other jobs. │
0x5600…b265 17│ │
0x5600…b265 18│ NONEP (default) - Program is not a NEP. │
0x5600…b265 19│ NEP - Program is a NEP. │
0x5600…b265 20│ │
0x5600…b265 21│ │
0x5600…b265 22│ │
0x5600…b265 23│ Enter-Exit help text Roll keys-Page help text (c) 1985 IBM Corp. │
0x5600…b265 24│ │
0x5600…b265 25│ │
0x5600…b265 26│ │
0x5600…b265 27│ │
0x5600…b265 └────────────────────────────────────────────────────────────────────────────────┘
0x5600…b265 Panel5250 {
0x5600…b265 at0000 = ClearUnit {esc=04, cu=40} // 0x5630 @0x0
0x5600…b265 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x5632 @0x2
0x5600…b265 at0006 = SetBufferAddress {ic=11, line=0x01, col=0x03} // 0x5636 @0x6
0x5600…b265 at0009 = » HELP FOR RPGONL PROCEDURE « // 0x5639 @0x9
0x5600…b265 at0042 = SetBufferAddress {ic=11, line=0x01, col=0x3d} // 0x5672 @0x42
0x5600…b265 at0045 = »Page 10 of 13 « // 0x5675 @0x45
0x5600…b265 at0058 = SetBufferAddress {ic=11, line=0x03, col=0x01} // 0x5688 @0x58
0x5600…b265 at005b = Attribute {type=0x22} // 0x568b @0x5b
0x5600…b265 at005c = »Name of subroutine input library . . . . . . . . . . . . . . . « // 0x568c @0x5c
0x5600…b265 at00aa = Attribute {type=0x20} // 0x56da @0xaa
0x5600…b265 at00ab = SetBufferAddress {ic=11, line=0x05, col=0x02} // 0x56db @0xab
0x5600…b265 at00ae = » The name of the area on disk that contains your compiled « // 0x56de @0xae
0x5600…b265 at00fd = » Assembler subroutines to be combined with the program « // 0x572d @0xfd
0x5600…b265 at014d = » to be compiled. If no name is specified, the name of the « // 0x577d @0x14d
0x5600…b265 at019d = » source input library is used. « // 0x57cd @0x19d
0x5600…b265 at01ed = » « // 0x581d @0x1ed
0x5600…b265 at023d = SetBufferAddress {ic=11, line=0x0b, col=0x01} // 0x586d @0x23d
0x5600…b265 at0240 = Attribute {type=0x22} // 0x5870 @0x240
0x5600…b265 at0241 = »Never-ending program . . . . . . . . . . . . . . . . NONEP,NEP « // 0x5871 @0x241
0x5600…b265 at028f = Attribute {type=0x20} // 0x58bf @0x28f
0x5600…b265 at0290 = SetBufferAddress {ic=11, line=0x0d, col=0x02} // 0x58c0 @0x290
0x5600…b265 at0293 = » Use this option if you want this program to be a « // 0x58c3 @0x293
0x5600…b265 at02e2 = » Never-ending program (NEP). A NEP is defined « // 0x5912 @0x2e2
0x5600…b265 at0332 = » as a long-running program. No system resources, « // 0x5962 @0x332
0x5600…b265 at0382 = » except shared files, allocated to a NEP program are « // 0x59b2 @0x382
0x5600…b265 at03d2 = » available to other jobs. « // 0x5a02 @0x3d2
0x5600…b265 at0422 = » « // 0x5a52 @0x422
0x5600…b265 at0472 = » « // 0x5aa2 @0x472
0x5600…b265 at0473 = SetBufferAddress {ic=11, line=0x13, col=0x03} // 0x5aa3 @0x473
0x5600…b265 at0476 = » NONEP (default) - Program is not a NEP. « // 0x5aa6 @0x476
0x5600…b265 at04c4 = » NEP - Program is a NEP. « // 0x5af4 @0x4c4
0x5600…b265 at0514 = » « // 0x5b44 @0x514
0x5600…b265 at0564 = » « // 0x5b94 @0x564
0x5600…b265 at05b4 = SetBufferAddress {ic=11, line=0x18, col=0x02} // 0x5be4 @0x5b4
0x5600…b265 at05b7 = »Enter-Exit help text Roll keys-Page help text (c) 1985 IBM Corp.« // 0x5be7 @0x5b7
0x5600…b265 }
0x5600…b265 }
0x5600…b265 }
0x5d00…c06d Form36 {
0x5d00…c06d fh000 = 0x01 // 0x5d00 @0x0
0x5d00…c06d fh00 = 2600 // 0x5d01 @0x1
0x5d00…c06d fh01 = »NNN« // 0x5d03 @0x3
0x5d00…c06d fh02 = 000000 // 0x5d06 @0x6
0x5d00…c06d fh03 = »NNN« // 0x5d09 @0x9
0x5d00…c06d fh04 = 0x0030 // 0x5d0c @0xc
0x5d00…c06d fh05 = 0x060d // 0x5d0e @0xe
0x5d00…c06d fh06 = 000080011800000000000000000000000000 // 0x5d10 @0x10
0x5d00…c06d at0022 = 0x00000063 // 0x5d22 @0x22
0x5d00…c06d at0026 = Form36LV {f00=0xfe, f01=0x0a, f88=00000000000000, f89=09} // 0x5d26 @0x26
0x5d00…c06d panel = { // 0x5d30 @0x30
0x5d00…c06d ┌────────────────────────────────────────────────────────────────────────────────┐
0x5d00…c06d 00│ HELP FOR RPGONL PROCEDURE Page 11 of 13 │
0x5d00…c06d 01│ │
0x5d00…c06d 02│╳Maximum number of ╳│
0x5d00…c06d 03│╳ requesting display stations . . . . . . . . . . . . . 0-99 ╳│
0x5d00…c06d 04│ │
0x5d00…c06d 05│ Maximum number of display stations that can request the compiled │
0x5d00…c06d 06│ program at the same time. A value of 0 indicates that the program │
0x5d00…c06d 07│ is a single requesting terminal (SRT) program. │
0x5d00…c06d 08│ │
0x5d00…c06d 09│ │
0x5d00…c06d 10│╳Generate CONSOLE file display formats . . . . . . . GEN,NOGEN ╳│
0x5d00…c06d 11│ │
0x5d00…c06d 12│ If the program contains CONSOLE files, generate display formats. │
0x5d00…c06d 13│ │
0x5d00…c06d 14│ GEN (default) - Generate display formats. │
0x5d00…c06d 15│ NOGEN - Do not generate display formats. │
0x5d00…c06d 16│ │
0x5d00…c06d 17│╳Size of work files in blocks . . . . . . . . . . . . . 1-9999 ╳│
0x5d00…c06d 18│ │
0x5d00…c06d 19│ The size of the RPG II work files. The default is 40 blocks. │
0x5d00…c06d 20│ │
0x5d00…c06d 21│ │
0x5d00…c06d 22│ │
0x5d00…c06d 23│ Enter-Exit help text Roll keys-Page help text (c) 1985 IBM Corp. │
0x5d00…c06d 24│ │
0x5d00…c06d 25│ │
0x5d00…c06d 26│ │
0x5d00…c06d 27│ │
0x5d00…c06d └────────────────────────────────────────────────────────────────────────────────┘
0x5d00…c06d Panel5250 {
0x5d00…c06d at0000 = ClearUnit {esc=04, cu=40} // 0x5d30 @0x0
0x5d00…c06d at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x5d32 @0x2
0x5d00…c06d at0006 = SetBufferAddress {ic=11, line=0x01, col=0x03} // 0x5d36 @0x6
0x5d00…c06d at0009 = » HELP FOR RPGONL PROCEDURE « // 0x5d39 @0x9
0x5d00…c06d at0042 = SetBufferAddress {ic=11, line=0x01, col=0x3d} // 0x5d72 @0x42
0x5d00…c06d at0045 = »Page 11 of 13 « // 0x5d75 @0x45
0x5d00…c06d at0058 = SetBufferAddress {ic=11, line=0x03, col=0x01} // 0x5d88 @0x58
0x5d00…c06d at005b = Attribute {type=0x22} // 0x5d8b @0x5b
0x5d00…c06d at005c = »Maximum number of « // 0x5d8c @0x5c
0x5d00…c06d at00aa = Attribute {type=0x20} // 0x5dda @0xaa
0x5d00…c06d at00ab = SetBufferAddress {ic=11, line=0x04, col=0x01} // 0x5ddb @0xab
0x5d00…c06d at00ae = Attribute {type=0x22} // 0x5dde @0xae
0x5d00…c06d at00af = » requesting display stations . . . . . . . . . . . . . 0-99 « // 0x5ddf @0xaf
0x5d00…c06d at00fd = Attribute {type=0x20} // 0x5e2d @0xfd
0x5d00…c06d at00fe = SetBufferAddress {ic=11, line=0x06, col=0x02} // 0x5e2e @0xfe
0x5d00…c06d at0101 = » Maximum number of display stations that can request the compiled « // 0x5e31 @0x101
0x5d00…c06d at0150 = » program at the same time. A value of 0 indicates that the program « // 0x5e80 @0x150
0x5d00…c06d at01a0 = » is a single requesting terminal (SRT) program. « // 0x5ed0 @0x1a0
0x5d00…c06d at01f0 = » « // 0x5f20 @0x1f0
0x5d00…c06d at0240 = SetBufferAddress {ic=11, line=0x0b, col=0x01} // 0x5f70 @0x240
0x5d00…c06d at0243 = Attribute {type=0x22} // 0x5f73 @0x243
0x5d00…c06d at0244 = »Generate CONSOLE file display formats . . . . . . . GEN,NOGEN « // 0x5f74 @0x244
0x5d00…c06d at0292 = Attribute {type=0x20} // 0x5fc2 @0x292
0x5d00…c06d at0293 = SetBufferAddress {ic=11, line=0x0d, col=0x02} // 0x5fc3 @0x293
0x5d00…c06d at0296 = » If the program contains CONSOLE files, generate display formats. « // 0x5fc6 @0x296
0x5d00…c06d at02e5 = » « // 0x6015 @0x2e5
0x5d00…c06d at0335 = SetBufferAddress {ic=11, line=0x0f, col=0x02} // 0x6065 @0x335
0x5d00…c06d at0338 = » GEN (default) - Generate display formats. « // 0x6068 @0x338
0x5d00…c06d at0387 = » NOGEN - Do not generate display formats. « // 0x60b7 @0x387
0x5d00…c06d at03d7 = » « // 0x6107 @0x3d7
0x5d00…c06d at0427 = SetBufferAddress {ic=11, line=0x12, col=0x01} // 0x6157 @0x427
0x5d00…c06d at042a = Attribute {type=0x22} // 0x615a @0x42a
0x5d00…c06d at042b = »Size of work files in blocks . . . . . . . . . . . . . 1-9999 « // 0x615b @0x42b
0x5d00…c06d at0479 = Attribute {type=0x20} // 0x61a9 @0x479
0x5d00…c06d at047a = SetBufferAddress {ic=11, line=0x14, col=0x02} // 0x61aa @0x47a
0x5d00…c06d at047d = » The size of the RPG II work files. The default is 40 blocks. « // 0x61ad @0x47d
0x5d00…c06d at04cc = » « // 0x61fc @0x4cc
0x5d00…c06d at051c = » « // 0x624c @0x51c
0x5d00…c06d at056c = » « // 0x629c @0x56c
0x5d00…c06d at05bc = SetBufferAddress {ic=11, line=0x18, col=0x02} // 0x62ec @0x5bc
0x5d00…c06d at05bf = »Enter-Exit help text Roll keys-Page help text (c) 1985 IBM Corp.« // 0x62ef @0x5bf
0x5d00…c06d }
0x5d00…c06d }
0x5d00…c06d }
0x6400…cc2f Form36 {
0x6400…cc2f fh000 = 0x01 // 0x6400 @0x0
0x6400…cc2f fh00 = 2600 // 0x6401 @0x1
0x6400…cc2f fh01 = »NNN« // 0x6403 @0x3
0x6400…cc2f fh02 = 000000 // 0x6406 @0x6
0x6400…cc2f fh03 = »NNN« // 0x6409 @0x9
0x6400…cc2f fh04 = 0x0030 // 0x640c @0xc
0x6400…cc2f fh05 = 0x03cf // 0x640e @0xe
0x6400…cc2f fh06 = 000080011800000000000000000000000000 // 0x6410 @0x10
0x6400…cc2f at0022 = 0x00000063 // 0x6422 @0x22
0x6400…cc2f at0026 = Form36LV {f00=0xfe, f01=0x0a, f88=00000000000000, f89=09} // 0x6426 @0x26
0x6400…cc2f panel = { // 0x6430 @0x30
0x6400…cc2f ┌────────────────────────────────────────────────────────────────────────────────┐
0x6400…cc2f 00│ HELP FOR RPGONL PROCEDURE Page 12 of 13 │
0x6400…cc2f 01│ │
0x6400…cc2f 02│╳Create program with ╳│
0x6400…cc2f 03│╳ memory resident overlays . . . . . . . . . . . . . NOMRO,MRO ╳│
0x6400…cc2f 04│ │
0x6400…cc2f 05│ Creates a program that requests that its overlays remain in main memory. │
0x6400…cc2f 06│ This option is meaningful only if link-editing is performed and overlays │
0x6400…cc2f 07│ are needed. │
0x6400…cc2f 08│ │
0x6400…cc2f 09│ NOMRO (default) - Do not create the program with memory resident overlays. │
0x6400…cc2f 10│ │
0x6400…cc2f 11│ MRO - Create the program with memory resident overlays. │
0x6400…cc2f 12│ │
0x6400…cc2f 13│ │
0x6400…cc2f 14│ │
0x6400…cc2f 15│ │
0x6400…cc2f 16│ │
0x6400…cc2f 17│ │
0x6400…cc2f 18│ │
0x6400…cc2f 19│ │
0x6400…cc2f 20│ │
0x6400…cc2f 21│ │
0x6400…cc2f 22│ │
0x6400…cc2f 23│ Enter-Exit help text Roll keys-Page help text (c) 1985 IBM Corp. │
0x6400…cc2f 24│ │
0x6400…cc2f 25│ │
0x6400…cc2f 26│ │
0x6400…cc2f 27│ │
0x6400…cc2f └────────────────────────────────────────────────────────────────────────────────┘
0x6400…cc2f Panel5250 {
0x6400…cc2f at0000 = ClearUnit {esc=04, cu=40} // 0x6430 @0x0
0x6400…cc2f at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x6432 @0x2
0x6400…cc2f at0006 = SetBufferAddress {ic=11, line=0x01, col=0x03} // 0x6436 @0x6
0x6400…cc2f at0009 = » HELP FOR RPGONL PROCEDURE « // 0x6439 @0x9
0x6400…cc2f at0042 = SetBufferAddress {ic=11, line=0x01, col=0x3d} // 0x6472 @0x42
0x6400…cc2f at0045 = »Page 12 of 13 « // 0x6475 @0x45
0x6400…cc2f at0058 = SetBufferAddress {ic=11, line=0x03, col=0x01} // 0x6488 @0x58
0x6400…cc2f at005b = Attribute {type=0x22} // 0x648b @0x5b
0x6400…cc2f at005c = »Create program with « // 0x648c @0x5c
0x6400…cc2f at00aa = Attribute {type=0x20} // 0x64da @0xaa
0x6400…cc2f at00ab = SetBufferAddress {ic=11, line=0x04, col=0x01} // 0x64db @0xab
0x6400…cc2f at00ae = Attribute {type=0x22} // 0x64de @0xae
0x6400…cc2f at00af = » memory resident overlays . . . . . . . . . . . . . NOMRO,MRO « // 0x64df @0xaf
0x6400…cc2f at00fd = Attribute {type=0x20} // 0x652d @0xfd
0x6400…cc2f at00fe = SetBufferAddress {ic=11, line=0x06, col=0x02} // 0x652e @0xfe
0x6400…cc2f at0101 = » Creates a program that requests that its overlays remain in main memory. « // 0x6531 @0x101
0x6400…cc2f at0150 = » This option is meaningful only if link-editing is performed and overlays « // 0x6580 @0x150
0x6400…cc2f at01a0 = » are needed. « // 0x65d0 @0x1a0
0x6400…cc2f at01f0 = » « // 0x6620 @0x1f0
0x6400…cc2f at0240 = SetBufferAddress {ic=11, line=0x0a, col=0x02} // 0x6670 @0x240
0x6400…cc2f at0243 = » NOMRO (default) - Do not create the program with memory resident overlays. « // 0x6673 @0x243
0x6400…cc2f at0292 = » « // 0x66c2 @0x292
0x6400…cc2f at02df = SetBufferAddress {ic=11, line=0x0c, col=0x02} // 0x670f @0x2df
0x6400…cc2f at02e2 = » MRO - Create the program with memory resident overlays. « // 0x6712 @0x2e2
0x6400…cc2f at0331 = » « // 0x6761 @0x331
0x6400…cc2f at037e = SetBufferAddress {ic=11, line=0x18, col=0x02} // 0x67ae @0x37e
0x6400…cc2f at0381 = »Enter-Exit help text Roll keys-Page help text (c) 1985 IBM Corp.« // 0x67b1 @0x381
0x6400…cc2f }
0x6400…cc2f }
0x6400…cc2f }
0x6800…d5c6 Form36 {
0x6800…d5c6 fh000 = 0x01 // 0x6800 @0x0
0x6800…d5c6 fh00 = 2600 // 0x6801 @0x1
0x6800…d5c6 fh01 = »NNN« // 0x6803 @0x3
0x6800…d5c6 fh02 = 000000 // 0x6806 @0x6
0x6800…d5c6 fh03 = »NNN« // 0x6809 @0x9
0x6800…d5c6 fh04 = 0x0030 // 0x680c @0xc
0x6800…d5c6 fh05 = 0x0566 // 0x680e @0xe
0x6800…d5c6 fh06 = 000080011800000000000000000000000000 // 0x6810 @0x10
0x6800…d5c6 at0022 = 0x00000063 // 0x6822 @0x22
0x6800…d5c6 at0026 = Form36LV {f00=0xfe, f01=0x0a, f88=00000000000000, f89=09} // 0x6826 @0x26
0x6800…d5c6 panel = { // 0x6830 @0x30
0x6800…d5c6 ┌────────────────────────────────────────────────────────────────────────────────┐
0x6800…d5c6 00│ HELP FOR RPGONL PROCEDURE Page 13 of 13 │
0x6800…d5c6 01│ │
0x6800…d5c6 02│╳Would you like to view the compiler listing? . . . . . . Y,N ╳│
0x6800…d5c6 03│ │
0x6800…d5c6 04│ Use this option if you would like to view the compiler listing │
0x6800…d5c6 05│ for the program just compiled. │
0x6800…d5c6 06│ │
0x6800…d5c6 07│ │
0x6800…d5c6 08│ Y - The listing is displayed. From the display, you │
0x6800…d5c6 09│ can request a printed listing. │
0x6800…d5c6 10│ N (default) - The listing is deleted. │
0x6800…d5c6 11│ │
0x6800…d5c6 12│ │
0x6800…d5c6 13│╳Would you like to recompile the source program? . . . . . Y,N ╳│
0x6800…d5c6 14│ │
0x6800…d5c6 15│ Use this option if you would like to recompile the source │
0x6800…d5c6 16│ program shown on the bottom half of the display. │
0x6800…d5c6 17│ │
0x6800…d5c6 18│ Y (default) - The source program is recompiled. │
0x6800…d5c6 19│ N - The source program is not recompiled. │
0x6800…d5c6 20│ │
0x6800…d5c6 21│ │
0x6800…d5c6 22│ │
0x6800…d5c6 23│ Enter-Exit help text Roll keys-Page help text (c) 1985 IBM Corp. │
0x6800…d5c6 24│ │
0x6800…d5c6 25│ │
0x6800…d5c6 26│ │
0x6800…d5c6 27│ │
0x6800…d5c6 └────────────────────────────────────────────────────────────────────────────────┘
0x6800…d5c6 Panel5250 {
0x6800…d5c6 at0000 = ClearUnit {esc=04, cu=40} // 0x6830 @0x0
0x6800…d5c6 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x6832 @0x2
0x6800…d5c6 at0006 = SetBufferAddress {ic=11, line=0x01, col=0x03} // 0x6836 @0x6
0x6800…d5c6 at0009 = » HELP FOR RPGONL PROCEDURE « // 0x6839 @0x9
0x6800…d5c6 at0042 = SetBufferAddress {ic=11, line=0x01, col=0x3d} // 0x6872 @0x42
0x6800…d5c6 at0045 = »Page 13 of 13 « // 0x6875 @0x45
0x6800…d5c6 at0058 = SetBufferAddress {ic=11, line=0x03, col=0x01} // 0x6888 @0x58
0x6800…d5c6 at005b = Attribute {type=0x22} // 0x688b @0x5b
0x6800…d5c6 at005c = »Would you like to view the compiler listing? . . . . . . Y,N « // 0x688c @0x5c
0x6800…d5c6 at00aa = Attribute {type=0x20} // 0x68da @0xaa
0x6800…d5c6 at00ab = SetBufferAddress {ic=11, line=0x05, col=0x02} // 0x68db @0xab
0x6800…d5c6 at00ae = » Use this option if you would like to view the compiler listing « // 0x68de @0xae
0x6800…d5c6 at00fd = » for the program just compiled. « // 0x692d @0xfd
0x6800…d5c6 at014d = » « // 0x697d @0x14d
0x6800…d5c6 at019d = SetBufferAddress {ic=11, line=0x09, col=0x02} // 0x69cd @0x19d
0x6800…d5c6 at01a0 = » Y - The listing is displayed. From the display, you « // 0x69d0 @0x1a0
0x6800…d5c6 at01ef = » can request a printed listing. « // 0x6a1f @0x1ef
0x6800…d5c6 at023f = » N (default) - The listing is deleted. « // 0x6a6f @0x23f
0x6800…d5c6 at028f = » « // 0x6abf @0x28f
0x6800…d5c6 at02df = SetBufferAddress {ic=11, line=0x0e, col=0x01} // 0x6b0f @0x2df
0x6800…d5c6 at02e2 = Attribute {type=0x22} // 0x6b12 @0x2e2
0x6800…d5c6 at02e3 = »Would you like to recompile the source program? . . . . . Y,N « // 0x6b13 @0x2e3
0x6800…d5c6 at0331 = Attribute {type=0x20} // 0x6b61 @0x331
0x6800…d5c6 at0332 = SetBufferAddress {ic=11, line=0x10, col=0x02} // 0x6b62 @0x332
0x6800…d5c6 at0335 = » Use this option if you would like to recompile the source « // 0x6b65 @0x335
0x6800…d5c6 at0384 = » program shown on the bottom half of the display. « // 0x6bb4 @0x384
0x6800…d5c6 at03d4 = » « // 0x6c04 @0x3d4
0x6800…d5c6 at0424 = SetBufferAddress {ic=11, line=0x13, col=0x02} // 0x6c54 @0x424
0x6800…d5c6 at0427 = » Y (default) - The source program is recompiled. « // 0x6c57 @0x427
0x6800…d5c6 at0476 = » N - The source program is not recompiled. « // 0x6ca6 @0x476
0x6800…d5c6 at04c6 = » « // 0x6cf6 @0x4c6
0x6800…d5c6 at0515 = SetBufferAddress {ic=11, line=0x18, col=0x02} // 0x6d45 @0x515
0x6800…d5c6 at0518 = »Enter-Exit help text Roll keys-Page help text (c) 1985 IBM Corp.« // 0x6d48 @0x518
0x6800…d5c6 }
0x6800…d5c6 }
0x6800…d5c6 }