|
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: 96768 (0x17a00)
Notes: FORM36, MEMBER_O
Names: »#SE@HELP«
└─⟦a3c23c3a0⟧ Bits:30009813 REF.NO PWD35 PGM 5727-UT6 FEAT9074 UTILITIES US Z250-0042-2 REV/LEV 05.01 SEQ. 2/2 DISKET 2S 96TPI INTERNAL 88.03.04 31
└─⟦5b1aac90b⟧
└─⟦this⟧ ».#SE@HELP«
FormPointer36 {name=»HENTER00«, f1=0x00, start=0x0005, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ │
01│ HELP FOR ENTER/UPDATE │
02│ │
03│ ╳Enter or update statement number . . . . . . . . . . . . . . . . . . │
04│ │
05│ ╳To enter a new statement, enter a new statement number in response to │
06│ the prompt and press Enter. │
07│ To insert a new statement between two existing statements, enter │
08│ a number that is between two existing statement numbers in response │
09│ to the prompt and press Enter. │
10│ To update an existing statement, enter an existing statement number │
11│ in response to the prompt and press Enter. │
12│ │
13│ Examples: │
14│ │
15│ ╳0001.00 This is the first line. │
16│ ╳0002.00 This is the second line. │
17│ │
18│ ╳Enter: If you want to: │
19│ 3.0 Enter one or more new statements. │
20│ 1.1 Insert one or more new statements. │
21│ 1.0 Update statement 0001.00. │
22│ │
23│ Enter-End help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HSCANR00«, f1=0x00, start=0x000d, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ │
01│ HELP FOR SCAN │
02│ │
03│ ╳Scan characters . . . . . . . . . . . . . . . . . . . . . . . . . . . . │
04│ │
05│ ╳This is the string of characters you want to locate. SEU can scan for │
06│ lowercase alphabetic characters only if you have chosen a format that │
07│ permits lowercase. Blanks are valid in any position of the string. If │
08│ blanks are included at the end of the string, remember to include them │
09│ in your count and enter a value for the prompt, Number of scan │
10│ characters. │
11│ │
12│ ╳Starting at position . . . . . . . . . . . . . . . . . . . . . . . . . . │
13│ │
14│ ╳This is the starting position of the scan character string within the │
15│ statements you are searching. It limits the scan to a particular area │
16│ of the statement. The scan skips over any data in the statement up to │
17│ the starting position and scans only the characters specified. │
18│ This prompt is optional. If left blank, SEU searches the entire state- │
19│ ment for the first occurrence of the specified scan characters. When │
20│ the scan characters are found, and the statement is displayed, the scan │
21│ continues with the next statement when you press the Enter key. │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HSCAN200«, f1=0x00, start=0x0015, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ │
01│ HELP FOR SCAN │
02│ │
03│ ╳Number of scan positions. . . . . . . . . . . . . . . . . . . . . . . . │
04│ │
05│ ╳This is the number of characters, including blanks, contained in the │
06│ scan character string. Any number from 1 through 25 may be entered. If │
07│ the number you specify is less than the number of scan characters you │
08│ entered, SEU shortens the right end of the scan character string to this │
09│ length. If the number you specify is greater than the number of scan │
10│ characters you entered, SEU assumes blanks to the right of the scan │
11│ character string. │
12│ This prompt is optional only if you responded to Scan characters prompt │
13│ earlier. If you do not respond to this prompt, SEU assumes that the │
14│ scan character string contains no blanks at the end and counts only the │
15│ number of characters within the string. │
16│ │
17│ ╳Scan and replace . . . . . . . . . . . . . . . . . . . . . . . . . Y,N │
18│ │
19│ ╳A response of Y for yes selects the scan and replace function which will │
20│ replace the scan character string with a string of replace characters. │
21│ If you enter a Y, the replace display screen is displayed. │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HSCAN300«, f1=0x00, start=0x001d, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ │
01│ HELP FOR SCAN │
02│ │
03│ Enter a N for no if you do not want to replace the scan characters. The │
04│ scan then continues normally and you will not see the replace display │
05│ screen. N is the default for this field. │
06│ │
07│ │
08│ │
09│ │
10│ SCAN TO UPDATE │
11│ │
12│ Command key 14 (@) searches a member for a statement containing the │
13│ specified scan characters, then displays the statement in the enter/ │
14│ update mode so you can change the statement. │
15│ │
16│ │
17│ │
18│ │
19│ │
20│ │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HREPLC00«, f1=0x00, start=0x0025, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ │
01│ HELP FOR SCAN AND REPLACE │
02│ │
03│ ╳Replacement characters . . . . . . . . . . . . . . . . . . . . . . . . . │
04│ │
05│ ╳These are the characters used to replace the specified scan characters. │
06│ 0 to 25 alphameric characters can be entered. │
07│ This prompt is optional and can remain blank if you enter a value for the │
08│ prompt Number of replace characters. If you do not enter any replacement │
09│ characters, SEU assumes the replacement characters are a string of blanks │
10│ with the length specified in the Number of replace characters prompt. │
11│ │
12│ ╳Number of replacement characters . . . . . . . . . . . . . . . . . . . . │
13│ │
14│ ╳This is the length of the replacement character string. │
15│ If you enter a replacement character string and leave this response │
16│ blank, SEU counts the number of replacement characters you entered │
17│ (including blanks within the string). SEU does not count blanks at the │
18│ end of the string. │
19│ │
20│ Consider the following when responding to this prompt: │
21│ -Enter any number, 0 through 25. │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HREPL200«, f1=0x00, start=0x002d, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ │
01│ HELP FOR SCAN AND REPLACE │
02│ │
03│ -Enter 0 to delete the scan characters. │
04│ -If blanks are to be included at the end of the string, │
05│ you must include them in the number. │
06│ If you enter a value that is less than the number of replace characters │
07│ entered, SEU shortens the right end of the string of replace characters │
08│ to this length. │
09│ If you did not specify any replace characters, SEU assumes a string of │
10│ blanks the length of the value you entered. │
11│ │
12│ ╳Replace once per statement? . . . . . . . . . . . . . . . . . . . . Y,N │
13│ │
14│ ╳A response of Y for yes to this prompt limits the replace to only one │
15│ occurrence of the scan characters within a statement. │
16│ A response of N for no means the scan characters are replaced everywhere │
17│ they occur within the statement. │
18│ If you leave the field blank, and did not enter a starting position │
19│ earlier on the scan prompt Starting at position, the default is N. │
20│ However, if you entered a starting position on the scan prompt display │
21│ earlier, the default is changed to Y. │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HREPL300«, f1=0x00, start=0x0035, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ │
01│ HELP FOR SCAN AND REPLACE │
02│ │
03│ ╳End of replace area . . . . . . . . . . . . . . . . . . . . . . . . . . │
04│ │
05│ ╳This is the ending position, within the statement, of the data that will │
06│ be scanned and replaced. No data beyond this position in the statement │
07│ will be replaced by the string of replace characters or shifted to allow │
08│ for a replace string of a different length than the scan string. │
09│ If you leave this field blank, SEU assumes that the end of replace area │
10│ is the end of the statement. │
11│ If the number of replace characters is greater than the number of scan │
12│ characters, data is shifted right to allow for the replace string. If │
13│ the number is less than number of scan characters, data is shifted left. │
14│ │
15│ ╳Ending with statement number . . . . . . . . . . . . . . . . . . . . . │
16│ │
17│ ╳This is the number of the last statement to be scanned and replaced │
18│ within the member. │
19│ If a last statement number is not entered, SEU continues to scan and │
20│ replace through the entire member. If a last statement number is │
21│ entered, you can limit the number of statements that are scanned. │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HFORMT00«, f1=0x00, start=0x003d, length=0x06, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ │
01│ HELP FOR DISPLAY SELECTION │
02│ │
03│ Enter the number that corresponds to the display you want to use. │
04│ │
05│ │
06│ H - RPG II control specification │
07│ U - RPG option format used by RPG II auto report │
08│ F - RPG file description specification │
09│ G - RPG file description continuation │
10│ E - RPG file extension specification │
11│ L - RPG line counter specification │
12│ T - RPG telecommunications specification │
13│ I - RPG input specification (record identification) │
14│ J - RPG input specification continuation │
15│ C - RPG calculation specification │
16│ O - RPG output specification │
17│ P - RPG output specification continuation │
18│ K - RPG copy specification used by RPG II auto report │
19│ D - Display Station Pass-through │
20│ A - Any statement with an * in position 7 │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HDELET00«, f1=0x00, start=0x0043, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ │
01│ HELP FOR DELETE │
02│ │
03│ ╳Delete starting from statement number . . . . . . . . . . . . . . . . │
04│ │
05│ ╳Enter the statement number of the single statement you want to delete, │
06│ or enter the statement number of the first statement in the series you │
07│ want to delete. │
08│ │
09│ ╳Ending with statement number . . . . . . . . . . . . . . . . . . . . │
10│ │
11│ ╳Enter the statement number of the last statement in the series you │
12│ to delete. │
13│ If you are deleting a single statement, do not respond to this prompt. │
14│ │
15│ │
16│ │
17│ │
18│ │
19│ │
20│ │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HCOPYM00«, f1=0x00, start=0x004b, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ │
01│ HELP FOR COPY/MOVE │
02│ │
03│ ╳Copy or move the statements . . . . . . . . . . . . . . . . . COPY,MOVE │
04│ │
05│ ╳The default response for this prompt is COPY. If the response is not │
06│ changed, the statements specified are copied. │
07│ To move the statements specified, change the copy response to MOVE. │
08│ │
09│ ╳To statement number . . . . . . . . . . . . . . . . . . . . . . . . . . │
10│ │
11│ ╳Enter the statement number that identifies the new location for the │
12│ single statement you want to copy or move, or that identifies the new │
13│ location for the first statement in the series of statements that you │
14│ want to copy or move. │
15│ │
16│ ╳Starting from statement number . . . . . . . . . . . . . . . . . . . . │
17│ │
18│ ╳Enter the statement number that identifies the statement you want to │
19│ copy or move, or that identifies the first statement in the series of │
20│ statements you want to copy or move. │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HCOPMO00«, f1=0x00, start=0x0053, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ │
01│ HELP FOR COPY/MOVE │
02│ │
03│ ╳Ending with statement number . . . . . . . . . . . . . . . . . . . . │
04│ │
05│ ╳Enter the statement number that identifies the last statement in │
06│ the series of statements you want to copy or move. │
07│ If you are copying or moving a single statement, do not respond to │
08│ this prompt. │
09│ │
10│ │
11│ │
12│ │
13│ │
14│ │
15│ │
16│ │
17│ │
18│ │
19│ │
20│ │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HINCLM00«, f1=0x00, start=0x005b, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ │
01│ HELP FOR INCLUDE │
02│ │
03│ ╳Include from library name . . . . . . . . . . . . . . . . . . . . . . │
04│ │
05│ ╳Enter the name of the library that contains the member from which │
06│ you want to include one or more statements. │
07│ If you have not specified a library, the default is #LIBRARY, the │
08│ system library. If you entered // LIBRARY NAME-libname earlier, the │
09│ default library is libname. If you specified a library in the last │
10│ parameter of the SEU command, that library is the default library. │
11│ │
12│ ╳Include from member name . . . . . . . . . . . . . . . . . . . . . │
13│ │
14│ ╳The included member automatically defaults to the member type of the │
15│ member you are including into. If you want the included member to be │
16│ of a different type, enter: NAME,TYPE where NAME is the member name │
17│ and TYPE is P for procedure member or S for source member. │
18│ │
19│ │
20│ │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HINCL200«, f1=0x00, start=0x0063, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ │
01│ HELP FOR INCLUDE │
02│ │
03│ ╳Including at statement number . . . . . . . . . . . . . . . . . . . . . . │
04│ │
05│ ╳Enter the statement number that identifies the location for the copy │
06│ of the statement you want to include, or that identifies the location │
07│ for the copy of the first statement in the series of statements you want │
08│ to include. │
09│ │
10│ ╳Starting from statement number . . . . . . . . . . . . . . . . . . . . . │
11│ │
12│ ╳Enter the statement number that identifies the statement you want to │
13│ include, or that identifies the first statement in the series of state- │
14│ ments you want to include. │
15│ │
16│ ╳Ending with statement number . . . . . . . . . . . . . . . . . . . . . . │
17│ │
18│ ╳Enter the statement number of the last statement in the series of │
19│ statements you want to include. │
20│ If you are including a single statement, do not respond to this │
21│ prompt. │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HTRANM00«, f1=0x00, start=0x006b, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ │
01│ HELP FOR MESSAGE TRANSLATION │
02│ │
03│ Message translation aids you in creating a translated message source │
04│ member. To use message translate, specify SEU member type T at sign on. │
05│ SEU prompts you to enter the translated text for each message. │
06│ If you want to update existing translated text, press command key 17 (%) │
07│ and enter the number of the message you want to change. │
08│ For help with creating and using a translated load member, see the │
09│ CREATE procedure in USING THE SYSTEM PROGRAMS manual and S/36 SOURCE │
10│ ENTRY UTILITY GUIDE. │
11│ │
12│ │
13│ │
14│ │
15│ │
16│ │
17│ │
18│ │
19│ │
20│ │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HEOJDN00«, f1=0x00, start=0x0073, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ │
01│ HELP FOR END OF JOB OPTIONS │
02│ │
03│ │
04│ 0. Return to processing │
05│ │
06│ Returns control to the job, and it continues normally. │
07│ │
08│ │
09│ 1. End of job with no additional options │
10│ │
11│ SEU copies the source or procedure member from the work file to a │
12│ library. │
13│ │
14│ │
15│ 2. End of job with a printout │
16│ │
17│ SEU copies the source or procedure member from the work file to a │
18│ library, and then prints the member on a printer. │
19│ │
20│ │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HEOJDN01«, f1=0x00, start=0x007b, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ │
01│ HELP FOR END OF JOB OPTIONS │
02│ │
03│ 3. End of job with serialization │
04│ │
05│ SEU assigns sequence numbers to the source statements, and then │
06│ copies the member from the work file to a library. │
07│ │
08│ 4. End of job with serialization and a printout │
09│ │
10│ A combination of options 2 and 3. The source member is serialized, │
11│ copied from the work file to a library, and printed on a printer. │
12│ │
13│ │
14│ 5. End of job--member is not replaced │
15│ │
16│ SEU ends the job by deleting the SEU work file. All data entered │
17│ during the job is lost. If it exists, the source or procedure member │
18│ named in the SEU command remains in the library unchanged. │
19│ │
20│ │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HSOURC00«, f1=0x00, start=0x0083, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ │
01│ HELP FOR END OF JOB OPTIONS │
02│ │
03│ ╳Start serialization at position . . . . . . . . . . . . . . . . . . . │
04│ │
05│ ╳This prompt is displayed when EOJ option 3 or 4 is selected. A │
06│ valid response is any number greater than 0 but less than or equal to │
07│ the statement length minus 3. The response specifies the starting │
08│ position of the serial number in each statement. Statements are │
09│ serialized with four-digit numbers beginning with 0001. │
10│ │
11│ │
12│ │
13│ │
14│ │
15│ │
16│ │
17│ │
18│ │
19│ │
20│ │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HSCEOJ00«, f1=0x00, start=0x008b, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ │
01│ HELP FOR END OF JOB │
02│ │
03│ ╳Member name . . . . . . . . . . . . . . . . . . . . . . . . . . . . . │
04│ │
05│ ╳This is the name of the member that is currently in the work file. │
06│ │
07│ ╳Library name . . . . . . . . . . . . . . . . . . . . . . . . . . . . │
08│ │
09│ ╳This is the library into which the work file will be copied. │
10│ │
11│ ╳Reference number . . . . . . . . . . . . . . . . . . . . . . . . . . │
12│ │
13│ ╳This is a number associated with this version of the member when │
14│ replaced in the library. The reference number is stored in the library │
15│ directory along with other information about the member. You can enter a │
16│ number that is meaningful for your use or allow SEU to supply a default. │
17│ │
18│ │
19│ │
20│ │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HSCEO101«, f1=0x00, start=0x0093, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ │
01│ HELP FOR END OF JOB OPTIONS │
02│ │
03│ ╳Library member subtype . . . . . . . . . . . . . . . . . . . . . . . │
04│ │
05│ ╳The library member subtype defines different source member types. │
06│ The subtype is stored in the library directory along with other infor- │
07│ mation about the member. Enter the number that corresponds to the sub- │
08│ type for your member or allow SEU to supply a default. │
09│ │
10│ ╳Remove diagnostics from diagnosed source member . . . . . . . . . . Y,N │
11│ │
12│ ╳If you want the source member to be replaced into the library with- │
13│ out any diagnostics, enter Y (yes). If you want the diagnostics to be │
14│ replaced along with the source member into the library, enter N (no). │
15│ The default is N. │
16│ │
17│ │
18│ │
19│ │
20│ │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HSORCE00«, f1=0x00, start=0x009b, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ │
01│ HELP FOR END OF JOB OPTIONS │
02│ │
03│ ╳Duplicate program name in positions 75-80 . . . . . . . . . . . . . Y,N │
04│ │
05│ ╳This prompt is displayed if the member type specified in the SEU │
06│ command is A, R, or S, the statement length is 80 or greater, and │
07│ option 3 or 4 is selected at EOJ. Valid responses are Y (yes) and │
08│ N (no). │
09│ A response of Y causes SEU to copy the value contained in positions │
10│ 75 through 80 of the first statement into positions 75 through 80 in │
11│ each of the member's remaining statements. │
12│ A response of N causes no duplication to occur. The default is N. │
13│ │
14│ │
15│ │
16│ │
17│ │
18│ │
19│ │
20│ │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HPROCS00«, f1=0x00, start=0x00a3, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ │
01│ HELP FOR END OF JOB OPTIONS │
02│ │
03│ ╳Program data in include statements . . . . . . . . . . . . . . . Y,N │
04│ │
05│ ╳INCLUDE OCL statements for procedures may contain program data │
06│ instead of parameters. │
07│ If INCLUDE statements in the procedure created or changed during │
08│ the job contain program data instead of parameters, the response must │
09│ be Y (yes). │
10│ If INCLUDE statements do not contain program data, the response │
11│ must be N (no). The default for a new member is N. │
12│ │
13│ ╳Member name . . . . . . . . . . . . . . . . . . . . . . . . . . . . . │
14│ │
15│ ╳This is the name of the member that is currently in the work file. │
16│ │
17│ ╳Library name . . . . . . . . . . . . . . . . . . . . . . . . . . . . │
18│ │
19│ ╳This is the library into which the work file will be copied. │
20│ │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HPROC101«, f1=0x00, start=0x00ab, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ │
01│ HELP FOR END OF JOB OPTIONS │
02│ │
03│ ╳Reference number . . . . . . . . . . . . . . . . . . . . . . . . . . . │
04│ │
05│ ╳This is a number associated with this version of the member when │
06│ replaced in the library. The reference number is stored in the library │
07│ directory along with other information about the member. You can enter a │
08│ number that is meaningful for your use or allow SEU to supply a default. │
09│ │
10│ ╳Library member subtype . . . . . . . . . . . . . . . . . . . . . . . . │
11│ │
12│ ╳The library member subtype distinguishes between source member │
13│ types. The subtype is stored in the library directory along with │
14│ other information about the member. Enter the number that corresponds │
15│ to the category that your member belongs or allow SEU to supply a │
16│ default. │
17│ │
18│ │
19│ │
20│ │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HPROC202«, f1=0x00, start=0x00b3, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ │
01│ HELP FOR END OF JOB OPTIONS │
02│ │
03│ ╳Log the procedure statements . . . . . . . . . . . . . . . . . . . Y,N │
04│ │
05│ ╳If you want the system to log the procedure statements to the │
06│ system history file each time the procedure is called, the response │
07│ must be Y (yes). If you do not want the procedure statements logged, │
08│ the response must be N (no). The default for a new member is Y. │
09│ │
10│ ╳Multiple requestor terminal procedure . . . . . . . . . . . . . . Y,N │
11│ │
12│ ╳If the procedure is a multiple requestor terminal procedure, the │
13│ response must be Y (yes). If the procedure is not a multiple requestor │
14│ terminal procedure, the response must be N (no). The default is N. │
15│ │
16│ │
17│ │
18│ │
19│ │
20│ │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HENTNO00«, f1=0x00, start=0x00bb, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ SEU Command Function Keys │
01│ │
02│ With this command key You can │
03│ │
04│ 1 - AUTOSKIP Turn autoskip on or off. │
05│ 2 - SCAN/REPLACE Search/replace character strings. │
06│ 3 - SELECT DISPLAY Select the display you want to use. │
07│ 4 - DELETE Remove statements from a member. │
08│ 5 - ENTER/UPDATE Add or change statements. │
09│ 6 - PRINT Turn the print option on or off. │
10│ 7 - END OF JOB End the SEU job. │
11│ 8 - SYNTAX Turn syntax checking on or off. │
12│ 9 - SEARCH END OF SOURCE Display the last statement in the member. │
13│ 10 - COPY/MOVE Copy or move statements within a member. │
14│ 11 - INCLUDE Copy statements from another member. │
15│ 13 - COMMAND KEY DISPLAY Display a description of the command keys. │
16│ 14 - SCAN TO UPDATE Change statements during a scan. │
17│ 15 - CHANGE ROLL FACTOR Change the roll factor (1-99). │
18│ 16 - LINES PER STATEMENT Change the number of lines per statement. │
19│ 17 - TRANSLATE Translate a message member (type must be T). │
20│ │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HENTUP00«, f1=0x00, start=0x00c3, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ SEU Command Function Keys │
01│ │
02│ With this command key You can │
03│ │
04│ 1 - AUTOSKIP Turn autoskip on or off. │
05│ 2 - SCAN/REPLACE Search/replace character strings. │
06│ 3 - SELECT DISPLAY Select the display you want to use. │
07│ 4 - DELETE Remove statements from a member. │
08│ 5 - ENTER/UPDATE Add or change statements. │
09│ 6 - PRINT Turn the print option on or off. │
10│ 7 - END OF JOB End the SEU job. │
11│ 8 - SYNTAX Turn syntax checking on or off. │
12│ 9 - SEARCH END OF SOURCE Display the last statement in the member. │
13│ 10 - COPY/MOVE Copy or move statements within a member. │
14│ 11 - INCLUDE Copy statements from another member. │
15│* 12 - ACCEPT WITH ERROR Accept a statement with an RPG II error. │
16│ 13 - COMMAND KEY DISPLAY Display a description of the command keys. │
17│ 14 - SCAN TO UPDATE Change statements during a scan. │
18│ 17 - TRANSLATE Translate a message member (type must be T). │
19│ │
20│ * Allowed only if syntax checking is on and an error exists in │
21│ an RPG II or Auto Report statement. │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HENTRY00«, f1=0x00, start=0x00cb, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ SEU Command Function Keys │
01│ │
02│ With this command key You can │
03│ │
04│ 1 - AUTOSKIP Turn autoskip on or off. │
05│ 3 - SELECT DISPLAY Select the display you want to use. │
06│ 5 - ENTER/UPDATE Add or change statements. │
07│ 6 - PRINT Turn the print option on or off. │
08│ 7 - END OF JOB End the SEU job. │
09│ 8 - SYNTAX Turn syntax checking on or off. │
10│ 11 - INCLUDE Copy statements from another member. │
11│* 12 - ACCEPT WITH ERROR Accept a statement with an RPG II error. │
12│ 13 - COMMAND KEY DISPLAY Display a description of the command keys. │
13│ │
14│ │
15│ * Allowed only if syntax checking is on and an error exists in │
16│ an RPG II or Auto Report statement. │
17│ │
18│ │
19│ │
20│ │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HMODES00«, f1=0x00, start=0x00d3, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ SEU Command Function Keys │
01│ │
02│ With this command key You can │
03│ │
04│ 2 - SCAN/REPLACE Search/replace character strings. │
05│ 4 - DELETE Remove statements from a member. │
06│ 5 - ENTER/UPDATE Add or change statements. │
07│ 6 - PRINT Turn the print option on or off. │
08│ 7 - END OF JOB End the SEU job. │
09│ 9 - SEARCH END OF SOURCE Display the last statement in the member. │
10│ 10 - COPY/MOVE Copy or move statements within a member. │
11│ 11 - INCLUDE Copy statements from another member. │
12│ 13 - COMMAND KEY DISPLAY Display a description of the command keys. │
13│ 15 - CHANGE ROLL FACTOR Change the roll factor (1-99). │
14│ 16 - LINES PER STATEMENT Change the number of lines per statement. │
15│ 17 - TRANSLATE Translate a message member (type must be T). │
16│ │
17│ │
18│ │
19│ │
20│ │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HINCLD00«, f1=0x00, start=0x00db, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ SEU Command Function Keys │
01│ │
02│ With this command key You can │
03│ │
04│ 5 - ENTER/UPDATE Add or change statements. │
05│ 6 - PRINT Turn the print option on or off. │
06│ 7 - END OF JOB End the SEU job. │
07│ 11 - INCLUDE Copy statements from another member. │
08│ 13 - COMMAND KEY DISPLAY Display a description of the command keys. │
09│ 15 - CHANGE ROLL FACTOR Change the roll factor (1-99). │
10│ 16 - LINES PER STATEMENT Change the number of lines per statement. │
11│ │
12│ │
13│ │
14│ │
15│ │
16│ │
17│ │
18│ │
19│ │
20│ │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HSCANN00«, f1=0x00, start=0x00e3, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ SEU Command Function Keys │
01│ │
02│ With this command key You can │
03│ │
04│ 2 - SCAN/REPLACE Search/replace character strings. │
05│ 4 - DELETE Remove statements from a member. │
06│ 5 - ENTER/UPDATE Add or change statements. │
07│ 6 - PRINT Turn the print option on or off. │
08│ 7 - END OF JOB End the SEU job. │
09│ 9 - SEARCH END OF SOURCE Display the last statement in the member. │
10│ 10 - COPY/MOVE Copy or move statements within a member. │
11│ 11 - INCLUDE Copy statements from another member. │
12│ 13 - COMMAND KEY DISPLAY Display a description of the command keys. │
13│ 14 - SCAN TO UPDATE Change statements during a scan. │
14│ 15 - CHANGE ROLL FACTOR Change the roll factor (1-99). │
15│ 16 - LINES PER STATEMENT Change the number of lines per statement. │
16│ 17 - TRANSLATE Translate a message member (type must be T). │
17│ │
18│ │
19│ │
20│ │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HTRANS00«, f1=0x00, start=0x00eb, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ SEU Command Function Keys │
01│ │
02│ With this command key You can │
03│ │
04│ 2 - SCAN/REPLACE Search/replace character strings. │
05│ 4 - DELETE Remove statements from a member. │
06│ 5 - ENTER/UPDATE Add or change statements. │
07│ 6 - PRINT Turn the print option on or off. │
08│ 7 - END OF JOB End the SEU job. │
09│ 9 - SEARCH END OF SOURCE Display the last statement in the member. │
10│ 10 - COPY/MOVE Copy or move statements within a member. │
11│ 11 - INCLUDE Copy statements from another member. │
12│ 13 - COMMAND KEY DISPLAY Display a description of the command keys. │
13│ 17 - TRANSLATE Translate a message member (type must be T). │
14│ │
15│ │
16│ │
17│ │
18│ │
19│ │
20│ │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HCMDKY00«, f1=0x00, start=0x00f3, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ SEU Command Function Keys │
01│ │
02│ With this command key You can │
03│ │
04│ 13 - COMMAND KEY DISPLAY Exit from the command key display screen. │
05│ │
06│ │
07│ │
08│ │
09│ │
10│ │
11│ │
12│ │
13│ │
14│ │
15│ │
16│ │
17│ │
18│ │
19│ │
20│ │
21│ │
22│ │
23│ │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HNOKEY00«, f1=0x00, start=0x00fb, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ SEU Command Function Keys │
01│ │
02│ │
03│ No SEU command function keys are available at this time. │
04│ │
05│ │
06│ │
07│ │
08│ │
09│ │
10│ │
11│ │
12│ │
13│ │
14│ │
15│ │
16│ │
17│ │
18│ │
19│ │
20│ │
21│ │
22│ │
23│ │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HSBTYP00«, f1=0x00, start=0x0103, length=0x07, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ │
01│ ╳LIBRARY MEMBER SUBTYPES │
02│ ╳The following is a list of the available subtypes. │
03│ │
04│ 2 DTA - Data │
05│ 40 UNS - Unspecified │
06│ │
07│ SPECIFICATIONS PROGRAMS │
08│ │
09│ 11 ARS - Auto response 31 ASM - Assembler │
10│ 12 ARP - Auto Report 32 BAS - BASIC │
11│ 13 BAP - BASIC procedure 33 COB - COBOL │
12│ 42 BGD - Business Graphics Data 34 FOR - FORTRAN │
13│ 43 BGF - Business Graphics Format 35 RPG - RPG II │
14│ 14 DFU - Data File Utility 36 WSU - Work Station Utility │
15│ 15 FMT - Screen Format │
16│ 16 MNU - Menu │
17│ 17 MSG - Message │
18│ 18 PHL - Phone list │
19│ 19 SRT - Sort │
20│ │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HEADER00«, f1=0x00, start=0x010a, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ │
01│ │
02│ ╳HELP FOR SORT HEADER SPECIFICATIONS │
03│ │
04│ ╳DESCRIPTION │
05│ │
06│ ╳A sort header specification is required for every job. It must be the │
07│ first specification in any group of specifications. │
08│ │
09│ │
10│ Statement number (cols 3-5) . . . . . . . . . . . . . 000 │
11│ This is an optional entry, it may be used to number your specification │
12│ statements. The header specification statement must be the first one │
13│ in the source member, hence the number 000. This number is for your │
14│ use only, it is ignored by the sort program. │
15│ │
16│ Statement type (col 6). . . . . . . . . . . . . . . . . H │
17│ This value will always be an H -it identifies this specification as │
18│ the header statement. │
19│ │
20│ │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HEADE100«, f1=0x00, start=0x0112, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ │
01│ │
02│ ╳ HELP FOR SORT HEADER SPECIFICATIONS │
03│ │
04│ │
05│ ╳Job (cols 7-12) . . . . . . . . . . . .SORTR,SORTRS,SORTA │
06│ This entry defines the type of a SORT that will be done. │
07│ SORTR - Regular sort, the output may contain control fields, data │
08│ fields, or both. Add an E in column 12 for equal control │
09│ field ordering. │
10│ SORTRS - Summary sort, the output contains at least one data field │
11│ with accumulated totals. │
12│ SORTA - Record address sort, the output contains relative record │
13│ numbers only. Add an E in column 12 for equal control field │
14│ ordering. │
15│ │
16│ Control field length (cols 13-17) . . . . . . . . . . . . │
17│ This entry is the largest sum (in bytes) of control field lengths for │
18│ any record type. │
19│ │
20│ │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HEADE200«, f1=0x00, start=0x011a, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ │
01│ ╳ HELP FOR SORT HEADER SPECIFICATIONS │
02│ │
03│ ╳Sequence (col 18) . . . . . . . . . . . . . . . . . . A,D │
04│ This is the order in which the records will be sorted. │
05│ A - Records in the output file will be in ascending order. │
06│ D - Records in the output file will be in descending order. │
07│ │
08│ Alternative collating seq (col 26). . . . . . . . . . S,F │
09│ This option specifies that you want to change the sequence used to │
10│ sort values from the standard EBCDIC sequence. │
11│ S - ALTSEQ statements apply to all control fields. │
12│ F - ALTSEQ statements apply to selected fields. │
13│ │
14│ Print option (col 27) . . . . . . . . . . . . . . 0,1,2,3 │
15│ This option specifies the kind of message output from the sort program. │
16│ 0 - Print: Sort specifications, diagnostics, and status messages. │
17│ And display: Action messages and displayed messages. │
18│ 1 - Print: Status messages. │
19│ And display: Action messages and displayed messages. │
20│ 2 - Print: Action messages. And display: Displayed messages. │
21│ 3 - Display: Displayed messages only. │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HEADE300«, f1=0x00, start=0x0122, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ │
01│ │
02│ ╳ HELP FOR SORT HEADER SPECIFICATIONS │
03│ │
04│ │
05│ ╳Output option (col 28). . . . . . . . . . . . . . . . . X │
06│ This option specifies what is included in the sorted output file in some │
07│ sort jobs. If an X is specified, the control fields do not appear in │
08│ the output file. Otherwise, they are included. │
09│ │
10│ Output record length (cols 29-32) . . . . . . . .(1-4096) │
11│ This entry specifies the length of the output records in a regular or │
12│ summary sort. │
13│ │
14│ Null output (col 36). . . . . . . . . . . . . . . . . . N │
15│ An N entry in this colmun indicates that a message will NOT be displayed │
16│ to the operator if there are no input records selected for sorting. │
17│ Otherwise, a message is displayed indicating that no records were │
18│ selected for sorting. │
19│ │
20│ │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»FIELD000«, f1=0x00, start=0x012a, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ ╳ HELP FOR SORT FIELD SPECIFICATIONS │
01│ │
02│ ╳DESCRIPTION │
03│ ╳Field specifications tell the sort program how to arrange and format │
04│ (build) records in the work file and the output file. │
05│ │
06│ Statement number (cols 3-5) . . . . . . . . . . . . . . . │
07│ This is an optional entry, it may be used to number your specifications, │
08│ however, it is ignored by the sort program. │
09│ │
10│ Statement type (col 6). . . . . . . . . . . . . . . . . F │
11│ This will always be an F to indicate a field specification statement. │
12│ │
13│ Field type (col 7). . . . . . . . . . . . . . N,O,F,D,S,* │
14│ This entry specifies the way records, and their data, are to be sorted. │
15│ N - Normal, records are sorted in the order specified on the header. │
16│ O - Opposite, records are sorted opposite the order on the header. │
17│ F - Forced, character is replaced before sorting. │
18│ D - Data, field appears in the output record. │
19│ S - Summary data, field contains accumulated totals. │
20│ * - Comment, line contains no specifications, only comments. │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»FIELD100«, f1=0x00, start=0x0132, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ │
01│ ╳ HELP FOR SORT FIELD SPECIFICATIONS │
02│ │
03│ │
04│ ╳Data type (col 8). . . . . . . . . . . . . . C,Z,D,P,U,V │
05│ This entry specifies the type of data that will be compared. │
06│ C - Use both the zone and digit portions of the characters in this │
07│ field. │
08│ Z - Use only the zone portion of characters in the field. │
09│ D - Use only the digit portion of characters in this field. │
10│ P - Use this field as signed packed decimal data. │
11│ U - Use this field as signed unpacked decimal data. │
12│ V - Use this field to force a data character into the output record. │
13│ │
14│ Field location start (cols 9-12). . . . . . . . . . . . . │
15│ This is the starting position of the field within the record (blank if │
16│ it is a one character field). │
17│ │
18│ Field location end (cols 13-16) . . . . . . . . . . . . . │
19│ This is the ending position of the field within the record. │
20│ │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»FIELD200«, f1=0x00, start=0x013a, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ │
01│ ╳ HELP FOR SORT FIELD SPECIFICATIONS │
02│ │
03│ ╳Forced character or overflow indicator (col 17) . . . . . │
04│ For a forced control field, enter the character that is to be changed. │
05│ For an accumulated total field, enter the character that will indicate │
06│ an overflow has occured. Otherwise, leave blank. │
07│ │
08│ Substitute character or overflow initialization (col 18). │
09│ For a forced control field, enter the character that will be substituted. │
10│ For an accumulated total field, enter the character to initialize the │
11│ overflow indicator to. Otherwise, leave blank. │
12│ │
13│ Forced field continuation (col 19). . . . . . . . . . . . │
14│ For a forced control field, any character other than a blank indicates │
15│ a continuation of the preceding statement. │
16│ │
17│ Overflow field length or alt. seq. field (cols 20-22) . . │
18│ This is the length for an overflow field in a summary sort. If this is │
19│ a summary data field, this is the length to use for the summary total. │
20│ If this is a control field, an A in column 20 indicates an alternative │
21│ sequence (ALTSEQ) for this field. │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»TWOFAC00«, f1=0x00, start=0x0142, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ │
01│ ╳ HELP FOR SORT RECORD TYPE SPECIFICATIONS │
02│ │
03│ │
04│ ╳DESCRIPTION │
05│ │
06│ ╳Record type specifications tell the SORT program which records to sort. │
07│ If all the records in a file are the same format then a record type │
08│ specification statement is not required. │
09│ │
10│ │
11│ Statement number (cols 3-5) . . . . . . . . . . . . . . . . │
12│ This is an optional entry, it may be used to number your specifications, │
13│ however, it is ignored by the sort program. │
14│ │
15│ Include or omit (col 6) . . . . . . . . . . . . . . . . I,O │
16│ I - Include, specification statements specify records to include in │
17│ the sort. │
18│ O - Omit, specification statements specify records to omit from the │
19│ sort. │
20│ │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»TWOFA100«, f1=0x00, start=0x014a, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ │
01│ ╳ HELP FOR SORT RECORD TYPE SPECIFICATIONS │
02│ │
03│ ╳AND/OR test (col 7) . . . . . . . . . . . . . A,O,blank,* │
04│ This entry is used to help select and omit records. │
05│ A - AND statements continue defining the record from the previous │
06│ statement. │
07│ O - OR statements define a different record than the previous │
08│ statement. │
09│ Blank - This is the first statement in a set of I or O statements. │
10│ * - Comment line can be used for any comments. │
11│ │
12│ Date type (col 8) . . . . . . . . . . . . . . . C,Z,D,P,U │
13│ This entry specifies the type of data to be tested. │
14│ C - Use both the zone and digit portions of characters in this │
15│ field. │
16│ Z - Use only the zone portion of this 1-character field. │
17│ D - Use only the digit portion of the characters in this field. │
18│ P - Use this field as signed packed decimal data. │
19│ U - Use this field as signed unpacked decimal data. │
20│ │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»TWOFA200«, f1=0x00, start=0x0152, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ │
01│ ╳ HELP FOR SORT RECORD TYPE SPECIFICATIONS │
02│ │
03│ │
04│ ╳Factor 1 location start (cols 9-12) . . . . . . . . . . . │
05│ This is the starting position of the factor 1 field within the input │
06│ record (blank if factor 1 is a one character field). │
07│ │
08│ Factor 1 location end (cols 13-16). . . . . . . . . . . . │
09│ This is the ending position of the factor 1 field within the input │
10│ record. │
11│ │
12│ Relationship (cols 17-18) . . . . . . . EQ,NE,LT,LE,GT,GE │
13│ This entry specifies the comparison the sort program will make in │
14│ selecting records. │
15│ EQ - Factor 1 must equal factor 2. │
16│ NE - Factor 1 must not equal factor 2. │
17│ LT - Factor 1 must be less than factor 2. │
18│ LE - Factor 1 must be less than or equal to factor 2. │
19│ GT - Factor 1 must be greater than factor 2. │
20│ GE - Factor 1 must be greater than or equal to factor 2. │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»TWOFA300«, f1=0x00, start=0x015a, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ │
01│ ╳ HELP FOR SORT RECORD TYPE SPECIFICATIONS │
02│ │
03│ │
04│ ╳Factor 2 type (col 19). . . . . . . . . . . . . . . . . F │
05│ This specifies that factor 2 is another field in the same input record │
06│ as factor 1. To specify factor 2 as a constant or keyword you must use │
07│ display format SRT-CNST. │
08│ │
09│ Factor 2 location start (cols 20-23). . . . . . . . . . . │
10│ This is the starting position of the factor 2 field within the input │
11│ record (blank if factor 2 is a one character field). │
12│ │
13│ Factor 2 location end (cols 24-27). . . . . . . . . . . . │
14│ This is the ending posistion of the factor 2 field within the input │
15│ record. │
16│ │
17│ │
18│ │
19│ │
20│ │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»CONKEY00«, f1=0x00, start=0x0162, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ │
01│ ╳ HELP FOR SORT RECORD TYPE SPECIFICATIONS │
02│ │
03│ │
04│ ╳Type of compare (col 19). . . . . . . . . . . . . . . C,K │
05│ This specifies that factor 2 is either a constant or keyword. To specify │
06│ that factor 2 is another field in the same input record as factor 1 you │
07│ must use the display format SRT-RECD. │
08│ C - Factor 2 is a constant │
09│ K - Factor 2 is a keyword (UDATE,...) │
10│ │
11│ Constant or keyword (cols 20-39). . . . . . . . . . . . . │
12│ This field is used to specify the constant or keyword to use. Any │
13│ combination of characters or blanks may be used as a constant. A │
14│ constant must be the same length as the factor 1, for a packed field, the │
15│ constant must be twice the length of factor 1. Allowable keywords are: │
16│ UDATE - Entire program date │
17│ UMONTH - Month portion of program date │
18│ UDAY - Day portion of program date │
19│ UYEAR - Year portion of program date │
20│ │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HFORMU00«, f1=0x00, start=0x016a, length=0x07, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ │
01│ HELP FOR DISPLAY SELECTION │
02│ │
03│ Enter the number that corresponds to the display you want to use. │
04│ │
05│ │
06│ WSU-J - Workstation utility job specification │
07│ WSU-E - Workstation utility array specification │
08│ WSU-T - Workstation utility transaction file specification │
09│ WSU-M - Workstation utility master file specification │
10│ WSU-S - Workstation utility display format specification │
11│ WSU-D - Workstation utility field definition specification │
12│ WSU-C - Workstation utility processing specification │
13│ SFGR-S - Screen format generator S specification │
14│ SFGR-H - Screen format generator H specification │
15│ SFGR-D - Screen format generator D specification │
16│ D-CONT - Screen format generator D continuation specification │
17│ D-CONT - Screen format generator D continuation specification │
18│ SORTH - Sort header specification │
19│ SORTRC - Sort field to constant compare specification │
20│ SORTF - Sort field to field compare specification │
21│ COMMAND - Free form format for ideographic data │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HFORMV00«, f1=0x00, start=0x0171, length=0x07, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ │
01│ HELP FOR DISPLAY SELECTION │
02│ │
03│ Enter the number that corresponds to the display you want to use. │
04│ │
05│ │
06│ ASSEM - Assembler specification │
07│ FORTRAN - Fortran specification │
08│ COBOL - COBOL specification │
09│ SDAS - Prompted screen format generator S specification │
10│ SDAH - Prompted screen format generator H specification │
11│ SDAD1 - Prompted screen format generator D specification │
12│ SDAD2 - Prompted screen format generator D continuation │
13│ DOC-H - Document H specification │
14│ AUTOR - Auto-response message specification │
15│ MESSAGE - Message specification │
16│ SRT-HEAD - Sort header specification │
17│ SRT-RECD - Sort record type specification │
18│ SRT-CNST - Sort field to constant compare specification │
19│ SRT-FLD - Sort field to field compare specification │
20│ MICRSYS - Magnetic Ink Character Recognition system specification │
21│ MICRSTCK - Magnetic Ink Character Recognition stacker specification │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»HFORMW00«, f1=0x00, start=0x0178, length=0x02, f5=0x00, f6=0x00, f7=0x00, f8=0x80, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ │
01│ HELP FOR DISPLAY SELECTION │
02│ │
03│ Enter the number that corresponds to the display you want to use. │
04│ │
05│ │
06│ PASSTHRU - Display station pass through node entry │
07│ │
08│ │
09│ │
10│ │
11│ │
12│ │
13│ │
14│ │
15│ │
16│ │
17│ │
18│ │
19│ │
20│ │
21│ │
22│ │
23│ Enter-Exit help text Roll keys-Page help text │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
0x00000…00480 Vector {
0x00000…00480 [0x00]: FormPointer36 {name=»HENTER00«, f1=0x00, start=0x0005, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x01]: FormPointer36 {name=»HSCANR00«, f1=0x00, start=0x000d, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x02]: FormPointer36 {name=»HSCAN200«, f1=0x00, start=0x0015, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x03]: FormPointer36 {name=»HSCAN300«, f1=0x00, start=0x001d, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x04]: FormPointer36 {name=»HREPLC00«, f1=0x00, start=0x0025, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x05]: FormPointer36 {name=»HREPL200«, f1=0x00, start=0x002d, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x06]: FormPointer36 {name=»HREPL300«, f1=0x00, start=0x0035, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x07]: FormPointer36 {name=»HFORMT00«, f1=0x00, start=0x003d, length=0x06, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x08]: FormPointer36 {name=»HDELET00«, f1=0x00, start=0x0043, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x09]: FormPointer36 {name=»HCOPYM00«, f1=0x00, start=0x004b, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x0a]: FormPointer36 {name=»HCOPMO00«, f1=0x00, start=0x0053, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x0b]: FormPointer36 {name=»HINCLM00«, f1=0x00, start=0x005b, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x0c]: FormPointer36 {name=»HINCL200«, f1=0x00, start=0x0063, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x0d]: FormPointer36 {name=»HTRANM00«, f1=0x00, start=0x006b, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x0e]: FormPointer36 {name=»HEOJDN00«, f1=0x00, start=0x0073, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x0f]: FormPointer36 {name=»HEOJDN01«, f1=0x00, start=0x007b, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x10]: FormPointer36 {name=»HSOURC00«, f1=0x00, start=0x0083, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x11]: FormPointer36 {name=»HSCEOJ00«, f1=0x00, start=0x008b, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x12]: FormPointer36 {name=»HSCEO101«, f1=0x00, start=0x0093, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x13]: FormPointer36 {name=»HSORCE00«, f1=0x00, start=0x009b, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x14]: FormPointer36 {name=»HPROCS00«, f1=0x00, start=0x00a3, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x15]: FormPointer36 {name=»HPROC101«, f1=0x00, start=0x00ab, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x16]: FormPointer36 {name=»HPROC202«, f1=0x00, start=0x00b3, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x17]: FormPointer36 {name=»HENTNO00«, f1=0x00, start=0x00bb, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x18]: FormPointer36 {name=»HENTUP00«, f1=0x00, start=0x00c3, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x19]: FormPointer36 {name=»HENTRY00«, f1=0x00, start=0x00cb, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x1a]: FormPointer36 {name=»HMODES00«, f1=0x00, start=0x00d3, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x1b]: FormPointer36 {name=»HINCLD00«, f1=0x00, start=0x00db, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x1c]: FormPointer36 {name=»HSCANN00«, f1=0x00, start=0x00e3, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x1d]: FormPointer36 {name=»HTRANS00«, f1=0x00, start=0x00eb, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x1e]: FormPointer36 {name=»HCMDKY00«, f1=0x00, start=0x00f3, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x1f]: FormPointer36 {name=»HNOKEY00«, f1=0x00, start=0x00fb, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x20]: FormPointer36 {name=»HSBTYP00«, f1=0x00, start=0x0103, length=0x07, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x21]: FormPointer36 {name=»HEADER00«, f1=0x00, start=0x010a, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x22]: FormPointer36 {name=»HEADE100«, f1=0x00, start=0x0112, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x23]: FormPointer36 {name=»HEADE200«, f1=0x00, start=0x011a, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x24]: FormPointer36 {name=»HEADE300«, f1=0x00, start=0x0122, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x25]: FormPointer36 {name=»FIELD000«, f1=0x00, start=0x012a, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x26]: FormPointer36 {name=»FIELD100«, f1=0x00, start=0x0132, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x27]: FormPointer36 {name=»FIELD200«, f1=0x00, start=0x013a, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x28]: FormPointer36 {name=»TWOFAC00«, f1=0x00, start=0x0142, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x29]: FormPointer36 {name=»TWOFA100«, f1=0x00, start=0x014a, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x2a]: FormPointer36 {name=»TWOFA200«, f1=0x00, start=0x0152, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x2b]: FormPointer36 {name=»TWOFA300«, f1=0x00, start=0x015a, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x2c]: FormPointer36 {name=»CONKEY00«, f1=0x00, start=0x0162, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x2d]: FormPointer36 {name=»HFORMU00«, f1=0x00, start=0x016a, length=0x07, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x2e]: FormPointer36 {name=»HFORMV00«, f1=0x00, start=0x0171, length=0x07, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x00000…00480 [0x2f]: FormPointer36 {name=»HFORMW00«, f1=0x00, start=0x0178, length=0x02, f5=0x00, f6=0x00, f7=0x00, f8=0x80, f9=0000000000000000}
0x00000…00480 }
0x00480…004a0 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 ┆ ┆
[…0x3…]
0x00500…0119a Form36 {
0x00500…0119a fh000 = 0x00 // 0x500 @0x0
0x00500…0119a fh00 = 2200 // 0x501 @0x1
0x00500…0119a fh01 = »NNN« // 0x503 @0x3
0x00500…0119a fh02 = 000000 // 0x506 @0x6
0x00500…0119a fh03 = »NNN« // 0x509 @0x9
0x00500…0119a fh04 = 0x0028 // 0x50c @0xc
0x00500…0119a fh05 = 0x074a // 0x50e @0xe
0x00500…0119a fh06 = 000080011800000000000000000000000000 // 0x510 @0x10
0x00500…0119a at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x522 @0x22
0x00500…0119a panel = { // 0x528 @0x28
0x00500…0119a ┌────────────────────────────────────────────────────────────────────────────────┐
0x00500…0119a 00│ │
0x00500…0119a 01│ HELP FOR ENTER/UPDATE │
0x00500…0119a 02│ │
0x00500…0119a 03│ ╳Enter or update statement number . . . . . . . . . . . . . . . . . . │
0x00500…0119a 04│ │
0x00500…0119a 05│ ╳To enter a new statement, enter a new statement number in response to │
0x00500…0119a 06│ the prompt and press Enter. │
0x00500…0119a 07│ To insert a new statement between two existing statements, enter │
0x00500…0119a 08│ a number that is between two existing statement numbers in response │
0x00500…0119a 09│ to the prompt and press Enter. │
0x00500…0119a 10│ To update an existing statement, enter an existing statement number │
0x00500…0119a 11│ in response to the prompt and press Enter. │
0x00500…0119a 12│ │
0x00500…0119a 13│ Examples: │
0x00500…0119a 14│ │
0x00500…0119a 15│ ╳0001.00 This is the first line. │
0x00500…0119a 16│ ╳0002.00 This is the second line. │
0x00500…0119a 17│ │
0x00500…0119a 18│ ╳Enter: If you want to: │
0x00500…0119a 19│ 3.0 Enter one or more new statements. │
0x00500…0119a 20│ 1.1 Insert one or more new statements. │
0x00500…0119a 21│ 1.0 Update statement 0001.00. │
0x00500…0119a 22│ │
0x00500…0119a 23│ Enter-End help text Roll keys-Page help text │
0x00500…0119a 24│ │
0x00500…0119a 25│ │
0x00500…0119a 26│ │
0x00500…0119a 27│ │
0x00500…0119a └────────────────────────────────────────────────────────────────────────────────┘
0x00500…0119a Panel5250 {
0x00500…0119a at0000 = ClearUnit {esc=04, cu=40} // 0x528 @0x0
0x00500…0119a at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x52a @0x2
0x00500…0119a at0006 = SetBufferAddress {ic=11, line=0x02, col=0x1e} // 0x52e @0x6
0x00500…0119a at0009 = »HELP FOR ENTER/UPDATE « // 0x531 @0x9
0x00500…0119a at003c = » « // 0x564 @0x3c
0x00500…0119a at008c = » « // 0x5b4 @0x8c
0x00500…0119a at0090 = SetBufferAddress {ic=11, line=0x04, col=0x05} // 0x5b8 @0x90
0x00500…0119a at0093 = Attribute {type=0x22} // 0x5bb @0x93
0x00500…0119a at0094 = »Enter or update statement number . . . . . . . . . . . . . . . . . . « // 0x5bc @0x94
0x00500…0119a at00df = » « // 0x607 @0xdf
0x00500…0119a at012f = » « // 0x657 @0x12f
0x00500…0119a at0133 = Attribute {type=0x20} // 0x65b @0x133
0x00500…0119a at0134 = SetBufferAddress {ic=11, line=0x06, col=0x06} // 0x65c @0x134
0x00500…0119a at0137 = »To enter a new statement, enter a new statement number in response to « // 0x65f @0x137
0x00500…0119a at0182 = » « // 0x6aa @0x182
0x00500…0119a at0186 = SetBufferAddress {ic=11, line=0x07, col=0x06} // 0x6ae @0x186
0x00500…0119a at0189 = »the prompt and press Enter. « // 0x6b1 @0x189
0x00500…0119a at01d4 = » « // 0x6fc @0x1d4
0x00500…0119a at01d8 = SetBufferAddress {ic=11, line=0x08, col=0x06} // 0x700 @0x1d8
0x00500…0119a at01db = »To insert a new statement between two existing statements, enter « // 0x703 @0x1db
0x00500…0119a at0226 = » « // 0x74e @0x226
0x00500…0119a at022a = SetBufferAddress {ic=11, line=0x09, col=0x06} // 0x752 @0x22a
0x00500…0119a at022d = »a number that is between two existing statement numbers in response « // 0x755 @0x22d
0x00500…0119a at0278 = » « // 0x7a0 @0x278
0x00500…0119a at027c = SetBufferAddress {ic=11, line=0x0a, col=0x06} // 0x7a4 @0x27c
0x00500…0119a at027f = »to the prompt and press Enter. « // 0x7a7 @0x27f
0x00500…0119a at02ca = » « // 0x7f2 @0x2ca
0x00500…0119a at02ce = SetBufferAddress {ic=11, line=0x0b, col=0x06} // 0x7f6 @0x2ce
0x00500…0119a at02d1 = »To update an existing statement, enter an existing statement number « // 0x7f9 @0x2d1
0x00500…0119a at031c = » « // 0x844 @0x31c
0x00500…0119a at0320 = SetBufferAddress {ic=11, line=0x0c, col=0x06} // 0x848 @0x320
0x00500…0119a at0323 = »in response to the prompt and press Enter. « // 0x84b @0x323
0x00500…0119a at036e = » « // 0x896 @0x36e
0x00500…0119a at03be = » « // 0x8e6 @0x3be
0x00500…0119a at03c2 = SetBufferAddress {ic=11, line=0x0e, col=0x06} // 0x8ea @0x3c2
0x00500…0119a at03c5 = »Examples: « // 0x8ed @0x3c5
0x00500…0119a at0410 = » « // 0x938 @0x410
0x00500…0119a at0460 = » « // 0x988 @0x460
0x00500…0119a at0464 = SetBufferAddress {ic=11, line=0x10, col=0x05} // 0x98c @0x464
0x00500…0119a at0467 = Attribute {type=0x22} // 0x98f @0x467
0x00500…0119a at0468 = »0001.00 This is the first line. « // 0x990 @0x468
0x00500…0119a at04b3 = » « // 0x9db @0x4b3
0x00500…0119a at04b7 = Attribute {type=0x20} // 0x9df @0x4b7
0x00500…0119a at04b8 = SetBufferAddress {ic=11, line=0x11, col=0x05} // 0x9e0 @0x4b8
0x00500…0119a at04bb = Attribute {type=0x22} // 0x9e3 @0x4bb
0x00500…0119a at04bc = »0002.00 This is the second line. « // 0x9e4 @0x4bc
0x00500…0119a at0507 = » « // 0xa2f @0x507
0x00500…0119a at0557 = » « // 0xa7f @0x557
0x00500…0119a at055f = Attribute {type=0x20} // 0xa87 @0x55f
0x00500…0119a at0560 = SetBufferAddress {ic=11, line=0x13, col=0x0a} // 0xa88 @0x560
0x00500…0119a at0563 = »Enter: « // 0xa8b @0x563
0x00500…0119a at056f = SetBufferAddress {ic=11, line=0x13, col=0x17} // 0xa97 @0x56f
0x00500…0119a at0572 = »If you want to: « // 0xa9a @0x572
0x00500…0119a at05ac = » « // 0xad4 @0x5ac
0x00500…0119a at05ba = SetBufferAddress {ic=11, line=0x14, col=0x10} // 0xae2 @0x5ba
0x00500…0119a at05bd = »3.0 « // 0xae5 @0x5bd
0x00500…0119a at05d2 = SetBufferAddress {ic=11, line=0x14, col=0x26} // 0xafa @0x5d2
0x00500…0119a at05d5 = »Enter one or more new statements. « // 0xafd @0x5d5
0x00500…0119a at0600 = » « // 0xb28 @0x600
0x00500…0119a at060e = SetBufferAddress {ic=11, line=0x15, col=0x10} // 0xb36 @0x60e
0x00500…0119a at0611 = »1.1 « // 0xb39 @0x611
0x00500…0119a at0626 = SetBufferAddress {ic=11, line=0x15, col=0x26} // 0xb4e @0x626
0x00500…0119a at0629 = »Insert one or more new statements. « // 0xb51 @0x629
0x00500…0119a at0654 = » « // 0xb7c @0x654
0x00500…0119a at0662 = SetBufferAddress {ic=11, line=0x16, col=0x10} // 0xb8a @0x662
0x00500…0119a at0665 = »1.0 « // 0xb8d @0x665
0x00500…0119a at067a = SetBufferAddress {ic=11, line=0x16, col=0x26} // 0xba2 @0x67a
0x00500…0119a at067d = »Update statement 0001.00. « // 0xba5 @0x67d
0x00500…0119a at06a8 = » « // 0xbd0 @0x6a8
0x00500…0119a at06f8 = » « // 0xc20 @0x6f8
0x00500…0119a at06fa = SetBufferAddress {ic=11, line=0x18, col=0x04} // 0xc22 @0x6fa
0x00500…0119a at06fd = »Enter-End help text Roll keys-Page help text « // 0xc25 @0x6fd
0x00500…0119a }
0x00500…0119a }
0x00500…0119a }
0x00d00…0218e Form36 {
0x00d00…0218e fh000 = 0x00 // 0xd00 @0x0
0x00d00…0218e fh00 = 2200 // 0xd01 @0x1
0x00d00…0218e fh01 = »NNN« // 0xd03 @0x3
0x00d00…0218e fh02 = 000000 // 0xd06 @0x6
0x00d00…0218e fh03 = »NNN« // 0xd09 @0x9
0x00d00…0218e fh04 = 0x0028 // 0xd0c @0xc
0x00d00…0218e fh05 = 0x073e // 0xd0e @0xe
0x00d00…0218e fh06 = 000080011800000000000000000000000000 // 0xd10 @0x10
0x00d00…0218e at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0xd22 @0x22
0x00d00…0218e panel = { // 0xd28 @0x28
0x00d00…0218e ┌────────────────────────────────────────────────────────────────────────────────┐
0x00d00…0218e 00│ │
0x00d00…0218e 01│ HELP FOR SCAN │
0x00d00…0218e 02│ │
0x00d00…0218e 03│ ╳Scan characters . . . . . . . . . . . . . . . . . . . . . . . . . . . . │
0x00d00…0218e 04│ │
0x00d00…0218e 05│ ╳This is the string of characters you want to locate. SEU can scan for │
0x00d00…0218e 06│ lowercase alphabetic characters only if you have chosen a format that │
0x00d00…0218e 07│ permits lowercase. Blanks are valid in any position of the string. If │
0x00d00…0218e 08│ blanks are included at the end of the string, remember to include them │
0x00d00…0218e 09│ in your count and enter a value for the prompt, Number of scan │
0x00d00…0218e 10│ characters. │
0x00d00…0218e 11│ │
0x00d00…0218e 12│ ╳Starting at position . . . . . . . . . . . . . . . . . . . . . . . . . . │
0x00d00…0218e 13│ │
0x00d00…0218e 14│ ╳This is the starting position of the scan character string within the │
0x00d00…0218e 15│ statements you are searching. It limits the scan to a particular area │
0x00d00…0218e 16│ of the statement. The scan skips over any data in the statement up to │
0x00d00…0218e 17│ the starting position and scans only the characters specified. │
0x00d00…0218e 18│ This prompt is optional. If left blank, SEU searches the entire state- │
0x00d00…0218e 19│ ment for the first occurrence of the specified scan characters. When │
0x00d00…0218e 20│ the scan characters are found, and the statement is displayed, the scan │
0x00d00…0218e 21│ continues with the next statement when you press the Enter key. │
0x00d00…0218e 22│ │
0x00d00…0218e 23│ Enter-Exit help text Roll keys-Page help text │
0x00d00…0218e 24│ │
0x00d00…0218e 25│ │
0x00d00…0218e 26│ │
0x00d00…0218e 27│ │
0x00d00…0218e └────────────────────────────────────────────────────────────────────────────────┘
0x00d00…0218e Panel5250 {
0x00d00…0218e at0000 = ClearUnit {esc=04, cu=40} // 0xd28 @0x0
0x00d00…0218e at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0xd2a @0x2
0x00d00…0218e at0006 = SetBufferAddress {ic=11, line=0x02, col=0x22} // 0xd2e @0x6
0x00d00…0218e at0009 = »HELP FOR SCAN « // 0xd31 @0x9
0x00d00…0218e at0038 = » « // 0xd60 @0x38
0x00d00…0218e at0088 = » « // 0xdb0 @0x88
0x00d00…0218e at008c = SetBufferAddress {ic=11, line=0x04, col=0x05} // 0xdb4 @0x8c
0x00d00…0218e at008f = Attribute {type=0x22} // 0xdb7 @0x8f
0x00d00…0218e at0090 = »Scan characters . . . . . . . . . . . . . . . . . . . . . . . . . . . . « // 0xdb8 @0x90
0x00d00…0218e at00db = » « // 0xe03 @0xdb
0x00d00…0218e at012b = » « // 0xe53 @0x12b
0x00d00…0218e at012f = Attribute {type=0x20} // 0xe57 @0x12f
0x00d00…0218e at0130 = SetBufferAddress {ic=11, line=0x06, col=0x06} // 0xe58 @0x130
0x00d00…0218e at0133 = »This is the string of characters you want to locate. SEU can scan for « // 0xe5b @0x133
0x00d00…0218e at017e = » « // 0xea6 @0x17e
0x00d00…0218e at0182 = SetBufferAddress {ic=11, line=0x07, col=0x06} // 0xeaa @0x182
0x00d00…0218e at0185 = »lowercase alphabetic characters only if you have chosen a format that « // 0xead @0x185
0x00d00…0218e at01d0 = » « // 0xef8 @0x1d0
0x00d00…0218e at01d4 = SetBufferAddress {ic=11, line=0x08, col=0x06} // 0xefc @0x1d4
0x00d00…0218e at01d7 = »permits lowercase. Blanks are valid in any position of the string. If « // 0xeff @0x1d7
0x00d00…0218e at0222 = » « // 0xf4a @0x222
0x00d00…0218e at0226 = SetBufferAddress {ic=11, line=0x09, col=0x06} // 0xf4e @0x226
0x00d00…0218e at0229 = »blanks are included at the end of the string, remember to include them « // 0xf51 @0x229
0x00d00…0218e at0274 = » « // 0xf9c @0x274
0x00d00…0218e at0278 = SetBufferAddress {ic=11, line=0x0a, col=0x06} // 0xfa0 @0x278
0x00d00…0218e at027b = »in your count and enter a value for the prompt, Number of scan « // 0xfa3 @0x27b
0x00d00…0218e at02c6 = » « // 0xfee @0x2c6
0x00d00…0218e at02ca = SetBufferAddress {ic=11, line=0x0b, col=0x06} // 0xff2 @0x2ca
0x00d00…0218e at02cd = »characters. « // 0xff5 @0x2cd
0x00d00…0218e at0318 = » « // 0x1040 @0x318
0x00d00…0218e at0368 = » « // 0x1090 @0x368
0x00d00…0218e at036c = SetBufferAddress {ic=11, line=0x0d, col=0x05} // 0x1094 @0x36c
0x00d00…0218e at036f = Attribute {type=0x22} // 0x1097 @0x36f
0x00d00…0218e at0370 = »Starting at position . . . . . . . . . . . . . . . . . . . . . . . . . . « // 0x1098 @0x370
0x00d00…0218e at03bb = » « // 0x10e3 @0x3bb
0x00d00…0218e at040b = » « // 0x1133 @0x40b
0x00d00…0218e at040f = Attribute {type=0x20} // 0x1137 @0x40f
0x00d00…0218e at0410 = SetBufferAddress {ic=11, line=0x0f, col=0x06} // 0x1138 @0x410
0x00d00…0218e at0413 = »This is the starting position of the scan character string within the « // 0x113b @0x413
0x00d00…0218e at045e = » « // 0x1186 @0x45e
0x00d00…0218e at0462 = SetBufferAddress {ic=11, line=0x10, col=0x06} // 0x118a @0x462
0x00d00…0218e at0465 = »statements you are searching. It limits the scan to a particular area « // 0x118d @0x465
0x00d00…0218e at04b0 = » « // 0x11d8 @0x4b0
0x00d00…0218e at04b4 = SetBufferAddress {ic=11, line=0x11, col=0x06} // 0x11dc @0x4b4
0x00d00…0218e at04b7 = »of the statement. The scan skips over any data in the statement up to « // 0x11df @0x4b7
0x00d00…0218e at0502 = » « // 0x122a @0x502
0x00d00…0218e at0506 = SetBufferAddress {ic=11, line=0x12, col=0x06} // 0x122e @0x506
0x00d00…0218e at0509 = »the starting position and scans only the characters specified. « // 0x1231 @0x509
0x00d00…0218e at0554 = » « // 0x127c @0x554
0x00d00…0218e at0558 = SetBufferAddress {ic=11, line=0x13, col=0x06} // 0x1280 @0x558
0x00d00…0218e at055b = »This prompt is optional. If left blank, SEU searches the entire state- « // 0x1283 @0x55b
0x00d00…0218e at05a6 = » « // 0x12ce @0x5a6
0x00d00…0218e at05aa = SetBufferAddress {ic=11, line=0x14, col=0x06} // 0x12d2 @0x5aa
0x00d00…0218e at05ad = »ment for the first occurrence of the specified scan characters. When « // 0x12d5 @0x5ad
0x00d00…0218e at05f8 = » « // 0x1320 @0x5f8
0x00d00…0218e at05fc = SetBufferAddress {ic=11, line=0x15, col=0x06} // 0x1324 @0x5fc
0x00d00…0218e at05ff = »the scan characters are found, and the statement is displayed, the scan « // 0x1327 @0x5ff
0x00d00…0218e at064a = » « // 0x1372 @0x64a
0x00d00…0218e at064e = SetBufferAddress {ic=11, line=0x16, col=0x06} // 0x1376 @0x64e
0x00d00…0218e at0651 = »continues with the next statement when you press the Enter key. « // 0x1379 @0x651
0x00d00…0218e at069c = » « // 0x13c4 @0x69c
0x00d00…0218e at06ec = » « // 0x1414 @0x6ec
0x00d00…0218e at06ee = SetBufferAddress {ic=11, line=0x18, col=0x04} // 0x1416 @0x6ee
0x00d00…0218e at06f1 = »Enter-Exit help text Roll keys-Page help text « // 0x1419 @0x6f1
0x00d00…0218e }
0x00d00…0218e }
0x00d00…0218e }
0x01500…03141 Form36 {
0x01500…03141 fh000 = 0x00 // 0x1500 @0x0
0x01500…03141 fh00 = 2200 // 0x1501 @0x1
0x01500…03141 fh01 = »NNN« // 0x1503 @0x3
0x01500…03141 fh02 = 000000 // 0x1506 @0x6
0x01500…03141 fh03 = »NNN« // 0x1509 @0x9
0x01500…03141 fh04 = 0x0028 // 0x150c @0xc
0x01500…03141 fh05 = 0x06f1 // 0x150e @0xe
0x01500…03141 fh06 = 000080011800000000000000000000000000 // 0x1510 @0x10
0x01500…03141 at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x1522 @0x22
0x01500…03141 panel = { // 0x1528 @0x28
0x01500…03141 ┌────────────────────────────────────────────────────────────────────────────────┐
0x01500…03141 00│ │
0x01500…03141 01│ HELP FOR SCAN │
0x01500…03141 02│ │
0x01500…03141 03│ ╳Number of scan positions. . . . . . . . . . . . . . . . . . . . . . . . │
0x01500…03141 04│ │
0x01500…03141 05│ ╳This is the number of characters, including blanks, contained in the │
0x01500…03141 06│ scan character string. Any number from 1 through 25 may be entered. If │
0x01500…03141 07│ the number you specify is less than the number of scan characters you │
0x01500…03141 08│ entered, SEU shortens the right end of the scan character string to this │
0x01500…03141 09│ length. If the number you specify is greater than the number of scan │
0x01500…03141 10│ characters you entered, SEU assumes blanks to the right of the scan │
0x01500…03141 11│ character string. │
0x01500…03141 12│ This prompt is optional only if you responded to Scan characters prompt │
0x01500…03141 13│ earlier. If you do not respond to this prompt, SEU assumes that the │
0x01500…03141 14│ scan character string contains no blanks at the end and counts only the │
0x01500…03141 15│ number of characters within the string. │
0x01500…03141 16│ │
0x01500…03141 17│ ╳Scan and replace . . . . . . . . . . . . . . . . . . . . . . . . . Y,N │
0x01500…03141 18│ │
0x01500…03141 19│ ╳A response of Y for yes selects the scan and replace function which will │
0x01500…03141 20│ replace the scan character string with a string of replace characters. │
0x01500…03141 21│ If you enter a Y, the replace display screen is displayed. │
0x01500…03141 22│ │
0x01500…03141 23│ Enter-Exit help text Roll keys-Page help text │
0x01500…03141 24│ │
0x01500…03141 25│ │
0x01500…03141 26│ │
0x01500…03141 27│ │
0x01500…03141 └────────────────────────────────────────────────────────────────────────────────┘
0x01500…03141 Panel5250 {
0x01500…03141 at0000 = ClearUnit {esc=04, cu=40} // 0x1528 @0x0
0x01500…03141 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x152a @0x2
0x01500…03141 at0006 = SetBufferAddress {ic=11, line=0x02, col=0x1f} // 0x152e @0x6
0x01500…03141 at0009 = »HELP FOR SCAN « // 0x1531 @0x9
0x01500…03141 at003b = » « // 0x1563 @0x3b
0x01500…03141 at008b = » « // 0x15b3 @0x8b
0x01500…03141 at008f = SetBufferAddress {ic=11, line=0x04, col=0x05} // 0x15b7 @0x8f
0x01500…03141 at0092 = Attribute {type=0x22} // 0x15ba @0x92
0x01500…03141 at0093 = »Number of scan positions. . . . . . . . . . . . . . . . . . . . . . . . « // 0x15bb @0x93
0x01500…03141 at00de = » « // 0x1606 @0xde
0x01500…03141 at012e = » « // 0x1656 @0x12e
0x01500…03141 at0132 = Attribute {type=0x20} // 0x165a @0x132
0x01500…03141 at0133 = SetBufferAddress {ic=11, line=0x06, col=0x06} // 0x165b @0x133
0x01500…03141 at0136 = »This is the number of characters, including blanks, contained in the « // 0x165e @0x136
0x01500…03141 at0181 = » « // 0x16a9 @0x181
0x01500…03141 at0185 = SetBufferAddress {ic=11, line=0x07, col=0x06} // 0x16ad @0x185
0x01500…03141 at0188 = »scan character string. Any number from 1 through 25 may be entered. If « // 0x16b0 @0x188
0x01500…03141 at01d3 = » « // 0x16fb @0x1d3
0x01500…03141 at01d7 = SetBufferAddress {ic=11, line=0x08, col=0x06} // 0x16ff @0x1d7
0x01500…03141 at01da = »the number you specify is less than the number of scan characters you « // 0x1702 @0x1da
0x01500…03141 at0225 = » « // 0x174d @0x225
0x01500…03141 at0229 = SetBufferAddress {ic=11, line=0x09, col=0x06} // 0x1751 @0x229
0x01500…03141 at022c = »entered, SEU shortens the right end of the scan character string to this « // 0x1754 @0x22c
0x01500…03141 at0277 = » « // 0x179f @0x277
0x01500…03141 at027b = SetBufferAddress {ic=11, line=0x0a, col=0x06} // 0x17a3 @0x27b
0x01500…03141 at027e = »length. If the number you specify is greater than the number of scan « // 0x17a6 @0x27e
0x01500…03141 at02c9 = » « // 0x17f1 @0x2c9
0x01500…03141 at02cd = SetBufferAddress {ic=11, line=0x0b, col=0x06} // 0x17f5 @0x2cd
0x01500…03141 at02d0 = »characters you entered, SEU assumes blanks to the right of the scan « // 0x17f8 @0x2d0
0x01500…03141 at031b = » « // 0x1843 @0x31b
0x01500…03141 at031f = SetBufferAddress {ic=11, line=0x0c, col=0x06} // 0x1847 @0x31f
0x01500…03141 at0322 = »character string. « // 0x184a @0x322
0x01500…03141 at036d = » « // 0x1895 @0x36d
0x01500…03141 at0371 = SetBufferAddress {ic=11, line=0x0d, col=0x06} // 0x1899 @0x371
0x01500…03141 at0374 = »This prompt is optional only if you responded to Scan characters prompt « // 0x189c @0x374
0x01500…03141 at03bf = » « // 0x18e7 @0x3bf
0x01500…03141 at03c3 = SetBufferAddress {ic=11, line=0x0e, col=0x06} // 0x18eb @0x3c3
0x01500…03141 at03c6 = »earlier. If you do not respond to this prompt, SEU assumes that the « // 0x18ee @0x3c6
0x01500…03141 at0411 = » « // 0x1939 @0x411
0x01500…03141 at0415 = SetBufferAddress {ic=11, line=0x0f, col=0x06} // 0x193d @0x415
0x01500…03141 at0418 = »scan character string contains no blanks at the end and counts only the « // 0x1940 @0x418
0x01500…03141 at0463 = » « // 0x198b @0x463
0x01500…03141 at0467 = SetBufferAddress {ic=11, line=0x10, col=0x06} // 0x198f @0x467
0x01500…03141 at046a = »number of characters within the string. « // 0x1992 @0x46a
0x01500…03141 at04b5 = » « // 0x19dd @0x4b5
0x01500…03141 at0505 = » « // 0x1a2d @0x505
0x01500…03141 at0509 = SetBufferAddress {ic=11, line=0x12, col=0x05} // 0x1a31 @0x509
0x01500…03141 at050c = Attribute {type=0x22} // 0x1a34 @0x50c
0x01500…03141 at050d = »Scan and replace . . . . . . . . . . . . . . . . . . . . . . . . . Y,N « // 0x1a35 @0x50d
0x01500…03141 at0558 = » « // 0x1a80 @0x558
0x01500…03141 at05a8 = » « // 0x1ad0 @0x5a8
0x01500…03141 at05ac = Attribute {type=0x20} // 0x1ad4 @0x5ac
0x01500…03141 at05ad = SetBufferAddress {ic=11, line=0x14, col=0x06} // 0x1ad5 @0x5ad
0x01500…03141 at05b0 = »A response of Y for yes selects the scan and replace function which will « // 0x1ad8 @0x5b0
0x01500…03141 at05fb = » « // 0x1b23 @0x5fb
0x01500…03141 at05ff = SetBufferAddress {ic=11, line=0x15, col=0x06} // 0x1b27 @0x5ff
0x01500…03141 at0602 = »replace the scan character string with a string of replace characters. « // 0x1b2a @0x602
0x01500…03141 at064d = » « // 0x1b75 @0x64d
0x01500…03141 at0651 = SetBufferAddress {ic=11, line=0x16, col=0x06} // 0x1b79 @0x651
0x01500…03141 at0654 = »If you enter a Y, the replace display screen is displayed. « // 0x1b7c @0x654
0x01500…03141 at069f = » « // 0x1bc7 @0x69f
0x01500…03141 at06a1 = SetBufferAddress {ic=11, line=0x18, col=0x04} // 0x1bc9 @0x6a1
0x01500…03141 at06a4 = »Enter-Exit help text Roll keys-Page help text « // 0x1bcc @0x6a4
0x01500…03141 }
0x01500…03141 }
0x01500…03141 }
0x01d00…0417b Form36 {
0x01d00…0417b fh000 = 0x00 // 0x1d00 @0x0
0x01d00…0417b fh00 = 2200 // 0x1d01 @0x1
0x01d00…0417b fh01 = »NNN« // 0x1d03 @0x3
0x01d00…0417b fh02 = 000000 // 0x1d06 @0x6
0x01d00…0417b fh03 = »NNN« // 0x1d09 @0x9
0x01d00…0417b fh04 = 0x0028 // 0x1d0c @0xc
0x01d00…0417b fh05 = 0x072b // 0x1d0e @0xe
0x01d00…0417b fh06 = 000080011800000000000000000000000000 // 0x1d10 @0x10
0x01d00…0417b at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x1d22 @0x22
0x01d00…0417b panel = { // 0x1d28 @0x28
0x01d00…0417b ┌────────────────────────────────────────────────────────────────────────────────┐
0x01d00…0417b 00│ │
0x01d00…0417b 01│ HELP FOR SCAN │
0x01d00…0417b 02│ │
0x01d00…0417b 03│ Enter a N for no if you do not want to replace the scan characters. The │
0x01d00…0417b 04│ scan then continues normally and you will not see the replace display │
0x01d00…0417b 05│ screen. N is the default for this field. │
0x01d00…0417b 06│ │
0x01d00…0417b 07│ │
0x01d00…0417b 08│ │
0x01d00…0417b 09│ │
0x01d00…0417b 10│ SCAN TO UPDATE │
0x01d00…0417b 11│ │
0x01d00…0417b 12│ Command key 14 (@) searches a member for a statement containing the │
0x01d00…0417b 13│ specified scan characters, then displays the statement in the enter/ │
0x01d00…0417b 14│ update mode so you can change the statement. │
0x01d00…0417b 15│ │
0x01d00…0417b 16│ │
0x01d00…0417b 17│ │
0x01d00…0417b 18│ │
0x01d00…0417b 19│ │
0x01d00…0417b 20│ │
0x01d00…0417b 21│ │
0x01d00…0417b 22│ │
0x01d00…0417b 23│ Enter-Exit help text Roll keys-Page help text │
0x01d00…0417b 24│ │
0x01d00…0417b 25│ │
0x01d00…0417b 26│ │
0x01d00…0417b 27│ │
0x01d00…0417b └────────────────────────────────────────────────────────────────────────────────┘
0x01d00…0417b Panel5250 {
0x01d00…0417b at0000 = ClearUnit {esc=04, cu=40} // 0x1d28 @0x0
0x01d00…0417b at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x1d2a @0x2
0x01d00…0417b at0006 = SetBufferAddress {ic=11, line=0x02, col=0x1f} // 0x1d2e @0x6
0x01d00…0417b at0009 = »HELP FOR SCAN « // 0x1d31 @0x9
0x01d00…0417b at003b = » « // 0x1d63 @0x3b
0x01d00…0417b at008b = » « // 0x1db3 @0x8b
0x01d00…0417b at008f = SetBufferAddress {ic=11, line=0x04, col=0x06} // 0x1db7 @0x8f
0x01d00…0417b at0092 = »Enter a N for no if you do not want to replace the scan characters. The « // 0x1dba @0x92
0x01d00…0417b at00dd = » « // 0x1e05 @0xdd
0x01d00…0417b at00e1 = SetBufferAddress {ic=11, line=0x05, col=0x06} // 0x1e09 @0xe1
0x01d00…0417b at00e4 = »scan then continues normally and you will not see the replace display « // 0x1e0c @0xe4
0x01d00…0417b at012f = » « // 0x1e57 @0x12f
0x01d00…0417b at0133 = SetBufferAddress {ic=11, line=0x06, col=0x06} // 0x1e5b @0x133
0x01d00…0417b at0136 = »screen. N is the default for this field. « // 0x1e5e @0x136
0x01d00…0417b at0181 = » « // 0x1ea9 @0x181
0x01d00…0417b at01d1 = » « // 0x1ef9 @0x1d1
0x01d00…0417b at0221 = » « // 0x1f49 @0x221
0x01d00…0417b at0271 = » « // 0x1f99 @0x271
0x01d00…0417b at02c1 = » « // 0x1fe9 @0x2c1
0x01d00…0417b at02de = SetBufferAddress {ic=11, line=0x0b, col=0x1f} // 0x2006 @0x2de
0x01d00…0417b at02e1 = »SCAN TO UPDATE « // 0x2009 @0x2e1
0x01d00…0417b at0313 = » « // 0x203b @0x313
0x01d00…0417b at0363 = » « // 0x208b @0x363
0x01d00…0417b at0367 = SetBufferAddress {ic=11, line=0x0d, col=0x06} // 0x208f @0x367
0x01d00…0417b at036a = »Command key 14 (@) searches a member for a statement containing the « // 0x2092 @0x36a
0x01d00…0417b at03b5 = » « // 0x20dd @0x3b5
0x01d00…0417b at03b9 = SetBufferAddress {ic=11, line=0x0e, col=0x06} // 0x20e1 @0x3b9
0x01d00…0417b at03bc = »specified scan characters, then displays the statement in the enter/ « // 0x20e4 @0x3bc
0x01d00…0417b at0407 = » « // 0x212f @0x407
0x01d00…0417b at040b = SetBufferAddress {ic=11, line=0x0f, col=0x06} // 0x2133 @0x40b
0x01d00…0417b at040e = »update mode so you can change the statement. « // 0x2136 @0x40e
0x01d00…0417b at0459 = » « // 0x2181 @0x459
0x01d00…0417b at04a9 = » « // 0x21d1 @0x4a9
0x01d00…0417b at04f9 = » « // 0x2221 @0x4f9
0x01d00…0417b at0549 = » « // 0x2271 @0x549
0x01d00…0417b at0599 = » « // 0x22c1 @0x599
0x01d00…0417b at05e9 = » « // 0x2311 @0x5e9
0x01d00…0417b at0639 = » « // 0x2361 @0x639
0x01d00…0417b at0689 = » « // 0x23b1 @0x689
0x01d00…0417b at06d9 = » « // 0x2401 @0x6d9
0x01d00…0417b at06db = SetBufferAddress {ic=11, line=0x18, col=0x04} // 0x2403 @0x6db
0x01d00…0417b at06de = »Enter-Exit help text Roll keys-Page help text « // 0x2406 @0x6de
0x01d00…0417b }
0x01d00…0417b }
0x01d00…0417b }
0x02500…05192 Form36 {
0x02500…05192 fh000 = 0x00 // 0x2500 @0x0
0x02500…05192 fh00 = 2200 // 0x2501 @0x1
0x02500…05192 fh01 = »NNN« // 0x2503 @0x3
0x02500…05192 fh02 = 000000 // 0x2506 @0x6
0x02500…05192 fh03 = »NNN« // 0x2509 @0x9
0x02500…05192 fh04 = 0x0028 // 0x250c @0xc
0x02500…05192 fh05 = 0x0742 // 0x250e @0xe
0x02500…05192 fh06 = 000080011800000000000000000000000000 // 0x2510 @0x10
0x02500…05192 at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x2522 @0x22
0x02500…05192 panel = { // 0x2528 @0x28
0x02500…05192 ┌────────────────────────────────────────────────────────────────────────────────┐
0x02500…05192 00│ │
0x02500…05192 01│ HELP FOR SCAN AND REPLACE │
0x02500…05192 02│ │
0x02500…05192 03│ ╳Replacement characters . . . . . . . . . . . . . . . . . . . . . . . . . │
0x02500…05192 04│ │
0x02500…05192 05│ ╳These are the characters used to replace the specified scan characters. │
0x02500…05192 06│ 0 to 25 alphameric characters can be entered. │
0x02500…05192 07│ This prompt is optional and can remain blank if you enter a value for the │
0x02500…05192 08│ prompt Number of replace characters. If you do not enter any replacement │
0x02500…05192 09│ characters, SEU assumes the replacement characters are a string of blanks │
0x02500…05192 10│ with the length specified in the Number of replace characters prompt. │
0x02500…05192 11│ │
0x02500…05192 12│ ╳Number of replacement characters . . . . . . . . . . . . . . . . . . . . │
0x02500…05192 13│ │
0x02500…05192 14│ ╳This is the length of the replacement character string. │
0x02500…05192 15│ If you enter a replacement character string and leave this response │
0x02500…05192 16│ blank, SEU counts the number of replacement characters you entered │
0x02500…05192 17│ (including blanks within the string). SEU does not count blanks at the │
0x02500…05192 18│ end of the string. │
0x02500…05192 19│ │
0x02500…05192 20│ Consider the following when responding to this prompt: │
0x02500…05192 21│ -Enter any number, 0 through 25. │
0x02500…05192 22│ │
0x02500…05192 23│ Enter-Exit help text Roll keys-Page help text │
0x02500…05192 24│ │
0x02500…05192 25│ │
0x02500…05192 26│ │
0x02500…05192 27│ │
0x02500…05192 └────────────────────────────────────────────────────────────────────────────────┘
0x02500…05192 Panel5250 {
0x02500…05192 at0000 = ClearUnit {esc=04, cu=40} // 0x2528 @0x0
0x02500…05192 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x252a @0x2
0x02500…05192 at0006 = SetBufferAddress {ic=11, line=0x02, col=0x1c} // 0x252e @0x6
0x02500…05192 at0009 = »HELP FOR SCAN AND REPLACE « // 0x2531 @0x9
0x02500…05192 at003e = » « // 0x2566 @0x3e
0x02500…05192 at008e = » « // 0x25b6 @0x8e
0x02500…05192 at0092 = SetBufferAddress {ic=11, line=0x04, col=0x05} // 0x25ba @0x92
0x02500…05192 at0095 = Attribute {type=0x22} // 0x25bd @0x95
0x02500…05192 at0096 = »Replacement characters . . . . . . . . . . . . . . . . . . . . . . . . . « // 0x25be @0x96
0x02500…05192 at00e1 = » « // 0x2609 @0xe1
0x02500…05192 at0131 = » « // 0x2659 @0x131
0x02500…05192 at0135 = Attribute {type=0x20} // 0x265d @0x135
0x02500…05192 at0136 = SetBufferAddress {ic=11, line=0x06, col=0x06} // 0x265e @0x136
0x02500…05192 at0139 = »These are the characters used to replace the specified scan characters. « // 0x2661 @0x139
0x02500…05192 at0184 = » « // 0x26ac @0x184
0x02500…05192 at0188 = SetBufferAddress {ic=11, line=0x07, col=0x06} // 0x26b0 @0x188
0x02500…05192 at018b = »0 to 25 alphameric characters can be entered. « // 0x26b3 @0x18b
0x02500…05192 at01d6 = » « // 0x26fe @0x1d6
0x02500…05192 at01da = SetBufferAddress {ic=11, line=0x08, col=0x06} // 0x2702 @0x1da
0x02500…05192 at01dd = »This prompt is optional and can remain blank if you enter a value for the « // 0x2705 @0x1dd
0x02500…05192 at0228 = » « // 0x2750 @0x228
0x02500…05192 at022c = SetBufferAddress {ic=11, line=0x09, col=0x06} // 0x2754 @0x22c
0x02500…05192 at022f = »prompt Number of replace characters. If you do not enter any replacement « // 0x2757 @0x22f
0x02500…05192 at027a = » « // 0x27a2 @0x27a
0x02500…05192 at027e = SetBufferAddress {ic=11, line=0x0a, col=0x06} // 0x27a6 @0x27e
0x02500…05192 at0281 = »characters, SEU assumes the replacement characters are a string of blanks « // 0x27a9 @0x281
0x02500…05192 at02cc = » « // 0x27f4 @0x2cc
0x02500…05192 at02d0 = SetBufferAddress {ic=11, line=0x0b, col=0x06} // 0x27f8 @0x2d0
0x02500…05192 at02d3 = »with the length specified in the Number of replace characters prompt. « // 0x27fb @0x2d3
0x02500…05192 at031e = » « // 0x2846 @0x31e
0x02500…05192 at036e = » « // 0x2896 @0x36e
0x02500…05192 at0372 = SetBufferAddress {ic=11, line=0x0d, col=0x05} // 0x289a @0x372
0x02500…05192 at0375 = Attribute {type=0x22} // 0x289d @0x375
0x02500…05192 at0376 = »Number of replacement characters . . . . . . . . . . . . . . . . . . . . « // 0x289e @0x376
0x02500…05192 at03c1 = » « // 0x28e9 @0x3c1
0x02500…05192 at0411 = » « // 0x2939 @0x411
0x02500…05192 at0415 = Attribute {type=0x20} // 0x293d @0x415
0x02500…05192 at0416 = SetBufferAddress {ic=11, line=0x0f, col=0x06} // 0x293e @0x416
0x02500…05192 at0419 = »This is the length of the replacement character string. « // 0x2941 @0x419
0x02500…05192 at0464 = » « // 0x298c @0x464
0x02500…05192 at0468 = SetBufferAddress {ic=11, line=0x10, col=0x06} // 0x2990 @0x468
0x02500…05192 at046b = »If you enter a replacement character string and leave this response « // 0x2993 @0x46b
0x02500…05192 at04b6 = » « // 0x29de @0x4b6
0x02500…05192 at04ba = SetBufferAddress {ic=11, line=0x11, col=0x06} // 0x29e2 @0x4ba
0x02500…05192 at04bd = »blank, SEU counts the number of replacement characters you entered « // 0x29e5 @0x4bd
0x02500…05192 at0508 = » « // 0x2a30 @0x508
0x02500…05192 at050c = SetBufferAddress {ic=11, line=0x12, col=0x06} // 0x2a34 @0x50c
0x02500…05192 at050f = »(including blanks within the string). SEU does not count blanks at the « // 0x2a37 @0x50f
0x02500…05192 at055a = » « // 0x2a82 @0x55a
0x02500…05192 at055e = SetBufferAddress {ic=11, line=0x13, col=0x06} // 0x2a86 @0x55e
0x02500…05192 at0561 = »end of the string. « // 0x2a89 @0x561
0x02500…05192 at05ac = » « // 0x2ad4 @0x5ac
0x02500…05192 at05fc = » « // 0x2b24 @0x5fc
0x02500…05192 at0600 = SetBufferAddress {ic=11, line=0x15, col=0x06} // 0x2b28 @0x600
0x02500…05192 at0603 = »Consider the following when responding to this prompt: « // 0x2b2b @0x603
0x02500…05192 at064e = » « // 0x2b76 @0x64e
0x02500…05192 at0655 = SetBufferAddress {ic=11, line=0x16, col=0x09} // 0x2b7d @0x655
0x02500…05192 at0658 = »-Enter any number, 0 through 25. « // 0x2b80 @0x658
0x02500…05192 at06a0 = » « // 0x2bc8 @0x6a0
0x02500…05192 at06f0 = » « // 0x2c18 @0x6f0
0x02500…05192 at06f2 = SetBufferAddress {ic=11, line=0x18, col=0x04} // 0x2c1a @0x6f2
0x02500…05192 at06f5 = »Enter-Exit help text Roll keys-Page help text « // 0x2c1d @0x6f5
0x02500…05192 }
0x02500…05192 }
0x02500…05192 }
0x02d00…06197 Form36 {
0x02d00…06197 fh000 = 0x00 // 0x2d00 @0x0
0x02d00…06197 fh00 = 2200 // 0x2d01 @0x1
0x02d00…06197 fh01 = »NNN« // 0x2d03 @0x3
0x02d00…06197 fh02 = 000000 // 0x2d06 @0x6
0x02d00…06197 fh03 = »NNN« // 0x2d09 @0x9
0x02d00…06197 fh04 = 0x0028 // 0x2d0c @0xc
0x02d00…06197 fh05 = 0x0747 // 0x2d0e @0xe
0x02d00…06197 fh06 = 000080011800000000000000000000000000 // 0x2d10 @0x10
0x02d00…06197 at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x2d22 @0x22
0x02d00…06197 panel = { // 0x2d28 @0x28
0x02d00…06197 ┌────────────────────────────────────────────────────────────────────────────────┐
0x02d00…06197 00│ │
0x02d00…06197 01│ HELP FOR SCAN AND REPLACE │
0x02d00…06197 02│ │
0x02d00…06197 03│ -Enter 0 to delete the scan characters. │
0x02d00…06197 04│ -If blanks are to be included at the end of the string, │
0x02d00…06197 05│ you must include them in the number. │
0x02d00…06197 06│ If you enter a value that is less than the number of replace characters │
0x02d00…06197 07│ entered, SEU shortens the right end of the string of replace characters │
0x02d00…06197 08│ to this length. │
0x02d00…06197 09│ If you did not specify any replace characters, SEU assumes a string of │
0x02d00…06197 10│ blanks the length of the value you entered. │
0x02d00…06197 11│ │
0x02d00…06197 12│ ╳Replace once per statement? . . . . . . . . . . . . . . . . . . . . Y,N │
0x02d00…06197 13│ │
0x02d00…06197 14│ ╳A response of Y for yes to this prompt limits the replace to only one │
0x02d00…06197 15│ occurrence of the scan characters within a statement. │
0x02d00…06197 16│ A response of N for no means the scan characters are replaced everywhere │
0x02d00…06197 17│ they occur within the statement. │
0x02d00…06197 18│ If you leave the field blank, and did not enter a starting position │
0x02d00…06197 19│ earlier on the scan prompt Starting at position, the default is N. │
0x02d00…06197 20│ However, if you entered a starting position on the scan prompt display │
0x02d00…06197 21│ earlier, the default is changed to Y. │
0x02d00…06197 22│ │
0x02d00…06197 23│ Enter-Exit help text Roll keys-Page help text │
0x02d00…06197 24│ │
0x02d00…06197 25│ │
0x02d00…06197 26│ │
0x02d00…06197 27│ │
0x02d00…06197 └────────────────────────────────────────────────────────────────────────────────┘
0x02d00…06197 Panel5250 {
0x02d00…06197 at0000 = ClearUnit {esc=04, cu=40} // 0x2d28 @0x0
0x02d00…06197 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x2d2a @0x2
0x02d00…06197 at0006 = SetBufferAddress {ic=11, line=0x02, col=0x19} // 0x2d2e @0x6
0x02d00…06197 at0009 = »HELP FOR SCAN AND REPLACE « // 0x2d31 @0x9
0x02d00…06197 at0041 = » « // 0x2d69 @0x41
0x02d00…06197 at0091 = » « // 0x2db9 @0x91
0x02d00…06197 at0098 = SetBufferAddress {ic=11, line=0x04, col=0x09} // 0x2dc0 @0x98
0x02d00…06197 at009b = »-Enter 0 to delete the scan characters. « // 0x2dc3 @0x9b
0x02d00…06197 at00e3 = » « // 0x2e0b @0xe3
0x02d00…06197 at00ea = SetBufferAddress {ic=11, line=0x05, col=0x09} // 0x2e12 @0xea
0x02d00…06197 at00ed = »-If blanks are to be included at the end of the string, « // 0x2e15 @0xed
0x02d00…06197 at0135 = » « // 0x2e5d @0x135
0x02d00…06197 at013d = SetBufferAddress {ic=11, line=0x06, col=0x0a} // 0x2e65 @0x13d
0x02d00…06197 at0140 = »you must include them in the number. « // 0x2e68 @0x140
0x02d00…06197 at0187 = » « // 0x2eaf @0x187
0x02d00…06197 at018b = SetBufferAddress {ic=11, line=0x07, col=0x06} // 0x2eb3 @0x18b
0x02d00…06197 at018e = »If you enter a value that is less than the number of replace characters « // 0x2eb6 @0x18e
0x02d00…06197 at01d9 = » « // 0x2f01 @0x1d9
0x02d00…06197 at01dd = SetBufferAddress {ic=11, line=0x08, col=0x06} // 0x2f05 @0x1dd
0x02d00…06197 at01e0 = »entered, SEU shortens the right end of the string of replace characters « // 0x2f08 @0x1e0
0x02d00…06197 at022b = » « // 0x2f53 @0x22b
0x02d00…06197 at022f = SetBufferAddress {ic=11, line=0x09, col=0x06} // 0x2f57 @0x22f
0x02d00…06197 at0232 = »to this length. « // 0x2f5a @0x232
0x02d00…06197 at027d = » « // 0x2fa5 @0x27d
0x02d00…06197 at0281 = SetBufferAddress {ic=11, line=0x0a, col=0x06} // 0x2fa9 @0x281
0x02d00…06197 at0284 = »If you did not specify any replace characters, SEU assumes a string of « // 0x2fac @0x284
0x02d00…06197 at02cf = » « // 0x2ff7 @0x2cf
0x02d00…06197 at02d3 = SetBufferAddress {ic=11, line=0x0b, col=0x06} // 0x2ffb @0x2d3
0x02d00…06197 at02d6 = »blanks the length of the value you entered. « // 0x2ffe @0x2d6
0x02d00…06197 at0321 = » « // 0x3049 @0x321
0x02d00…06197 at0371 = » « // 0x3099 @0x371
0x02d00…06197 at0375 = SetBufferAddress {ic=11, line=0x0d, col=0x05} // 0x309d @0x375
0x02d00…06197 at0378 = Attribute {type=0x22} // 0x30a0 @0x378
0x02d00…06197 at0379 = »Replace once per statement? . . . . . . . . . . . . . . . . . . . . Y,N « // 0x30a1 @0x379
0x02d00…06197 at03c4 = » « // 0x30ec @0x3c4
0x02d00…06197 at0414 = » « // 0x313c @0x414
0x02d00…06197 at0418 = Attribute {type=0x20} // 0x3140 @0x418
0x02d00…06197 at0419 = SetBufferAddress {ic=11, line=0x0f, col=0x06} // 0x3141 @0x419
0x02d00…06197 at041c = »A response of Y for yes to this prompt limits the replace to only one « // 0x3144 @0x41c
0x02d00…06197 at0467 = » « // 0x318f @0x467
0x02d00…06197 at046b = SetBufferAddress {ic=11, line=0x10, col=0x06} // 0x3193 @0x46b
0x02d00…06197 at046e = »occurrence of the scan characters within a statement. « // 0x3196 @0x46e
0x02d00…06197 at04b9 = » « // 0x31e1 @0x4b9
0x02d00…06197 at04bd = SetBufferAddress {ic=11, line=0x11, col=0x06} // 0x31e5 @0x4bd
0x02d00…06197 at04c0 = »A response of N for no means the scan characters are replaced everywhere « // 0x31e8 @0x4c0
0x02d00…06197 at050b = » « // 0x3233 @0x50b
0x02d00…06197 at050f = SetBufferAddress {ic=11, line=0x12, col=0x06} // 0x3237 @0x50f
0x02d00…06197 at0512 = »they occur within the statement. « // 0x323a @0x512
0x02d00…06197 at055d = » « // 0x3285 @0x55d
0x02d00…06197 at0561 = SetBufferAddress {ic=11, line=0x13, col=0x06} // 0x3289 @0x561
0x02d00…06197 at0564 = »If you leave the field blank, and did not enter a starting position « // 0x328c @0x564
0x02d00…06197 at05af = » « // 0x32d7 @0x5af
0x02d00…06197 at05b3 = SetBufferAddress {ic=11, line=0x14, col=0x06} // 0x32db @0x5b3
0x02d00…06197 at05b6 = »earlier on the scan prompt Starting at position, the default is N. « // 0x32de @0x5b6
0x02d00…06197 at0601 = » « // 0x3329 @0x601
0x02d00…06197 at0605 = SetBufferAddress {ic=11, line=0x15, col=0x06} // 0x332d @0x605
0x02d00…06197 at0608 = »However, if you entered a starting position on the scan prompt display « // 0x3330 @0x608
0x02d00…06197 at0653 = » « // 0x337b @0x653
0x02d00…06197 at0657 = SetBufferAddress {ic=11, line=0x16, col=0x06} // 0x337f @0x657
0x02d00…06197 at065a = »earlier, the default is changed to Y. « // 0x3382 @0x65a
0x02d00…06197 at06a5 = » « // 0x33cd @0x6a5
0x02d00…06197 at06f5 = » « // 0x341d @0x6f5
0x02d00…06197 at06f7 = SetBufferAddress {ic=11, line=0x18, col=0x04} // 0x341f @0x6f7
0x02d00…06197 at06fa = »Enter-Exit help text Roll keys-Page help text « // 0x3422 @0x6fa
0x02d00…06197 }
0x02d00…06197 }
0x02d00…06197 }
0x03500…07197 Form36 {
0x03500…07197 fh000 = 0x00 // 0x3500 @0x0
0x03500…07197 fh00 = 2200 // 0x3501 @0x1
0x03500…07197 fh01 = »NNN« // 0x3503 @0x3
0x03500…07197 fh02 = 000000 // 0x3506 @0x6
0x03500…07197 fh03 = »NNN« // 0x3509 @0x9
0x03500…07197 fh04 = 0x0028 // 0x350c @0xc
0x03500…07197 fh05 = 0x0747 // 0x350e @0xe
0x03500…07197 fh06 = 000080011800000000000000000000000000 // 0x3510 @0x10
0x03500…07197 at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x3522 @0x22
0x03500…07197 panel = { // 0x3528 @0x28
0x03500…07197 ┌────────────────────────────────────────────────────────────────────────────────┐
0x03500…07197 00│ │
0x03500…07197 01│ HELP FOR SCAN AND REPLACE │
0x03500…07197 02│ │
0x03500…07197 03│ ╳End of replace area . . . . . . . . . . . . . . . . . . . . . . . . . . │
0x03500…07197 04│ │
0x03500…07197 05│ ╳This is the ending position, within the statement, of the data that will │
0x03500…07197 06│ be scanned and replaced. No data beyond this position in the statement │
0x03500…07197 07│ will be replaced by the string of replace characters or shifted to allow │
0x03500…07197 08│ for a replace string of a different length than the scan string. │
0x03500…07197 09│ If you leave this field blank, SEU assumes that the end of replace area │
0x03500…07197 10│ is the end of the statement. │
0x03500…07197 11│ If the number of replace characters is greater than the number of scan │
0x03500…07197 12│ characters, data is shifted right to allow for the replace string. If │
0x03500…07197 13│ the number is less than number of scan characters, data is shifted left. │
0x03500…07197 14│ │
0x03500…07197 15│ ╳Ending with statement number . . . . . . . . . . . . . . . . . . . . . │
0x03500…07197 16│ │
0x03500…07197 17│ ╳This is the number of the last statement to be scanned and replaced │
0x03500…07197 18│ within the member. │
0x03500…07197 19│ If a last statement number is not entered, SEU continues to scan and │
0x03500…07197 20│ replace through the entire member. If a last statement number is │
0x03500…07197 21│ entered, you can limit the number of statements that are scanned. │
0x03500…07197 22│ │
0x03500…07197 23│ Enter-Exit help text Roll keys-Page help text │
0x03500…07197 24│ │
0x03500…07197 25│ │
0x03500…07197 26│ │
0x03500…07197 27│ │
0x03500…07197 └────────────────────────────────────────────────────────────────────────────────┘
0x03500…07197 Panel5250 {
0x03500…07197 at0000 = ClearUnit {esc=04, cu=40} // 0x3528 @0x0
0x03500…07197 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x352a @0x2
0x03500…07197 at0006 = SetBufferAddress {ic=11, line=0x02, col=0x19} // 0x352e @0x6
0x03500…07197 at0009 = »HELP FOR SCAN AND REPLACE « // 0x3531 @0x9
0x03500…07197 at0041 = » « // 0x3569 @0x41
0x03500…07197 at0091 = » « // 0x35b9 @0x91
0x03500…07197 at0095 = SetBufferAddress {ic=11, line=0x04, col=0x05} // 0x35bd @0x95
0x03500…07197 at0098 = Attribute {type=0x22} // 0x35c0 @0x98
0x03500…07197 at0099 = »End of replace area . . . . . . . . . . . . . . . . . . . . . . . . . . « // 0x35c1 @0x99
0x03500…07197 at00e4 = » « // 0x360c @0xe4
0x03500…07197 at0134 = » « // 0x365c @0x134
0x03500…07197 at0138 = Attribute {type=0x20} // 0x3660 @0x138
0x03500…07197 at0139 = SetBufferAddress {ic=11, line=0x06, col=0x06} // 0x3661 @0x139
0x03500…07197 at013c = »This is the ending position, within the statement, of the data that will « // 0x3664 @0x13c
0x03500…07197 at0187 = » « // 0x36af @0x187
0x03500…07197 at018b = SetBufferAddress {ic=11, line=0x07, col=0x06} // 0x36b3 @0x18b
0x03500…07197 at018e = »be scanned and replaced. No data beyond this position in the statement « // 0x36b6 @0x18e
0x03500…07197 at01d9 = » « // 0x3701 @0x1d9
0x03500…07197 at01dd = SetBufferAddress {ic=11, line=0x08, col=0x06} // 0x3705 @0x1dd
0x03500…07197 at01e0 = »will be replaced by the string of replace characters or shifted to allow « // 0x3708 @0x1e0
0x03500…07197 at022b = » « // 0x3753 @0x22b
0x03500…07197 at022f = SetBufferAddress {ic=11, line=0x09, col=0x06} // 0x3757 @0x22f
0x03500…07197 at0232 = »for a replace string of a different length than the scan string. « // 0x375a @0x232
0x03500…07197 at027d = » « // 0x37a5 @0x27d
0x03500…07197 at0281 = SetBufferAddress {ic=11, line=0x0a, col=0x06} // 0x37a9 @0x281
0x03500…07197 at0284 = »If you leave this field blank, SEU assumes that the end of replace area « // 0x37ac @0x284
0x03500…07197 at02cf = » « // 0x37f7 @0x2cf
0x03500…07197 at02d3 = SetBufferAddress {ic=11, line=0x0b, col=0x06} // 0x37fb @0x2d3
0x03500…07197 at02d6 = »is the end of the statement. « // 0x37fe @0x2d6
0x03500…07197 at0321 = » « // 0x3849 @0x321
0x03500…07197 at0325 = SetBufferAddress {ic=11, line=0x0c, col=0x06} // 0x384d @0x325
0x03500…07197 at0328 = »If the number of replace characters is greater than the number of scan « // 0x3850 @0x328
0x03500…07197 at0373 = » « // 0x389b @0x373
0x03500…07197 at0377 = SetBufferAddress {ic=11, line=0x0d, col=0x06} // 0x389f @0x377
0x03500…07197 at037a = »characters, data is shifted right to allow for the replace string. If « // 0x38a2 @0x37a
0x03500…07197 at03c5 = » « // 0x38ed @0x3c5
0x03500…07197 at03c9 = SetBufferAddress {ic=11, line=0x0e, col=0x06} // 0x38f1 @0x3c9
0x03500…07197 at03cc = »the number is less than number of scan characters, data is shifted left. « // 0x38f4 @0x3cc
0x03500…07197 at0417 = » « // 0x393f @0x417
0x03500…07197 at0467 = » « // 0x398f @0x467
0x03500…07197 at046b = SetBufferAddress {ic=11, line=0x10, col=0x05} // 0x3993 @0x46b
0x03500…07197 at046e = Attribute {type=0x22} // 0x3996 @0x46e
0x03500…07197 at046f = »Ending with statement number . . . . . . . . . . . . . . . . . . . . . « // 0x3997 @0x46f
0x03500…07197 at04ba = » « // 0x39e2 @0x4ba
0x03500…07197 at050a = » « // 0x3a32 @0x50a
0x03500…07197 at050e = Attribute {type=0x20} // 0x3a36 @0x50e
0x03500…07197 at050f = SetBufferAddress {ic=11, line=0x12, col=0x06} // 0x3a37 @0x50f
0x03500…07197 at0512 = »This is the number of the last statement to be scanned and replaced « // 0x3a3a @0x512
0x03500…07197 at055d = » « // 0x3a85 @0x55d
0x03500…07197 at0561 = SetBufferAddress {ic=11, line=0x13, col=0x06} // 0x3a89 @0x561
0x03500…07197 at0564 = »within the member. « // 0x3a8c @0x564
0x03500…07197 at05af = » « // 0x3ad7 @0x5af
0x03500…07197 at05b3 = SetBufferAddress {ic=11, line=0x14, col=0x06} // 0x3adb @0x5b3
0x03500…07197 at05b6 = »If a last statement number is not entered, SEU continues to scan and « // 0x3ade @0x5b6
0x03500…07197 at0601 = » « // 0x3b29 @0x601
0x03500…07197 at0605 = SetBufferAddress {ic=11, line=0x15, col=0x06} // 0x3b2d @0x605
0x03500…07197 at0608 = »replace through the entire member. If a last statement number is « // 0x3b30 @0x608
0x03500…07197 at0653 = » « // 0x3b7b @0x653
0x03500…07197 at0657 = SetBufferAddress {ic=11, line=0x16, col=0x06} // 0x3b7f @0x657
0x03500…07197 at065a = »entered, you can limit the number of statements that are scanned. « // 0x3b82 @0x65a
0x03500…07197 at06a5 = » « // 0x3bcd @0x6a5
0x03500…07197 at06f5 = » « // 0x3c1d @0x6f5
0x03500…07197 at06f7 = SetBufferAddress {ic=11, line=0x18, col=0x04} // 0x3c1f @0x6f7
0x03500…07197 at06fa = »Enter-Exit help text Roll keys-Page help text « // 0x3c22 @0x6fa
0x03500…07197 }
0x03500…07197 }
0x03500…07197 }
0x03d00…08017 Form36 {
0x03d00…08017 fh000 = 0x00 // 0x3d00 @0x0
0x03d00…08017 fh00 = 2200 // 0x3d01 @0x1
0x03d00…08017 fh01 = »NNN« // 0x3d03 @0x3
0x03d00…08017 fh02 = 000000 // 0x3d06 @0x6
0x03d00…08017 fh03 = »NNN« // 0x3d09 @0x9
0x03d00…08017 fh04 = 0x0028 // 0x3d0c @0xc
0x03d00…08017 fh05 = 0x05c7 // 0x3d0e @0xe
0x03d00…08017 fh06 = 000080011800000000000000000000000000 // 0x3d10 @0x10
0x03d00…08017 at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x3d22 @0x22
0x03d00…08017 panel = { // 0x3d28 @0x28
0x03d00…08017 ┌────────────────────────────────────────────────────────────────────────────────┐
0x03d00…08017 00│ │
0x03d00…08017 01│ HELP FOR DISPLAY SELECTION │
0x03d00…08017 02│ │
0x03d00…08017 03│ Enter the number that corresponds to the display you want to use. │
0x03d00…08017 04│ │
0x03d00…08017 05│ │
0x03d00…08017 06│ H - RPG II control specification │
0x03d00…08017 07│ U - RPG option format used by RPG II auto report │
0x03d00…08017 08│ F - RPG file description specification │
0x03d00…08017 09│ G - RPG file description continuation │
0x03d00…08017 10│ E - RPG file extension specification │
0x03d00…08017 11│ L - RPG line counter specification │
0x03d00…08017 12│ T - RPG telecommunications specification │
0x03d00…08017 13│ I - RPG input specification (record identification) │
0x03d00…08017 14│ J - RPG input specification continuation │
0x03d00…08017 15│ C - RPG calculation specification │
0x03d00…08017 16│ O - RPG output specification │
0x03d00…08017 17│ P - RPG output specification continuation │
0x03d00…08017 18│ K - RPG copy specification used by RPG II auto report │
0x03d00…08017 19│ D - Display Station Pass-through │
0x03d00…08017 20│ A - Any statement with an * in position 7 │
0x03d00…08017 21│ │
0x03d00…08017 22│ │
0x03d00…08017 23│ Enter-Exit help text Roll keys-Page help text │
0x03d00…08017 24│ │
0x03d00…08017 25│ │
0x03d00…08017 26│ │
0x03d00…08017 27│ │
0x03d00…08017 └────────────────────────────────────────────────────────────────────────────────┘
0x03d00…08017 Panel5250 {
0x03d00…08017 at0000 = ClearUnit {esc=04, cu=40} // 0x3d28 @0x0
0x03d00…08017 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x3d2a @0x2
0x03d00…08017 at0006 = SetBufferAddress {ic=11, line=0x02, col=0x04} // 0x3d2e @0x6
0x03d00…08017 at0009 = » HELP FOR DISPLAY SELECTION « // 0x3d31 @0x9
0x03d00…08017 at0055 = SetBufferAddress {ic=11, line=0x04, col=0x03} // 0x3d7d @0x55
0x03d00…08017 at0058 = » Enter the number that corresponds to the display you want to use. « // 0x3d80 @0x58
0x03d00…08017 at00a6 = » « // 0x3dce @0xa6
0x03d00…08017 at00f5 = SetBufferAddress {ic=11, line=0x07, col=0x06} // 0x3e1d @0xf5
0x03d00…08017 at00f8 = »H - RPG II control specification « // 0x3e20 @0xf8
0x03d00…08017 at0142 = SetBufferAddress {ic=11, line=0x08, col=0x06} // 0x3e6a @0x142
0x03d00…08017 at0145 = »U - RPG option format used by RPG II auto report « // 0x3e6d @0x145
0x03d00…08017 at018f = SetBufferAddress {ic=11, line=0x09, col=0x06} // 0x3eb7 @0x18f
0x03d00…08017 at0192 = »F - RPG file description specification « // 0x3eba @0x192
0x03d00…08017 at01dc = SetBufferAddress {ic=11, line=0x0a, col=0x06} // 0x3f04 @0x1dc
0x03d00…08017 at01df = »G - RPG file description continuation « // 0x3f07 @0x1df
0x03d00…08017 at0229 = SetBufferAddress {ic=11, line=0x0b, col=0x06} // 0x3f51 @0x229
0x03d00…08017 at022c = »E - RPG file extension specification « // 0x3f54 @0x22c
0x03d00…08017 at0276 = SetBufferAddress {ic=11, line=0x0c, col=0x06} // 0x3f9e @0x276
0x03d00…08017 at0279 = »L - RPG line counter specification « // 0x3fa1 @0x279
0x03d00…08017 at02c3 = SetBufferAddress {ic=11, line=0x0d, col=0x06} // 0x3feb @0x2c3
0x03d00…08017 at02c6 = »T - RPG telecommunications specification « // 0x3fee @0x2c6
0x03d00…08017 at0310 = SetBufferAddress {ic=11, line=0x0e, col=0x06} // 0x4038 @0x310
0x03d00…08017 at0313 = »I - RPG input specification (record identification) « // 0x403b @0x313
0x03d00…08017 at035d = SetBufferAddress {ic=11, line=0x0f, col=0x06} // 0x4085 @0x35d
0x03d00…08017 at0360 = »J - RPG input specification continuation « // 0x4088 @0x360
0x03d00…08017 at03aa = SetBufferAddress {ic=11, line=0x10, col=0x06} // 0x40d2 @0x3aa
0x03d00…08017 at03ad = »C - RPG calculation specification « // 0x40d5 @0x3ad
0x03d00…08017 at03f7 = SetBufferAddress {ic=11, line=0x11, col=0x06} // 0x411f @0x3f7
0x03d00…08017 at03fa = »O - RPG output specification « // 0x4122 @0x3fa
0x03d00…08017 at0444 = SetBufferAddress {ic=11, line=0x12, col=0x06} // 0x416c @0x444
0x03d00…08017 at0447 = »P - RPG output specification continuation « // 0x416f @0x447
0x03d00…08017 at0491 = SetBufferAddress {ic=11, line=0x13, col=0x06} // 0x41b9 @0x491
0x03d00…08017 at0494 = »K - RPG copy specification used by RPG II auto report « // 0x41bc @0x494
0x03d00…08017 at04de = SetBufferAddress {ic=11, line=0x14, col=0x06} // 0x4206 @0x4de
0x03d00…08017 at04e1 = »D - Display Station Pass-through « // 0x4209 @0x4e1
0x03d00…08017 at052b = SetBufferAddress {ic=11, line=0x15, col=0x06} // 0x4253 @0x52b
0x03d00…08017 at052e = »A - Any statement with an * in position 7 « // 0x4256 @0x52e
0x03d00…08017 at0578 = SetBufferAddress {ic=11, line=0x18, col=0x04} // 0x42a0 @0x578
0x03d00…08017 at057b = »Enter-Exit help text Roll keys-Page help text « // 0x42a3 @0x57b
0x03d00…08017 }
0x03d00…08017 }
0x03d00…08017 }
0x04300…08d7f Form36 {
0x04300…08d7f fh000 = 0x00 // 0x4300 @0x0
0x04300…08d7f fh00 = 2200 // 0x4301 @0x1
0x04300…08d7f fh01 = »NNN« // 0x4303 @0x3
0x04300…08d7f fh02 = 000000 // 0x4306 @0x6
0x04300…08d7f fh03 = »NNN« // 0x4309 @0x9
0x04300…08d7f fh04 = 0x0028 // 0x430c @0xc
0x04300…08d7f fh05 = 0x072f // 0x430e @0xe
0x04300…08d7f fh06 = 000080011800000000000000000000000000 // 0x4310 @0x10
0x04300…08d7f at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x4322 @0x22
0x04300…08d7f panel = { // 0x4328 @0x28
0x04300…08d7f ┌────────────────────────────────────────────────────────────────────────────────┐
0x04300…08d7f 00│ │
0x04300…08d7f 01│ HELP FOR DELETE │
0x04300…08d7f 02│ │
0x04300…08d7f 03│ ╳Delete starting from statement number . . . . . . . . . . . . . . . . │
0x04300…08d7f 04│ │
0x04300…08d7f 05│ ╳Enter the statement number of the single statement you want to delete, │
0x04300…08d7f 06│ or enter the statement number of the first statement in the series you │
0x04300…08d7f 07│ want to delete. │
0x04300…08d7f 08│ │
0x04300…08d7f 09│ ╳Ending with statement number . . . . . . . . . . . . . . . . . . . . │
0x04300…08d7f 10│ │
0x04300…08d7f 11│ ╳Enter the statement number of the last statement in the series you │
0x04300…08d7f 12│ to delete. │
0x04300…08d7f 13│ If you are deleting a single statement, do not respond to this prompt. │
0x04300…08d7f 14│ │
0x04300…08d7f 15│ │
0x04300…08d7f 16│ │
0x04300…08d7f 17│ │
0x04300…08d7f 18│ │
0x04300…08d7f 19│ │
0x04300…08d7f 20│ │
0x04300…08d7f 21│ │
0x04300…08d7f 22│ │
0x04300…08d7f 23│ Enter-Exit help text Roll keys-Page help text │
0x04300…08d7f 24│ │
0x04300…08d7f 25│ │
0x04300…08d7f 26│ │
0x04300…08d7f 27│ │
0x04300…08d7f └────────────────────────────────────────────────────────────────────────────────┘
0x04300…08d7f Panel5250 {
0x04300…08d7f at0000 = ClearUnit {esc=04, cu=40} // 0x4328 @0x0
0x04300…08d7f at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x432a @0x2
0x04300…08d7f at0006 = SetBufferAddress {ic=11, line=0x02, col=0x21} // 0x432e @0x6
0x04300…08d7f at0009 = »HELP FOR DELETE « // 0x4331 @0x9
0x04300…08d7f at0039 = » « // 0x4361 @0x39
0x04300…08d7f at0089 = » « // 0x43b1 @0x89
0x04300…08d7f at008d = SetBufferAddress {ic=11, line=0x04, col=0x05} // 0x43b5 @0x8d
0x04300…08d7f at0090 = Attribute {type=0x22} // 0x43b8 @0x90
0x04300…08d7f at0091 = »Delete starting from statement number . . . . . . . . . . . . . . . . « // 0x43b9 @0x91
0x04300…08d7f at00dc = » « // 0x4404 @0xdc
0x04300…08d7f at012c = » « // 0x4454 @0x12c
0x04300…08d7f at0130 = Attribute {type=0x20} // 0x4458 @0x130
0x04300…08d7f at0131 = SetBufferAddress {ic=11, line=0x06, col=0x06} // 0x4459 @0x131
0x04300…08d7f at0134 = »Enter the statement number of the single statement you want to delete, « // 0x445c @0x134
0x04300…08d7f at017f = » « // 0x44a7 @0x17f
0x04300…08d7f at0183 = SetBufferAddress {ic=11, line=0x07, col=0x06} // 0x44ab @0x183
0x04300…08d7f at0186 = »or enter the statement number of the first statement in the series you « // 0x44ae @0x186
0x04300…08d7f at01d1 = » « // 0x44f9 @0x1d1
0x04300…08d7f at01d5 = SetBufferAddress {ic=11, line=0x08, col=0x06} // 0x44fd @0x1d5
0x04300…08d7f at01d8 = »want to delete. « // 0x4500 @0x1d8
0x04300…08d7f at0223 = » « // 0x454b @0x223
0x04300…08d7f at0273 = » « // 0x459b @0x273
0x04300…08d7f at0277 = SetBufferAddress {ic=11, line=0x0a, col=0x05} // 0x459f @0x277
0x04300…08d7f at027a = Attribute {type=0x22} // 0x45a2 @0x27a
0x04300…08d7f at027b = »Ending with statement number . . . . . . . . . . . . . . . . . . . . « // 0x45a3 @0x27b
0x04300…08d7f at02c6 = » « // 0x45ee @0x2c6
0x04300…08d7f at0316 = » « // 0x463e @0x316
0x04300…08d7f at031a = Attribute {type=0x20} // 0x4642 @0x31a
0x04300…08d7f at031b = SetBufferAddress {ic=11, line=0x0c, col=0x06} // 0x4643 @0x31b
0x04300…08d7f at031e = »Enter the statement number of the last statement in the series you « // 0x4646 @0x31e
0x04300…08d7f at0369 = » « // 0x4691 @0x369
0x04300…08d7f at036d = SetBufferAddress {ic=11, line=0x0d, col=0x06} // 0x4695 @0x36d
0x04300…08d7f at0370 = »to delete. « // 0x4698 @0x370
0x04300…08d7f at03bb = » « // 0x46e3 @0x3bb
0x04300…08d7f at03bf = SetBufferAddress {ic=11, line=0x0e, col=0x06} // 0x46e7 @0x3bf
0x04300…08d7f at03c2 = »If you are deleting a single statement, do not respond to this prompt. « // 0x46ea @0x3c2
0x04300…08d7f at040d = » « // 0x4735 @0x40d
0x04300…08d7f at045d = » « // 0x4785 @0x45d
0x04300…08d7f at04ad = » « // 0x47d5 @0x4ad
0x04300…08d7f at04fd = » « // 0x4825 @0x4fd
0x04300…08d7f at054d = » « // 0x4875 @0x54d
0x04300…08d7f at059d = » « // 0x48c5 @0x59d
0x04300…08d7f at05ed = » « // 0x4915 @0x5ed
0x04300…08d7f at063d = » « // 0x4965 @0x63d
0x04300…08d7f at068d = » « // 0x49b5 @0x68d
0x04300…08d7f at06dd = » « // 0x4a05 @0x6dd
0x04300…08d7f at06df = SetBufferAddress {ic=11, line=0x18, col=0x04} // 0x4a07 @0x6df
0x04300…08d7f at06e2 = »Enter-Exit help text Roll keys-Page help text « // 0x4a0a @0x6e2
0x04300…08d7f }
0x04300…08d7f }
0x04300…08d7f }
0x04b00…09d8d Form36 {
0x04b00…09d8d fh000 = 0x00 // 0x4b00 @0x0
0x04b00…09d8d fh00 = 2200 // 0x4b01 @0x1
0x04b00…09d8d fh01 = »NNN« // 0x4b03 @0x3
0x04b00…09d8d fh02 = 000000 // 0x4b06 @0x6
0x04b00…09d8d fh03 = »NNN« // 0x4b09 @0x9
0x04b00…09d8d fh04 = 0x0028 // 0x4b0c @0xc
0x04b00…09d8d fh05 = 0x073d // 0x4b0e @0xe
0x04b00…09d8d fh06 = 000080011800000000000000000000000000 // 0x4b10 @0x10
0x04b00…09d8d at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x4b22 @0x22
0x04b00…09d8d panel = { // 0x4b28 @0x28
0x04b00…09d8d ┌────────────────────────────────────────────────────────────────────────────────┐
0x04b00…09d8d 00│ │
0x04b00…09d8d 01│ HELP FOR COPY/MOVE │
0x04b00…09d8d 02│ │
0x04b00…09d8d 03│ ╳Copy or move the statements . . . . . . . . . . . . . . . . . COPY,MOVE │
0x04b00…09d8d 04│ │
0x04b00…09d8d 05│ ╳The default response for this prompt is COPY. If the response is not │
0x04b00…09d8d 06│ changed, the statements specified are copied. │
0x04b00…09d8d 07│ To move the statements specified, change the copy response to MOVE. │
0x04b00…09d8d 08│ │
0x04b00…09d8d 09│ ╳To statement number . . . . . . . . . . . . . . . . . . . . . . . . . . │
0x04b00…09d8d 10│ │
0x04b00…09d8d 11│ ╳Enter the statement number that identifies the new location for the │
0x04b00…09d8d 12│ single statement you want to copy or move, or that identifies the new │
0x04b00…09d8d 13│ location for the first statement in the series of statements that you │
0x04b00…09d8d 14│ want to copy or move. │
0x04b00…09d8d 15│ │
0x04b00…09d8d 16│ ╳Starting from statement number . . . . . . . . . . . . . . . . . . . . │
0x04b00…09d8d 17│ │
0x04b00…09d8d 18│ ╳Enter the statement number that identifies the statement you want to │
0x04b00…09d8d 19│ copy or move, or that identifies the first statement in the series of │
0x04b00…09d8d 20│ statements you want to copy or move. │
0x04b00…09d8d 21│ │
0x04b00…09d8d 22│ │
0x04b00…09d8d 23│ Enter-Exit help text Roll keys-Page help text │
0x04b00…09d8d 24│ │
0x04b00…09d8d 25│ │
0x04b00…09d8d 26│ │
0x04b00…09d8d 27│ │
0x04b00…09d8d └────────────────────────────────────────────────────────────────────────────────┘
0x04b00…09d8d Panel5250 {
0x04b00…09d8d at0000 = ClearUnit {esc=04, cu=40} // 0x4b28 @0x0
0x04b00…09d8d at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x4b2a @0x2
0x04b00…09d8d at0006 = SetBufferAddress {ic=11, line=0x02, col=0x1f} // 0x4b2e @0x6
0x04b00…09d8d at0009 = »HELP FOR COPY/MOVE « // 0x4b31 @0x9
0x04b00…09d8d at003b = » « // 0x4b63 @0x3b
0x04b00…09d8d at008b = » « // 0x4bb3 @0x8b
0x04b00…09d8d at008f = SetBufferAddress {ic=11, line=0x04, col=0x05} // 0x4bb7 @0x8f
0x04b00…09d8d at0092 = Attribute {type=0x22} // 0x4bba @0x92
0x04b00…09d8d at0093 = »Copy or move the statements . . . . . . . . . . . . . . . . . COPY,MOVE « // 0x4bbb @0x93
0x04b00…09d8d at00de = » « // 0x4c06 @0xde
0x04b00…09d8d at012e = » « // 0x4c56 @0x12e
0x04b00…09d8d at0132 = Attribute {type=0x20} // 0x4c5a @0x132
0x04b00…09d8d at0133 = SetBufferAddress {ic=11, line=0x06, col=0x06} // 0x4c5b @0x133
0x04b00…09d8d at0136 = »The default response for this prompt is COPY. If the response is not « // 0x4c5e @0x136
0x04b00…09d8d at0181 = » « // 0x4ca9 @0x181
0x04b00…09d8d at0185 = SetBufferAddress {ic=11, line=0x07, col=0x06} // 0x4cad @0x185
0x04b00…09d8d at0188 = »changed, the statements specified are copied. « // 0x4cb0 @0x188
0x04b00…09d8d at01d3 = » « // 0x4cfb @0x1d3
0x04b00…09d8d at01d7 = SetBufferAddress {ic=11, line=0x08, col=0x06} // 0x4cff @0x1d7
0x04b00…09d8d at01da = »To move the statements specified, change the copy response to MOVE. « // 0x4d02 @0x1da
0x04b00…09d8d at0225 = » « // 0x4d4d @0x225
0x04b00…09d8d at0275 = » « // 0x4d9d @0x275
0x04b00…09d8d at0279 = SetBufferAddress {ic=11, line=0x0a, col=0x05} // 0x4da1 @0x279
0x04b00…09d8d at027c = Attribute {type=0x22} // 0x4da4 @0x27c
0x04b00…09d8d at027d = »To statement number . . . . . . . . . . . . . . . . . . . . . . . . . . « // 0x4da5 @0x27d
0x04b00…09d8d at02c8 = » « // 0x4df0 @0x2c8
0x04b00…09d8d at0318 = » « // 0x4e40 @0x318
0x04b00…09d8d at031c = Attribute {type=0x20} // 0x4e44 @0x31c
0x04b00…09d8d at031d = SetBufferAddress {ic=11, line=0x0c, col=0x06} // 0x4e45 @0x31d
0x04b00…09d8d at0320 = »Enter the statement number that identifies the new location for the « // 0x4e48 @0x320
0x04b00…09d8d at036b = » « // 0x4e93 @0x36b
0x04b00…09d8d at036f = SetBufferAddress {ic=11, line=0x0d, col=0x06} // 0x4e97 @0x36f
0x04b00…09d8d at0372 = »single statement you want to copy or move, or that identifies the new « // 0x4e9a @0x372
0x04b00…09d8d at03bd = » « // 0x4ee5 @0x3bd
0x04b00…09d8d at03c1 = SetBufferAddress {ic=11, line=0x0e, col=0x06} // 0x4ee9 @0x3c1
0x04b00…09d8d at03c4 = »location for the first statement in the series of statements that you « // 0x4eec @0x3c4
0x04b00…09d8d at040f = » « // 0x4f37 @0x40f
0x04b00…09d8d at0413 = SetBufferAddress {ic=11, line=0x0f, col=0x06} // 0x4f3b @0x413
0x04b00…09d8d at0416 = »want to copy or move. « // 0x4f3e @0x416
0x04b00…09d8d at0461 = » « // 0x4f89 @0x461
0x04b00…09d8d at04b1 = » « // 0x4fd9 @0x4b1
0x04b00…09d8d at04b5 = SetBufferAddress {ic=11, line=0x11, col=0x05} // 0x4fdd @0x4b5
0x04b00…09d8d at04b8 = Attribute {type=0x22} // 0x4fe0 @0x4b8
0x04b00…09d8d at04b9 = »Starting from statement number . . . . . . . . . . . . . . . . . . . . « // 0x4fe1 @0x4b9
0x04b00…09d8d at0504 = » « // 0x502c @0x504
0x04b00…09d8d at0554 = » « // 0x507c @0x554
0x04b00…09d8d at0558 = Attribute {type=0x20} // 0x5080 @0x558
0x04b00…09d8d at0559 = SetBufferAddress {ic=11, line=0x13, col=0x06} // 0x5081 @0x559
0x04b00…09d8d at055c = »Enter the statement number that identifies the statement you want to « // 0x5084 @0x55c
0x04b00…09d8d at05a7 = » « // 0x50cf @0x5a7
0x04b00…09d8d at05ab = SetBufferAddress {ic=11, line=0x14, col=0x06} // 0x50d3 @0x5ab
0x04b00…09d8d at05ae = »copy or move, or that identifies the first statement in the series of « // 0x50d6 @0x5ae
0x04b00…09d8d at05f9 = » « // 0x5121 @0x5f9
0x04b00…09d8d at05fd = SetBufferAddress {ic=11, line=0x15, col=0x06} // 0x5125 @0x5fd
0x04b00…09d8d at0600 = »statements you want to copy or move. « // 0x5128 @0x600
0x04b00…09d8d at064b = » « // 0x5173 @0x64b
0x04b00…09d8d at069b = » « // 0x51c3 @0x69b
0x04b00…09d8d at06eb = » « // 0x5213 @0x6eb
0x04b00…09d8d at06ed = SetBufferAddress {ic=11, line=0x18, col=0x04} // 0x5215 @0x6ed
0x04b00…09d8d at06f0 = »Enter-Exit help text Roll keys-Page help text « // 0x5218 @0x6f0
0x04b00…09d8d }
0x04b00…09d8d }
0x04b00…09d8d }
0x05300…0ad7b Form36 {
0x05300…0ad7b fh000 = 0x00 // 0x5300 @0x0
0x05300…0ad7b fh00 = 2200 // 0x5301 @0x1
0x05300…0ad7b fh01 = »NNN« // 0x5303 @0x3
0x05300…0ad7b fh02 = 000000 // 0x5306 @0x6
0x05300…0ad7b fh03 = »NNN« // 0x5309 @0x9
0x05300…0ad7b fh04 = 0x0028 // 0x530c @0xc
0x05300…0ad7b fh05 = 0x072b // 0x530e @0xe
0x05300…0ad7b fh06 = 000080011800000000000000000000000000 // 0x5310 @0x10
0x05300…0ad7b at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x5322 @0x22
0x05300…0ad7b panel = { // 0x5328 @0x28
0x05300…0ad7b ┌────────────────────────────────────────────────────────────────────────────────┐
0x05300…0ad7b 00│ │
0x05300…0ad7b 01│ HELP FOR COPY/MOVE │
0x05300…0ad7b 02│ │
0x05300…0ad7b 03│ ╳Ending with statement number . . . . . . . . . . . . . . . . . . . . │
0x05300…0ad7b 04│ │
0x05300…0ad7b 05│ ╳Enter the statement number that identifies the last statement in │
0x05300…0ad7b 06│ the series of statements you want to copy or move. │
0x05300…0ad7b 07│ If you are copying or moving a single statement, do not respond to │
0x05300…0ad7b 08│ this prompt. │
0x05300…0ad7b 09│ │
0x05300…0ad7b 10│ │
0x05300…0ad7b 11│ │
0x05300…0ad7b 12│ │
0x05300…0ad7b 13│ │
0x05300…0ad7b 14│ │
0x05300…0ad7b 15│ │
0x05300…0ad7b 16│ │
0x05300…0ad7b 17│ │
0x05300…0ad7b 18│ │
0x05300…0ad7b 19│ │
0x05300…0ad7b 20│ │
0x05300…0ad7b 21│ │
0x05300…0ad7b 22│ │
0x05300…0ad7b 23│ Enter-Exit help text Roll keys-Page help text │
0x05300…0ad7b 24│ │
0x05300…0ad7b 25│ │
0x05300…0ad7b 26│ │
0x05300…0ad7b 27│ │
0x05300…0ad7b └────────────────────────────────────────────────────────────────────────────────┘
0x05300…0ad7b Panel5250 {
0x05300…0ad7b at0000 = ClearUnit {esc=04, cu=40} // 0x5328 @0x0
0x05300…0ad7b at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x532a @0x2
0x05300…0ad7b at0006 = SetBufferAddress {ic=11, line=0x02, col=0x1d} // 0x532e @0x6
0x05300…0ad7b at0009 = »HELP FOR COPY/MOVE « // 0x5331 @0x9
0x05300…0ad7b at003d = » « // 0x5365 @0x3d
0x05300…0ad7b at008d = » « // 0x53b5 @0x8d
0x05300…0ad7b at0091 = SetBufferAddress {ic=11, line=0x04, col=0x05} // 0x53b9 @0x91
0x05300…0ad7b at0094 = Attribute {type=0x22} // 0x53bc @0x94
0x05300…0ad7b at0095 = »Ending with statement number . . . . . . . . . . . . . . . . . . . . « // 0x53bd @0x95
0x05300…0ad7b at00e0 = » « // 0x5408 @0xe0
0x05300…0ad7b at0130 = » « // 0x5458 @0x130
0x05300…0ad7b at0134 = Attribute {type=0x20} // 0x545c @0x134
0x05300…0ad7b at0135 = SetBufferAddress {ic=11, line=0x06, col=0x06} // 0x545d @0x135
0x05300…0ad7b at0138 = »Enter the statement number that identifies the last statement in « // 0x5460 @0x138
0x05300…0ad7b at0183 = » « // 0x54ab @0x183
0x05300…0ad7b at0187 = SetBufferAddress {ic=11, line=0x07, col=0x06} // 0x54af @0x187
0x05300…0ad7b at018a = »the series of statements you want to copy or move. « // 0x54b2 @0x18a
0x05300…0ad7b at01d5 = » « // 0x54fd @0x1d5
0x05300…0ad7b at01d9 = SetBufferAddress {ic=11, line=0x08, col=0x06} // 0x5501 @0x1d9
0x05300…0ad7b at01dc = »If you are copying or moving a single statement, do not respond to « // 0x5504 @0x1dc
0x05300…0ad7b at0227 = » « // 0x554f @0x227
0x05300…0ad7b at022b = SetBufferAddress {ic=11, line=0x09, col=0x06} // 0x5553 @0x22b
0x05300…0ad7b at022e = »this prompt. « // 0x5556 @0x22e
0x05300…0ad7b at0279 = » « // 0x55a1 @0x279
0x05300…0ad7b at02c9 = » « // 0x55f1 @0x2c9
0x05300…0ad7b at0319 = » « // 0x5641 @0x319
0x05300…0ad7b at0369 = » « // 0x5691 @0x369
0x05300…0ad7b at03b9 = » « // 0x56e1 @0x3b9
0x05300…0ad7b at0409 = » « // 0x5731 @0x409
0x05300…0ad7b at0459 = » « // 0x5781 @0x459
0x05300…0ad7b at04a9 = » « // 0x57d1 @0x4a9
0x05300…0ad7b at04f9 = » « // 0x5821 @0x4f9
0x05300…0ad7b at0549 = » « // 0x5871 @0x549
0x05300…0ad7b at0599 = » « // 0x58c1 @0x599
0x05300…0ad7b at05e9 = » « // 0x5911 @0x5e9
0x05300…0ad7b at0639 = » « // 0x5961 @0x639
0x05300…0ad7b at0689 = » « // 0x59b1 @0x689
0x05300…0ad7b at06d9 = » « // 0x5a01 @0x6d9
0x05300…0ad7b at06db = SetBufferAddress {ic=11, line=0x18, col=0x04} // 0x5a03 @0x6db
0x05300…0ad7b at06de = »Enter-Exit help text Roll keys-Page help text « // 0x5a06 @0x6de
0x05300…0ad7b }
0x05300…0ad7b }
0x05300…0ad7b }
0x05b00…0bd88 Form36 {
0x05b00…0bd88 fh000 = 0x00 // 0x5b00 @0x0
0x05b00…0bd88 fh00 = 2200 // 0x5b01 @0x1
0x05b00…0bd88 fh01 = »NNN« // 0x5b03 @0x3
0x05b00…0bd88 fh02 = 000000 // 0x5b06 @0x6
0x05b00…0bd88 fh03 = »NNN« // 0x5b09 @0x9
0x05b00…0bd88 fh04 = 0x0028 // 0x5b0c @0xc
0x05b00…0bd88 fh05 = 0x0738 // 0x5b0e @0xe
0x05b00…0bd88 fh06 = 000080011800000000000000000000000000 // 0x5b10 @0x10
0x05b00…0bd88 at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x5b22 @0x22
0x05b00…0bd88 panel = { // 0x5b28 @0x28
0x05b00…0bd88 ┌────────────────────────────────────────────────────────────────────────────────┐
0x05b00…0bd88 00│ │
0x05b00…0bd88 01│ HELP FOR INCLUDE │
0x05b00…0bd88 02│ │
0x05b00…0bd88 03│ ╳Include from library name . . . . . . . . . . . . . . . . . . . . . . │
0x05b00…0bd88 04│ │
0x05b00…0bd88 05│ ╳Enter the name of the library that contains the member from which │
0x05b00…0bd88 06│ you want to include one or more statements. │
0x05b00…0bd88 07│ If you have not specified a library, the default is #LIBRARY, the │
0x05b00…0bd88 08│ system library. If you entered // LIBRARY NAME-libname earlier, the │
0x05b00…0bd88 09│ default library is libname. If you specified a library in the last │
0x05b00…0bd88 10│ parameter of the SEU command, that library is the default library. │
0x05b00…0bd88 11│ │
0x05b00…0bd88 12│ ╳Include from member name . . . . . . . . . . . . . . . . . . . . . │
0x05b00…0bd88 13│ │
0x05b00…0bd88 14│ ╳The included member automatically defaults to the member type of the │
0x05b00…0bd88 15│ member you are including into. If you want the included member to be │
0x05b00…0bd88 16│ of a different type, enter: NAME,TYPE where NAME is the member name │
0x05b00…0bd88 17│ and TYPE is P for procedure member or S for source member. │
0x05b00…0bd88 18│ │
0x05b00…0bd88 19│ │
0x05b00…0bd88 20│ │
0x05b00…0bd88 21│ │
0x05b00…0bd88 22│ │
0x05b00…0bd88 23│ Enter-Exit help text Roll keys-Page help text │
0x05b00…0bd88 24│ │
0x05b00…0bd88 25│ │
0x05b00…0bd88 26│ │
0x05b00…0bd88 27│ │
0x05b00…0bd88 └────────────────────────────────────────────────────────────────────────────────┘
0x05b00…0bd88 Panel5250 {
0x05b00…0bd88 at0000 = ClearUnit {esc=04, cu=40} // 0x5b28 @0x0
0x05b00…0bd88 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x5b2a @0x2
0x05b00…0bd88 at0006 = SetBufferAddress {ic=11, line=0x02, col=0x20} // 0x5b2e @0x6
0x05b00…0bd88 at0009 = »HELP FOR INCLUDE « // 0x5b31 @0x9
0x05b00…0bd88 at003a = » « // 0x5b62 @0x3a
0x05b00…0bd88 at008a = » « // 0x5bb2 @0x8a
0x05b00…0bd88 at008e = SetBufferAddress {ic=11, line=0x04, col=0x05} // 0x5bb6 @0x8e
0x05b00…0bd88 at0091 = Attribute {type=0x22} // 0x5bb9 @0x91
0x05b00…0bd88 at0092 = »Include from library name . . . . . . . . . . . . . . . . . . . . . . « // 0x5bba @0x92
0x05b00…0bd88 at00dd = » « // 0x5c05 @0xdd
0x05b00…0bd88 at012d = » « // 0x5c55 @0x12d
0x05b00…0bd88 at0131 = Attribute {type=0x20} // 0x5c59 @0x131
0x05b00…0bd88 at0132 = SetBufferAddress {ic=11, line=0x06, col=0x06} // 0x5c5a @0x132
0x05b00…0bd88 at0135 = »Enter the name of the library that contains the member from which « // 0x5c5d @0x135
0x05b00…0bd88 at0180 = » « // 0x5ca8 @0x180
0x05b00…0bd88 at0184 = SetBufferAddress {ic=11, line=0x07, col=0x06} // 0x5cac @0x184
0x05b00…0bd88 at0187 = »you want to include one or more statements. « // 0x5caf @0x187
0x05b00…0bd88 at01d2 = » « // 0x5cfa @0x1d2
0x05b00…0bd88 at01d6 = SetBufferAddress {ic=11, line=0x08, col=0x06} // 0x5cfe @0x1d6
0x05b00…0bd88 at01d9 = »If you have not specified a library, the default is #LIBRARY, the « // 0x5d01 @0x1d9
0x05b00…0bd88 at0224 = » « // 0x5d4c @0x224
0x05b00…0bd88 at0228 = SetBufferAddress {ic=11, line=0x09, col=0x06} // 0x5d50 @0x228
0x05b00…0bd88 at022b = »system library. If you entered // LIBRARY NAME-libname earlier, the « // 0x5d53 @0x22b
0x05b00…0bd88 at0276 = » « // 0x5d9e @0x276
0x05b00…0bd88 at027a = SetBufferAddress {ic=11, line=0x0a, col=0x06} // 0x5da2 @0x27a
0x05b00…0bd88 at027d = »default library is libname. If you specified a library in the last « // 0x5da5 @0x27d
0x05b00…0bd88 at02c8 = » « // 0x5df0 @0x2c8
0x05b00…0bd88 at02cc = SetBufferAddress {ic=11, line=0x0b, col=0x06} // 0x5df4 @0x2cc
0x05b00…0bd88 at02cf = »parameter of the SEU command, that library is the default library. « // 0x5df7 @0x2cf
0x05b00…0bd88 at031a = » « // 0x5e42 @0x31a
0x05b00…0bd88 at036a = » « // 0x5e92 @0x36a
0x05b00…0bd88 at036e = SetBufferAddress {ic=11, line=0x0d, col=0x05} // 0x5e96 @0x36e
0x05b00…0bd88 at0371 = Attribute {type=0x22} // 0x5e99 @0x371
0x05b00…0bd88 at0372 = »Include from member name . . . . . . . . . . . . . . . . . . . . . « // 0x5e9a @0x372
0x05b00…0bd88 at03bd = » « // 0x5ee5 @0x3bd
0x05b00…0bd88 at040d = » « // 0x5f35 @0x40d
0x05b00…0bd88 at0411 = Attribute {type=0x20} // 0x5f39 @0x411
0x05b00…0bd88 at0412 = SetBufferAddress {ic=11, line=0x0f, col=0x06} // 0x5f3a @0x412
0x05b00…0bd88 at0415 = »The included member automatically defaults to the member type of the « // 0x5f3d @0x415
0x05b00…0bd88 at0460 = » « // 0x5f88 @0x460
0x05b00…0bd88 at0464 = SetBufferAddress {ic=11, line=0x10, col=0x06} // 0x5f8c @0x464
0x05b00…0bd88 at0467 = »member you are including into. If you want the included member to be « // 0x5f8f @0x467
0x05b00…0bd88 at04b2 = » « // 0x5fda @0x4b2
0x05b00…0bd88 at04b6 = SetBufferAddress {ic=11, line=0x11, col=0x06} // 0x5fde @0x4b6
0x05b00…0bd88 at04b9 = »of a different type, enter: NAME,TYPE where NAME is the member name « // 0x5fe1 @0x4b9
0x05b00…0bd88 at0504 = » « // 0x602c @0x504
0x05b00…0bd88 at0508 = SetBufferAddress {ic=11, line=0x12, col=0x06} // 0x6030 @0x508
0x05b00…0bd88 at050b = »and TYPE is P for procedure member or S for source member. « // 0x6033 @0x50b
0x05b00…0bd88 at0556 = » « // 0x607e @0x556
0x05b00…0bd88 at05a6 = » « // 0x60ce @0x5a6
0x05b00…0bd88 at05f6 = » « // 0x611e @0x5f6
0x05b00…0bd88 at0646 = » « // 0x616e @0x646
0x05b00…0bd88 at0696 = » « // 0x61be @0x696
0x05b00…0bd88 at06e6 = » « // 0x620e @0x6e6
0x05b00…0bd88 at06e8 = SetBufferAddress {ic=11, line=0x18, col=0x04} // 0x6210 @0x6e8
0x05b00…0bd88 at06eb = »Enter-Exit help text Roll keys-Page help text « // 0x6213 @0x6eb
0x05b00…0bd88 }
0x05b00…0bd88 }
0x05b00…0bd88 }
0x06300…0cd90 Form36 {
0x06300…0cd90 fh000 = 0x00 // 0x6300 @0x0
0x06300…0cd90 fh00 = 2200 // 0x6301 @0x1
0x06300…0cd90 fh01 = »NNN« // 0x6303 @0x3
0x06300…0cd90 fh02 = 000000 // 0x6306 @0x6
0x06300…0cd90 fh03 = »NNN« // 0x6309 @0x9
0x06300…0cd90 fh04 = 0x0028 // 0x630c @0xc
0x06300…0cd90 fh05 = 0x0740 // 0x630e @0xe
0x06300…0cd90 fh06 = 000080011800000000000000000000000000 // 0x6310 @0x10
0x06300…0cd90 at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x6322 @0x22
0x06300…0cd90 panel = { // 0x6328 @0x28
0x06300…0cd90 ┌────────────────────────────────────────────────────────────────────────────────┐
0x06300…0cd90 00│ │
0x06300…0cd90 01│ HELP FOR INCLUDE │
0x06300…0cd90 02│ │
0x06300…0cd90 03│ ╳Including at statement number . . . . . . . . . . . . . . . . . . . . . . │
0x06300…0cd90 04│ │
0x06300…0cd90 05│ ╳Enter the statement number that identifies the location for the copy │
0x06300…0cd90 06│ of the statement you want to include, or that identifies the location │
0x06300…0cd90 07│ for the copy of the first statement in the series of statements you want │
0x06300…0cd90 08│ to include. │
0x06300…0cd90 09│ │
0x06300…0cd90 10│ ╳Starting from statement number . . . . . . . . . . . . . . . . . . . . . │
0x06300…0cd90 11│ │
0x06300…0cd90 12│ ╳Enter the statement number that identifies the statement you want to │
0x06300…0cd90 13│ include, or that identifies the first statement in the series of state- │
0x06300…0cd90 14│ ments you want to include. │
0x06300…0cd90 15│ │
0x06300…0cd90 16│ ╳Ending with statement number . . . . . . . . . . . . . . . . . . . . . . │
0x06300…0cd90 17│ │
0x06300…0cd90 18│ ╳Enter the statement number of the last statement in the series of │
0x06300…0cd90 19│ statements you want to include. │
0x06300…0cd90 20│ If you are including a single statement, do not respond to this │
0x06300…0cd90 21│ prompt. │
0x06300…0cd90 22│ │
0x06300…0cd90 23│ Enter-Exit help text Roll keys-Page help text │
0x06300…0cd90 24│ │
0x06300…0cd90 25│ │
0x06300…0cd90 26│ │
0x06300…0cd90 27│ │
0x06300…0cd90 └────────────────────────────────────────────────────────────────────────────────┘
0x06300…0cd90 Panel5250 {
0x06300…0cd90 at0000 = ClearUnit {esc=04, cu=40} // 0x6328 @0x0
0x06300…0cd90 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x632a @0x2
0x06300…0cd90 at0006 = SetBufferAddress {ic=11, line=0x02, col=0x1e} // 0x632e @0x6
0x06300…0cd90 at0009 = »HELP FOR INCLUDE « // 0x6331 @0x9
0x06300…0cd90 at003c = » « // 0x6364 @0x3c
0x06300…0cd90 at008c = » « // 0x63b4 @0x8c
0x06300…0cd90 at0090 = SetBufferAddress {ic=11, line=0x04, col=0x05} // 0x63b8 @0x90
0x06300…0cd90 at0093 = Attribute {type=0x22} // 0x63bb @0x93
0x06300…0cd90 at0094 = »Including at statement number . . . . . . . . . . . . . . . . . . . . . . « // 0x63bc @0x94
0x06300…0cd90 at00df = » « // 0x6407 @0xdf
0x06300…0cd90 at012f = » « // 0x6457 @0x12f
0x06300…0cd90 at0133 = Attribute {type=0x20} // 0x645b @0x133
0x06300…0cd90 at0134 = SetBufferAddress {ic=11, line=0x06, col=0x06} // 0x645c @0x134
0x06300…0cd90 at0137 = »Enter the statement number that identifies the location for the copy « // 0x645f @0x137
0x06300…0cd90 at0182 = » « // 0x64aa @0x182
0x06300…0cd90 at0186 = SetBufferAddress {ic=11, line=0x07, col=0x06} // 0x64ae @0x186
0x06300…0cd90 at0189 = »of the statement you want to include, or that identifies the location « // 0x64b1 @0x189
0x06300…0cd90 at01d4 = » « // 0x64fc @0x1d4
0x06300…0cd90 at01d8 = SetBufferAddress {ic=11, line=0x08, col=0x06} // 0x6500 @0x1d8
0x06300…0cd90 at01db = »for the copy of the first statement in the series of statements you want « // 0x6503 @0x1db
0x06300…0cd90 at0226 = » « // 0x654e @0x226
0x06300…0cd90 at022a = SetBufferAddress {ic=11, line=0x09, col=0x06} // 0x6552 @0x22a
0x06300…0cd90 at022d = »to include. « // 0x6555 @0x22d
0x06300…0cd90 at0278 = » « // 0x65a0 @0x278
0x06300…0cd90 at02c8 = » « // 0x65f0 @0x2c8
0x06300…0cd90 at02cc = SetBufferAddress {ic=11, line=0x0b, col=0x05} // 0x65f4 @0x2cc
0x06300…0cd90 at02cf = Attribute {type=0x22} // 0x65f7 @0x2cf
0x06300…0cd90 at02d0 = »Starting from statement number . . . . . . . . . . . . . . . . . . . . . « // 0x65f8 @0x2d0
0x06300…0cd90 at031b = » « // 0x6643 @0x31b
0x06300…0cd90 at036b = » « // 0x6693 @0x36b
0x06300…0cd90 at036f = Attribute {type=0x20} // 0x6697 @0x36f
0x06300…0cd90 at0370 = SetBufferAddress {ic=11, line=0x0d, col=0x06} // 0x6698 @0x370
0x06300…0cd90 at0373 = »Enter the statement number that identifies the statement you want to « // 0x669b @0x373
0x06300…0cd90 at03be = » « // 0x66e6 @0x3be
0x06300…0cd90 at03c2 = SetBufferAddress {ic=11, line=0x0e, col=0x06} // 0x66ea @0x3c2
0x06300…0cd90 at03c5 = »include, or that identifies the first statement in the series of state- « // 0x66ed @0x3c5
0x06300…0cd90 at0410 = » « // 0x6738 @0x410
0x06300…0cd90 at0414 = SetBufferAddress {ic=11, line=0x0f, col=0x06} // 0x673c @0x414
0x06300…0cd90 at0417 = »ments you want to include. « // 0x673f @0x417
0x06300…0cd90 at0462 = » « // 0x678a @0x462
0x06300…0cd90 at04b2 = » « // 0x67da @0x4b2
0x06300…0cd90 at04b6 = SetBufferAddress {ic=11, line=0x11, col=0x05} // 0x67de @0x4b6
0x06300…0cd90 at04b9 = Attribute {type=0x22} // 0x67e1 @0x4b9
0x06300…0cd90 at04ba = »Ending with statement number . . . . . . . . . . . . . . . . . . . . . . « // 0x67e2 @0x4ba
0x06300…0cd90 at0505 = » « // 0x682d @0x505
0x06300…0cd90 at0555 = » « // 0x687d @0x555
0x06300…0cd90 at0559 = Attribute {type=0x20} // 0x6881 @0x559
0x06300…0cd90 at055a = SetBufferAddress {ic=11, line=0x13, col=0x06} // 0x6882 @0x55a
0x06300…0cd90 at055d = »Enter the statement number of the last statement in the series of « // 0x6885 @0x55d
0x06300…0cd90 at05a8 = » « // 0x68d0 @0x5a8
0x06300…0cd90 at05ac = SetBufferAddress {ic=11, line=0x14, col=0x06} // 0x68d4 @0x5ac
0x06300…0cd90 at05af = »statements you want to include. « // 0x68d7 @0x5af
0x06300…0cd90 at05fa = » « // 0x6922 @0x5fa
0x06300…0cd90 at05fe = SetBufferAddress {ic=11, line=0x15, col=0x06} // 0x6926 @0x5fe
0x06300…0cd90 at0601 = »If you are including a single statement, do not respond to this « // 0x6929 @0x601
0x06300…0cd90 at064c = » « // 0x6974 @0x64c
0x06300…0cd90 at0650 = SetBufferAddress {ic=11, line=0x16, col=0x06} // 0x6978 @0x650
0x06300…0cd90 at0653 = »prompt. « // 0x697b @0x653
0x06300…0cd90 at069e = » « // 0x69c6 @0x69e
0x06300…0cd90 at06ee = » « // 0x6a16 @0x6ee
0x06300…0cd90 at06f0 = SetBufferAddress {ic=11, line=0x18, col=0x04} // 0x6a18 @0x6f0
0x06300…0cd90 at06f3 = »Enter-Exit help text Roll keys-Page help text « // 0x6a1b @0x6f3
0x06300…0cd90 }
0x06300…0cd90 }
0x06300…0cd90 }
0x06b00…0dd80 Form36 {
0x06b00…0dd80 fh000 = 0x00 // 0x6b00 @0x0
0x06b00…0dd80 fh00 = 2200 // 0x6b01 @0x1
0x06b00…0dd80 fh01 = »NNN« // 0x6b03 @0x3
0x06b00…0dd80 fh02 = 000000 // 0x6b06 @0x6
0x06b00…0dd80 fh03 = »NNN« // 0x6b09 @0x9
0x06b00…0dd80 fh04 = 0x0028 // 0x6b0c @0xc
0x06b00…0dd80 fh05 = 0x0730 // 0x6b0e @0xe
0x06b00…0dd80 fh06 = 000080011800000000000000000000000000 // 0x6b10 @0x10
0x06b00…0dd80 at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x6b22 @0x22
0x06b00…0dd80 panel = { // 0x6b28 @0x28
0x06b00…0dd80 ┌────────────────────────────────────────────────────────────────────────────────┐
0x06b00…0dd80 00│ │
0x06b00…0dd80 01│ HELP FOR MESSAGE TRANSLATION │
0x06b00…0dd80 02│ │
0x06b00…0dd80 03│ Message translation aids you in creating a translated message source │
0x06b00…0dd80 04│ member. To use message translate, specify SEU member type T at sign on. │
0x06b00…0dd80 05│ SEU prompts you to enter the translated text for each message. │
0x06b00…0dd80 06│ If you want to update existing translated text, press command key 17 (%) │
0x06b00…0dd80 07│ and enter the number of the message you want to change. │
0x06b00…0dd80 08│ For help with creating and using a translated load member, see the │
0x06b00…0dd80 09│ CREATE procedure in USING THE SYSTEM PROGRAMS manual and S/36 SOURCE │
0x06b00…0dd80 10│ ENTRY UTILITY GUIDE. │
0x06b00…0dd80 11│ │
0x06b00…0dd80 12│ │
0x06b00…0dd80 13│ │
0x06b00…0dd80 14│ │
0x06b00…0dd80 15│ │
0x06b00…0dd80 16│ │
0x06b00…0dd80 17│ │
0x06b00…0dd80 18│ │
0x06b00…0dd80 19│ │
0x06b00…0dd80 20│ │
0x06b00…0dd80 21│ │
0x06b00…0dd80 22│ │
0x06b00…0dd80 23│ Enter-Exit help text Roll keys-Page help text │
0x06b00…0dd80 24│ │
0x06b00…0dd80 25│ │
0x06b00…0dd80 26│ │
0x06b00…0dd80 27│ │
0x06b00…0dd80 └────────────────────────────────────────────────────────────────────────────────┘
0x06b00…0dd80 Panel5250 {
0x06b00…0dd80 at0000 = ClearUnit {esc=04, cu=40} // 0x6b28 @0x0
0x06b00…0dd80 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x6b2a @0x2
0x06b00…0dd80 at0006 = SetBufferAddress {ic=11, line=0x02, col=0x1a} // 0x6b2e @0x6
0x06b00…0dd80 at0009 = »HELP FOR MESSAGE TRANSLATION « // 0x6b31 @0x9
0x06b00…0dd80 at0040 = » « // 0x6b68 @0x40
0x06b00…0dd80 at0090 = » « // 0x6bb8 @0x90
0x06b00…0dd80 at0094 = SetBufferAddress {ic=11, line=0x04, col=0x06} // 0x6bbc @0x94
0x06b00…0dd80 at0097 = »Message translation aids you in creating a translated message source « // 0x6bbf @0x97
0x06b00…0dd80 at00e2 = » « // 0x6c0a @0xe2
0x06b00…0dd80 at00e6 = SetBufferAddress {ic=11, line=0x05, col=0x06} // 0x6c0e @0xe6
0x06b00…0dd80 at00e9 = »member. To use message translate, specify SEU member type T at sign on. « // 0x6c11 @0xe9
0x06b00…0dd80 at0134 = » « // 0x6c5c @0x134
0x06b00…0dd80 at0138 = SetBufferAddress {ic=11, line=0x06, col=0x06} // 0x6c60 @0x138
0x06b00…0dd80 at013b = »SEU prompts you to enter the translated text for each message. « // 0x6c63 @0x13b
0x06b00…0dd80 at0186 = » « // 0x6cae @0x186
0x06b00…0dd80 at018a = SetBufferAddress {ic=11, line=0x07, col=0x06} // 0x6cb2 @0x18a
0x06b00…0dd80 at018d = »If you want to update existing translated text, press command key 17 (%) « // 0x6cb5 @0x18d
0x06b00…0dd80 at01d8 = » « // 0x6d00 @0x1d8
0x06b00…0dd80 at01da = SetBufferAddress {ic=11, line=0x08, col=0x06} // 0x6d02 @0x1da
0x06b00…0dd80 at01dd = »and enter the number of the message you want to change. « // 0x6d05 @0x1dd
0x06b00…0dd80 at0228 = » « // 0x6d50 @0x228
0x06b00…0dd80 at022c = SetBufferAddress {ic=11, line=0x09, col=0x06} // 0x6d54 @0x22c
0x06b00…0dd80 at022f = »For help with creating and using a translated load member, see the « // 0x6d57 @0x22f
0x06b00…0dd80 at027a = » « // 0x6da2 @0x27a
0x06b00…0dd80 at027e = SetBufferAddress {ic=11, line=0x0a, col=0x06} // 0x6da6 @0x27e
0x06b00…0dd80 at0281 = »CREATE procedure in USING THE SYSTEM PROGRAMS manual and S/36 SOURCE « // 0x6da9 @0x281
0x06b00…0dd80 at02cc = » « // 0x6df4 @0x2cc
0x06b00…0dd80 at02d0 = SetBufferAddress {ic=11, line=0x0b, col=0x06} // 0x6df8 @0x2d0
0x06b00…0dd80 at02d3 = »ENTRY UTILITY GUIDE. « // 0x6dfb @0x2d3
0x06b00…0dd80 at031e = » « // 0x6e46 @0x31e
0x06b00…0dd80 at036e = » « // 0x6e96 @0x36e
0x06b00…0dd80 at03be = » « // 0x6ee6 @0x3be
0x06b00…0dd80 at040e = » « // 0x6f36 @0x40e
0x06b00…0dd80 at045e = » « // 0x6f86 @0x45e
0x06b00…0dd80 at04ae = » « // 0x6fd6 @0x4ae
0x06b00…0dd80 at04fe = » « // 0x7026 @0x4fe
0x06b00…0dd80 at054e = » « // 0x7076 @0x54e
0x06b00…0dd80 at059e = » « // 0x70c6 @0x59e
0x06b00…0dd80 at05ee = » « // 0x7116 @0x5ee
0x06b00…0dd80 at063e = » « // 0x7166 @0x63e
0x06b00…0dd80 at068e = » « // 0x71b6 @0x68e
0x06b00…0dd80 at06de = » « // 0x7206 @0x6de
0x06b00…0dd80 at06e0 = SetBufferAddress {ic=11, line=0x18, col=0x04} // 0x7208 @0x6e0
0x06b00…0dd80 at06e3 = »Enter-Exit help text Roll keys-Page help text « // 0x720b @0x6e3
0x06b00…0dd80 }
0x06b00…0dd80 }
0x06b00…0dd80 }
0x07300…0ed81 Form36 {
0x07300…0ed81 fh000 = 0x00 // 0x7300 @0x0
0x07300…0ed81 fh00 = 2200 // 0x7301 @0x1
0x07300…0ed81 fh01 = »NNN« // 0x7303 @0x3
0x07300…0ed81 fh02 = 000000 // 0x7306 @0x6
0x07300…0ed81 fh03 = »NNN« // 0x7309 @0x9
0x07300…0ed81 fh04 = 0x0028 // 0x730c @0xc
0x07300…0ed81 fh05 = 0x0731 // 0x730e @0xe
0x07300…0ed81 fh06 = 000080011800000000000000000000000000 // 0x7310 @0x10
0x07300…0ed81 at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x7322 @0x22
0x07300…0ed81 panel = { // 0x7328 @0x28
0x07300…0ed81 ┌────────────────────────────────────────────────────────────────────────────────┐
0x07300…0ed81 00│ │
0x07300…0ed81 01│ HELP FOR END OF JOB OPTIONS │
0x07300…0ed81 02│ │
0x07300…0ed81 03│ │
0x07300…0ed81 04│ 0. Return to processing │
0x07300…0ed81 05│ │
0x07300…0ed81 06│ Returns control to the job, and it continues normally. │
0x07300…0ed81 07│ │
0x07300…0ed81 08│ │
0x07300…0ed81 09│ 1. End of job with no additional options │
0x07300…0ed81 10│ │
0x07300…0ed81 11│ SEU copies the source or procedure member from the work file to a │
0x07300…0ed81 12│ library. │
0x07300…0ed81 13│ │
0x07300…0ed81 14│ │
0x07300…0ed81 15│ 2. End of job with a printout │
0x07300…0ed81 16│ │
0x07300…0ed81 17│ SEU copies the source or procedure member from the work file to a │
0x07300…0ed81 18│ library, and then prints the member on a printer. │
0x07300…0ed81 19│ │
0x07300…0ed81 20│ │
0x07300…0ed81 21│ │
0x07300…0ed81 22│ │
0x07300…0ed81 23│ Enter-Exit help text Roll keys-Page help text │
0x07300…0ed81 24│ │
0x07300…0ed81 25│ │
0x07300…0ed81 26│ │
0x07300…0ed81 27│ │
0x07300…0ed81 └────────────────────────────────────────────────────────────────────────────────┘
0x07300…0ed81 Panel5250 {
0x07300…0ed81 at0000 = ClearUnit {esc=04, cu=40} // 0x7328 @0x0
0x07300…0ed81 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x732a @0x2
0x07300…0ed81 at0006 = SetBufferAddress {ic=11, line=0x02, col=0x1b} // 0x732e @0x6
0x07300…0ed81 at0009 = »HELP FOR END OF JOB OPTIONS « // 0x7331 @0x9
0x07300…0ed81 at003f = » « // 0x7367 @0x3f
0x07300…0ed81 at008f = » « // 0x73b7 @0x8f
0x07300…0ed81 at00df = » « // 0x7407 @0xdf
0x07300…0ed81 at00e3 = SetBufferAddress {ic=11, line=0x05, col=0x06} // 0x740b @0xe3
0x07300…0ed81 at00e6 = »0. Return to processing « // 0x740e @0xe6
0x07300…0ed81 at0131 = » « // 0x7459 @0x131
0x07300…0ed81 at0181 = » « // 0x74a9 @0x181
0x07300…0ed81 at0185 = SetBufferAddress {ic=11, line=0x07, col=0x06} // 0x74ad @0x185
0x07300…0ed81 at0188 = »Returns control to the job, and it continues normally. « // 0x74b0 @0x188
0x07300…0ed81 at01d3 = » « // 0x74fb @0x1d3
0x07300…0ed81 at0223 = » « // 0x754b @0x223
0x07300…0ed81 at0273 = » « // 0x759b @0x273
0x07300…0ed81 at0277 = SetBufferAddress {ic=11, line=0x0a, col=0x06} // 0x759f @0x277
0x07300…0ed81 at027a = »1. End of job with no additional options « // 0x75a2 @0x27a
0x07300…0ed81 at02c5 = » « // 0x75ed @0x2c5
0x07300…0ed81 at0315 = » « // 0x763d @0x315
0x07300…0ed81 at0319 = SetBufferAddress {ic=11, line=0x0c, col=0x06} // 0x7641 @0x319
0x07300…0ed81 at031c = »SEU copies the source or procedure member from the work file to a « // 0x7644 @0x31c
0x07300…0ed81 at0367 = » « // 0x768f @0x367
0x07300…0ed81 at036b = SetBufferAddress {ic=11, line=0x0d, col=0x06} // 0x7693 @0x36b
0x07300…0ed81 at036e = »library. « // 0x7696 @0x36e
0x07300…0ed81 at03b9 = » « // 0x76e1 @0x3b9
0x07300…0ed81 at0409 = » « // 0x7731 @0x409
0x07300…0ed81 at0459 = » « // 0x7781 @0x459
0x07300…0ed81 at045d = SetBufferAddress {ic=11, line=0x10, col=0x06} // 0x7785 @0x45d
0x07300…0ed81 at0460 = »2. End of job with a printout « // 0x7788 @0x460
0x07300…0ed81 at04ab = » « // 0x77d3 @0x4ab
0x07300…0ed81 at04fb = » « // 0x7823 @0x4fb
0x07300…0ed81 at04ff = SetBufferAddress {ic=11, line=0x12, col=0x06} // 0x7827 @0x4ff
0x07300…0ed81 at0502 = »SEU copies the source or procedure member from the work file to a « // 0x782a @0x502
0x07300…0ed81 at054d = » « // 0x7875 @0x54d
0x07300…0ed81 at0551 = SetBufferAddress {ic=11, line=0x13, col=0x06} // 0x7879 @0x551
0x07300…0ed81 at0554 = »library, and then prints the member on a printer. « // 0x787c @0x554
0x07300…0ed81 at059f = » « // 0x78c7 @0x59f
0x07300…0ed81 at05ef = » « // 0x7917 @0x5ef
0x07300…0ed81 at063f = » « // 0x7967 @0x63f
0x07300…0ed81 at068f = » « // 0x79b7 @0x68f
0x07300…0ed81 at06df = » « // 0x7a07 @0x6df
0x07300…0ed81 at06e1 = SetBufferAddress {ic=11, line=0x18, col=0x04} // 0x7a09 @0x6e1
0x07300…0ed81 at06e4 = »Enter-Exit help text Roll keys-Page help text « // 0x7a0c @0x6e4
0x07300…0ed81 }
0x07300…0ed81 }
0x07300…0ed81 }
0x07b00…0fd8c Form36 {
0x07b00…0fd8c fh000 = 0x00 // 0x7b00 @0x0
0x07b00…0fd8c fh00 = 2200 // 0x7b01 @0x1
0x07b00…0fd8c fh01 = »NNN« // 0x7b03 @0x3
0x07b00…0fd8c fh02 = 000000 // 0x7b06 @0x6
0x07b00…0fd8c fh03 = »NNN« // 0x7b09 @0x9
0x07b00…0fd8c fh04 = 0x0028 // 0x7b0c @0xc
0x07b00…0fd8c fh05 = 0x073c // 0x7b0e @0xe
0x07b00…0fd8c fh06 = 000080011800000000000000000000000000 // 0x7b10 @0x10
0x07b00…0fd8c at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x7b22 @0x22
0x07b00…0fd8c panel = { // 0x7b28 @0x28
0x07b00…0fd8c ┌────────────────────────────────────────────────────────────────────────────────┐
0x07b00…0fd8c 00│ │
0x07b00…0fd8c 01│ HELP FOR END OF JOB OPTIONS │
0x07b00…0fd8c 02│ │
0x07b00…0fd8c 03│ 3. End of job with serialization │
0x07b00…0fd8c 04│ │
0x07b00…0fd8c 05│ SEU assigns sequence numbers to the source statements, and then │
0x07b00…0fd8c 06│ copies the member from the work file to a library. │
0x07b00…0fd8c 07│ │
0x07b00…0fd8c 08│ 4. End of job with serialization and a printout │
0x07b00…0fd8c 09│ │
0x07b00…0fd8c 10│ A combination of options 2 and 3. The source member is serialized, │
0x07b00…0fd8c 11│ copied from the work file to a library, and printed on a printer. │
0x07b00…0fd8c 12│ │
0x07b00…0fd8c 13│ │
0x07b00…0fd8c 14│ 5. End of job--member is not replaced │
0x07b00…0fd8c 15│ │
0x07b00…0fd8c 16│ SEU ends the job by deleting the SEU work file. All data entered │
0x07b00…0fd8c 17│ during the job is lost. If it exists, the source or procedure member │
0x07b00…0fd8c 18│ named in the SEU command remains in the library unchanged. │
0x07b00…0fd8c 19│ │
0x07b00…0fd8c 20│ │
0x07b00…0fd8c 21│ │
0x07b00…0fd8c 22│ │
0x07b00…0fd8c 23│ Enter-Exit help text Roll keys-Page help text │
0x07b00…0fd8c 24│ │
0x07b00…0fd8c 25│ │
0x07b00…0fd8c 26│ │
0x07b00…0fd8c 27│ │
0x07b00…0fd8c └────────────────────────────────────────────────────────────────────────────────┘
0x07b00…0fd8c Panel5250 {
0x07b00…0fd8c at0000 = ClearUnit {esc=04, cu=40} // 0x7b28 @0x0
0x07b00…0fd8c at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x7b2a @0x2
0x07b00…0fd8c at0006 = SetBufferAddress {ic=11, line=0x02, col=0x18} // 0x7b2e @0x6
0x07b00…0fd8c at0009 = »HELP FOR END OF JOB OPTIONS « // 0x7b31 @0x9
0x07b00…0fd8c at0042 = » « // 0x7b6a @0x42
0x07b00…0fd8c at0092 = » « // 0x7bba @0x92
0x07b00…0fd8c at0096 = SetBufferAddress {ic=11, line=0x04, col=0x06} // 0x7bbe @0x96
0x07b00…0fd8c at0099 = »3. End of job with serialization « // 0x7bc1 @0x99
0x07b00…0fd8c at00e4 = » « // 0x7c0c @0xe4
0x07b00…0fd8c at0134 = » « // 0x7c5c @0x134
0x07b00…0fd8c at0138 = SetBufferAddress {ic=11, line=0x06, col=0x06} // 0x7c60 @0x138
0x07b00…0fd8c at013b = »SEU assigns sequence numbers to the source statements, and then « // 0x7c63 @0x13b
0x07b00…0fd8c at0186 = » « // 0x7cae @0x186
0x07b00…0fd8c at018a = SetBufferAddress {ic=11, line=0x07, col=0x06} // 0x7cb2 @0x18a
0x07b00…0fd8c at018d = »copies the member from the work file to a library. « // 0x7cb5 @0x18d
0x07b00…0fd8c at01d8 = » « // 0x7d00 @0x1d8
0x07b00…0fd8c at0228 = » « // 0x7d50 @0x228
0x07b00…0fd8c at022c = SetBufferAddress {ic=11, line=0x09, col=0x06} // 0x7d54 @0x22c
0x07b00…0fd8c at022f = »4. End of job with serialization and a printout « // 0x7d57 @0x22f
0x07b00…0fd8c at027a = » « // 0x7da2 @0x27a
0x07b00…0fd8c at02ca = » « // 0x7df2 @0x2ca
0x07b00…0fd8c at02ce = SetBufferAddress {ic=11, line=0x0b, col=0x06} // 0x7df6 @0x2ce
0x07b00…0fd8c at02d1 = »A combination of options 2 and 3. The source member is serialized, « // 0x7df9 @0x2d1
0x07b00…0fd8c at031c = » « // 0x7e44 @0x31c
0x07b00…0fd8c at0320 = SetBufferAddress {ic=11, line=0x0c, col=0x06} // 0x7e48 @0x320
0x07b00…0fd8c at0323 = »copied from the work file to a library, and printed on a printer. « // 0x7e4b @0x323
0x07b00…0fd8c at036e = » « // 0x7e96 @0x36e
0x07b00…0fd8c at0372 = SetBufferAddress {ic=11, line=0x0d, col=0x06} // 0x7e9a @0x372
0x07b00…0fd8c at0375 = » « // 0x7e9d @0x375
0x07b00…0fd8c at03c0 = » « // 0x7ee8 @0x3c0
0x07b00…0fd8c at0410 = » « // 0x7f38 @0x410
0x07b00…0fd8c at0414 = SetBufferAddress {ic=11, line=0x0f, col=0x06} // 0x7f3c @0x414
0x07b00…0fd8c at0417 = »5. End of job--member is not replaced « // 0x7f3f @0x417
0x07b00…0fd8c at0462 = » « // 0x7f8a @0x462
0x07b00…0fd8c at04b2 = » « // 0x7fda @0x4b2
0x07b00…0fd8c at04b6 = SetBufferAddress {ic=11, line=0x11, col=0x06} // 0x7fde @0x4b6
0x07b00…0fd8c at04b9 = »SEU ends the job by deleting the SEU work file. All data entered « // 0x7fe1 @0x4b9
0x07b00…0fd8c at0504 = » « // 0x802c @0x504
0x07b00…0fd8c at0508 = SetBufferAddress {ic=11, line=0x12, col=0x06} // 0x8030 @0x508
0x07b00…0fd8c at050b = »during the job is lost. If it exists, the source or procedure member « // 0x8033 @0x50b
0x07b00…0fd8c at0556 = » « // 0x807e @0x556
0x07b00…0fd8c at055a = SetBufferAddress {ic=11, line=0x13, col=0x06} // 0x8082 @0x55a
0x07b00…0fd8c at055d = »named in the SEU command remains in the library unchanged. « // 0x8085 @0x55d
0x07b00…0fd8c at05a8 = » « // 0x80d0 @0x5a8
0x07b00…0fd8c at05ac = SetBufferAddress {ic=11, line=0x14, col=0x06} // 0x80d4 @0x5ac
0x07b00…0fd8c at05af = » « // 0x80d7 @0x5af
0x07b00…0fd8c at05fa = » « // 0x8122 @0x5fa
0x07b00…0fd8c at064a = » « // 0x8172 @0x64a
0x07b00…0fd8c at069a = » « // 0x81c2 @0x69a
0x07b00…0fd8c at06ea = » « // 0x8212 @0x6ea
0x07b00…0fd8c at06ec = SetBufferAddress {ic=11, line=0x18, col=0x04} // 0x8214 @0x6ec
0x07b00…0fd8c at06ef = »Enter-Exit help text Roll keys-Page help text « // 0x8217 @0x6ef
0x07b00…0fd8c }
0x07b00…0fd8c }
0x07b00…0fd8c }
0x08300…10d82 Form36 {
0x08300…10d82 fh000 = 0x00 // 0x8300 @0x0
0x08300…10d82 fh00 = 2200 // 0x8301 @0x1
0x08300…10d82 fh01 = »NNN« // 0x8303 @0x3
0x08300…10d82 fh02 = 000000 // 0x8306 @0x6
0x08300…10d82 fh03 = »NNN« // 0x8309 @0x9
0x08300…10d82 fh04 = 0x0028 // 0x830c @0xc
0x08300…10d82 fh05 = 0x0732 // 0x830e @0xe
0x08300…10d82 fh06 = 000080011800000000000000000000000000 // 0x8310 @0x10
0x08300…10d82 at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x8322 @0x22
0x08300…10d82 panel = { // 0x8328 @0x28
0x08300…10d82 ┌────────────────────────────────────────────────────────────────────────────────┐
0x08300…10d82 00│ │
0x08300…10d82 01│ HELP FOR END OF JOB OPTIONS │
0x08300…10d82 02│ │
0x08300…10d82 03│ ╳Start serialization at position . . . . . . . . . . . . . . . . . . . │
0x08300…10d82 04│ │
0x08300…10d82 05│ ╳This prompt is displayed when EOJ option 3 or 4 is selected. A │
0x08300…10d82 06│ valid response is any number greater than 0 but less than or equal to │
0x08300…10d82 07│ the statement length minus 3. The response specifies the starting │
0x08300…10d82 08│ position of the serial number in each statement. Statements are │
0x08300…10d82 09│ serialized with four-digit numbers beginning with 0001. │
0x08300…10d82 10│ │
0x08300…10d82 11│ │
0x08300…10d82 12│ │
0x08300…10d82 13│ │
0x08300…10d82 14│ │
0x08300…10d82 15│ │
0x08300…10d82 16│ │
0x08300…10d82 17│ │
0x08300…10d82 18│ │
0x08300…10d82 19│ │
0x08300…10d82 20│ │
0x08300…10d82 21│ │
0x08300…10d82 22│ │
0x08300…10d82 23│ Enter-Exit help text Roll keys-Page help text │
0x08300…10d82 24│ │
0x08300…10d82 25│ │
0x08300…10d82 26│ │
0x08300…10d82 27│ │
0x08300…10d82 └────────────────────────────────────────────────────────────────────────────────┘
0x08300…10d82 Panel5250 {
0x08300…10d82 at0000 = ClearUnit {esc=04, cu=40} // 0x8328 @0x0
0x08300…10d82 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x832a @0x2
0x08300…10d82 at0006 = SetBufferAddress {ic=11, line=0x02, col=0x18} // 0x832e @0x6
0x08300…10d82 at0009 = »HELP FOR END OF JOB OPTIONS « // 0x8331 @0x9
0x08300…10d82 at0042 = » « // 0x836a @0x42
0x08300…10d82 at0092 = » « // 0x83ba @0x92
0x08300…10d82 at0096 = SetBufferAddress {ic=11, line=0x04, col=0x05} // 0x83be @0x96
0x08300…10d82 at0099 = Attribute {type=0x22} // 0x83c1 @0x99
0x08300…10d82 at009a = »Start serialization at position . . . . . . . . . . . . . . . . . . . « // 0x83c2 @0x9a
0x08300…10d82 at00e5 = » « // 0x840d @0xe5
0x08300…10d82 at0135 = » « // 0x845d @0x135
0x08300…10d82 at0139 = Attribute {type=0x20} // 0x8461 @0x139
0x08300…10d82 at013a = SetBufferAddress {ic=11, line=0x06, col=0x06} // 0x8462 @0x13a
0x08300…10d82 at013d = »This prompt is displayed when EOJ option 3 or 4 is selected. A « // 0x8465 @0x13d
0x08300…10d82 at0188 = » « // 0x84b0 @0x188
0x08300…10d82 at018c = SetBufferAddress {ic=11, line=0x07, col=0x06} // 0x84b4 @0x18c
0x08300…10d82 at018f = »valid response is any number greater than 0 but less than or equal to « // 0x84b7 @0x18f
0x08300…10d82 at01da = » « // 0x8502 @0x1da
0x08300…10d82 at01de = SetBufferAddress {ic=11, line=0x08, col=0x06} // 0x8506 @0x1de
0x08300…10d82 at01e1 = »the statement length minus 3. The response specifies the starting « // 0x8509 @0x1e1
0x08300…10d82 at022c = » « // 0x8554 @0x22c
0x08300…10d82 at0230 = SetBufferAddress {ic=11, line=0x09, col=0x06} // 0x8558 @0x230
0x08300…10d82 at0233 = »position of the serial number in each statement. Statements are « // 0x855b @0x233
0x08300…10d82 at027e = » « // 0x85a6 @0x27e
0x08300…10d82 at0282 = SetBufferAddress {ic=11, line=0x0a, col=0x06} // 0x85aa @0x282
0x08300…10d82 at0285 = »serialized with four-digit numbers beginning with 0001. « // 0x85ad @0x285
0x08300…10d82 at02d0 = » « // 0x85f8 @0x2d0
0x08300…10d82 at0320 = » « // 0x8648 @0x320
0x08300…10d82 at0370 = » « // 0x8698 @0x370
0x08300…10d82 at03c0 = » « // 0x86e8 @0x3c0
0x08300…10d82 at0410 = » « // 0x8738 @0x410
0x08300…10d82 at0460 = » « // 0x8788 @0x460
0x08300…10d82 at04b0 = » « // 0x87d8 @0x4b0
0x08300…10d82 at0500 = » « // 0x8828 @0x500
0x08300…10d82 at0550 = » « // 0x8878 @0x550
0x08300…10d82 at05a0 = » « // 0x88c8 @0x5a0
0x08300…10d82 at05f0 = » « // 0x8918 @0x5f0
0x08300…10d82 at0640 = » « // 0x8968 @0x640
0x08300…10d82 at0690 = » « // 0x89b8 @0x690
0x08300…10d82 at06e0 = » « // 0x8a08 @0x6e0
0x08300…10d82 at06e2 = SetBufferAddress {ic=11, line=0x18, col=0x04} // 0x8a0a @0x6e2
0x08300…10d82 at06e5 = »Enter-Exit help text Roll keys-Page help text « // 0x8a0d @0x6e5
0x08300…10d82 }
0x08300…10d82 }
0x08300…10d82 }
0x08b00…11d88 Form36 {
0x08b00…11d88 fh000 = 0x00 // 0x8b00 @0x0
0x08b00…11d88 fh00 = 2200 // 0x8b01 @0x1
0x08b00…11d88 fh01 = »NNN« // 0x8b03 @0x3
0x08b00…11d88 fh02 = 000000 // 0x8b06 @0x6
0x08b00…11d88 fh03 = »NNN« // 0x8b09 @0x9
0x08b00…11d88 fh04 = 0x0028 // 0x8b0c @0xc
0x08b00…11d88 fh05 = 0x0738 // 0x8b0e @0xe
0x08b00…11d88 fh06 = 000080011800000000000000000000000000 // 0x8b10 @0x10
0x08b00…11d88 at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x8b22 @0x22
0x08b00…11d88 panel = { // 0x8b28 @0x28
0x08b00…11d88 ┌────────────────────────────────────────────────────────────────────────────────┐
0x08b00…11d88 00│ │
0x08b00…11d88 01│ HELP FOR END OF JOB │
0x08b00…11d88 02│ │
0x08b00…11d88 03│ ╳Member name . . . . . . . . . . . . . . . . . . . . . . . . . . . . . │
0x08b00…11d88 04│ │
0x08b00…11d88 05│ ╳This is the name of the member that is currently in the work file. │
0x08b00…11d88 06│ │
0x08b00…11d88 07│ ╳Library name . . . . . . . . . . . . . . . . . . . . . . . . . . . . │
0x08b00…11d88 08│ │
0x08b00…11d88 09│ ╳This is the library into which the work file will be copied. │
0x08b00…11d88 10│ │
0x08b00…11d88 11│ ╳Reference number . . . . . . . . . . . . . . . . . . . . . . . . . . │
0x08b00…11d88 12│ │
0x08b00…11d88 13│ ╳This is a number associated with this version of the member when │
0x08b00…11d88 14│ replaced in the library. The reference number is stored in the library │
0x08b00…11d88 15│ directory along with other information about the member. You can enter a │
0x08b00…11d88 16│ number that is meaningful for your use or allow SEU to supply a default. │
0x08b00…11d88 17│ │
0x08b00…11d88 18│ │
0x08b00…11d88 19│ │
0x08b00…11d88 20│ │
0x08b00…11d88 21│ │
0x08b00…11d88 22│ │
0x08b00…11d88 23│ Enter-Exit help text Roll keys-Page help text │
0x08b00…11d88 24│ │
0x08b00…11d88 25│ │
0x08b00…11d88 26│ │
0x08b00…11d88 27│ │
0x08b00…11d88 └────────────────────────────────────────────────────────────────────────────────┘
0x08b00…11d88 Panel5250 {
0x08b00…11d88 at0000 = ClearUnit {esc=04, cu=40} // 0x8b28 @0x0
0x08b00…11d88 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x8b2a @0x2
0x08b00…11d88 at0006 = SetBufferAddress {ic=11, line=0x02, col=0x1c} // 0x8b2e @0x6
0x08b00…11d88 at0009 = »HELP FOR END OF JOB « // 0x8b31 @0x9
0x08b00…11d88 at003e = » « // 0x8b66 @0x3e
0x08b00…11d88 at008e = » « // 0x8bb6 @0x8e
0x08b00…11d88 at0092 = SetBufferAddress {ic=11, line=0x04, col=0x05} // 0x8bba @0x92
0x08b00…11d88 at0095 = Attribute {type=0x22} // 0x8bbd @0x95
0x08b00…11d88 at0096 = »Member name . . . . . . . . . . . . . . . . . . . . . . . . . . . . . « // 0x8bbe @0x96
0x08b00…11d88 at00e1 = » « // 0x8c09 @0xe1
0x08b00…11d88 at0131 = » « // 0x8c59 @0x131
0x08b00…11d88 at0135 = Attribute {type=0x20} // 0x8c5d @0x135
0x08b00…11d88 at0136 = SetBufferAddress {ic=11, line=0x06, col=0x06} // 0x8c5e @0x136
0x08b00…11d88 at0139 = »This is the name of the member that is currently in the work file. « // 0x8c61 @0x139
0x08b00…11d88 at0184 = » « // 0x8cac @0x184
0x08b00…11d88 at01d4 = » « // 0x8cfc @0x1d4
0x08b00…11d88 at01d8 = SetBufferAddress {ic=11, line=0x08, col=0x05} // 0x8d00 @0x1d8
0x08b00…11d88 at01db = Attribute {type=0x22} // 0x8d03 @0x1db
0x08b00…11d88 at01dc = »Library name . . . . . . . . . . . . . . . . . . . . . . . . . . . . « // 0x8d04 @0x1dc
0x08b00…11d88 at0227 = » « // 0x8d4f @0x227
0x08b00…11d88 at0277 = » « // 0x8d9f @0x277
0x08b00…11d88 at027b = Attribute {type=0x20} // 0x8da3 @0x27b
0x08b00…11d88 at027c = SetBufferAddress {ic=11, line=0x0a, col=0x06} // 0x8da4 @0x27c
0x08b00…11d88 at027f = »This is the library into which the work file will be copied. « // 0x8da7 @0x27f
0x08b00…11d88 at02ca = » « // 0x8df2 @0x2ca
0x08b00…11d88 at031a = » « // 0x8e42 @0x31a
0x08b00…11d88 at031e = SetBufferAddress {ic=11, line=0x0c, col=0x05} // 0x8e46 @0x31e
0x08b00…11d88 at0321 = Attribute {type=0x22} // 0x8e49 @0x321
0x08b00…11d88 at0322 = »Reference number . . . . . . . . . . . . . . . . . . . . . . . . . . « // 0x8e4a @0x322
0x08b00…11d88 at036d = » « // 0x8e95 @0x36d
0x08b00…11d88 at03bd = » « // 0x8ee5 @0x3bd
0x08b00…11d88 at03c1 = Attribute {type=0x20} // 0x8ee9 @0x3c1
0x08b00…11d88 at03c2 = SetBufferAddress {ic=11, line=0x0e, col=0x06} // 0x8eea @0x3c2
0x08b00…11d88 at03c5 = »This is a number associated with this version of the member when « // 0x8eed @0x3c5
0x08b00…11d88 at0410 = » « // 0x8f38 @0x410
0x08b00…11d88 at0414 = SetBufferAddress {ic=11, line=0x0f, col=0x06} // 0x8f3c @0x414
0x08b00…11d88 at0417 = »replaced in the library. The reference number is stored in the library « // 0x8f3f @0x417
0x08b00…11d88 at0462 = » « // 0x8f8a @0x462
0x08b00…11d88 at0466 = SetBufferAddress {ic=11, line=0x10, col=0x06} // 0x8f8e @0x466
0x08b00…11d88 at0469 = »directory along with other information about the member. You can enter a « // 0x8f91 @0x469
0x08b00…11d88 at04b4 = » « // 0x8fdc @0x4b4
0x08b00…11d88 at04b8 = SetBufferAddress {ic=11, line=0x11, col=0x06} // 0x8fe0 @0x4b8
0x08b00…11d88 at04bb = »number that is meaningful for your use or allow SEU to supply a default. « // 0x8fe3 @0x4bb
0x08b00…11d88 at0506 = » « // 0x902e @0x506
0x08b00…11d88 at0556 = » « // 0x907e @0x556
0x08b00…11d88 at05a6 = » « // 0x90ce @0x5a6
0x08b00…11d88 at05f6 = » « // 0x911e @0x5f6
0x08b00…11d88 at0646 = » « // 0x916e @0x646
0x08b00…11d88 at0696 = » « // 0x91be @0x696
0x08b00…11d88 at06e6 = » « // 0x920e @0x6e6
0x08b00…11d88 at06e8 = SetBufferAddress {ic=11, line=0x18, col=0x04} // 0x9210 @0x6e8
0x08b00…11d88 at06eb = »Enter-Exit help text Roll keys-Page help text « // 0x9213 @0x6eb
0x08b00…11d88 }
0x08b00…11d88 }
0x08b00…11d88 }
0x09300…12d88 Form36 {
0x09300…12d88 fh000 = 0x00 // 0x9300 @0x0
0x09300…12d88 fh00 = 2200 // 0x9301 @0x1
0x09300…12d88 fh01 = »NNN« // 0x9303 @0x3
0x09300…12d88 fh02 = 000000 // 0x9306 @0x6
0x09300…12d88 fh03 = »NNN« // 0x9309 @0x9
0x09300…12d88 fh04 = 0x0028 // 0x930c @0xc
0x09300…12d88 fh05 = 0x0738 // 0x930e @0xe
0x09300…12d88 fh06 = 000080011800000000000000000000000000 // 0x9310 @0x10
0x09300…12d88 at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x9322 @0x22
0x09300…12d88 panel = { // 0x9328 @0x28
0x09300…12d88 ┌────────────────────────────────────────────────────────────────────────────────┐
0x09300…12d88 00│ │
0x09300…12d88 01│ HELP FOR END OF JOB OPTIONS │
0x09300…12d88 02│ │
0x09300…12d88 03│ ╳Library member subtype . . . . . . . . . . . . . . . . . . . . . . . │
0x09300…12d88 04│ │
0x09300…12d88 05│ ╳The library member subtype defines different source member types. │
0x09300…12d88 06│ The subtype is stored in the library directory along with other infor- │
0x09300…12d88 07│ mation about the member. Enter the number that corresponds to the sub- │
0x09300…12d88 08│ type for your member or allow SEU to supply a default. │
0x09300…12d88 09│ │
0x09300…12d88 10│ ╳Remove diagnostics from diagnosed source member . . . . . . . . . . Y,N │
0x09300…12d88 11│ │
0x09300…12d88 12│ ╳If you want the source member to be replaced into the library with- │
0x09300…12d88 13│ out any diagnostics, enter Y (yes). If you want the diagnostics to be │
0x09300…12d88 14│ replaced along with the source member into the library, enter N (no). │
0x09300…12d88 15│ The default is N. │
0x09300…12d88 16│ │
0x09300…12d88 17│ │
0x09300…12d88 18│ │
0x09300…12d88 19│ │
0x09300…12d88 20│ │
0x09300…12d88 21│ │
0x09300…12d88 22│ │
0x09300…12d88 23│ Enter-Exit help text Roll keys-Page help text │
0x09300…12d88 24│ │
0x09300…12d88 25│ │
0x09300…12d88 26│ │
0x09300…12d88 27│ │
0x09300…12d88 └────────────────────────────────────────────────────────────────────────────────┘
0x09300…12d88 Panel5250 {
0x09300…12d88 at0000 = ClearUnit {esc=04, cu=40} // 0x9328 @0x0
0x09300…12d88 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x932a @0x2
0x09300…12d88 at0006 = SetBufferAddress {ic=11, line=0x02, col=0x1c} // 0x932e @0x6
0x09300…12d88 at0009 = »HELP FOR END OF JOB OPTIONS « // 0x9331 @0x9
0x09300…12d88 at003e = » « // 0x9366 @0x3e
0x09300…12d88 at008e = » « // 0x93b6 @0x8e
0x09300…12d88 at0092 = SetBufferAddress {ic=11, line=0x04, col=0x05} // 0x93ba @0x92
0x09300…12d88 at0095 = Attribute {type=0x22} // 0x93bd @0x95
0x09300…12d88 at0096 = »Library member subtype . . . . . . . . . . . . . . . . . . . . . . . « // 0x93be @0x96
0x09300…12d88 at00e1 = » « // 0x9409 @0xe1
0x09300…12d88 at0131 = » « // 0x9459 @0x131
0x09300…12d88 at0135 = Attribute {type=0x20} // 0x945d @0x135
0x09300…12d88 at0136 = SetBufferAddress {ic=11, line=0x06, col=0x06} // 0x945e @0x136
0x09300…12d88 at0139 = »The library member subtype defines different source member types. « // 0x9461 @0x139
0x09300…12d88 at0184 = » « // 0x94ac @0x184
0x09300…12d88 at0188 = SetBufferAddress {ic=11, line=0x07, col=0x06} // 0x94b0 @0x188
0x09300…12d88 at018b = »The subtype is stored in the library directory along with other infor- « // 0x94b3 @0x18b
0x09300…12d88 at01d6 = » « // 0x94fe @0x1d6
0x09300…12d88 at01da = SetBufferAddress {ic=11, line=0x08, col=0x06} // 0x9502 @0x1da
0x09300…12d88 at01dd = »mation about the member. Enter the number that corresponds to the sub- « // 0x9505 @0x1dd
0x09300…12d88 at0228 = » « // 0x9550 @0x228
0x09300…12d88 at022c = SetBufferAddress {ic=11, line=0x09, col=0x06} // 0x9554 @0x22c
0x09300…12d88 at022f = »type for your member or allow SEU to supply a default. « // 0x9557 @0x22f
0x09300…12d88 at027a = » « // 0x95a2 @0x27a
0x09300…12d88 at02ca = » « // 0x95f2 @0x2ca
0x09300…12d88 at02ce = SetBufferAddress {ic=11, line=0x0b, col=0x05} // 0x95f6 @0x2ce
0x09300…12d88 at02d1 = Attribute {type=0x22} // 0x95f9 @0x2d1
0x09300…12d88 at02d2 = »Remove diagnostics from diagnosed source member . . . . . . . . . . Y,N « // 0x95fa @0x2d2
0x09300…12d88 at031d = » « // 0x9645 @0x31d
0x09300…12d88 at036d = » « // 0x9695 @0x36d
0x09300…12d88 at0371 = Attribute {type=0x20} // 0x9699 @0x371
0x09300…12d88 at0372 = SetBufferAddress {ic=11, line=0x0d, col=0x06} // 0x969a @0x372
0x09300…12d88 at0375 = »If you want the source member to be replaced into the library with- « // 0x969d @0x375
0x09300…12d88 at03c0 = » « // 0x96e8 @0x3c0
0x09300…12d88 at03c4 = SetBufferAddress {ic=11, line=0x0e, col=0x06} // 0x96ec @0x3c4
0x09300…12d88 at03c7 = »out any diagnostics, enter Y (yes). If you want the diagnostics to be « // 0x96ef @0x3c7
0x09300…12d88 at0412 = » « // 0x973a @0x412
0x09300…12d88 at0416 = SetBufferAddress {ic=11, line=0x0f, col=0x06} // 0x973e @0x416
0x09300…12d88 at0419 = »replaced along with the source member into the library, enter N (no). « // 0x9741 @0x419
0x09300…12d88 at0464 = » « // 0x978c @0x464
0x09300…12d88 at0468 = SetBufferAddress {ic=11, line=0x10, col=0x06} // 0x9790 @0x468
0x09300…12d88 at046b = »The default is N. « // 0x9793 @0x46b
0x09300…12d88 at04b6 = » « // 0x97de @0x4b6
0x09300…12d88 at0506 = » « // 0x982e @0x506
0x09300…12d88 at0556 = » « // 0x987e @0x556
0x09300…12d88 at05a6 = » « // 0x98ce @0x5a6
0x09300…12d88 at05f6 = » « // 0x991e @0x5f6
0x09300…12d88 at0646 = » « // 0x996e @0x646
0x09300…12d88 at0696 = » « // 0x99be @0x696
0x09300…12d88 at06e6 = » « // 0x9a0e @0x6e6
0x09300…12d88 at06e8 = SetBufferAddress {ic=11, line=0x18, col=0x04} // 0x9a10 @0x6e8
0x09300…12d88 at06eb = »Enter-Exit help text Roll keys-Page help text « // 0x9a13 @0x6eb
0x09300…12d88 }
0x09300…12d88 }
0x09300…12d88 }
0x09b00…13d88 Form36 {
0x09b00…13d88 fh000 = 0x00 // 0x9b00 @0x0
0x09b00…13d88 fh00 = 2200 // 0x9b01 @0x1
0x09b00…13d88 fh01 = »NNN« // 0x9b03 @0x3
0x09b00…13d88 fh02 = 000000 // 0x9b06 @0x6
0x09b00…13d88 fh03 = »NNN« // 0x9b09 @0x9
0x09b00…13d88 fh04 = 0x0028 // 0x9b0c @0xc
0x09b00…13d88 fh05 = 0x0738 // 0x9b0e @0xe
0x09b00…13d88 fh06 = 000080011800000000000000000000000000 // 0x9b10 @0x10
0x09b00…13d88 at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x9b22 @0x22
0x09b00…13d88 panel = { // 0x9b28 @0x28
0x09b00…13d88 ┌────────────────────────────────────────────────────────────────────────────────┐
0x09b00…13d88 00│ │
0x09b00…13d88 01│ HELP FOR END OF JOB OPTIONS │
0x09b00…13d88 02│ │
0x09b00…13d88 03│ ╳Duplicate program name in positions 75-80 . . . . . . . . . . . . . Y,N │
0x09b00…13d88 04│ │
0x09b00…13d88 05│ ╳This prompt is displayed if the member type specified in the SEU │
0x09b00…13d88 06│ command is A, R, or S, the statement length is 80 or greater, and │
0x09b00…13d88 07│ option 3 or 4 is selected at EOJ. Valid responses are Y (yes) and │
0x09b00…13d88 08│ N (no). │
0x09b00…13d88 09│ A response of Y causes SEU to copy the value contained in positions │
0x09b00…13d88 10│ 75 through 80 of the first statement into positions 75 through 80 in │
0x09b00…13d88 11│ each of the member's remaining statements. │
0x09b00…13d88 12│ A response of N causes no duplication to occur. The default is N. │
0x09b00…13d88 13│ │
0x09b00…13d88 14│ │
0x09b00…13d88 15│ │
0x09b00…13d88 16│ │
0x09b00…13d88 17│ │
0x09b00…13d88 18│ │
0x09b00…13d88 19│ │
0x09b00…13d88 20│ │
0x09b00…13d88 21│ │
0x09b00…13d88 22│ │
0x09b00…13d88 23│ Enter-Exit help text Roll keys-Page help text │
0x09b00…13d88 24│ │
0x09b00…13d88 25│ │
0x09b00…13d88 26│ │
0x09b00…13d88 27│ │
0x09b00…13d88 └────────────────────────────────────────────────────────────────────────────────┘
0x09b00…13d88 Panel5250 {
0x09b00…13d88 at0000 = ClearUnit {esc=04, cu=40} // 0x9b28 @0x0
0x09b00…13d88 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x9b2a @0x2
0x09b00…13d88 at0006 = SetBufferAddress {ic=11, line=0x02, col=0x18} // 0x9b2e @0x6
0x09b00…13d88 at0009 = »HELP FOR END OF JOB OPTIONS « // 0x9b31 @0x9
0x09b00…13d88 at0042 = » « // 0x9b6a @0x42
0x09b00…13d88 at0092 = » « // 0x9bba @0x92
0x09b00…13d88 at0096 = SetBufferAddress {ic=11, line=0x04, col=0x05} // 0x9bbe @0x96
0x09b00…13d88 at0099 = Attribute {type=0x22} // 0x9bc1 @0x99
0x09b00…13d88 at009a = »Duplicate program name in positions 75-80 . . . . . . . . . . . . . Y,N « // 0x9bc2 @0x9a
0x09b00…13d88 at00e5 = » « // 0x9c0d @0xe5
0x09b00…13d88 at0135 = » « // 0x9c5d @0x135
0x09b00…13d88 at0139 = Attribute {type=0x20} // 0x9c61 @0x139
0x09b00…13d88 at013a = SetBufferAddress {ic=11, line=0x06, col=0x06} // 0x9c62 @0x13a
0x09b00…13d88 at013d = »This prompt is displayed if the member type specified in the SEU « // 0x9c65 @0x13d
0x09b00…13d88 at0188 = » « // 0x9cb0 @0x188
0x09b00…13d88 at018c = SetBufferAddress {ic=11, line=0x07, col=0x06} // 0x9cb4 @0x18c
0x09b00…13d88 at018f = »command is A, R, or S, the statement length is 80 or greater, and « // 0x9cb7 @0x18f
0x09b00…13d88 at01da = » « // 0x9d02 @0x1da
0x09b00…13d88 at01de = SetBufferAddress {ic=11, line=0x08, col=0x06} // 0x9d06 @0x1de
0x09b00…13d88 at01e1 = »option 3 or 4 is selected at EOJ. Valid responses are Y (yes) and « // 0x9d09 @0x1e1
0x09b00…13d88 at022c = » « // 0x9d54 @0x22c
0x09b00…13d88 at0230 = SetBufferAddress {ic=11, line=0x09, col=0x06} // 0x9d58 @0x230
0x09b00…13d88 at0233 = »N (no). « // 0x9d5b @0x233
0x09b00…13d88 at027e = » « // 0x9da6 @0x27e
0x09b00…13d88 at0282 = SetBufferAddress {ic=11, line=0x0a, col=0x06} // 0x9daa @0x282
0x09b00…13d88 at0285 = »A response of Y causes SEU to copy the value contained in positions « // 0x9dad @0x285
0x09b00…13d88 at02d0 = » « // 0x9df8 @0x2d0
0x09b00…13d88 at02d4 = SetBufferAddress {ic=11, line=0x0b, col=0x06} // 0x9dfc @0x2d4
0x09b00…13d88 at02d7 = »75 through 80 of the first statement into positions 75 through 80 in « // 0x9dff @0x2d7
0x09b00…13d88 at0322 = » « // 0x9e4a @0x322
0x09b00…13d88 at0326 = SetBufferAddress {ic=11, line=0x0c, col=0x06} // 0x9e4e @0x326
0x09b00…13d88 at0329 = »each of the member's remaining statements. « // 0x9e51 @0x329
0x09b00…13d88 at0374 = » « // 0x9e9c @0x374
0x09b00…13d88 at0378 = SetBufferAddress {ic=11, line=0x0d, col=0x06} // 0x9ea0 @0x378
0x09b00…13d88 at037b = »A response of N causes no duplication to occur. The default is N. « // 0x9ea3 @0x37b
0x09b00…13d88 at03c6 = » « // 0x9eee @0x3c6
0x09b00…13d88 at0416 = » « // 0x9f3e @0x416
0x09b00…13d88 at0466 = » « // 0x9f8e @0x466
0x09b00…13d88 at04b6 = » « // 0x9fde @0x4b6
0x09b00…13d88 at0506 = » « // 0xa02e @0x506
0x09b00…13d88 at0556 = » « // 0xa07e @0x556
0x09b00…13d88 at05a6 = » « // 0xa0ce @0x5a6
0x09b00…13d88 at05f6 = » « // 0xa11e @0x5f6
0x09b00…13d88 at0646 = » « // 0xa16e @0x646
0x09b00…13d88 at0696 = » « // 0xa1be @0x696
0x09b00…13d88 at06e6 = » « // 0xa20e @0x6e6
0x09b00…13d88 at06e8 = SetBufferAddress {ic=11, line=0x18, col=0x04} // 0xa210 @0x6e8
0x09b00…13d88 at06eb = »Enter-Exit help text Roll keys-Page help text « // 0xa213 @0x6eb
0x09b00…13d88 }
0x09b00…13d88 }
0x09b00…13d88 }
0x0a300…14d8e Form36 {
0x0a300…14d8e fh000 = 0x00 // 0xa300 @0x0
0x0a300…14d8e fh00 = 2200 // 0xa301 @0x1
0x0a300…14d8e fh01 = »NNN« // 0xa303 @0x3
0x0a300…14d8e fh02 = 000000 // 0xa306 @0x6
0x0a300…14d8e fh03 = »NNN« // 0xa309 @0x9
0x0a300…14d8e fh04 = 0x0028 // 0xa30c @0xc
0x0a300…14d8e fh05 = 0x073e // 0xa30e @0xe
0x0a300…14d8e fh06 = 000080011800000000000000000000000000 // 0xa310 @0x10
0x0a300…14d8e at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0xa322 @0x22
0x0a300…14d8e panel = { // 0xa328 @0x28
0x0a300…14d8e ┌────────────────────────────────────────────────────────────────────────────────┐
0x0a300…14d8e 00│ │
0x0a300…14d8e 01│ HELP FOR END OF JOB OPTIONS │
0x0a300…14d8e 02│ │
0x0a300…14d8e 03│ ╳Program data in include statements . . . . . . . . . . . . . . . Y,N │
0x0a300…14d8e 04│ │
0x0a300…14d8e 05│ ╳INCLUDE OCL statements for procedures may contain program data │
0x0a300…14d8e 06│ instead of parameters. │
0x0a300…14d8e 07│ If INCLUDE statements in the procedure created or changed during │
0x0a300…14d8e 08│ the job contain program data instead of parameters, the response must │
0x0a300…14d8e 09│ be Y (yes). │
0x0a300…14d8e 10│ If INCLUDE statements do not contain program data, the response │
0x0a300…14d8e 11│ must be N (no). The default for a new member is N. │
0x0a300…14d8e 12│ │
0x0a300…14d8e 13│ ╳Member name . . . . . . . . . . . . . . . . . . . . . . . . . . . . . │
0x0a300…14d8e 14│ │
0x0a300…14d8e 15│ ╳This is the name of the member that is currently in the work file. │
0x0a300…14d8e 16│ │
0x0a300…14d8e 17│ ╳Library name . . . . . . . . . . . . . . . . . . . . . . . . . . . . │
0x0a300…14d8e 18│ │
0x0a300…14d8e 19│ ╳This is the library into which the work file will be copied. │
0x0a300…14d8e 20│ │
0x0a300…14d8e 21│ │
0x0a300…14d8e 22│ │
0x0a300…14d8e 23│ Enter-Exit help text Roll keys-Page help text │
0x0a300…14d8e 24│ │
0x0a300…14d8e 25│ │
0x0a300…14d8e 26│ │
0x0a300…14d8e 27│ │
0x0a300…14d8e └────────────────────────────────────────────────────────────────────────────────┘
0x0a300…14d8e Panel5250 {
0x0a300…14d8e at0000 = ClearUnit {esc=04, cu=40} // 0xa328 @0x0
0x0a300…14d8e at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0xa32a @0x2
0x0a300…14d8e at0006 = SetBufferAddress {ic=11, line=0x02, col=0x1c} // 0xa32e @0x6
0x0a300…14d8e at0009 = »HELP FOR END OF JOB OPTIONS « // 0xa331 @0x9
0x0a300…14d8e at003e = » « // 0xa366 @0x3e
0x0a300…14d8e at008e = » « // 0xa3b6 @0x8e
0x0a300…14d8e at0092 = SetBufferAddress {ic=11, line=0x04, col=0x05} // 0xa3ba @0x92
0x0a300…14d8e at0095 = Attribute {type=0x22} // 0xa3bd @0x95
0x0a300…14d8e at0096 = »Program data in include statements . . . . . . . . . . . . . . . Y,N « // 0xa3be @0x96
0x0a300…14d8e at00e1 = » « // 0xa409 @0xe1
0x0a300…14d8e at0131 = » « // 0xa459 @0x131
0x0a300…14d8e at0135 = Attribute {type=0x20} // 0xa45d @0x135
0x0a300…14d8e at0136 = SetBufferAddress {ic=11, line=0x06, col=0x06} // 0xa45e @0x136
0x0a300…14d8e at0139 = »INCLUDE OCL statements for procedures may contain program data « // 0xa461 @0x139
0x0a300…14d8e at0184 = » « // 0xa4ac @0x184
0x0a300…14d8e at0188 = SetBufferAddress {ic=11, line=0x07, col=0x06} // 0xa4b0 @0x188
0x0a300…14d8e at018b = »instead of parameters. « // 0xa4b3 @0x18b
0x0a300…14d8e at01d6 = » « // 0xa4fe @0x1d6
0x0a300…14d8e at01da = SetBufferAddress {ic=11, line=0x08, col=0x06} // 0xa502 @0x1da
0x0a300…14d8e at01dd = »If INCLUDE statements in the procedure created or changed during « // 0xa505 @0x1dd
0x0a300…14d8e at0228 = » « // 0xa550 @0x228
0x0a300…14d8e at022c = SetBufferAddress {ic=11, line=0x09, col=0x06} // 0xa554 @0x22c
0x0a300…14d8e at022f = »the job contain program data instead of parameters, the response must « // 0xa557 @0x22f
0x0a300…14d8e at027a = » « // 0xa5a2 @0x27a
0x0a300…14d8e at027e = SetBufferAddress {ic=11, line=0x0a, col=0x06} // 0xa5a6 @0x27e
0x0a300…14d8e at0281 = »be Y (yes). « // 0xa5a9 @0x281
0x0a300…14d8e at02cc = » « // 0xa5f4 @0x2cc
0x0a300…14d8e at02d0 = SetBufferAddress {ic=11, line=0x0b, col=0x06} // 0xa5f8 @0x2d0
0x0a300…14d8e at02d3 = »If INCLUDE statements do not contain program data, the response « // 0xa5fb @0x2d3
0x0a300…14d8e at031e = » « // 0xa646 @0x31e
0x0a300…14d8e at0322 = SetBufferAddress {ic=11, line=0x0c, col=0x06} // 0xa64a @0x322
0x0a300…14d8e at0325 = »must be N (no). The default for a new member is N. « // 0xa64d @0x325
0x0a300…14d8e at0370 = » « // 0xa698 @0x370
0x0a300…14d8e at03c0 = » « // 0xa6e8 @0x3c0
0x0a300…14d8e at03c4 = SetBufferAddress {ic=11, line=0x0e, col=0x05} // 0xa6ec @0x3c4
0x0a300…14d8e at03c7 = Attribute {type=0x22} // 0xa6ef @0x3c7
0x0a300…14d8e at03c8 = »Member name . . . . . . . . . . . . . . . . . . . . . . . . . . . . . « // 0xa6f0 @0x3c8
0x0a300…14d8e at0413 = » « // 0xa73b @0x413
0x0a300…14d8e at0463 = » « // 0xa78b @0x463
0x0a300…14d8e at0467 = Attribute {type=0x20} // 0xa78f @0x467
0x0a300…14d8e at0468 = SetBufferAddress {ic=11, line=0x10, col=0x06} // 0xa790 @0x468
0x0a300…14d8e at046b = »This is the name of the member that is currently in the work file. « // 0xa793 @0x46b
0x0a300…14d8e at04b6 = » « // 0xa7de @0x4b6
0x0a300…14d8e at0506 = » « // 0xa82e @0x506
0x0a300…14d8e at050a = SetBufferAddress {ic=11, line=0x12, col=0x05} // 0xa832 @0x50a
0x0a300…14d8e at050d = Attribute {type=0x22} // 0xa835 @0x50d
0x0a300…14d8e at050e = »Library name . . . . . . . . . . . . . . . . . . . . . . . . . . . . « // 0xa836 @0x50e
0x0a300…14d8e at0559 = » « // 0xa881 @0x559
0x0a300…14d8e at05a9 = » « // 0xa8d1 @0x5a9
0x0a300…14d8e at05ad = Attribute {type=0x20} // 0xa8d5 @0x5ad
0x0a300…14d8e at05ae = SetBufferAddress {ic=11, line=0x14, col=0x06} // 0xa8d6 @0x5ae
0x0a300…14d8e at05b1 = »This is the library into which the work file will be copied. « // 0xa8d9 @0x5b1
0x0a300…14d8e at05fc = » « // 0xa924 @0x5fc
0x0a300…14d8e at064c = » « // 0xa974 @0x64c
0x0a300…14d8e at069c = » « // 0xa9c4 @0x69c
0x0a300…14d8e at06ec = » « // 0xaa14 @0x6ec
0x0a300…14d8e at06ee = SetBufferAddress {ic=11, line=0x18, col=0x04} // 0xaa16 @0x6ee
0x0a300…14d8e at06f1 = »Enter-Exit help text Roll keys-Page help text « // 0xaa19 @0x6f1
0x0a300…14d8e }
0x0a300…14d8e }
0x0a300…14d8e }
0x0ab00…15d8a Form36 {
0x0ab00…15d8a fh000 = 0x00 // 0xab00 @0x0
0x0ab00…15d8a fh00 = 2200 // 0xab01 @0x1
0x0ab00…15d8a fh01 = »NNN« // 0xab03 @0x3
0x0ab00…15d8a fh02 = 000000 // 0xab06 @0x6
0x0ab00…15d8a fh03 = »NNN« // 0xab09 @0x9
0x0ab00…15d8a fh04 = 0x0028 // 0xab0c @0xc
0x0ab00…15d8a fh05 = 0x073a // 0xab0e @0xe
0x0ab00…15d8a fh06 = 000080011800000000000000000000000000 // 0xab10 @0x10
0x0ab00…15d8a at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0xab22 @0x22
0x0ab00…15d8a panel = { // 0xab28 @0x28
0x0ab00…15d8a ┌────────────────────────────────────────────────────────────────────────────────┐
0x0ab00…15d8a 00│ │
0x0ab00…15d8a 01│ HELP FOR END OF JOB OPTIONS │
0x0ab00…15d8a 02│ │
0x0ab00…15d8a 03│ ╳Reference number . . . . . . . . . . . . . . . . . . . . . . . . . . . │
0x0ab00…15d8a 04│ │
0x0ab00…15d8a 05│ ╳This is a number associated with this version of the member when │
0x0ab00…15d8a 06│ replaced in the library. The reference number is stored in the library │
0x0ab00…15d8a 07│ directory along with other information about the member. You can enter a │
0x0ab00…15d8a 08│ number that is meaningful for your use or allow SEU to supply a default. │
0x0ab00…15d8a 09│ │
0x0ab00…15d8a 10│ ╳Library member subtype . . . . . . . . . . . . . . . . . . . . . . . . │
0x0ab00…15d8a 11│ │
0x0ab00…15d8a 12│ ╳The library member subtype distinguishes between source member │
0x0ab00…15d8a 13│ types. The subtype is stored in the library directory along with │
0x0ab00…15d8a 14│ other information about the member. Enter the number that corresponds │
0x0ab00…15d8a 15│ to the category that your member belongs or allow SEU to supply a │
0x0ab00…15d8a 16│ default. │
0x0ab00…15d8a 17│ │
0x0ab00…15d8a 18│ │
0x0ab00…15d8a 19│ │
0x0ab00…15d8a 20│ │
0x0ab00…15d8a 21│ │
0x0ab00…15d8a 22│ │
0x0ab00…15d8a 23│ Enter-Exit help text Roll keys-Page help text │
0x0ab00…15d8a 24│ │
0x0ab00…15d8a 25│ │
0x0ab00…15d8a 26│ │
0x0ab00…15d8a 27│ │
0x0ab00…15d8a └────────────────────────────────────────────────────────────────────────────────┘
0x0ab00…15d8a Panel5250 {
0x0ab00…15d8a at0000 = ClearUnit {esc=04, cu=40} // 0xab28 @0x0
0x0ab00…15d8a at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0xab2a @0x2
0x0ab00…15d8a at0006 = SetBufferAddress {ic=11, line=0x02, col=0x1c} // 0xab2e @0x6
0x0ab00…15d8a at0009 = »HELP FOR END OF JOB OPTIONS « // 0xab31 @0x9
0x0ab00…15d8a at003e = » « // 0xab66 @0x3e
0x0ab00…15d8a at008e = » « // 0xabb6 @0x8e
0x0ab00…15d8a at0092 = SetBufferAddress {ic=11, line=0x04, col=0x05} // 0xabba @0x92
0x0ab00…15d8a at0095 = Attribute {type=0x22} // 0xabbd @0x95
0x0ab00…15d8a at0096 = »Reference number . . . . . . . . . . . . . . . . . . . . . . . . . . . « // 0xabbe @0x96
0x0ab00…15d8a at00e1 = » « // 0xac09 @0xe1
0x0ab00…15d8a at0131 = » « // 0xac59 @0x131
0x0ab00…15d8a at0135 = Attribute {type=0x20} // 0xac5d @0x135
0x0ab00…15d8a at0136 = SetBufferAddress {ic=11, line=0x06, col=0x06} // 0xac5e @0x136
0x0ab00…15d8a at0139 = »This is a number associated with this version of the member when « // 0xac61 @0x139
0x0ab00…15d8a at0184 = » « // 0xacac @0x184
0x0ab00…15d8a at0188 = SetBufferAddress {ic=11, line=0x07, col=0x06} // 0xacb0 @0x188
0x0ab00…15d8a at018b = »replaced in the library. The reference number is stored in the library « // 0xacb3 @0x18b
0x0ab00…15d8a at01d6 = » « // 0xacfe @0x1d6
0x0ab00…15d8a at01da = SetBufferAddress {ic=11, line=0x08, col=0x06} // 0xad02 @0x1da
0x0ab00…15d8a at01dd = »directory along with other information about the member. You can enter a « // 0xad05 @0x1dd
0x0ab00…15d8a at0228 = » « // 0xad50 @0x228
0x0ab00…15d8a at022c = SetBufferAddress {ic=11, line=0x09, col=0x06} // 0xad54 @0x22c
0x0ab00…15d8a at022f = »number that is meaningful for your use or allow SEU to supply a default. « // 0xad57 @0x22f
0x0ab00…15d8a at027a = » « // 0xada2 @0x27a
0x0ab00…15d8a at02ca = » « // 0xadf2 @0x2ca
0x0ab00…15d8a at02ce = SetBufferAddress {ic=11, line=0x0b, col=0x05} // 0xadf6 @0x2ce
0x0ab00…15d8a at02d1 = Attribute {type=0x22} // 0xadf9 @0x2d1
0x0ab00…15d8a at02d2 = »Library member subtype . . . . . . . . . . . . . . . . . . . . . . . . « // 0xadfa @0x2d2
0x0ab00…15d8a at031d = » « // 0xae45 @0x31d
0x0ab00…15d8a at036d = » « // 0xae95 @0x36d
0x0ab00…15d8a at0371 = Attribute {type=0x20} // 0xae99 @0x371
0x0ab00…15d8a at0372 = SetBufferAddress {ic=11, line=0x0d, col=0x06} // 0xae9a @0x372
0x0ab00…15d8a at0375 = »The library member subtype distinguishes between source member « // 0xae9d @0x375
0x0ab00…15d8a at03c0 = » « // 0xaee8 @0x3c0
0x0ab00…15d8a at03c4 = SetBufferAddress {ic=11, line=0x0e, col=0x06} // 0xaeec @0x3c4
0x0ab00…15d8a at03c7 = »types. The subtype is stored in the library directory along with « // 0xaeef @0x3c7
0x0ab00…15d8a at0412 = » « // 0xaf3a @0x412
0x0ab00…15d8a at0416 = SetBufferAddress {ic=11, line=0x0f, col=0x06} // 0xaf3e @0x416
0x0ab00…15d8a at0419 = »other information about the member. Enter the number that corresponds « // 0xaf41 @0x419
0x0ab00…15d8a at0464 = » « // 0xaf8c @0x464
0x0ab00…15d8a at0468 = SetBufferAddress {ic=11, line=0x18, col=0x04} // 0xaf90 @0x468
0x0ab00…15d8a at046b = »Enter-Exit help text Roll keys-Page help text « // 0xaf93 @0x46b
0x0ab00…15d8a at04b8 = SetBufferAddress {ic=11, line=0x10, col=0x06} // 0xafe0 @0x4b8
0x0ab00…15d8a at04bb = »to the category that your member belongs or allow SEU to supply a « // 0xafe3 @0x4bb
0x0ab00…15d8a at0506 = » « // 0xb02e @0x506
0x0ab00…15d8a at050a = SetBufferAddress {ic=11, line=0x11, col=0x06} // 0xb032 @0x50a
0x0ab00…15d8a at050d = »default. « // 0xb035 @0x50d
0x0ab00…15d8a at0558 = » « // 0xb080 @0x558
0x0ab00…15d8a at05a8 = » « // 0xb0d0 @0x5a8
0x0ab00…15d8a at05f8 = » « // 0xb120 @0x5f8
0x0ab00…15d8a at0648 = » « // 0xb170 @0x648
0x0ab00…15d8a at0698 = » « // 0xb1c0 @0x698
0x0ab00…15d8a at06e8 = » « // 0xb210 @0x6e8
0x0ab00…15d8a at0738 = » « // 0xb260 @0x738
0x0ab00…15d8a }
0x0ab00…15d8a }
0x0ab00…15d8a }
0x0b300…16d86 Form36 {
0x0b300…16d86 fh000 = 0x00 // 0xb300 @0x0
0x0b300…16d86 fh00 = 2200 // 0xb301 @0x1
0x0b300…16d86 fh01 = »NNN« // 0xb303 @0x3
0x0b300…16d86 fh02 = 000000 // 0xb306 @0x6
0x0b300…16d86 fh03 = »NNN« // 0xb309 @0x9
0x0b300…16d86 fh04 = 0x0028 // 0xb30c @0xc
0x0b300…16d86 fh05 = 0x0736 // 0xb30e @0xe
0x0b300…16d86 fh06 = 000080011800000000000000000000000000 // 0xb310 @0x10
0x0b300…16d86 at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0xb322 @0x22
0x0b300…16d86 panel = { // 0xb328 @0x28
0x0b300…16d86 ┌────────────────────────────────────────────────────────────────────────────────┐
0x0b300…16d86 00│ │
0x0b300…16d86 01│ HELP FOR END OF JOB OPTIONS │
0x0b300…16d86 02│ │
0x0b300…16d86 03│ ╳Log the procedure statements . . . . . . . . . . . . . . . . . . . Y,N │
0x0b300…16d86 04│ │
0x0b300…16d86 05│ ╳If you want the system to log the procedure statements to the │
0x0b300…16d86 06│ system history file each time the procedure is called, the response │
0x0b300…16d86 07│ must be Y (yes). If you do not want the procedure statements logged, │
0x0b300…16d86 08│ the response must be N (no). The default for a new member is Y. │
0x0b300…16d86 09│ │
0x0b300…16d86 10│ ╳Multiple requestor terminal procedure . . . . . . . . . . . . . . Y,N │
0x0b300…16d86 11│ │
0x0b300…16d86 12│ ╳If the procedure is a multiple requestor terminal procedure, the │
0x0b300…16d86 13│ response must be Y (yes). If the procedure is not a multiple requestor │
0x0b300…16d86 14│ terminal procedure, the response must be N (no). The default is N. │
0x0b300…16d86 15│ │
0x0b300…16d86 16│ │
0x0b300…16d86 17│ │
0x0b300…16d86 18│ │
0x0b300…16d86 19│ │
0x0b300…16d86 20│ │
0x0b300…16d86 21│ │
0x0b300…16d86 22│ │
0x0b300…16d86 23│ Enter-Exit help text Roll keys-Page help text │
0x0b300…16d86 24│ │
0x0b300…16d86 25│ │
0x0b300…16d86 26│ │
0x0b300…16d86 27│ │
0x0b300…16d86 └────────────────────────────────────────────────────────────────────────────────┘
0x0b300…16d86 Panel5250 {
0x0b300…16d86 at0000 = ClearUnit {esc=04, cu=40} // 0xb328 @0x0
0x0b300…16d86 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0xb32a @0x2
0x0b300…16d86 at0006 = SetBufferAddress {ic=11, line=0x02, col=0x1c} // 0xb32e @0x6
0x0b300…16d86 at0009 = »HELP FOR END OF JOB OPTIONS « // 0xb331 @0x9
0x0b300…16d86 at003e = » « // 0xb366 @0x3e
0x0b300…16d86 at008e = » « // 0xb3b6 @0x8e
0x0b300…16d86 at0092 = SetBufferAddress {ic=11, line=0x04, col=0x05} // 0xb3ba @0x92
0x0b300…16d86 at0095 = Attribute {type=0x22} // 0xb3bd @0x95
0x0b300…16d86 at0096 = »Log the procedure statements . . . . . . . . . . . . . . . . . . . Y,N « // 0xb3be @0x96
0x0b300…16d86 at00e1 = » « // 0xb409 @0xe1
0x0b300…16d86 at0131 = » « // 0xb459 @0x131
0x0b300…16d86 at0135 = Attribute {type=0x20} // 0xb45d @0x135
0x0b300…16d86 at0136 = SetBufferAddress {ic=11, line=0x06, col=0x06} // 0xb45e @0x136
0x0b300…16d86 at0139 = »If you want the system to log the procedure statements to the « // 0xb461 @0x139
0x0b300…16d86 at0184 = » « // 0xb4ac @0x184
0x0b300…16d86 at0188 = SetBufferAddress {ic=11, line=0x07, col=0x06} // 0xb4b0 @0x188
0x0b300…16d86 at018b = »system history file each time the procedure is called, the response « // 0xb4b3 @0x18b
0x0b300…16d86 at01d6 = » « // 0xb4fe @0x1d6
0x0b300…16d86 at01da = SetBufferAddress {ic=11, line=0x08, col=0x06} // 0xb502 @0x1da
0x0b300…16d86 at01dd = »must be Y (yes). If you do not want the procedure statements logged, « // 0xb505 @0x1dd
0x0b300…16d86 at0228 = » « // 0xb550 @0x228
0x0b300…16d86 at022c = SetBufferAddress {ic=11, line=0x09, col=0x06} // 0xb554 @0x22c
0x0b300…16d86 at022f = »the response must be N (no). The default for a new member is Y. « // 0xb557 @0x22f
0x0b300…16d86 at027a = » « // 0xb5a2 @0x27a
0x0b300…16d86 at02ca = » « // 0xb5f2 @0x2ca
0x0b300…16d86 at02ce = SetBufferAddress {ic=11, line=0x0b, col=0x05} // 0xb5f6 @0x2ce
0x0b300…16d86 at02d1 = Attribute {type=0x22} // 0xb5f9 @0x2d1
0x0b300…16d86 at02d2 = »Multiple requestor terminal procedure . . . . . . . . . . . . . . Y,N « // 0xb5fa @0x2d2
0x0b300…16d86 at031d = » « // 0xb645 @0x31d
0x0b300…16d86 at036d = » « // 0xb695 @0x36d
0x0b300…16d86 at0371 = Attribute {type=0x20} // 0xb699 @0x371
0x0b300…16d86 at0372 = SetBufferAddress {ic=11, line=0x0d, col=0x06} // 0xb69a @0x372
0x0b300…16d86 at0375 = »If the procedure is a multiple requestor terminal procedure, the « // 0xb69d @0x375
0x0b300…16d86 at03c0 = » « // 0xb6e8 @0x3c0
0x0b300…16d86 at03c4 = SetBufferAddress {ic=11, line=0x0e, col=0x06} // 0xb6ec @0x3c4
0x0b300…16d86 at03c7 = »response must be Y (yes). If the procedure is not a multiple requestor « // 0xb6ef @0x3c7
0x0b300…16d86 at0412 = » « // 0xb73a @0x412
0x0b300…16d86 at0416 = SetBufferAddress {ic=11, line=0x0f, col=0x06} // 0xb73e @0x416
0x0b300…16d86 at0419 = »terminal procedure, the response must be N (no). The default is N. « // 0xb741 @0x419
0x0b300…16d86 at0464 = » « // 0xb78c @0x464
0x0b300…16d86 at04b4 = » « // 0xb7dc @0x4b4
0x0b300…16d86 at0504 = » « // 0xb82c @0x504
0x0b300…16d86 at0554 = » « // 0xb87c @0x554
0x0b300…16d86 at05a4 = » « // 0xb8cc @0x5a4
0x0b300…16d86 at05f4 = » « // 0xb91c @0x5f4
0x0b300…16d86 at0644 = » « // 0xb96c @0x644
0x0b300…16d86 at0694 = » « // 0xb9bc @0x694
0x0b300…16d86 at06e4 = » « // 0xba0c @0x6e4
0x0b300…16d86 at06e6 = SetBufferAddress {ic=11, line=0x18, col=0x04} // 0xba0e @0x6e6
0x0b300…16d86 at06e9 = »Enter-Exit help text Roll keys-Page help text « // 0xba11 @0x6e9
0x0b300…16d86 }
0x0b300…16d86 }
0x0b300…16d86 }
0x0bb00…17daf Form36 {
0x0bb00…17daf fh000 = 0x01 // 0xbb00 @0x0
0x0bb00…17daf fh00 = 2600 // 0xbb01 @0x1
0x0bb00…17daf fh01 = »NNN« // 0xbb03 @0x3
0x0bb00…17daf fh02 = 000000 // 0xbb06 @0x6
0x0bb00…17daf fh03 = »NNN« // 0xbb09 @0x9
0x0bb00…17daf fh04 = 0x0030 // 0xbb0c @0xc
0x0bb00…17daf fh05 = 0x074f // 0xbb0e @0xe
0x0bb00…17daf fh06 = 000080011800000000000000000000000000 // 0xbb10 @0x10
0x0bb00…17daf at0022 = 0xffef80ff // 0xbb22 @0x22
0x0bb00…17daf at0026 = Form36LV {f00=0xfe, f01=0x0a, f88=00000000000000, f89=09} // 0xbb26 @0x26
0x0bb00…17daf panel = { // 0xbb30 @0x30
0x0bb00…17daf ┌────────────────────────────────────────────────────────────────────────────────┐
0x0bb00…17daf 00│ SEU Command Function Keys │
0x0bb00…17daf 01│ │
0x0bb00…17daf 02│ With this command key You can │
0x0bb00…17daf 03│ │
0x0bb00…17daf 04│ 1 - AUTOSKIP Turn autoskip on or off. │
0x0bb00…17daf 05│ 2 - SCAN/REPLACE Search/replace character strings. │
0x0bb00…17daf 06│ 3 - SELECT DISPLAY Select the display you want to use. │
0x0bb00…17daf 07│ 4 - DELETE Remove statements from a member. │
0x0bb00…17daf 08│ 5 - ENTER/UPDATE Add or change statements. │
0x0bb00…17daf 09│ 6 - PRINT Turn the print option on or off. │
0x0bb00…17daf 10│ 7 - END OF JOB End the SEU job. │
0x0bb00…17daf 11│ 8 - SYNTAX Turn syntax checking on or off. │
0x0bb00…17daf 12│ 9 - SEARCH END OF SOURCE Display the last statement in the member. │
0x0bb00…17daf 13│ 10 - COPY/MOVE Copy or move statements within a member. │
0x0bb00…17daf 14│ 11 - INCLUDE Copy statements from another member. │
0x0bb00…17daf 15│ 13 - COMMAND KEY DISPLAY Display a description of the command keys. │
0x0bb00…17daf 16│ 14 - SCAN TO UPDATE Change statements during a scan. │
0x0bb00…17daf 17│ 15 - CHANGE ROLL FACTOR Change the roll factor (1-99). │
0x0bb00…17daf 18│ 16 - LINES PER STATEMENT Change the number of lines per statement. │
0x0bb00…17daf 19│ 17 - TRANSLATE Translate a message member (type must be T). │
0x0bb00…17daf 20│ │
0x0bb00…17daf 21│ │
0x0bb00…17daf 22│ │
0x0bb00…17daf 23│ Enter-Exit help text Roll keys-Page help text │
0x0bb00…17daf 24│ │
0x0bb00…17daf 25│ │
0x0bb00…17daf 26│ │
0x0bb00…17daf 27│ │
0x0bb00…17daf └────────────────────────────────────────────────────────────────────────────────┘
0x0bb00…17daf Panel5250 {
0x0bb00…17daf at0000 = ClearUnit {esc=04, cu=40} // 0xbb30 @0x0
0x0bb00…17daf at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0xbb32 @0x2
0x0bb00…17daf at0006 = SetBufferAddress {ic=11, line=0x01, col=0x02} // 0xbb36 @0x6
0x0bb00…17daf at0009 = » SEU Command Function Keys « // 0xbb39 @0x9
0x0bb00…17daf at0058 = SetBufferAddress {ic=11, line=0x03, col=0x01} // 0xbb88 @0x58
0x0bb00…17daf at005b = » With this command key You can « // 0xbb8b @0x5b
0x0bb00…17daf at00aa = SetBufferAddress {ic=11, line=0x04, col=0x02} // 0xbbda @0xaa
0x0bb00…17daf at00ad = » « // 0xbbdd @0xad
0x0bb00…17daf at00fb = SetBufferAddress {ic=11, line=0x05, col=0x01} // 0xbc2b @0xfb
0x0bb00…17daf at00fe = » 1 - AUTOSKIP Turn autoskip on or off. « // 0xbc2e @0xfe
0x0bb00…17daf at014d = SetBufferAddress {ic=11, line=0x06, col=0x01} // 0xbc7d @0x14d
0x0bb00…17daf at0150 = » 2 - SCAN/REPLACE Search/replace character strings. « // 0xbc80 @0x150
0x0bb00…17daf at019f = SetBufferAddress {ic=11, line=0x07, col=0x01} // 0xbccf @0x19f
0x0bb00…17daf at01a2 = » 3 - SELECT DISPLAY Select the display you want to use. « // 0xbcd2 @0x1a2
0x0bb00…17daf at01f1 = SetBufferAddress {ic=11, line=0x08, col=0x01} // 0xbd21 @0x1f1
0x0bb00…17daf at01f4 = » 4 - DELETE Remove statements from a member. « // 0xbd24 @0x1f4
0x0bb00…17daf at0243 = SetBufferAddress {ic=11, line=0x09, col=0x01} // 0xbd73 @0x243
0x0bb00…17daf at0246 = » 5 - ENTER/UPDATE Add or change statements. « // 0xbd76 @0x246
0x0bb00…17daf at0295 = SetBufferAddress {ic=11, line=0x0a, col=0x01} // 0xbdc5 @0x295
0x0bb00…17daf at0298 = » 6 - PRINT Turn the print option on or off. « // 0xbdc8 @0x298
0x0bb00…17daf at02e7 = SetBufferAddress {ic=11, line=0x0b, col=0x01} // 0xbe17 @0x2e7
0x0bb00…17daf at02ea = » 7 - END OF JOB End the SEU job. « // 0xbe1a @0x2ea
0x0bb00…17daf at0339 = SetBufferAddress {ic=11, line=0x0c, col=0x01} // 0xbe69 @0x339
0x0bb00…17daf at033c = » 8 - SYNTAX Turn syntax checking on or off. « // 0xbe6c @0x33c
0x0bb00…17daf at038b = SetBufferAddress {ic=11, line=0x0d, col=0x01} // 0xbebb @0x38b
0x0bb00…17daf at038e = » 9 - SEARCH END OF SOURCE Display the last statement in the member. « // 0xbebe @0x38e
0x0bb00…17daf at03dd = SetBufferAddress {ic=11, line=0x0e, col=0x01} // 0xbf0d @0x3dd
0x0bb00…17daf at03e0 = » 10 - COPY/MOVE Copy or move statements within a member. « // 0xbf10 @0x3e0
0x0bb00…17daf at042f = SetBufferAddress {ic=11, line=0x0f, col=0x01} // 0xbf5f @0x42f
0x0bb00…17daf at0432 = » 11 - INCLUDE Copy statements from another member. « // 0xbf62 @0x432
0x0bb00…17daf at0481 = SetBufferAddress {ic=11, line=0x10, col=0x01} // 0xbfb1 @0x481
0x0bb00…17daf at0484 = » 13 - COMMAND KEY DISPLAY Display a description of the command keys. « // 0xbfb4 @0x484
0x0bb00…17daf at04d3 = SetBufferAddress {ic=11, line=0x11, col=0x01} // 0xc003 @0x4d3
0x0bb00…17daf at04d6 = » 14 - SCAN TO UPDATE Change statements during a scan. « // 0xc006 @0x4d6
0x0bb00…17daf at0525 = SetBufferAddress {ic=11, line=0x12, col=0x01} // 0xc055 @0x525
0x0bb00…17daf at0528 = » 15 - CHANGE ROLL FACTOR Change the roll factor (1-99). « // 0xc058 @0x528
0x0bb00…17daf at0577 = SetBufferAddress {ic=11, line=0x13, col=0x01} // 0xc0a7 @0x577
0x0bb00…17daf at057a = » 16 - LINES PER STATEMENT Change the number of lines per statement. « // 0xc0aa @0x57a
0x0bb00…17daf at05c9 = SetBufferAddress {ic=11, line=0x14, col=0x01} // 0xc0f9 @0x5c9
0x0bb00…17daf at05cc = » 17 - TRANSLATE Translate a message member (type must be T). « // 0xc0fc @0x5cc
0x0bb00…17daf at061b = SetBufferAddress {ic=11, line=0x15, col=0x02} // 0xc14b @0x61b
0x0bb00…17daf at061e = » « // 0xc14e @0x61e
0x0bb00…17daf at066d = » « // 0xc19d @0x66d
0x0bb00…17daf at06bd = » « // 0xc1ed @0x6bd
0x0bb00…17daf at070d = » « // 0xc23d @0x70d
0x0bb00…17daf at070f = SetBufferAddress {ic=11, line=0x18, col=0x04} // 0xc23f @0x70f
0x0bb00…17daf at0712 = »Enter-Exit help text Roll keys-Page help text « // 0xc242 @0x712
0x0bb00…17daf }
0x0bb00…17daf }
0x0bb00…17daf }
0x0c300…18e13 Form36 {
0x0c300…18e13 fh000 = 0x01 // 0xc300 @0x0
0x0c300…18e13 fh00 = 2600 // 0xc301 @0x1
0x0c300…18e13 fh01 = »NNN« // 0xc303 @0x3
0x0c300…18e13 fh02 = 000000 // 0xc306 @0x6
0x0c300…18e13 fh03 = »NNN« // 0xc309 @0x9
0x0c300…18e13 fh04 = 0x0030 // 0xc30c @0xc
0x0c300…18e13 fh05 = 0x07b3 // 0xc30e @0xe
0x0c300…18e13 fh06 = 000080011800000000000000000000000000 // 0xc310 @0x10
0x0c300…18e13 at0022 = 0xfffc80ff // 0xc322 @0x22
0x0c300…18e13 at0026 = Form36LV {f00=0xfe, f01=0x0a, f88=00000000000000, f89=09} // 0xc326 @0x26
0x0c300…18e13 panel = { // 0xc330 @0x30
0x0c300…18e13 ┌────────────────────────────────────────────────────────────────────────────────┐
0x0c300…18e13 00│ SEU Command Function Keys │
0x0c300…18e13 01│ │
0x0c300…18e13 02│ With this command key You can │
0x0c300…18e13 03│ │
0x0c300…18e13 04│ 1 - AUTOSKIP Turn autoskip on or off. │
0x0c300…18e13 05│ 2 - SCAN/REPLACE Search/replace character strings. │
0x0c300…18e13 06│ 3 - SELECT DISPLAY Select the display you want to use. │
0x0c300…18e13 07│ 4 - DELETE Remove statements from a member. │
0x0c300…18e13 08│ 5 - ENTER/UPDATE Add or change statements. │
0x0c300…18e13 09│ 6 - PRINT Turn the print option on or off. │
0x0c300…18e13 10│ 7 - END OF JOB End the SEU job. │
0x0c300…18e13 11│ 8 - SYNTAX Turn syntax checking on or off. │
0x0c300…18e13 12│ 9 - SEARCH END OF SOURCE Display the last statement in the member. │
0x0c300…18e13 13│ 10 - COPY/MOVE Copy or move statements within a member. │
0x0c300…18e13 14│ 11 - INCLUDE Copy statements from another member. │
0x0c300…18e13 15│* 12 - ACCEPT WITH ERROR Accept a statement with an RPG II error. │
0x0c300…18e13 16│ 13 - COMMAND KEY DISPLAY Display a description of the command keys. │
0x0c300…18e13 17│ 14 - SCAN TO UPDATE Change statements during a scan. │
0x0c300…18e13 18│ 17 - TRANSLATE Translate a message member (type must be T). │
0x0c300…18e13 19│ │
0x0c300…18e13 20│ * Allowed only if syntax checking is on and an error exists in │
0x0c300…18e13 21│ an RPG II or Auto Report statement. │
0x0c300…18e13 22│ │
0x0c300…18e13 23│ Enter-Exit help text Roll keys-Page help text │
0x0c300…18e13 24│ │
0x0c300…18e13 25│ │
0x0c300…18e13 26│ │
0x0c300…18e13 27│ │
0x0c300…18e13 └────────────────────────────────────────────────────────────────────────────────┘
0x0c300…18e13 Panel5250 {
0x0c300…18e13 at0000 = ClearUnit {esc=04, cu=40} // 0xc330 @0x0
0x0c300…18e13 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0xc332 @0x2
0x0c300…18e13 at0006 = SetBufferAddress {ic=11, line=0x01, col=0x02} // 0xc336 @0x6
0x0c300…18e13 at0009 = » SEU Command Function Keys « // 0xc339 @0x9
0x0c300…18e13 at0058 = SetBufferAddress {ic=11, line=0x02, col=0x02} // 0xc388 @0x58
0x0c300…18e13 at005b = » « // 0xc38b @0x5b
0x0c300…18e13 at00a9 = SetBufferAddress {ic=11, line=0x03, col=0x01} // 0xc3d9 @0xa9
0x0c300…18e13 at00ac = » With this command key You can « // 0xc3dc @0xac
0x0c300…18e13 at00fb = SetBufferAddress {ic=11, line=0x04, col=0x02} // 0xc42b @0xfb
0x0c300…18e13 at00fe = » « // 0xc42e @0xfe
0x0c300…18e13 at014c = SetBufferAddress {ic=11, line=0x05, col=0x01} // 0xc47c @0x14c
0x0c300…18e13 at014f = » 1 - AUTOSKIP Turn autoskip on or off. « // 0xc47f @0x14f
0x0c300…18e13 at019e = SetBufferAddress {ic=11, line=0x06, col=0x01} // 0xc4ce @0x19e
0x0c300…18e13 at01a1 = » 2 - SCAN/REPLACE Search/replace character strings. « // 0xc4d1 @0x1a1
0x0c300…18e13 at01f0 = SetBufferAddress {ic=11, line=0x07, col=0x01} // 0xc520 @0x1f0
0x0c300…18e13 at01f3 = » 3 - SELECT DISPLAY Select the display you want to use. « // 0xc523 @0x1f3
0x0c300…18e13 at0242 = SetBufferAddress {ic=11, line=0x08, col=0x01} // 0xc572 @0x242
0x0c300…18e13 at0245 = » 4 - DELETE Remove statements from a member. « // 0xc575 @0x245
0x0c300…18e13 at0294 = SetBufferAddress {ic=11, line=0x09, col=0x01} // 0xc5c4 @0x294
0x0c300…18e13 at0297 = » 5 - ENTER/UPDATE Add or change statements. « // 0xc5c7 @0x297
0x0c300…18e13 at02e6 = SetBufferAddress {ic=11, line=0x0a, col=0x01} // 0xc616 @0x2e6
0x0c300…18e13 at02e9 = » 6 - PRINT Turn the print option on or off. « // 0xc619 @0x2e9
0x0c300…18e13 at0338 = SetBufferAddress {ic=11, line=0x0b, col=0x01} // 0xc668 @0x338
0x0c300…18e13 at033b = » 7 - END OF JOB End the SEU job. « // 0xc66b @0x33b
0x0c300…18e13 at038a = SetBufferAddress {ic=11, line=0x0c, col=0x01} // 0xc6ba @0x38a
0x0c300…18e13 at038d = » 8 - SYNTAX Turn syntax checking on or off. « // 0xc6bd @0x38d
0x0c300…18e13 at03dc = SetBufferAddress {ic=11, line=0x0d, col=0x01} // 0xc70c @0x3dc
0x0c300…18e13 at03df = » 9 - SEARCH END OF SOURCE Display the last statement in the member. « // 0xc70f @0x3df
0x0c300…18e13 at042e = SetBufferAddress {ic=11, line=0x0e, col=0x01} // 0xc75e @0x42e
0x0c300…18e13 at0431 = » 10 - COPY/MOVE Copy or move statements within a member. « // 0xc761 @0x431
0x0c300…18e13 at0480 = SetBufferAddress {ic=11, line=0x0f, col=0x01} // 0xc7b0 @0x480
0x0c300…18e13 at0483 = » 11 - INCLUDE Copy statements from another member. « // 0xc7b3 @0x483
0x0c300…18e13 at04d2 = SetBufferAddress {ic=11, line=0x10, col=0x01} // 0xc802 @0x4d2
0x0c300…18e13 at04d5 = »* 12 - ACCEPT WITH ERROR Accept a statement with an RPG II error. « // 0xc805 @0x4d5
0x0c300…18e13 at0524 = SetBufferAddress {ic=11, line=0x11, col=0x01} // 0xc854 @0x524
0x0c300…18e13 at0527 = » 13 - COMMAND KEY DISPLAY Display a description of the command keys. « // 0xc857 @0x527
0x0c300…18e13 at0576 = SetBufferAddress {ic=11, line=0x12, col=0x01} // 0xc8a6 @0x576
0x0c300…18e13 at0579 = » 14 - SCAN TO UPDATE Change statements during a scan. « // 0xc8a9 @0x579
0x0c300…18e13 at05c8 = SetBufferAddress {ic=11, line=0x13, col=0x01} // 0xc8f8 @0x5c8
0x0c300…18e13 at05cb = » 17 - TRANSLATE Translate a message member (type must be T). « // 0xc8fb @0x5cb
0x0c300…18e13 at061a = SetBufferAddress {ic=11, line=0x14, col=0x02} // 0xc94a @0x61a
0x0c300…18e13 at061d = » « // 0xc94d @0x61d
0x0c300…18e13 at066b = SetBufferAddress {ic=11, line=0x15, col=0x01} // 0xc99b @0x66b
0x0c300…18e13 at066e = » * Allowed only if syntax checking is on and an error exists in « // 0xc99e @0x66e
0x0c300…18e13 at06bd = SetBufferAddress {ic=11, line=0x16, col=0x01} // 0xc9ed @0x6bd
0x0c300…18e13 at06c0 = » an RPG II or Auto Report statement. « // 0xc9f0 @0x6c0
0x0c300…18e13 at070f = SetBufferAddress {ic=11, line=0x17, col=0x02} // 0xca3f @0x70f
0x0c300…18e13 at0712 = » « // 0xca42 @0x712
0x0c300…18e13 at0761 = » « // 0xca91 @0x761
0x0c300…18e13 at0763 = SetBufferAddress {ic=11, line=0x18, col=0x04} // 0xca93 @0x763
0x0c300…18e13 at0766 = »Enter-Exit help text Roll keys-Page help text « // 0xca96 @0x766
0x0c300…18e13 }
0x0c300…18e13 }
0x0c300…18e13 }
0x0cb00…19e07 Form36 {
0x0cb00…19e07 fh000 = 0x01 // 0xcb00 @0x0
0x0cb00…19e07 fh00 = 2600 // 0xcb01 @0x1
0x0cb00…19e07 fh01 = »NNN« // 0xcb03 @0x3
0x0cb00…19e07 fh02 = 000000 // 0xcb06 @0x6
0x0cb00…19e07 fh03 = »NNN« // 0xcb09 @0x9
0x0cb00…19e07 fh04 = 0x0030 // 0xcb0c @0xc
0x0cb00…19e07 fh05 = 0x07a7 // 0xcb0e @0xe
0x0cb00…19e07 fh06 = 000080011800000000000000000000000000 // 0xcb10 @0x10
0x0cb00…19e07 at0022 = 0xaf3800ff // 0xcb22 @0x22
0x0cb00…19e07 at0026 = Form36LV {f00=0xfe, f01=0x0a, f88=00000000000000, f89=09} // 0xcb26 @0x26
0x0cb00…19e07 panel = { // 0xcb30 @0x30
0x0cb00…19e07 ┌────────────────────────────────────────────────────────────────────────────────┐
0x0cb00…19e07 00│ SEU Command Function Keys │
0x0cb00…19e07 01│ │
0x0cb00…19e07 02│ With this command key You can │
0x0cb00…19e07 03│ │
0x0cb00…19e07 04│ 1 - AUTOSKIP Turn autoskip on or off. │
0x0cb00…19e07 05│ 3 - SELECT DISPLAY Select the display you want to use. │
0x0cb00…19e07 06│ 5 - ENTER/UPDATE Add or change statements. │
0x0cb00…19e07 07│ 6 - PRINT Turn the print option on or off. │
0x0cb00…19e07 08│ 7 - END OF JOB End the SEU job. │
0x0cb00…19e07 09│ 8 - SYNTAX Turn syntax checking on or off. │
0x0cb00…19e07 10│ 11 - INCLUDE Copy statements from another member. │
0x0cb00…19e07 11│* 12 - ACCEPT WITH ERROR Accept a statement with an RPG II error. │
0x0cb00…19e07 12│ 13 - COMMAND KEY DISPLAY Display a description of the command keys. │
0x0cb00…19e07 13│ │
0x0cb00…19e07 14│ │
0x0cb00…19e07 15│ * Allowed only if syntax checking is on and an error exists in │
0x0cb00…19e07 16│ an RPG II or Auto Report statement. │
0x0cb00…19e07 17│ │
0x0cb00…19e07 18│ │
0x0cb00…19e07 19│ │
0x0cb00…19e07 20│ │
0x0cb00…19e07 21│ │
0x0cb00…19e07 22│ │
0x0cb00…19e07 23│ Enter-Exit help text Roll keys-Page help text │
0x0cb00…19e07 24│ │
0x0cb00…19e07 25│ │
0x0cb00…19e07 26│ │
0x0cb00…19e07 27│ │
0x0cb00…19e07 └────────────────────────────────────────────────────────────────────────────────┘
0x0cb00…19e07 Panel5250 {
0x0cb00…19e07 at0000 = ClearUnit {esc=04, cu=40} // 0xcb30 @0x0
0x0cb00…19e07 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0xcb32 @0x2
0x0cb00…19e07 at0006 = SetBufferAddress {ic=11, line=0x01, col=0x02} // 0xcb36 @0x6
0x0cb00…19e07 at0009 = » SEU Command Function Keys « // 0xcb39 @0x9
0x0cb00…19e07 at0058 = SetBufferAddress {ic=11, line=0x02, col=0x02} // 0xcb88 @0x58
0x0cb00…19e07 at005b = » « // 0xcb8b @0x5b
0x0cb00…19e07 at00a9 = SetBufferAddress {ic=11, line=0x03, col=0x01} // 0xcbd9 @0xa9
0x0cb00…19e07 at00ac = » With this command key You can « // 0xcbdc @0xac
0x0cb00…19e07 at00fb = SetBufferAddress {ic=11, line=0x04, col=0x02} // 0xcc2b @0xfb
0x0cb00…19e07 at00fe = » « // 0xcc2e @0xfe
0x0cb00…19e07 at014c = SetBufferAddress {ic=11, line=0x05, col=0x01} // 0xcc7c @0x14c
0x0cb00…19e07 at014f = » 1 - AUTOSKIP Turn autoskip on or off. « // 0xcc7f @0x14f
0x0cb00…19e07 at019e = SetBufferAddress {ic=11, line=0x06, col=0x01} // 0xccce @0x19e
0x0cb00…19e07 at01a1 = » 3 - SELECT DISPLAY Select the display you want to use. « // 0xccd1 @0x1a1
0x0cb00…19e07 at01f0 = SetBufferAddress {ic=11, line=0x07, col=0x01} // 0xcd20 @0x1f0
0x0cb00…19e07 at01f3 = » 5 - ENTER/UPDATE Add or change statements. « // 0xcd23 @0x1f3
0x0cb00…19e07 at0242 = SetBufferAddress {ic=11, line=0x08, col=0x01} // 0xcd72 @0x242
0x0cb00…19e07 at0245 = » 6 - PRINT Turn the print option on or off. « // 0xcd75 @0x245
0x0cb00…19e07 at0294 = SetBufferAddress {ic=11, line=0x09, col=0x01} // 0xcdc4 @0x294
0x0cb00…19e07 at0297 = » 7 - END OF JOB End the SEU job. « // 0xcdc7 @0x297
0x0cb00…19e07 at02e6 = SetBufferAddress {ic=11, line=0x0a, col=0x01} // 0xce16 @0x2e6
0x0cb00…19e07 at02e9 = » 8 - SYNTAX Turn syntax checking on or off. « // 0xce19 @0x2e9
0x0cb00…19e07 at0338 = SetBufferAddress {ic=11, line=0x0b, col=0x01} // 0xce68 @0x338
0x0cb00…19e07 at033b = » 11 - INCLUDE Copy statements from another member. « // 0xce6b @0x33b
0x0cb00…19e07 at038a = SetBufferAddress {ic=11, line=0x0c, col=0x01} // 0xceba @0x38a
0x0cb00…19e07 at038d = »* 12 - ACCEPT WITH ERROR Accept a statement with an RPG II error. « // 0xcebd @0x38d
0x0cb00…19e07 at03dc = SetBufferAddress {ic=11, line=0x0d, col=0x01} // 0xcf0c @0x3dc
0x0cb00…19e07 at03df = » 13 - COMMAND KEY DISPLAY Display a description of the command keys. « // 0xcf0f @0x3df
0x0cb00…19e07 at042e = SetBufferAddress {ic=11, line=0x0e, col=0x02} // 0xcf5e @0x42e
0x0cb00…19e07 at0431 = » « // 0xcf61 @0x431
0x0cb00…19e07 at0480 = » « // 0xcfb0 @0x480
0x0cb00…19e07 at04cf = SetBufferAddress {ic=11, line=0x10, col=0x01} // 0xcfff @0x4cf
0x0cb00…19e07 at04d2 = » * Allowed only if syntax checking is on and an error exists in « // 0xd002 @0x4d2
0x0cb00…19e07 at0521 = SetBufferAddress {ic=11, line=0x11, col=0x01} // 0xd051 @0x521
0x0cb00…19e07 at0524 = » an RPG II or Auto Report statement. « // 0xd054 @0x524
0x0cb00…19e07 at0573 = SetBufferAddress {ic=11, line=0x12, col=0x02} // 0xd0a3 @0x573
0x0cb00…19e07 at0576 = » « // 0xd0a6 @0x576
0x0cb00…19e07 at05c5 = » « // 0xd0f5 @0x5c5
0x0cb00…19e07 at0615 = » « // 0xd145 @0x615
0x0cb00…19e07 at0665 = » « // 0xd195 @0x665
0x0cb00…19e07 at06b5 = » « // 0xd1e5 @0x6b5
0x0cb00…19e07 at0705 = » « // 0xd235 @0x705
0x0cb00…19e07 at0755 = » « // 0xd285 @0x755
0x0cb00…19e07 at0758 = SetBufferAddress {ic=11, line=0x18, col=0x05} // 0xd288 @0x758
0x0cb00…19e07 at075b = »Enter-Exit help text Roll keys-Page help text « // 0xd28b @0x75b
0x0cb00…19e07 }
0x0cb00…19e07 }
0x0cb00…19e07 }
0x0d300…1adf9 Form36 {
0x0d300…1adf9 fh000 = 0x01 // 0xd300 @0x0
0x0d300…1adf9 fh00 = 2600 // 0xd301 @0x1
0x0d300…1adf9 fh01 = »NNN« // 0xd303 @0x3
0x0d300…1adf9 fh02 = 000000 // 0xd306 @0x6
0x0d300…1adf9 fh03 = »NNN« // 0xd309 @0x9
0x0d300…1adf9 fh04 = 0x0030 // 0xd30c @0xc
0x0d300…1adf9 fh05 = 0x0799 // 0xd30e @0xe
0x0d300…1adf9 fh06 = 000080011800000000000000000000000000 // 0xd310 @0x10
0x0d300…1adf9 at0022 = 0x5eeb80ff // 0xd322 @0x22
0x0d300…1adf9 at0026 = Form36LV {f00=0xfe, f01=0x0a, f88=00000000000000, f89=09} // 0xd326 @0x26
0x0d300…1adf9 panel = { // 0xd330 @0x30
0x0d300…1adf9 ┌────────────────────────────────────────────────────────────────────────────────┐
0x0d300…1adf9 00│ SEU Command Function Keys │
0x0d300…1adf9 01│ │
0x0d300…1adf9 02│ With this command key You can │
0x0d300…1adf9 03│ │
0x0d300…1adf9 04│ 2 - SCAN/REPLACE Search/replace character strings. │
0x0d300…1adf9 05│ 4 - DELETE Remove statements from a member. │
0x0d300…1adf9 06│ 5 - ENTER/UPDATE Add or change statements. │
0x0d300…1adf9 07│ 6 - PRINT Turn the print option on or off. │
0x0d300…1adf9 08│ 7 - END OF JOB End the SEU job. │
0x0d300…1adf9 09│ 9 - SEARCH END OF SOURCE Display the last statement in the member. │
0x0d300…1adf9 10│ 10 - COPY/MOVE Copy or move statements within a member. │
0x0d300…1adf9 11│ 11 - INCLUDE Copy statements from another member. │
0x0d300…1adf9 12│ 13 - COMMAND KEY DISPLAY Display a description of the command keys. │
0x0d300…1adf9 13│ 15 - CHANGE ROLL FACTOR Change the roll factor (1-99). │
0x0d300…1adf9 14│ 16 - LINES PER STATEMENT Change the number of lines per statement. │
0x0d300…1adf9 15│ 17 - TRANSLATE Translate a message member (type must be T). │
0x0d300…1adf9 16│ │
0x0d300…1adf9 17│ │
0x0d300…1adf9 18│ │
0x0d300…1adf9 19│ │
0x0d300…1adf9 20│ │
0x0d300…1adf9 21│ │
0x0d300…1adf9 22│ │
0x0d300…1adf9 23│ Enter-Exit help text Roll keys-Page help text │
0x0d300…1adf9 24│ │
0x0d300…1adf9 25│ │
0x0d300…1adf9 26│ │
0x0d300…1adf9 27│ │
0x0d300…1adf9 └────────────────────────────────────────────────────────────────────────────────┘
0x0d300…1adf9 Panel5250 {
0x0d300…1adf9 at0000 = ClearUnit {esc=04, cu=40} // 0xd330 @0x0
0x0d300…1adf9 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0xd332 @0x2
0x0d300…1adf9 at0006 = SetBufferAddress {ic=11, line=0x01, col=0x02} // 0xd336 @0x6
0x0d300…1adf9 at0009 = » SEU Command Function Keys « // 0xd339 @0x9
0x0d300…1adf9 at0058 = SetBufferAddress {ic=11, line=0x02, col=0x02} // 0xd388 @0x58
0x0d300…1adf9 at005b = » « // 0xd38b @0x5b
0x0d300…1adf9 at00a9 = SetBufferAddress {ic=11, line=0x03, col=0x01} // 0xd3d9 @0xa9
0x0d300…1adf9 at00ac = » With this command key You can « // 0xd3dc @0xac
0x0d300…1adf9 at00fb = SetBufferAddress {ic=11, line=0x04, col=0x02} // 0xd42b @0xfb
0x0d300…1adf9 at00fe = » « // 0xd42e @0xfe
0x0d300…1adf9 at014c = SetBufferAddress {ic=11, line=0x05, col=0x01} // 0xd47c @0x14c
0x0d300…1adf9 at014f = » 2 - SCAN/REPLACE Search/replace character strings. « // 0xd47f @0x14f
0x0d300…1adf9 at019e = SetBufferAddress {ic=11, line=0x06, col=0x01} // 0xd4ce @0x19e
0x0d300…1adf9 at01a1 = » 4 - DELETE Remove statements from a member. « // 0xd4d1 @0x1a1
0x0d300…1adf9 at01f0 = SetBufferAddress {ic=11, line=0x07, col=0x01} // 0xd520 @0x1f0
0x0d300…1adf9 at01f3 = » 5 - ENTER/UPDATE Add or change statements. « // 0xd523 @0x1f3
0x0d300…1adf9 at0242 = SetBufferAddress {ic=11, line=0x08, col=0x01} // 0xd572 @0x242
0x0d300…1adf9 at0245 = » 6 - PRINT Turn the print option on or off. « // 0xd575 @0x245
0x0d300…1adf9 at0294 = SetBufferAddress {ic=11, line=0x09, col=0x01} // 0xd5c4 @0x294
0x0d300…1adf9 at0297 = » 7 - END OF JOB End the SEU job. « // 0xd5c7 @0x297
0x0d300…1adf9 at02e6 = SetBufferAddress {ic=11, line=0x0a, col=0x01} // 0xd616 @0x2e6
0x0d300…1adf9 at02e9 = » 9 - SEARCH END OF SOURCE Display the last statement in the member. « // 0xd619 @0x2e9
0x0d300…1adf9 at0338 = SetBufferAddress {ic=11, line=0x0b, col=0x01} // 0xd668 @0x338
0x0d300…1adf9 at033b = » 10 - COPY/MOVE Copy or move statements within a member. « // 0xd66b @0x33b
0x0d300…1adf9 at038a = SetBufferAddress {ic=11, line=0x0c, col=0x01} // 0xd6ba @0x38a
0x0d300…1adf9 at038d = » 11 - INCLUDE Copy statements from another member. « // 0xd6bd @0x38d
0x0d300…1adf9 at03dc = SetBufferAddress {ic=11, line=0x0d, col=0x01} // 0xd70c @0x3dc
0x0d300…1adf9 at03df = » 13 - COMMAND KEY DISPLAY Display a description of the command keys. « // 0xd70f @0x3df
0x0d300…1adf9 at042e = SetBufferAddress {ic=11, line=0x0e, col=0x01} // 0xd75e @0x42e
0x0d300…1adf9 at0431 = » 15 - CHANGE ROLL FACTOR Change the roll factor (1-99). « // 0xd761 @0x431
0x0d300…1adf9 at0480 = SetBufferAddress {ic=11, line=0x0f, col=0x01} // 0xd7b0 @0x480
0x0d300…1adf9 at0483 = » 16 - LINES PER STATEMENT Change the number of lines per statement. « // 0xd7b3 @0x483
0x0d300…1adf9 at04d2 = SetBufferAddress {ic=11, line=0x10, col=0x01} // 0xd802 @0x4d2
0x0d300…1adf9 at04d5 = » 17 - TRANSLATE Translate a message member (type must be T). « // 0xd805 @0x4d5
0x0d300…1adf9 at0524 = SetBufferAddress {ic=11, line=0x11, col=0x02} // 0xd854 @0x524
0x0d300…1adf9 at0527 = » « // 0xd857 @0x527
0x0d300…1adf9 at0576 = » « // 0xd8a6 @0x576
0x0d300…1adf9 at05c6 = » « // 0xd8f6 @0x5c6
0x0d300…1adf9 at0616 = » « // 0xd946 @0x616
0x0d300…1adf9 at0666 = » « // 0xd996 @0x666
0x0d300…1adf9 at06b6 = » « // 0xd9e6 @0x6b6
0x0d300…1adf9 at0706 = » « // 0xda36 @0x706
0x0d300…1adf9 at0756 = » « // 0xda86 @0x756
0x0d300…1adf9 at0759 = SetBufferAddress {ic=11, line=0x18, col=0x05} // 0xda89 @0x759
0x0d300…1adf9 at075c = »Enter-Exit help text Roll keys-Page help text « // 0xda8c @0x75c
0x0d300…1adf9 }
0x0d300…1adf9 }
0x0d300…1adf9 }
0x0db00…1bdee Form36 {
0x0db00…1bdee fh000 = 0x01 // 0xdb00 @0x0
0x0db00…1bdee fh00 = 2600 // 0xdb01 @0x1
0x0db00…1bdee fh01 = »NNN« // 0xdb03 @0x3
0x0db00…1bdee fh02 = 000000 // 0xdb06 @0x6
0x0db00…1bdee fh03 = »NNN« // 0xdb09 @0x9
0x0db00…1bdee fh04 = 0x0030 // 0xdb0c @0xc
0x0db00…1bdee fh05 = 0x078e // 0xdb0e @0xe
0x0db00…1bdee fh06 = 000080011800000000000000000000000000 // 0xdb10 @0x10
0x0db00…1bdee at0022 = 0x5eeb80ff // 0xdb22 @0x22
0x0db00…1bdee at0026 = Form36LV {f00=0xfe, f01=0x0a, f88=00000000000000, f89=09} // 0xdb26 @0x26
0x0db00…1bdee panel = { // 0xdb30 @0x30
0x0db00…1bdee ┌────────────────────────────────────────────────────────────────────────────────┐
0x0db00…1bdee 00│ SEU Command Function Keys │
0x0db00…1bdee 01│ │
0x0db00…1bdee 02│ With this command key You can │
0x0db00…1bdee 03│ │
0x0db00…1bdee 04│ 5 - ENTER/UPDATE Add or change statements. │
0x0db00…1bdee 05│ 6 - PRINT Turn the print option on or off. │
0x0db00…1bdee 06│ 7 - END OF JOB End the SEU job. │
0x0db00…1bdee 07│ 11 - INCLUDE Copy statements from another member. │
0x0db00…1bdee 08│ 13 - COMMAND KEY DISPLAY Display a description of the command keys. │
0x0db00…1bdee 09│ 15 - CHANGE ROLL FACTOR Change the roll factor (1-99). │
0x0db00…1bdee 10│ 16 - LINES PER STATEMENT Change the number of lines per statement. │
0x0db00…1bdee 11│ │
0x0db00…1bdee 12│ │
0x0db00…1bdee 13│ │
0x0db00…1bdee 14│ │
0x0db00…1bdee 15│ │
0x0db00…1bdee 16│ │
0x0db00…1bdee 17│ │
0x0db00…1bdee 18│ │
0x0db00…1bdee 19│ │
0x0db00…1bdee 20│ │
0x0db00…1bdee 21│ │
0x0db00…1bdee 22│ │
0x0db00…1bdee 23│ Enter-Exit help text Roll keys-Page help text │
0x0db00…1bdee 24│ │
0x0db00…1bdee 25│ │
0x0db00…1bdee 26│ │
0x0db00…1bdee 27│ │
0x0db00…1bdee └────────────────────────────────────────────────────────────────────────────────┘
0x0db00…1bdee Panel5250 {
0x0db00…1bdee at0000 = ClearUnit {esc=04, cu=40} // 0xdb30 @0x0
0x0db00…1bdee at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0xdb32 @0x2
0x0db00…1bdee at0006 = SetBufferAddress {ic=11, line=0x01, col=0x02} // 0xdb36 @0x6
0x0db00…1bdee at0009 = » SEU Command Function Keys « // 0xdb39 @0x9
0x0db00…1bdee at0058 = SetBufferAddress {ic=11, line=0x02, col=0x02} // 0xdb88 @0x58
0x0db00…1bdee at005b = » « // 0xdb8b @0x5b
0x0db00…1bdee at00a9 = SetBufferAddress {ic=11, line=0x03, col=0x01} // 0xdbd9 @0xa9
0x0db00…1bdee at00ac = » With this command key You can « // 0xdbdc @0xac
0x0db00…1bdee at00fb = SetBufferAddress {ic=11, line=0x04, col=0x02} // 0xdc2b @0xfb
0x0db00…1bdee at00fe = » « // 0xdc2e @0xfe
0x0db00…1bdee at014c = SetBufferAddress {ic=11, line=0x05, col=0x01} // 0xdc7c @0x14c
0x0db00…1bdee at014f = » 5 - ENTER/UPDATE Add or change statements. « // 0xdc7f @0x14f
0x0db00…1bdee at019e = SetBufferAddress {ic=11, line=0x06, col=0x01} // 0xdcce @0x19e
0x0db00…1bdee at01a1 = » 6 - PRINT Turn the print option on or off. « // 0xdcd1 @0x1a1
0x0db00…1bdee at01f0 = SetBufferAddress {ic=11, line=0x07, col=0x01} // 0xdd20 @0x1f0
0x0db00…1bdee at01f3 = » 7 - END OF JOB End the SEU job. « // 0xdd23 @0x1f3
0x0db00…1bdee at0242 = SetBufferAddress {ic=11, line=0x08, col=0x01} // 0xdd72 @0x242
0x0db00…1bdee at0245 = » 11 - INCLUDE Copy statements from another member. « // 0xdd75 @0x245
0x0db00…1bdee at0294 = SetBufferAddress {ic=11, line=0x09, col=0x01} // 0xddc4 @0x294
0x0db00…1bdee at0297 = » 13 - COMMAND KEY DISPLAY Display a description of the command keys. « // 0xddc7 @0x297
0x0db00…1bdee at02e6 = SetBufferAddress {ic=11, line=0x0a, col=0x01} // 0xde16 @0x2e6
0x0db00…1bdee at02e9 = » 15 - CHANGE ROLL FACTOR Change the roll factor (1-99). « // 0xde19 @0x2e9
0x0db00…1bdee at0338 = SetBufferAddress {ic=11, line=0x0b, col=0x01} // 0xde68 @0x338
0x0db00…1bdee at033b = » 16 - LINES PER STATEMENT Change the number of lines per statement. « // 0xde6b @0x33b
0x0db00…1bdee at038a = SetBufferAddress {ic=11, line=0x0c, col=0x02} // 0xdeba @0x38a
0x0db00…1bdee at038d = » « // 0xdebd @0x38d
0x0db00…1bdee at03dc = » « // 0xdf0c @0x3dc
0x0db00…1bdee at042c = » « // 0xdf5c @0x42c
0x0db00…1bdee at047c = » « // 0xdfac @0x47c
0x0db00…1bdee at04cc = » « // 0xdffc @0x4cc
0x0db00…1bdee at051c = » « // 0xe04c @0x51c
0x0db00…1bdee at056c = » « // 0xe09c @0x56c
0x0db00…1bdee at05bc = » « // 0xe0ec @0x5bc
0x0db00…1bdee at060c = » « // 0xe13c @0x60c
0x0db00…1bdee at065c = » « // 0xe18c @0x65c
0x0db00…1bdee at06ac = » « // 0xe1dc @0x6ac
0x0db00…1bdee at06fc = » « // 0xe22c @0x6fc
0x0db00…1bdee at074c = » « // 0xe27c @0x74c
0x0db00…1bdee at074e = SetBufferAddress {ic=11, line=0x18, col=0x04} // 0xe27e @0x74e
0x0db00…1bdee at0751 = »Enter-Exit help text Roll keys-Page help text « // 0xe281 @0x751
0x0db00…1bdee }
0x0db00…1bdee }
0x0db00…1bdee }
0x0e300…1cdfb Form36 {
0x0e300…1cdfb fh000 = 0x01 // 0xe300 @0x0
0x0e300…1cdfb fh00 = 2600 // 0xe301 @0x1
0x0e300…1cdfb fh01 = »NNN« // 0xe303 @0x3
0x0e300…1cdfb fh02 = 000000 // 0xe306 @0x6
0x0e300…1cdfb fh03 = »NNN« // 0xe309 @0x9
0x0e300…1cdfb fh04 = 0x0030 // 0xe30c @0xc
0x0e300…1cdfb fh05 = 0x079b // 0xe30e @0xe
0x0e300…1cdfb fh06 = 000080011800000000000000000000000000 // 0xe310 @0x10
0x0e300…1cdfb at0022 = 0x5eef80ff // 0xe322 @0x22
0x0e300…1cdfb at0026 = Form36LV {f00=0xfe, f01=0x0a, f88=00000000000000, f89=09} // 0xe326 @0x26
0x0e300…1cdfb panel = { // 0xe330 @0x30
0x0e300…1cdfb ┌────────────────────────────────────────────────────────────────────────────────┐
0x0e300…1cdfb 00│ SEU Command Function Keys │
0x0e300…1cdfb 01│ │
0x0e300…1cdfb 02│ With this command key You can │
0x0e300…1cdfb 03│ │
0x0e300…1cdfb 04│ 2 - SCAN/REPLACE Search/replace character strings. │
0x0e300…1cdfb 05│ 4 - DELETE Remove statements from a member. │
0x0e300…1cdfb 06│ 5 - ENTER/UPDATE Add or change statements. │
0x0e300…1cdfb 07│ 6 - PRINT Turn the print option on or off. │
0x0e300…1cdfb 08│ 7 - END OF JOB End the SEU job. │
0x0e300…1cdfb 09│ 9 - SEARCH END OF SOURCE Display the last statement in the member. │
0x0e300…1cdfb 10│ 10 - COPY/MOVE Copy or move statements within a member. │
0x0e300…1cdfb 11│ 11 - INCLUDE Copy statements from another member. │
0x0e300…1cdfb 12│ 13 - COMMAND KEY DISPLAY Display a description of the command keys. │
0x0e300…1cdfb 13│ 14 - SCAN TO UPDATE Change statements during a scan. │
0x0e300…1cdfb 14│ 15 - CHANGE ROLL FACTOR Change the roll factor (1-99). │
0x0e300…1cdfb 15│ 16 - LINES PER STATEMENT Change the number of lines per statement. │
0x0e300…1cdfb 16│ 17 - TRANSLATE Translate a message member (type must be T). │
0x0e300…1cdfb 17│ │
0x0e300…1cdfb 18│ │
0x0e300…1cdfb 19│ │
0x0e300…1cdfb 20│ │
0x0e300…1cdfb 21│ │
0x0e300…1cdfb 22│ │
0x0e300…1cdfb 23│ Enter-Exit help text Roll keys-Page help text │
0x0e300…1cdfb 24│ │
0x0e300…1cdfb 25│ │
0x0e300…1cdfb 26│ │
0x0e300…1cdfb 27│ │
0x0e300…1cdfb └────────────────────────────────────────────────────────────────────────────────┘
0x0e300…1cdfb Panel5250 {
0x0e300…1cdfb at0000 = ClearUnit {esc=04, cu=40} // 0xe330 @0x0
0x0e300…1cdfb at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0xe332 @0x2
0x0e300…1cdfb at0006 = SetBufferAddress {ic=11, line=0x01, col=0x02} // 0xe336 @0x6
0x0e300…1cdfb at0009 = » SEU Command Function Keys « // 0xe339 @0x9
0x0e300…1cdfb at0058 = SetBufferAddress {ic=11, line=0x02, col=0x02} // 0xe388 @0x58
0x0e300…1cdfb at005b = » « // 0xe38b @0x5b
0x0e300…1cdfb at00a9 = SetBufferAddress {ic=11, line=0x03, col=0x01} // 0xe3d9 @0xa9
0x0e300…1cdfb at00ac = » With this command key You can « // 0xe3dc @0xac
0x0e300…1cdfb at00fb = SetBufferAddress {ic=11, line=0x04, col=0x02} // 0xe42b @0xfb
0x0e300…1cdfb at00fe = » « // 0xe42e @0xfe
0x0e300…1cdfb at014c = SetBufferAddress {ic=11, line=0x05, col=0x01} // 0xe47c @0x14c
0x0e300…1cdfb at014f = » 2 - SCAN/REPLACE Search/replace character strings. « // 0xe47f @0x14f
0x0e300…1cdfb at019e = SetBufferAddress {ic=11, line=0x06, col=0x01} // 0xe4ce @0x19e
0x0e300…1cdfb at01a1 = » 4 - DELETE Remove statements from a member. « // 0xe4d1 @0x1a1
0x0e300…1cdfb at01f0 = SetBufferAddress {ic=11, line=0x07, col=0x01} // 0xe520 @0x1f0
0x0e300…1cdfb at01f3 = » 5 - ENTER/UPDATE Add or change statements. « // 0xe523 @0x1f3
0x0e300…1cdfb at0242 = SetBufferAddress {ic=11, line=0x08, col=0x01} // 0xe572 @0x242
0x0e300…1cdfb at0245 = » 6 - PRINT Turn the print option on or off. « // 0xe575 @0x245
0x0e300…1cdfb at0294 = SetBufferAddress {ic=11, line=0x09, col=0x01} // 0xe5c4 @0x294
0x0e300…1cdfb at0297 = » 7 - END OF JOB End the SEU job. « // 0xe5c7 @0x297
0x0e300…1cdfb at02e6 = SetBufferAddress {ic=11, line=0x0a, col=0x01} // 0xe616 @0x2e6
0x0e300…1cdfb at02e9 = » 9 - SEARCH END OF SOURCE Display the last statement in the member. « // 0xe619 @0x2e9
0x0e300…1cdfb at0338 = SetBufferAddress {ic=11, line=0x0b, col=0x01} // 0xe668 @0x338
0x0e300…1cdfb at033b = » 10 - COPY/MOVE Copy or move statements within a member. « // 0xe66b @0x33b
0x0e300…1cdfb at038a = SetBufferAddress {ic=11, line=0x0c, col=0x01} // 0xe6ba @0x38a
0x0e300…1cdfb at038d = » 11 - INCLUDE Copy statements from another member. « // 0xe6bd @0x38d
0x0e300…1cdfb at03dc = SetBufferAddress {ic=11, line=0x0d, col=0x01} // 0xe70c @0x3dc
0x0e300…1cdfb at03df = » 13 - COMMAND KEY DISPLAY Display a description of the command keys. « // 0xe70f @0x3df
0x0e300…1cdfb at042e = SetBufferAddress {ic=11, line=0x0e, col=0x01} // 0xe75e @0x42e
0x0e300…1cdfb at0431 = » 14 - SCAN TO UPDATE Change statements during a scan. « // 0xe761 @0x431
0x0e300…1cdfb at0480 = SetBufferAddress {ic=11, line=0x0f, col=0x01} // 0xe7b0 @0x480
0x0e300…1cdfb at0483 = » 15 - CHANGE ROLL FACTOR Change the roll factor (1-99). « // 0xe7b3 @0x483
0x0e300…1cdfb at04d2 = SetBufferAddress {ic=11, line=0x10, col=0x01} // 0xe802 @0x4d2
0x0e300…1cdfb at04d5 = » 16 - LINES PER STATEMENT Change the number of lines per statement. « // 0xe805 @0x4d5
0x0e300…1cdfb at0524 = SetBufferAddress {ic=11, line=0x11, col=0x01} // 0xe854 @0x524
0x0e300…1cdfb at0527 = » 17 - TRANSLATE Translate a message member (type must be T). « // 0xe857 @0x527
0x0e300…1cdfb at0576 = SetBufferAddress {ic=11, line=0x12, col=0x02} // 0xe8a6 @0x576
0x0e300…1cdfb at0579 = » « // 0xe8a9 @0x579
0x0e300…1cdfb at05c8 = » « // 0xe8f8 @0x5c8
0x0e300…1cdfb at0618 = » « // 0xe948 @0x618
0x0e300…1cdfb at0668 = » « // 0xe998 @0x668
0x0e300…1cdfb at06b8 = » « // 0xe9e8 @0x6b8
0x0e300…1cdfb at0708 = » « // 0xea38 @0x708
0x0e300…1cdfb at0758 = » « // 0xea88 @0x758
0x0e300…1cdfb at075b = SetBufferAddress {ic=11, line=0x18, col=0x05} // 0xea8b @0x75b
0x0e300…1cdfb at075e = »Enter-Exit help text Roll keys-Page help text « // 0xea8e @0x75e
0x0e300…1cdfb }
0x0e300…1cdfb }
0x0e300…1cdfb }
0x0eb00…1ddf5 Form36 {
0x0eb00…1ddf5 fh000 = 0x01 // 0xeb00 @0x0
0x0eb00…1ddf5 fh00 = 2600 // 0xeb01 @0x1
0x0eb00…1ddf5 fh01 = »NNN« // 0xeb03 @0x3
0x0eb00…1ddf5 fh02 = 000000 // 0xeb06 @0x6
0x0eb00…1ddf5 fh03 = »NNN« // 0xeb09 @0x9
0x0eb00…1ddf5 fh04 = 0x0030 // 0xeb0c @0xc
0x0eb00…1ddf5 fh05 = 0x0795 // 0xeb0e @0xe
0x0eb00…1ddf5 fh06 = 000080011800000000000000000000000000 // 0xeb10 @0x10
0x0eb00…1ddf5 at0022 = 0x5ee880ff // 0xeb22 @0x22
0x0eb00…1ddf5 at0026 = Form36LV {f00=0xfe, f01=0x0a, f88=00000000000000, f89=09} // 0xeb26 @0x26
0x0eb00…1ddf5 panel = { // 0xeb30 @0x30
0x0eb00…1ddf5 ┌────────────────────────────────────────────────────────────────────────────────┐
0x0eb00…1ddf5 00│ SEU Command Function Keys │
0x0eb00…1ddf5 01│ │
0x0eb00…1ddf5 02│ With this command key You can │
0x0eb00…1ddf5 03│ │
0x0eb00…1ddf5 04│ 2 - SCAN/REPLACE Search/replace character strings. │
0x0eb00…1ddf5 05│ 4 - DELETE Remove statements from a member. │
0x0eb00…1ddf5 06│ 5 - ENTER/UPDATE Add or change statements. │
0x0eb00…1ddf5 07│ 6 - PRINT Turn the print option on or off. │
0x0eb00…1ddf5 08│ 7 - END OF JOB End the SEU job. │
0x0eb00…1ddf5 09│ 9 - SEARCH END OF SOURCE Display the last statement in the member. │
0x0eb00…1ddf5 10│ 10 - COPY/MOVE Copy or move statements within a member. │
0x0eb00…1ddf5 11│ 11 - INCLUDE Copy statements from another member. │
0x0eb00…1ddf5 12│ 13 - COMMAND KEY DISPLAY Display a description of the command keys. │
0x0eb00…1ddf5 13│ 17 - TRANSLATE Translate a message member (type must be T). │
0x0eb00…1ddf5 14│ │
0x0eb00…1ddf5 15│ │
0x0eb00…1ddf5 16│ │
0x0eb00…1ddf5 17│ │
0x0eb00…1ddf5 18│ │
0x0eb00…1ddf5 19│ │
0x0eb00…1ddf5 20│ │
0x0eb00…1ddf5 21│ │
0x0eb00…1ddf5 22│ │
0x0eb00…1ddf5 23│ Enter-Exit help text Roll keys-Page help text │
0x0eb00…1ddf5 24│ │
0x0eb00…1ddf5 25│ │
0x0eb00…1ddf5 26│ │
0x0eb00…1ddf5 27│ │
0x0eb00…1ddf5 └────────────────────────────────────────────────────────────────────────────────┘
0x0eb00…1ddf5 Panel5250 {
0x0eb00…1ddf5 at0000 = ClearUnit {esc=04, cu=40} // 0xeb30 @0x0
0x0eb00…1ddf5 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0xeb32 @0x2
0x0eb00…1ddf5 at0006 = SetBufferAddress {ic=11, line=0x01, col=0x02} // 0xeb36 @0x6
0x0eb00…1ddf5 at0009 = » SEU Command Function Keys « // 0xeb39 @0x9
0x0eb00…1ddf5 at0058 = SetBufferAddress {ic=11, line=0x02, col=0x02} // 0xeb88 @0x58
0x0eb00…1ddf5 at005b = » « // 0xeb8b @0x5b
0x0eb00…1ddf5 at00a9 = SetBufferAddress {ic=11, line=0x03, col=0x01} // 0xebd9 @0xa9
0x0eb00…1ddf5 at00ac = » With this command key You can « // 0xebdc @0xac
0x0eb00…1ddf5 at00fb = SetBufferAddress {ic=11, line=0x04, col=0x02} // 0xec2b @0xfb
0x0eb00…1ddf5 at00fe = » « // 0xec2e @0xfe
0x0eb00…1ddf5 at014c = SetBufferAddress {ic=11, line=0x05, col=0x01} // 0xec7c @0x14c
0x0eb00…1ddf5 at014f = » 2 - SCAN/REPLACE Search/replace character strings. « // 0xec7f @0x14f
0x0eb00…1ddf5 at019e = SetBufferAddress {ic=11, line=0x06, col=0x01} // 0xecce @0x19e
0x0eb00…1ddf5 at01a1 = » 4 - DELETE Remove statements from a member. « // 0xecd1 @0x1a1
0x0eb00…1ddf5 at01f0 = SetBufferAddress {ic=11, line=0x07, col=0x01} // 0xed20 @0x1f0
0x0eb00…1ddf5 at01f3 = » 5 - ENTER/UPDATE Add or change statements. « // 0xed23 @0x1f3
0x0eb00…1ddf5 at0242 = SetBufferAddress {ic=11, line=0x08, col=0x01} // 0xed72 @0x242
0x0eb00…1ddf5 at0245 = » 6 - PRINT Turn the print option on or off. « // 0xed75 @0x245
0x0eb00…1ddf5 at0294 = SetBufferAddress {ic=11, line=0x09, col=0x01} // 0xedc4 @0x294
0x0eb00…1ddf5 at0297 = » 7 - END OF JOB End the SEU job. « // 0xedc7 @0x297
0x0eb00…1ddf5 at02e6 = SetBufferAddress {ic=11, line=0x0a, col=0x01} // 0xee16 @0x2e6
0x0eb00…1ddf5 at02e9 = » 9 - SEARCH END OF SOURCE Display the last statement in the member. « // 0xee19 @0x2e9
0x0eb00…1ddf5 at0338 = SetBufferAddress {ic=11, line=0x0b, col=0x01} // 0xee68 @0x338
0x0eb00…1ddf5 at033b = » 10 - COPY/MOVE Copy or move statements within a member. « // 0xee6b @0x33b
0x0eb00…1ddf5 at038a = SetBufferAddress {ic=11, line=0x0c, col=0x01} // 0xeeba @0x38a
0x0eb00…1ddf5 at038d = » 11 - INCLUDE Copy statements from another member. « // 0xeebd @0x38d
0x0eb00…1ddf5 at03dc = SetBufferAddress {ic=11, line=0x0d, col=0x01} // 0xef0c @0x3dc
0x0eb00…1ddf5 at03df = » 13 - COMMAND KEY DISPLAY Display a description of the command keys. « // 0xef0f @0x3df
0x0eb00…1ddf5 at042e = SetBufferAddress {ic=11, line=0x0e, col=0x01} // 0xef5e @0x42e
0x0eb00…1ddf5 at0431 = » 17 - TRANSLATE Translate a message member (type must be T). « // 0xef61 @0x431
0x0eb00…1ddf5 at0480 = SetBufferAddress {ic=11, line=0x0f, col=0x02} // 0xefb0 @0x480
0x0eb00…1ddf5 at0483 = » « // 0xefb3 @0x483
0x0eb00…1ddf5 at04d2 = » « // 0xf002 @0x4d2
0x0eb00…1ddf5 at0522 = » « // 0xf052 @0x522
0x0eb00…1ddf5 at0572 = » « // 0xf0a2 @0x572
0x0eb00…1ddf5 at05c2 = » « // 0xf0f2 @0x5c2
0x0eb00…1ddf5 at0612 = » « // 0xf142 @0x612
0x0eb00…1ddf5 at0662 = » « // 0xf192 @0x662
0x0eb00…1ddf5 at06b2 = » « // 0xf1e2 @0x6b2
0x0eb00…1ddf5 at0702 = » « // 0xf232 @0x702
0x0eb00…1ddf5 at0752 = » « // 0xf282 @0x752
0x0eb00…1ddf5 at0755 = SetBufferAddress {ic=11, line=0x18, col=0x05} // 0xf285 @0x755
0x0eb00…1ddf5 at0758 = »Enter-Exit help text Roll keys-Page help text « // 0xf288 @0x758
0x0eb00…1ddf5 }
0x0eb00…1ddf5 }
0x0eb00…1ddf5 }
0x0f300…1edf0 Form36 {
0x0f300…1edf0 fh000 = 0x01 // 0xf300 @0x0
0x0f300…1edf0 fh00 = 2600 // 0xf301 @0x1
0x0f300…1edf0 fh01 = »NNN« // 0xf303 @0x3
0x0f300…1edf0 fh02 = 000000 // 0xf306 @0x6
0x0f300…1edf0 fh03 = »NNN« // 0xf309 @0x9
0x0f300…1edf0 fh04 = 0x0030 // 0xf30c @0xc
0x0f300…1edf0 fh05 = 0x0790 // 0xf30e @0xe
0x0f300…1edf0 fh06 = 000080011800000000000000000000000000 // 0xf310 @0x10
0x0f300…1edf0 at0022 = 0x000800ff // 0xf322 @0x22
0x0f300…1edf0 at0026 = Form36LV {f00=0xfe, f01=0x0a, f88=00000000000000, f89=09} // 0xf326 @0x26
0x0f300…1edf0 panel = { // 0xf330 @0x30
0x0f300…1edf0 ┌────────────────────────────────────────────────────────────────────────────────┐
0x0f300…1edf0 00│ SEU Command Function Keys │
0x0f300…1edf0 01│ │
0x0f300…1edf0 02│ With this command key You can │
0x0f300…1edf0 03│ │
0x0f300…1edf0 04│ 13 - COMMAND KEY DISPLAY Exit from the command key display screen. │
0x0f300…1edf0 05│ │
0x0f300…1edf0 06│ │
0x0f300…1edf0 07│ │
0x0f300…1edf0 08│ │
0x0f300…1edf0 09│ │
0x0f300…1edf0 10│ │
0x0f300…1edf0 11│ │
0x0f300…1edf0 12│ │
0x0f300…1edf0 13│ │
0x0f300…1edf0 14│ │
0x0f300…1edf0 15│ │
0x0f300…1edf0 16│ │
0x0f300…1edf0 17│ │
0x0f300…1edf0 18│ │
0x0f300…1edf0 19│ │
0x0f300…1edf0 20│ │
0x0f300…1edf0 21│ │
0x0f300…1edf0 22│ │
0x0f300…1edf0 23│ │
0x0f300…1edf0 24│ │
0x0f300…1edf0 25│ │
0x0f300…1edf0 26│ │
0x0f300…1edf0 27│ │
0x0f300…1edf0 └────────────────────────────────────────────────────────────────────────────────┘
0x0f300…1edf0 Panel5250 {
0x0f300…1edf0 at0000 = ClearUnit {esc=04, cu=40} // 0xf330 @0x0
0x0f300…1edf0 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0xf332 @0x2
0x0f300…1edf0 at0006 = SetBufferAddress {ic=11, line=0x01, col=0x02} // 0xf336 @0x6
0x0f300…1edf0 at0009 = » SEU Command Function Keys « // 0xf339 @0x9
0x0f300…1edf0 at0058 = SetBufferAddress {ic=11, line=0x02, col=0x02} // 0xf388 @0x58
0x0f300…1edf0 at005b = » « // 0xf38b @0x5b
0x0f300…1edf0 at00a9 = SetBufferAddress {ic=11, line=0x03, col=0x01} // 0xf3d9 @0xa9
0x0f300…1edf0 at00ac = » With this command key You can « // 0xf3dc @0xac
0x0f300…1edf0 at00fb = SetBufferAddress {ic=11, line=0x04, col=0x02} // 0xf42b @0xfb
0x0f300…1edf0 at00fe = » « // 0xf42e @0xfe
0x0f300…1edf0 at014c = SetBufferAddress {ic=11, line=0x05, col=0x01} // 0xf47c @0x14c
0x0f300…1edf0 at014f = » 13 - COMMAND KEY DISPLAY Exit from the command key display screen. « // 0xf47f @0x14f
0x0f300…1edf0 at019e = SetBufferAddress {ic=11, line=0x06, col=0x02} // 0xf4ce @0x19e
0x0f300…1edf0 at01a1 = » « // 0xf4d1 @0x1a1
0x0f300…1edf0 at01f0 = » « // 0xf520 @0x1f0
0x0f300…1edf0 at0240 = » « // 0xf570 @0x240
0x0f300…1edf0 at0290 = » « // 0xf5c0 @0x290
0x0f300…1edf0 at02e0 = » « // 0xf610 @0x2e0
0x0f300…1edf0 at0330 = » « // 0xf660 @0x330
0x0f300…1edf0 at0380 = » « // 0xf6b0 @0x380
0x0f300…1edf0 at03d0 = » « // 0xf700 @0x3d0
0x0f300…1edf0 at0420 = » « // 0xf750 @0x420
0x0f300…1edf0 at0470 = » « // 0xf7a0 @0x470
0x0f300…1edf0 at04c0 = » « // 0xf7f0 @0x4c0
0x0f300…1edf0 at0510 = » « // 0xf840 @0x510
0x0f300…1edf0 at0560 = » « // 0xf890 @0x560
0x0f300…1edf0 at05b0 = » « // 0xf8e0 @0x5b0
0x0f300…1edf0 at0600 = » « // 0xf930 @0x600
0x0f300…1edf0 at0650 = » « // 0xf980 @0x650
0x0f300…1edf0 at06a0 = » « // 0xf9d0 @0x6a0
0x0f300…1edf0 at06f0 = » « // 0xfa20 @0x6f0
0x0f300…1edf0 at0740 = » « // 0xfa70 @0x740
0x0f300…1edf0 }
0x0f300…1edf0 }
0x0f300…1edf0 }
0x0fb00…1fded Form36 {
0x0fb00…1fded fh000 = 0x01 // 0xfb00 @0x0
0x0fb00…1fded fh00 = 2600 // 0xfb01 @0x1
0x0fb00…1fded fh01 = »NNN« // 0xfb03 @0x3
0x0fb00…1fded fh02 = 000000 // 0xfb06 @0x6
0x0fb00…1fded fh03 = »NNN« // 0xfb09 @0x9
0x0fb00…1fded fh04 = 0x0030 // 0xfb0c @0xc
0x0fb00…1fded fh05 = 0x078d // 0xfb0e @0xe
0x0fb00…1fded fh06 = 000080011800000000000000000000000000 // 0xfb10 @0x10
0x0fb00…1fded at0022 = 0x000000ff // 0xfb22 @0x22
0x0fb00…1fded at0026 = Form36LV {f00=0xfe, f01=0x0a, f88=00000000000000, f89=09} // 0xfb26 @0x26
0x0fb00…1fded panel = { // 0xfb30 @0x30
0x0fb00…1fded ┌────────────────────────────────────────────────────────────────────────────────┐
0x0fb00…1fded 00│ SEU Command Function Keys │
0x0fb00…1fded 01│ │
0x0fb00…1fded 02│ │
0x0fb00…1fded 03│ No SEU command function keys are available at this time. │
0x0fb00…1fded 04│ │
0x0fb00…1fded 05│ │
0x0fb00…1fded 06│ │
0x0fb00…1fded 07│ │
0x0fb00…1fded 08│ │
0x0fb00…1fded 09│ │
0x0fb00…1fded 10│ │
0x0fb00…1fded 11│ │
0x0fb00…1fded 12│ │
0x0fb00…1fded 13│ │
0x0fb00…1fded 14│ │
0x0fb00…1fded 15│ │
0x0fb00…1fded 16│ │
0x0fb00…1fded 17│ │
0x0fb00…1fded 18│ │
0x0fb00…1fded 19│ │
0x0fb00…1fded 20│ │
0x0fb00…1fded 21│ │
0x0fb00…1fded 22│ │
0x0fb00…1fded 23│ │
0x0fb00…1fded 24│ │
0x0fb00…1fded 25│ │
0x0fb00…1fded 26│ │
0x0fb00…1fded 27│ │
0x0fb00…1fded └────────────────────────────────────────────────────────────────────────────────┘
0x0fb00…1fded Panel5250 {
0x0fb00…1fded at0000 = ClearUnit {esc=04, cu=40} // 0xfb30 @0x0
0x0fb00…1fded at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0xfb32 @0x2
0x0fb00…1fded at0006 = SetBufferAddress {ic=11, line=0x01, col=0x02} // 0xfb36 @0x6
0x0fb00…1fded at0009 = » SEU Command Function Keys « // 0xfb39 @0x9
0x0fb00…1fded at0058 = SetBufferAddress {ic=11, line=0x02, col=0x02} // 0xfb88 @0x58
0x0fb00…1fded at005b = » « // 0xfb8b @0x5b
0x0fb00…1fded at00aa = » « // 0xfbda @0xaa
0x0fb00…1fded at00f9 = SetBufferAddress {ic=11, line=0x04, col=0x01} // 0xfc29 @0xf9
0x0fb00…1fded at00fc = » No SEU command function keys are available at this time. « // 0xfc2c @0xfc
0x0fb00…1fded at014b = SetBufferAddress {ic=11, line=0x05, col=0x02} // 0xfc7b @0x14b
0x0fb00…1fded at014e = » « // 0xfc7e @0x14e
0x0fb00…1fded at019d = » « // 0xfccd @0x19d
0x0fb00…1fded at01ed = » « // 0xfd1d @0x1ed
0x0fb00…1fded at023d = » « // 0xfd6d @0x23d
0x0fb00…1fded at028d = » « // 0xfdbd @0x28d
0x0fb00…1fded at02dd = » « // 0xfe0d @0x2dd
0x0fb00…1fded at032d = » « // 0xfe5d @0x32d
0x0fb00…1fded at037d = » « // 0xfead @0x37d
0x0fb00…1fded at03cd = » « // 0xfefd @0x3cd
0x0fb00…1fded at041d = » « // 0xff4d @0x41d
0x0fb00…1fded at046d = » « // 0xff9d @0x46d
0x0fb00…1fded at04bd = » « // 0xffed @0x4bd
0x0fb00…1fded at050d = » « // 0x1003d @0x50d
0x0fb00…1fded at055d = » « // 0x1008d @0x55d
0x0fb00…1fded at05ad = » « // 0x100dd @0x5ad
0x0fb00…1fded at05fd = » « // 0x1012d @0x5fd
0x0fb00…1fded at064d = » « // 0x1017d @0x64d
0x0fb00…1fded at069d = » « // 0x101cd @0x69d
0x0fb00…1fded at06ed = » « // 0x1021d @0x6ed
0x0fb00…1fded at073d = » « // 0x1026d @0x73d
0x0fb00…1fded }
0x0fb00…1fded }
0x0fb00…1fded }
0x10300…20c5c Form36 {
0x10300…20c5c fh000 = 0x00 // 0x10300 @0x0
0x10300…20c5c fh00 = 2200 // 0x10301 @0x1
0x10300…20c5c fh01 = »NNN« // 0x10303 @0x3
0x10300…20c5c fh02 = 000000 // 0x10306 @0x6
0x10300…20c5c fh03 = »NNN« // 0x10309 @0x9
0x10300…20c5c fh04 = 0x0028 // 0x1030c @0xc
0x10300…20c5c fh05 = 0x060c // 0x1030e @0xe
0x10300…20c5c fh06 = 000080011800000000000000000000000000 // 0x10310 @0x10
0x10300…20c5c at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x10322 @0x22
0x10300…20c5c panel = { // 0x10328 @0x28
0x10300…20c5c ┌────────────────────────────────────────────────────────────────────────────────┐
0x10300…20c5c 00│ │
0x10300…20c5c 01│ ╳LIBRARY MEMBER SUBTYPES │
0x10300…20c5c 02│ ╳The following is a list of the available subtypes. │
0x10300…20c5c 03│ │
0x10300…20c5c 04│ 2 DTA - Data │
0x10300…20c5c 05│ 40 UNS - Unspecified │
0x10300…20c5c 06│ │
0x10300…20c5c 07│ SPECIFICATIONS PROGRAMS │
0x10300…20c5c 08│ │
0x10300…20c5c 09│ 11 ARS - Auto response 31 ASM - Assembler │
0x10300…20c5c 10│ 12 ARP - Auto Report 32 BAS - BASIC │
0x10300…20c5c 11│ 13 BAP - BASIC procedure 33 COB - COBOL │
0x10300…20c5c 12│ 42 BGD - Business Graphics Data 34 FOR - FORTRAN │
0x10300…20c5c 13│ 43 BGF - Business Graphics Format 35 RPG - RPG II │
0x10300…20c5c 14│ 14 DFU - Data File Utility 36 WSU - Work Station Utility │
0x10300…20c5c 15│ 15 FMT - Screen Format │
0x10300…20c5c 16│ 16 MNU - Menu │
0x10300…20c5c 17│ 17 MSG - Message │
0x10300…20c5c 18│ 18 PHL - Phone list │
0x10300…20c5c 19│ 19 SRT - Sort │
0x10300…20c5c 20│ │
0x10300…20c5c 21│ │
0x10300…20c5c 22│ │
0x10300…20c5c 23│ Enter-Exit help text Roll keys-Page help text │
0x10300…20c5c 24│ │
0x10300…20c5c 25│ │
0x10300…20c5c 26│ │
0x10300…20c5c 27│ │
0x10300…20c5c └────────────────────────────────────────────────────────────────────────────────┘
0x10300…20c5c Panel5250 {
0x10300…20c5c at0000 = ClearUnit {esc=04, cu=40} // 0x10328 @0x0
0x10300…20c5c at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x1032a @0x2
0x10300…20c5c at0006 = SetBufferAddress {ic=11, line=0x02, col=0x1b} // 0x1032e @0x6
0x10300…20c5c at0009 = Attribute {type=0x22} // 0x10331 @0x9
0x10300…20c5c at000a = »LIBRARY MEMBER SUBTYPES « // 0x10332 @0xa
0x10300…20c5c at003f = » « // 0x10367 @0x3f
0x10300…20c5c at004c = Attribute {type=0x20} // 0x10374 @0x4c
0x10300…20c5c at004d = SetBufferAddress {ic=11, line=0x03, col=0x0f} // 0x10375 @0x4d
0x10300…20c5c at0050 = »The following is a list of the available subtypes. « // 0x10378 @0x50
0x10300…20c5c at0092 = » « // 0x103ba @0x92
0x10300…20c5c at00e2 = » « // 0x1040a @0xe2
0x10300…20c5c at00fe = SetBufferAddress {ic=11, line=0x05, col=0x1e} // 0x10426 @0xfe
0x10300…20c5c at0101 = » 2 DTA - Data « // 0x10429 @0x101
0x10300…20c5c at0134 = » « // 0x1045c @0x134
0x10300…20c5c at0150 = SetBufferAddress {ic=11, line=0x06, col=0x1e} // 0x10478 @0x150
0x10300…20c5c at0153 = »40 UNS - Unspecified « // 0x1047b @0x153
0x10300…20c5c at0186 = » « // 0x104ae @0x186
0x10300…20c5c at01d6 = » « // 0x104fe @0x1d6
0x10300…20c5c at01e8 = SetBufferAddress {ic=11, line=0x08, col=0x14} // 0x10510 @0x1e8
0x10300…20c5c at01eb = »SPECIFICATIONS « // 0x10513 @0x1eb
0x10300…20c5c at020d = SetBufferAddress {ic=11, line=0x08, col=0x37} // 0x10535 @0x20d
0x10300…20c5c at0210 = »PROGRAMS « // 0x10538 @0x210
0x10300…20c5c at022a = » « // 0x10552 @0x22a
0x10300…20c5c at027a = » « // 0x105a2 @0x27a
0x10300…20c5c at0285 = SetBufferAddress {ic=11, line=0x0a, col=0x0d} // 0x105ad @0x285
0x10300…20c5c at0288 = »11 ARS - Auto response « // 0x105b0 @0x288
0x10300…20c5c at02aa = SetBufferAddress {ic=11, line=0x0a, col=0x30} // 0x105d2 @0x2aa
0x10300…20c5c at02ad = »31 ASM - Assembler « // 0x105d5 @0x2ad
0x10300…20c5c at02ce = » « // 0x105f6 @0x2ce
0x10300…20c5c at02d9 = SetBufferAddress {ic=11, line=0x0b, col=0x0d} // 0x10601 @0x2d9
0x10300…20c5c at02dc = »12 ARP - Auto Report « // 0x10604 @0x2dc
0x10300…20c5c at02fe = SetBufferAddress {ic=11, line=0x0b, col=0x30} // 0x10626 @0x2fe
0x10300…20c5c at0301 = »32 BAS - BASIC « // 0x10629 @0x301
0x10300…20c5c at0322 = » « // 0x1064a @0x322
0x10300…20c5c at032d = SetBufferAddress {ic=11, line=0x0c, col=0x0d} // 0x10655 @0x32d
0x10300…20c5c at0330 = »13 BAP - BASIC procedure « // 0x10658 @0x330
0x10300…20c5c at0352 = SetBufferAddress {ic=11, line=0x0c, col=0x30} // 0x1067a @0x352
0x10300…20c5c at0355 = »33 COB - COBOL « // 0x1067d @0x355
0x10300…20c5c at0376 = » « // 0x1069e @0x376
0x10300…20c5c at0381 = SetBufferAddress {ic=11, line=0x0d, col=0x0d} // 0x106a9 @0x381
0x10300…20c5c at0384 = »42 BGD - Business Graphics Data « // 0x106ac @0x384
0x10300…20c5c at03a6 = SetBufferAddress {ic=11, line=0x0d, col=0x30} // 0x106ce @0x3a6
0x10300…20c5c at03a9 = »34 FOR - FORTRAN « // 0x106d1 @0x3a9
0x10300…20c5c at03ca = » « // 0x106f2 @0x3ca
0x10300…20c5c at03d5 = SetBufferAddress {ic=11, line=0x0e, col=0x0d} // 0x106fd @0x3d5
0x10300…20c5c at03d8 = »43 BGF - Business Graphics Format « // 0x10700 @0x3d8
0x10300…20c5c at03fa = SetBufferAddress {ic=11, line=0x0e, col=0x30} // 0x10722 @0x3fa
0x10300…20c5c at03fd = »35 RPG - RPG II « // 0x10725 @0x3fd
0x10300…20c5c at041e = » « // 0x10746 @0x41e
0x10300…20c5c at0429 = SetBufferAddress {ic=11, line=0x0f, col=0x0d} // 0x10751 @0x429
0x10300…20c5c at042c = »14 DFU - Data File Utility « // 0x10754 @0x42c
0x10300…20c5c at044e = SetBufferAddress {ic=11, line=0x0f, col=0x30} // 0x10776 @0x44e
0x10300…20c5c at0451 = »36 WSU - Work Station Utility « // 0x10779 @0x451
0x10300…20c5c at0472 = » « // 0x1079a @0x472
0x10300…20c5c at047d = SetBufferAddress {ic=11, line=0x10, col=0x0d} // 0x107a5 @0x47d
0x10300…20c5c at0480 = »15 FMT - Screen Format « // 0x107a8 @0x480
0x10300…20c5c at04a2 = SetBufferAddress {ic=11, line=0x11, col=0x0d} // 0x107ca @0x4a2
0x10300…20c5c at04a5 = »16 MNU - Menu « // 0x107cd @0x4a5
0x10300…20c5c at04c7 = SetBufferAddress {ic=11, line=0x12, col=0x0d} // 0x107ef @0x4c7
0x10300…20c5c at04ca = »17 MSG - Message « // 0x107f2 @0x4ca
0x10300…20c5c at050e = » « // 0x10836 @0x50e
0x10300…20c5c at0519 = SetBufferAddress {ic=11, line=0x13, col=0x0d} // 0x10841 @0x519
0x10300…20c5c at051c = »18 PHL - Phone list « // 0x10844 @0x51c
0x10300…20c5c at0560 = » « // 0x10888 @0x560
0x10300…20c5c at056b = SetBufferAddress {ic=11, line=0x14, col=0x0d} // 0x10893 @0x56b
0x10300…20c5c at056e = »19 SRT - Sort « // 0x10896 @0x56e
0x10300…20c5c at05b2 = » « // 0x108da @0x5b2
0x10300…20c5c at05bd = SetBufferAddress {ic=11, line=0x18, col=0x05} // 0x108e5 @0x5bd
0x10300…20c5c at05c0 = »Enter-Exit help text Roll keys-Page help text « // 0x108e8 @0x5c0
0x10300…20c5c }
0x10300…20c5c }
0x10300…20c5c }
0x10a00…21b3f Form36 {
0x10a00…21b3f fh000 = 0x00 // 0x10a00 @0x0
0x10a00…21b3f fh00 = 2200 // 0x10a01 @0x1
0x10a00…21b3f fh01 = »NNN« // 0x10a03 @0x3
0x10a00…21b3f fh02 = 000000 // 0x10a06 @0x6
0x10a00…21b3f fh03 = »NNN« // 0x10a09 @0x9
0x10a00…21b3f fh04 = 0x0028 // 0x10a0c @0xc
0x10a00…21b3f fh05 = 0x06ef // 0x10a0e @0xe
0x10a00…21b3f fh06 = 000080011800000000000000000000000000 // 0x10a10 @0x10
0x10a00…21b3f at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x10a22 @0x22
0x10a00…21b3f panel = { // 0x10a28 @0x28
0x10a00…21b3f ┌────────────────────────────────────────────────────────────────────────────────┐
0x10a00…21b3f 00│ │
0x10a00…21b3f 01│ │
0x10a00…21b3f 02│ ╳HELP FOR SORT HEADER SPECIFICATIONS │
0x10a00…21b3f 03│ │
0x10a00…21b3f 04│ ╳DESCRIPTION │
0x10a00…21b3f 05│ │
0x10a00…21b3f 06│ ╳A sort header specification is required for every job. It must be the │
0x10a00…21b3f 07│ first specification in any group of specifications. │
0x10a00…21b3f 08│ │
0x10a00…21b3f 09│ │
0x10a00…21b3f 10│ Statement number (cols 3-5) . . . . . . . . . . . . . 000 │
0x10a00…21b3f 11│ This is an optional entry, it may be used to number your specification │
0x10a00…21b3f 12│ statements. The header specification statement must be the first one │
0x10a00…21b3f 13│ in the source member, hence the number 000. This number is for your │
0x10a00…21b3f 14│ use only, it is ignored by the sort program. │
0x10a00…21b3f 15│ │
0x10a00…21b3f 16│ Statement type (col 6). . . . . . . . . . . . . . . . . H │
0x10a00…21b3f 17│ This value will always be an H -it identifies this specification as │
0x10a00…21b3f 18│ the header statement. │
0x10a00…21b3f 19│ │
0x10a00…21b3f 20│ │
0x10a00…21b3f 21│ │
0x10a00…21b3f 22│ │
0x10a00…21b3f 23│ Enter-Exit help text Roll keys-Page help text │
0x10a00…21b3f 24│ │
0x10a00…21b3f 25│ │
0x10a00…21b3f 26│ │
0x10a00…21b3f 27│ │
0x10a00…21b3f └────────────────────────────────────────────────────────────────────────────────┘
0x10a00…21b3f Panel5250 {
0x10a00…21b3f at0000 = ClearUnit {esc=04, cu=40} // 0x10a28 @0x0
0x10a00…21b3f at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x10a2a @0x2
0x10a00…21b3f at0006 = SetBufferAddress {ic=11, line=0x03, col=0x16} // 0x10a2e @0x6
0x10a00…21b3f at0009 = Attribute {type=0x22} // 0x10a31 @0x9
0x10a00…21b3f at000a = »HELP FOR SORT HEADER SPECIFICATIONS « // 0x10a32 @0xa
0x10a00…21b3f at0044 = » « // 0x10a6c @0x44
0x10a00…21b3f at0094 = » « // 0x10abc @0x94
0x10a00…21b3f at0096 = Attribute {type=0x20} // 0x10abe @0x96
0x10a00…21b3f at0097 = SetBufferAddress {ic=11, line=0x05, col=0x03} // 0x10abf @0x97
0x10a00…21b3f at009a = Attribute {type=0x22} // 0x10ac2 @0x9a
0x10a00…21b3f at009b = »DESCRIPTION « // 0x10ac3 @0x9b
0x10a00…21b3f at00e8 = » « // 0x10b10 @0xe8
0x10a00…21b3f at0138 = » « // 0x10b60 @0x138
0x10a00…21b3f at013d = Attribute {type=0x20} // 0x10b65 @0x13d
0x10a00…21b3f at013e = SetBufferAddress {ic=11, line=0x07, col=0x07} // 0x10b66 @0x13e
0x10a00…21b3f at0141 = »A sort header specification is required for every job. It must be the « // 0x10b69 @0x141
0x10a00…21b3f at018b = » « // 0x10bb3 @0x18b
0x10a00…21b3f at0190 = SetBufferAddress {ic=11, line=0x08, col=0x07} // 0x10bb8 @0x190
0x10a00…21b3f at0193 = »first specification in any group of specifications. « // 0x10bbb @0x193
0x10a00…21b3f at01dd = » « // 0x10c05 @0x1dd
0x10a00…21b3f at022d = » « // 0x10c55 @0x22d
0x10a00…21b3f at027d = » « // 0x10ca5 @0x27d
0x10a00…21b3f at027f = SetBufferAddress {ic=11, line=0x0b, col=0x04} // 0x10ca7 @0x27f
0x10a00…21b3f at0282 = »Statement number (cols 3-5) . . . . . . . . . . . . . 000 « // 0x10caa @0x282
0x10a00…21b3f at02cf = » « // 0x10cf7 @0x2cf
0x10a00…21b3f at02d4 = SetBufferAddress {ic=11, line=0x0c, col=0x07} // 0x10cfc @0x2d4
0x10a00…21b3f at02d7 = »This is an optional entry, it may be used to number your specification « // 0x10cff @0x2d7
0x10a00…21b3f at0321 = » « // 0x10d49 @0x321
0x10a00…21b3f at0326 = SetBufferAddress {ic=11, line=0x0d, col=0x07} // 0x10d4e @0x326
0x10a00…21b3f at0329 = »statements. The header specification statement must be the first one « // 0x10d51 @0x329
0x10a00…21b3f at0373 = » « // 0x10d9b @0x373
0x10a00…21b3f at0378 = SetBufferAddress {ic=11, line=0x0e, col=0x07} // 0x10da0 @0x378
0x10a00…21b3f at037b = »in the source member, hence the number 000. This number is for your « // 0x10da3 @0x37b
0x10a00…21b3f at03c5 = » « // 0x10ded @0x3c5
0x10a00…21b3f at03ca = SetBufferAddress {ic=11, line=0x0f, col=0x07} // 0x10df2 @0x3ca
0x10a00…21b3f at03cd = »use only, it is ignored by the sort program. « // 0x10df5 @0x3cd
0x10a00…21b3f at0417 = » « // 0x10e3f @0x417
0x10a00…21b3f at0467 = » « // 0x10e8f @0x467
0x10a00…21b3f at0469 = SetBufferAddress {ic=11, line=0x11, col=0x04} // 0x10e91 @0x469
0x10a00…21b3f at046c = »Statement type (col 6). . . . . . . . . . . . . . . . . H « // 0x10e94 @0x46c
0x10a00…21b3f at04b9 = » « // 0x10ee1 @0x4b9
0x10a00…21b3f at04be = SetBufferAddress {ic=11, line=0x12, col=0x07} // 0x10ee6 @0x4be
0x10a00…21b3f at04c1 = »This value will always be an H -it identifies this specification as « // 0x10ee9 @0x4c1
0x10a00…21b3f at050b = » « // 0x10f33 @0x50b
0x10a00…21b3f at0510 = SetBufferAddress {ic=11, line=0x13, col=0x07} // 0x10f38 @0x510
0x10a00…21b3f at0513 = »the header statement. « // 0x10f3b @0x513
0x10a00…21b3f at055d = » « // 0x10f85 @0x55d
0x10a00…21b3f at05ad = » « // 0x10fd5 @0x5ad
0x10a00…21b3f at05fd = » « // 0x11025 @0x5fd
0x10a00…21b3f at064d = » « // 0x11075 @0x64d
0x10a00…21b3f at069d = » « // 0x110c5 @0x69d
0x10a00…21b3f at069f = SetBufferAddress {ic=11, line=0x18, col=0x04} // 0x110c7 @0x69f
0x10a00…21b3f at06a2 = »Enter-Exit help text Roll keys-Page help text « // 0x110ca @0x6a2
0x10a00…21b3f }
0x10a00…21b3f }
0x10a00…21b3f }
0x11200…22b45 Form36 {
0x11200…22b45 fh000 = 0x00 // 0x11200 @0x0
0x11200…22b45 fh00 = 2200 // 0x11201 @0x1
0x11200…22b45 fh01 = »NNN« // 0x11203 @0x3
0x11200…22b45 fh02 = 000000 // 0x11206 @0x6
0x11200…22b45 fh03 = »NNN« // 0x11209 @0x9
0x11200…22b45 fh04 = 0x0028 // 0x1120c @0xc
0x11200…22b45 fh05 = 0x06f5 // 0x1120e @0xe
0x11200…22b45 fh06 = 000080011800000000000000000000000000 // 0x11210 @0x10
0x11200…22b45 at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x11222 @0x22
0x11200…22b45 panel = { // 0x11228 @0x28
0x11200…22b45 ┌────────────────────────────────────────────────────────────────────────────────┐
0x11200…22b45 00│ │
0x11200…22b45 01│ │
0x11200…22b45 02│ ╳ HELP FOR SORT HEADER SPECIFICATIONS │
0x11200…22b45 03│ │
0x11200…22b45 04│ │
0x11200…22b45 05│ ╳Job (cols 7-12) . . . . . . . . . . . .SORTR,SORTRS,SORTA │
0x11200…22b45 06│ This entry defines the type of a SORT that will be done. │
0x11200…22b45 07│ SORTR - Regular sort, the output may contain control fields, data │
0x11200…22b45 08│ fields, or both. Add an E in column 12 for equal control │
0x11200…22b45 09│ field ordering. │
0x11200…22b45 10│ SORTRS - Summary sort, the output contains at least one data field │
0x11200…22b45 11│ with accumulated totals. │
0x11200…22b45 12│ SORTA - Record address sort, the output contains relative record │
0x11200…22b45 13│ numbers only. Add an E in column 12 for equal control field │
0x11200…22b45 14│ ordering. │
0x11200…22b45 15│ │
0x11200…22b45 16│ Control field length (cols 13-17) . . . . . . . . . . . . │
0x11200…22b45 17│ This entry is the largest sum (in bytes) of control field lengths for │
0x11200…22b45 18│ any record type. │
0x11200…22b45 19│ │
0x11200…22b45 20│ │
0x11200…22b45 21│ │
0x11200…22b45 22│ │
0x11200…22b45 23│ Enter-Exit help text Roll keys-Page help text │
0x11200…22b45 24│ │
0x11200…22b45 25│ │
0x11200…22b45 26│ │
0x11200…22b45 27│ │
0x11200…22b45 └────────────────────────────────────────────────────────────────────────────────┘
0x11200…22b45 Panel5250 {
0x11200…22b45 at0000 = ClearUnit {esc=04, cu=40} // 0x11228 @0x0
0x11200…22b45 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x1122a @0x2
0x11200…22b45 at0006 = SetBufferAddress {ic=11, line=0x03, col=0x12} // 0x1122e @0x6
0x11200…22b45 at0009 = Attribute {type=0x22} // 0x11231 @0x9
0x11200…22b45 at000a = » HELP FOR SORT HEADER SPECIFICATIONS « // 0x11232 @0xa
0x11200…22b45 at0048 = » « // 0x11270 @0x48
0x11200…22b45 at0098 = » « // 0x112c0 @0x98
0x11200…22b45 at00e8 = » « // 0x11310 @0xe8
0x11200…22b45 at00ea = Attribute {type=0x20} // 0x11312 @0xea
0x11200…22b45 at00eb = SetBufferAddress {ic=11, line=0x06, col=0x04} // 0x11313 @0xeb
0x11200…22b45 at00ee = »Job (cols 7-12) . . . . . . . . . . . .SORTR,SORTRS,SORTA « // 0x11316 @0xee
0x11200…22b45 at013b = » « // 0x11363 @0x13b
0x11200…22b45 at0140 = SetBufferAddress {ic=11, line=0x07, col=0x07} // 0x11368 @0x140
0x11200…22b45 at0143 = »This entry defines the type of a SORT that will be done. « // 0x1136b @0x143
0x11200…22b45 at018d = » « // 0x113b5 @0x18d
0x11200…22b45 at0195 = SetBufferAddress {ic=11, line=0x08, col=0x0a} // 0x113bd @0x195
0x11200…22b45 at0198 = »SORTR - Regular sort, the output may contain control fields, data « // 0x113c0 @0x198
0x11200…22b45 at01df = » « // 0x11407 @0x1df
0x11200…22b45 at01f0 = SetBufferAddress {ic=11, line=0x09, col=0x13} // 0x11418 @0x1f0
0x11200…22b45 at01f3 = »fields, or both. Add an E in column 12 for equal control « // 0x1141b @0x1f3
0x11200…22b45 at0231 = » « // 0x11459 @0x231
0x11200…22b45 at0242 = SetBufferAddress {ic=11, line=0x0a, col=0x13} // 0x1146a @0x242
0x11200…22b45 at0245 = »field ordering. « // 0x1146d @0x245
0x11200…22b45 at0283 = » « // 0x114ab @0x283
0x11200…22b45 at028b = SetBufferAddress {ic=11, line=0x0b, col=0x0a} // 0x114b3 @0x28b
0x11200…22b45 at028e = »SORTRS - Summary sort, the output contains at least one data field « // 0x114b6 @0x28e
0x11200…22b45 at02d5 = » « // 0x114fd @0x2d5
0x11200…22b45 at02e6 = SetBufferAddress {ic=11, line=0x0c, col=0x13} // 0x1150e @0x2e6
0x11200…22b45 at02e9 = »with accumulated totals. « // 0x11511 @0x2e9
0x11200…22b45 at0327 = » « // 0x1154f @0x327
0x11200…22b45 at032f = SetBufferAddress {ic=11, line=0x0d, col=0x0a} // 0x11557 @0x32f
0x11200…22b45 at0332 = »SORTA - Record address sort, the output contains relative record « // 0x1155a @0x332
0x11200…22b45 at0379 = » « // 0x115a1 @0x379
0x11200…22b45 at038a = SetBufferAddress {ic=11, line=0x0e, col=0x13} // 0x115b2 @0x38a
0x11200…22b45 at038d = »numbers only. Add an E in column 12 for equal control field « // 0x115b5 @0x38d
0x11200…22b45 at03cb = » « // 0x115f3 @0x3cb
0x11200…22b45 at03dc = SetBufferAddress {ic=11, line=0x0f, col=0x13} // 0x11604 @0x3dc
0x11200…22b45 at03df = »ordering. « // 0x11607 @0x3df
0x11200…22b45 at041d = » « // 0x11645 @0x41d
0x11200…22b45 at046d = » « // 0x11695 @0x46d
0x11200…22b45 at046f = SetBufferAddress {ic=11, line=0x11, col=0x04} // 0x11697 @0x46f
0x11200…22b45 at0472 = »Control field length (cols 13-17) . . . . . . . . . . . . « // 0x1169a @0x472
0x11200…22b45 at04bf = » « // 0x116e7 @0x4bf
0x11200…22b45 at04c4 = SetBufferAddress {ic=11, line=0x12, col=0x07} // 0x116ec @0x4c4
0x11200…22b45 at04c7 = »This entry is the largest sum (in bytes) of control field lengths for « // 0x116ef @0x4c7
0x11200…22b45 at0511 = » « // 0x11739 @0x511
0x11200…22b45 at0516 = SetBufferAddress {ic=11, line=0x13, col=0x07} // 0x1173e @0x516
0x11200…22b45 at0519 = »any record type. « // 0x11741 @0x519
0x11200…22b45 at0563 = » « // 0x1178b @0x563
0x11200…22b45 at05b3 = » « // 0x117db @0x5b3
0x11200…22b45 at0603 = » « // 0x1182b @0x603
0x11200…22b45 at0653 = » « // 0x1187b @0x653
0x11200…22b45 at06a3 = » « // 0x118cb @0x6a3
0x11200…22b45 at06a5 = SetBufferAddress {ic=11, line=0x18, col=0x04} // 0x118cd @0x6a5
0x11200…22b45 at06a8 = »Enter-Exit help text Roll keys-Page help text « // 0x118d0 @0x6a8
0x11200…22b45 }
0x11200…22b45 }
0x11200…22b45 }
0x11a00…23b9f Form36 {
0x11a00…23b9f fh000 = 0x00 // 0x11a00 @0x0
0x11a00…23b9f fh00 = 2200 // 0x11a01 @0x1
0x11a00…23b9f fh01 = »NNN« // 0x11a03 @0x3
0x11a00…23b9f fh02 = 000000 // 0x11a06 @0x6
0x11a00…23b9f fh03 = »NNN« // 0x11a09 @0x9
0x11a00…23b9f fh04 = 0x0028 // 0x11a0c @0xc
0x11a00…23b9f fh05 = 0x074f // 0x11a0e @0xe
0x11a00…23b9f fh06 = 000080011800000000000000000000000000 // 0x11a10 @0x10
0x11a00…23b9f at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x11a22 @0x22
0x11a00…23b9f panel = { // 0x11a28 @0x28
0x11a00…23b9f ┌────────────────────────────────────────────────────────────────────────────────┐
0x11a00…23b9f 00│ │
0x11a00…23b9f 01│ ╳ HELP FOR SORT HEADER SPECIFICATIONS │
0x11a00…23b9f 02│ │
0x11a00…23b9f 03│ ╳Sequence (col 18) . . . . . . . . . . . . . . . . . . A,D │
0x11a00…23b9f 04│ This is the order in which the records will be sorted. │
0x11a00…23b9f 05│ A - Records in the output file will be in ascending order. │
0x11a00…23b9f 06│ D - Records in the output file will be in descending order. │
0x11a00…23b9f 07│ │
0x11a00…23b9f 08│ Alternative collating seq (col 26). . . . . . . . . . S,F │
0x11a00…23b9f 09│ This option specifies that you want to change the sequence used to │
0x11a00…23b9f 10│ sort values from the standard EBCDIC sequence. │
0x11a00…23b9f 11│ S - ALTSEQ statements apply to all control fields. │
0x11a00…23b9f 12│ F - ALTSEQ statements apply to selected fields. │
0x11a00…23b9f 13│ │
0x11a00…23b9f 14│ Print option (col 27) . . . . . . . . . . . . . . 0,1,2,3 │
0x11a00…23b9f 15│ This option specifies the kind of message output from the sort program. │
0x11a00…23b9f 16│ 0 - Print: Sort specifications, diagnostics, and status messages. │
0x11a00…23b9f 17│ And display: Action messages and displayed messages. │
0x11a00…23b9f 18│ 1 - Print: Status messages. │
0x11a00…23b9f 19│ And display: Action messages and displayed messages. │
0x11a00…23b9f 20│ 2 - Print: Action messages. And display: Displayed messages. │
0x11a00…23b9f 21│ 3 - Display: Displayed messages only. │
0x11a00…23b9f 22│ │
0x11a00…23b9f 23│ Enter-Exit help text Roll keys-Page help text │
0x11a00…23b9f 24│ │
0x11a00…23b9f 25│ │
0x11a00…23b9f 26│ │
0x11a00…23b9f 27│ │
0x11a00…23b9f └────────────────────────────────────────────────────────────────────────────────┘
0x11a00…23b9f Panel5250 {
0x11a00…23b9f at0000 = ClearUnit {esc=04, cu=40} // 0x11a28 @0x0
0x11a00…23b9f at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x11a2a @0x2
0x11a00…23b9f at0006 = SetBufferAddress {ic=11, line=0x02, col=0x10} // 0x11a2e @0x6
0x11a00…23b9f at0009 = Attribute {type=0x22} // 0x11a31 @0x9
0x11a00…23b9f at000a = » HELP FOR SORT HEADER SPECIFICATIONS « // 0x11a32 @0xa
0x11a00…23b9f at004a = » « // 0x11a72 @0x4a
0x11a00…23b9f at009a = » « // 0x11ac2 @0x9a
0x11a00…23b9f at009c = Attribute {type=0x20} // 0x11ac4 @0x9c
0x11a00…23b9f at009d = SetBufferAddress {ic=11, line=0x04, col=0x04} // 0x11ac5 @0x9d
0x11a00…23b9f at00a0 = »Sequence (col 18) . . . . . . . . . . . . . . . . . . A,D « // 0x11ac8 @0xa0
0x11a00…23b9f at00ed = » « // 0x11b15 @0xed
0x11a00…23b9f at00f2 = SetBufferAddress {ic=11, line=0x05, col=0x07} // 0x11b1a @0xf2
0x11a00…23b9f at00f5 = »This is the order in which the records will be sorted. « // 0x11b1d @0xf5
0x11a00…23b9f at013f = » « // 0x11b67 @0x13f
0x11a00…23b9f at0147 = SetBufferAddress {ic=11, line=0x06, col=0x0a} // 0x11b6f @0x147
0x11a00…23b9f at014a = »A - Records in the output file will be in ascending order. « // 0x11b72 @0x14a
0x11a00…23b9f at0191 = » « // 0x11bb9 @0x191
0x11a00…23b9f at0199 = SetBufferAddress {ic=11, line=0x07, col=0x0a} // 0x11bc1 @0x199
0x11a00…23b9f at019c = »D - Records in the output file will be in descending order. « // 0x11bc4 @0x19c
0x11a00…23b9f at01e3 = » « // 0x11c0b @0x1e3
0x11a00…23b9f at0233 = » « // 0x11c5b @0x233
0x11a00…23b9f at0235 = SetBufferAddress {ic=11, line=0x09, col=0x04} // 0x11c5d @0x235
0x11a00…23b9f at0238 = »Alternative collating seq (col 26). . . . . . . . . . S,F « // 0x11c60 @0x238
0x11a00…23b9f at0285 = » « // 0x11cad @0x285
0x11a00…23b9f at028a = SetBufferAddress {ic=11, line=0x0a, col=0x07} // 0x11cb2 @0x28a
0x11a00…23b9f at028d = »This option specifies that you want to change the sequence used to « // 0x11cb5 @0x28d
0x11a00…23b9f at02d7 = » « // 0x11cff @0x2d7
0x11a00…23b9f at02dc = SetBufferAddress {ic=11, line=0x0b, col=0x07} // 0x11d04 @0x2dc
0x11a00…23b9f at02df = »sort values from the standard EBCDIC sequence. « // 0x11d07 @0x2df
0x11a00…23b9f at0329 = » « // 0x11d51 @0x329
0x11a00…23b9f at0331 = SetBufferAddress {ic=11, line=0x0c, col=0x0a} // 0x11d59 @0x331
0x11a00…23b9f at0334 = »S - ALTSEQ statements apply to all control fields. « // 0x11d5c @0x334
0x11a00…23b9f at037b = » « // 0x11da3 @0x37b
0x11a00…23b9f at0383 = SetBufferAddress {ic=11, line=0x0d, col=0x0a} // 0x11dab @0x383
0x11a00…23b9f at0386 = »F - ALTSEQ statements apply to selected fields. « // 0x11dae @0x386
0x11a00…23b9f at03cd = » « // 0x11df5 @0x3cd
0x11a00…23b9f at041d = » « // 0x11e45 @0x41d
0x11a00…23b9f at041f = SetBufferAddress {ic=11, line=0x0f, col=0x04} // 0x11e47 @0x41f
0x11a00…23b9f at0422 = »Print option (col 27) . . . . . . . . . . . . . . 0,1,2,3 « // 0x11e4a @0x422
0x11a00…23b9f at046f = » « // 0x11e97 @0x46f
0x11a00…23b9f at0474 = SetBufferAddress {ic=11, line=0x10, col=0x07} // 0x11e9c @0x474
0x11a00…23b9f at0477 = »This option specifies the kind of message output from the sort program. « // 0x11e9f @0x477
0x11a00…23b9f at04c1 = » « // 0x11ee9 @0x4c1
0x11a00…23b9f at04c9 = SetBufferAddress {ic=11, line=0x11, col=0x0a} // 0x11ef1 @0x4c9
0x11a00…23b9f at04cc = »0 - Print: Sort specifications, diagnostics, and status messages. « // 0x11ef4 @0x4cc
0x11a00…23b9f at0513 = » « // 0x11f3b @0x513
0x11a00…23b9f at051f = SetBufferAddress {ic=11, line=0x12, col=0x0e} // 0x11f47 @0x51f
0x11a00…23b9f at0522 = »And display: Action messages and displayed messages. « // 0x11f4a @0x522
0x11a00…23b9f at0565 = » « // 0x11f8d @0x565
0x11a00…23b9f at056d = SetBufferAddress {ic=11, line=0x13, col=0x0a} // 0x11f95 @0x56d
0x11a00…23b9f at0570 = »1 - Print: Status messages. « // 0x11f98 @0x570
0x11a00…23b9f at05b7 = » « // 0x11fdf @0x5b7
0x11a00…23b9f at05c3 = SetBufferAddress {ic=11, line=0x14, col=0x0e} // 0x11feb @0x5c3
0x11a00…23b9f at05c6 = »And display: Action messages and displayed messages. « // 0x11fee @0x5c6
0x11a00…23b9f at0609 = » « // 0x12031 @0x609
0x11a00…23b9f at0611 = SetBufferAddress {ic=11, line=0x15, col=0x0a} // 0x12039 @0x611
0x11a00…23b9f at0614 = »2 - Print: Action messages. And display: Displayed messages. « // 0x1203c @0x614
0x11a00…23b9f at065b = » « // 0x12083 @0x65b
0x11a00…23b9f at0663 = SetBufferAddress {ic=11, line=0x16, col=0x0a} // 0x1208b @0x663
0x11a00…23b9f at0666 = »3 - Display: Displayed messages only. « // 0x1208e @0x666
0x11a00…23b9f at06ad = » « // 0x120d5 @0x6ad
0x11a00…23b9f at06fd = » « // 0x12125 @0x6fd
0x11a00…23b9f at06ff = SetBufferAddress {ic=11, line=0x18, col=0x04} // 0x12127 @0x6ff
0x11a00…23b9f at0702 = »Enter-Exit help text Roll keys-Page help text « // 0x1212a @0x702
0x11a00…23b9f }
0x11a00…23b9f }
0x11a00…23b9f }
0x12200…24b43 Form36 {
0x12200…24b43 fh000 = 0x00 // 0x12200 @0x0
0x12200…24b43 fh00 = 2200 // 0x12201 @0x1
0x12200…24b43 fh01 = »NNN« // 0x12203 @0x3
0x12200…24b43 fh02 = 000000 // 0x12206 @0x6
0x12200…24b43 fh03 = »NNN« // 0x12209 @0x9
0x12200…24b43 fh04 = 0x0028 // 0x1220c @0xc
0x12200…24b43 fh05 = 0x06f3 // 0x1220e @0xe
0x12200…24b43 fh06 = 000080011800000000000000000000000000 // 0x12210 @0x10
0x12200…24b43 at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x12222 @0x22
0x12200…24b43 panel = { // 0x12228 @0x28
0x12200…24b43 ┌────────────────────────────────────────────────────────────────────────────────┐
0x12200…24b43 00│ │
0x12200…24b43 01│ │
0x12200…24b43 02│ ╳ HELP FOR SORT HEADER SPECIFICATIONS │
0x12200…24b43 03│ │
0x12200…24b43 04│ │
0x12200…24b43 05│ ╳Output option (col 28). . . . . . . . . . . . . . . . . X │
0x12200…24b43 06│ This option specifies what is included in the sorted output file in some │
0x12200…24b43 07│ sort jobs. If an X is specified, the control fields do not appear in │
0x12200…24b43 08│ the output file. Otherwise, they are included. │
0x12200…24b43 09│ │
0x12200…24b43 10│ Output record length (cols 29-32) . . . . . . . .(1-4096) │
0x12200…24b43 11│ This entry specifies the length of the output records in a regular or │
0x12200…24b43 12│ summary sort. │
0x12200…24b43 13│ │
0x12200…24b43 14│ Null output (col 36). . . . . . . . . . . . . . . . . . N │
0x12200…24b43 15│ An N entry in this colmun indicates that a message will NOT be displayed │
0x12200…24b43 16│ to the operator if there are no input records selected for sorting. │
0x12200…24b43 17│ Otherwise, a message is displayed indicating that no records were │
0x12200…24b43 18│ selected for sorting. │
0x12200…24b43 19│ │
0x12200…24b43 20│ │
0x12200…24b43 21│ │
0x12200…24b43 22│ │
0x12200…24b43 23│ Enter-Exit help text Roll keys-Page help text │
0x12200…24b43 24│ │
0x12200…24b43 25│ │
0x12200…24b43 26│ │
0x12200…24b43 27│ │
0x12200…24b43 └────────────────────────────────────────────────────────────────────────────────┘
0x12200…24b43 Panel5250 {
0x12200…24b43 at0000 = ClearUnit {esc=04, cu=40} // 0x12228 @0x0
0x12200…24b43 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x1222a @0x2
0x12200…24b43 at0006 = SetBufferAddress {ic=11, line=0x03, col=0x12} // 0x1222e @0x6
0x12200…24b43 at0009 = Attribute {type=0x22} // 0x12231 @0x9
0x12200…24b43 at000a = » HELP FOR SORT HEADER SPECIFICATIONS « // 0x12232 @0xa
0x12200…24b43 at0048 = » « // 0x12270 @0x48
0x12200…24b43 at0098 = » « // 0x122c0 @0x98
0x12200…24b43 at00e8 = » « // 0x12310 @0xe8
0x12200…24b43 at00ea = Attribute {type=0x20} // 0x12312 @0xea
0x12200…24b43 at00eb = SetBufferAddress {ic=11, line=0x06, col=0x04} // 0x12313 @0xeb
0x12200…24b43 at00ee = »Output option (col 28). . . . . . . . . . . . . . . . . X « // 0x12316 @0xee
0x12200…24b43 at013b = » « // 0x12363 @0x13b
0x12200…24b43 at0140 = SetBufferAddress {ic=11, line=0x07, col=0x07} // 0x12368 @0x140
0x12200…24b43 at0143 = »This option specifies what is included in the sorted output file in some « // 0x1236b @0x143
0x12200…24b43 at018d = » « // 0x123b5 @0x18d
0x12200…24b43 at0192 = SetBufferAddress {ic=11, line=0x08, col=0x07} // 0x123ba @0x192
0x12200…24b43 at0195 = »sort jobs. If an X is specified, the control fields do not appear in « // 0x123bd @0x195
0x12200…24b43 at01df = » « // 0x12407 @0x1df
0x12200…24b43 at01e4 = SetBufferAddress {ic=11, line=0x09, col=0x07} // 0x1240c @0x1e4
0x12200…24b43 at01e7 = »the output file. Otherwise, they are included. « // 0x1240f @0x1e7
0x12200…24b43 at0231 = » « // 0x12459 @0x231
0x12200…24b43 at0281 = » « // 0x124a9 @0x281
0x12200…24b43 at0283 = SetBufferAddress {ic=11, line=0x0b, col=0x04} // 0x124ab @0x283
0x12200…24b43 at0286 = »Output record length (cols 29-32) . . . . . . . .(1-4096) « // 0x124ae @0x286
0x12200…24b43 at02d3 = » « // 0x124fb @0x2d3
0x12200…24b43 at02d8 = SetBufferAddress {ic=11, line=0x0c, col=0x07} // 0x12500 @0x2d8
0x12200…24b43 at02db = »This entry specifies the length of the output records in a regular or « // 0x12503 @0x2db
0x12200…24b43 at0325 = » « // 0x1254d @0x325
0x12200…24b43 at032a = SetBufferAddress {ic=11, line=0x0d, col=0x07} // 0x12552 @0x32a
0x12200…24b43 at032d = »summary sort. « // 0x12555 @0x32d
0x12200…24b43 at0377 = » « // 0x1259f @0x377
0x12200…24b43 at03c7 = » « // 0x125ef @0x3c7
0x12200…24b43 at03c9 = SetBufferAddress {ic=11, line=0x0f, col=0x04} // 0x125f1 @0x3c9
0x12200…24b43 at03cc = »Null output (col 36). . . . . . . . . . . . . . . . . . N « // 0x125f4 @0x3cc
0x12200…24b43 at0419 = » « // 0x12641 @0x419
0x12200…24b43 at041e = SetBufferAddress {ic=11, line=0x10, col=0x07} // 0x12646 @0x41e
0x12200…24b43 at0421 = »An N entry in this colmun indicates that a message will NOT be displayed « // 0x12649 @0x421
0x12200…24b43 at046b = » « // 0x12693 @0x46b
0x12200…24b43 at0470 = SetBufferAddress {ic=11, line=0x11, col=0x07} // 0x12698 @0x470
0x12200…24b43 at0473 = »to the operator if there are no input records selected for sorting. « // 0x1269b @0x473
0x12200…24b43 at04bd = » « // 0x126e5 @0x4bd
0x12200…24b43 at04c2 = SetBufferAddress {ic=11, line=0x12, col=0x07} // 0x126ea @0x4c2
0x12200…24b43 at04c5 = »Otherwise, a message is displayed indicating that no records were « // 0x126ed @0x4c5
0x12200…24b43 at050f = » « // 0x12737 @0x50f
0x12200…24b43 at0514 = SetBufferAddress {ic=11, line=0x13, col=0x07} // 0x1273c @0x514
0x12200…24b43 at0517 = »selected for sorting. « // 0x1273f @0x517
0x12200…24b43 at0561 = » « // 0x12789 @0x561
0x12200…24b43 at05b1 = » « // 0x127d9 @0x5b1
0x12200…24b43 at0601 = » « // 0x12829 @0x601
0x12200…24b43 at0651 = » « // 0x12879 @0x651
0x12200…24b43 at06a1 = » « // 0x128c9 @0x6a1
0x12200…24b43 at06a3 = SetBufferAddress {ic=11, line=0x18, col=0x04} // 0x128cb @0x6a3
0x12200…24b43 at06a6 = »Enter-Exit help text Roll keys-Page help text « // 0x128ce @0x6a6
0x12200…24b43 }
0x12200…24b43 }
0x12200…24b43 }
0x12a00…25bee Form36 {
0x12a00…25bee fh000 = 0x00 // 0x12a00 @0x0
0x12a00…25bee fh00 = 2200 // 0x12a01 @0x1
0x12a00…25bee fh01 = »NNN« // 0x12a03 @0x3
0x12a00…25bee fh02 = 000000 // 0x12a06 @0x6
0x12a00…25bee fh03 = »NNN« // 0x12a09 @0x9
0x12a00…25bee fh04 = 0x0028 // 0x12a0c @0xc
0x12a00…25bee fh05 = 0x079e // 0x12a0e @0xe
0x12a00…25bee fh06 = 000080011800000000000000000000000000 // 0x12a10 @0x10
0x12a00…25bee at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x12a22 @0x22
0x12a00…25bee panel = { // 0x12a28 @0x28
0x12a00…25bee ┌────────────────────────────────────────────────────────────────────────────────┐
0x12a00…25bee 00│ ╳ HELP FOR SORT FIELD SPECIFICATIONS │
0x12a00…25bee 01│ │
0x12a00…25bee 02│ ╳DESCRIPTION │
0x12a00…25bee 03│ ╳Field specifications tell the sort program how to arrange and format │
0x12a00…25bee 04│ (build) records in the work file and the output file. │
0x12a00…25bee 05│ │
0x12a00…25bee 06│ Statement number (cols 3-5) . . . . . . . . . . . . . . . │
0x12a00…25bee 07│ This is an optional entry, it may be used to number your specifications, │
0x12a00…25bee 08│ however, it is ignored by the sort program. │
0x12a00…25bee 09│ │
0x12a00…25bee 10│ Statement type (col 6). . . . . . . . . . . . . . . . . F │
0x12a00…25bee 11│ This will always be an F to indicate a field specification statement. │
0x12a00…25bee 12│ │
0x12a00…25bee 13│ Field type (col 7). . . . . . . . . . . . . . N,O,F,D,S,* │
0x12a00…25bee 14│ This entry specifies the way records, and their data, are to be sorted. │
0x12a00…25bee 15│ N - Normal, records are sorted in the order specified on the header. │
0x12a00…25bee 16│ O - Opposite, records are sorted opposite the order on the header. │
0x12a00…25bee 17│ F - Forced, character is replaced before sorting. │
0x12a00…25bee 18│ D - Data, field appears in the output record. │
0x12a00…25bee 19│ S - Summary data, field contains accumulated totals. │
0x12a00…25bee 20│ * - Comment, line contains no specifications, only comments. │
0x12a00…25bee 21│ │
0x12a00…25bee 22│ │
0x12a00…25bee 23│ Enter-Exit help text Roll keys-Page help text │
0x12a00…25bee 24│ │
0x12a00…25bee 25│ │
0x12a00…25bee 26│ │
0x12a00…25bee 27│ │
0x12a00…25bee └────────────────────────────────────────────────────────────────────────────────┘
0x12a00…25bee Panel5250 {
0x12a00…25bee at0000 = ClearUnit {esc=04, cu=40} // 0x12a28 @0x0
0x12a00…25bee at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x12a2a @0x2
0x12a00…25bee at0006 = SetBufferAddress {ic=11, line=0x01, col=0x11} // 0x12a2e @0x6
0x12a00…25bee at0009 = Attribute {type=0x22} // 0x12a31 @0x9
0x12a00…25bee at000a = » HELP FOR SORT FIELD SPECIFICATIONS « // 0x12a32 @0xa
0x12a00…25bee at0049 = » « // 0x12a71 @0x49
0x12a00…25bee at0099 = » « // 0x12ac1 @0x99
0x12a00…25bee at009b = Attribute {type=0x20} // 0x12ac3 @0x9b
0x12a00…25bee at009c = SetBufferAddress {ic=11, line=0x03, col=0x03} // 0x12ac4 @0x9c
0x12a00…25bee at009f = Attribute {type=0x22} // 0x12ac7 @0x9f
0x12a00…25bee at00a0 = »DESCRIPTION « // 0x12ac8 @0xa0
0x12a00…25bee at00ed = » « // 0x12b15 @0xed
0x12a00…25bee at00f2 = Attribute {type=0x20} // 0x12b1a @0xf2
0x12a00…25bee at00f3 = SetBufferAddress {ic=11, line=0x04, col=0x07} // 0x12b1b @0xf3
0x12a00…25bee at00f6 = »Field specifications tell the sort program how to arrange and format « // 0x12b1e @0xf6
0x12a00…25bee at0140 = » « // 0x12b68 @0x140
0x12a00…25bee at0145 = SetBufferAddress {ic=11, line=0x05, col=0x07} // 0x12b6d @0x145
0x12a00…25bee at0148 = »(build) records in the work file and the output file. « // 0x12b70 @0x148
0x12a00…25bee at0192 = » « // 0x12bba @0x192
0x12a00…25bee at01e2 = » « // 0x12c0a @0x1e2
0x12a00…25bee at01e4 = SetBufferAddress {ic=11, line=0x07, col=0x04} // 0x12c0c @0x1e4
0x12a00…25bee at01e7 = »Statement number (cols 3-5) . . . . . . . . . . . . . . . « // 0x12c0f @0x1e7
0x12a00…25bee at0234 = » « // 0x12c5c @0x234
0x12a00…25bee at0239 = SetBufferAddress {ic=11, line=0x08, col=0x07} // 0x12c61 @0x239
0x12a00…25bee at023c = »This is an optional entry, it may be used to number your specifications, « // 0x12c64 @0x23c
0x12a00…25bee at0286 = » « // 0x12cae @0x286
0x12a00…25bee at028b = SetBufferAddress {ic=11, line=0x09, col=0x07} // 0x12cb3 @0x28b
0x12a00…25bee at028e = »however, it is ignored by the sort program. « // 0x12cb6 @0x28e
0x12a00…25bee at02d8 = » « // 0x12d00 @0x2d8
0x12a00…25bee at0328 = » « // 0x12d50 @0x328
0x12a00…25bee at032a = SetBufferAddress {ic=11, line=0x0b, col=0x04} // 0x12d52 @0x32a
0x12a00…25bee at032d = »Statement type (col 6). . . . . . . . . . . . . . . . . F « // 0x12d55 @0x32d
0x12a00…25bee at037a = » « // 0x12da2 @0x37a
0x12a00…25bee at037f = SetBufferAddress {ic=11, line=0x0c, col=0x07} // 0x12da7 @0x37f
0x12a00…25bee at0382 = »This will always be an F to indicate a field specification statement. « // 0x12daa @0x382
0x12a00…25bee at03cc = » « // 0x12df4 @0x3cc
0x12a00…25bee at041c = » « // 0x12e44 @0x41c
0x12a00…25bee at041e = SetBufferAddress {ic=11, line=0x0e, col=0x04} // 0x12e46 @0x41e
0x12a00…25bee at0421 = »Field type (col 7). . . . . . . . . . . . . . N,O,F,D,S,* « // 0x12e49 @0x421
0x12a00…25bee at046e = » « // 0x12e96 @0x46e
0x12a00…25bee at0473 = SetBufferAddress {ic=11, line=0x0f, col=0x07} // 0x12e9b @0x473
0x12a00…25bee at0476 = »This entry specifies the way records, and their data, are to be sorted. « // 0x12e9e @0x476
0x12a00…25bee at04c0 = » « // 0x12ee8 @0x4c0
0x12a00…25bee at04c8 = SetBufferAddress {ic=11, line=0x10, col=0x0a} // 0x12ef0 @0x4c8
0x12a00…25bee at04cb = »N - Normal, records are sorted in the order specified on the header. « // 0x12ef3 @0x4cb
0x12a00…25bee at0512 = » « // 0x12f3a @0x512
0x12a00…25bee at051a = SetBufferAddress {ic=11, line=0x11, col=0x0a} // 0x12f42 @0x51a
0x12a00…25bee at051d = »O - Opposite, records are sorted opposite the order on the header. « // 0x12f45 @0x51d
0x12a00…25bee at0564 = » « // 0x12f8c @0x564
0x12a00…25bee at056c = SetBufferAddress {ic=11, line=0x12, col=0x0a} // 0x12f94 @0x56c
0x12a00…25bee at056f = »F - Forced, character is replaced before sorting. « // 0x12f97 @0x56f
0x12a00…25bee at05b6 = » « // 0x12fde @0x5b6
0x12a00…25bee at05be = SetBufferAddress {ic=11, line=0x13, col=0x0a} // 0x12fe6 @0x5be
0x12a00…25bee at05c1 = »D - Data, field appears in the output record. « // 0x12fe9 @0x5c1
0x12a00…25bee at0608 = » « // 0x13030 @0x608
0x12a00…25bee at0610 = SetBufferAddress {ic=11, line=0x14, col=0x0a} // 0x13038 @0x610
0x12a00…25bee at0613 = »S - Summary data, field contains accumulated totals. « // 0x1303b @0x613
0x12a00…25bee at065a = » « // 0x13082 @0x65a
0x12a00…25bee at0662 = SetBufferAddress {ic=11, line=0x15, col=0x0a} // 0x1308a @0x662
0x12a00…25bee at0665 = »* - Comment, line contains no specifications, only comments. « // 0x1308d @0x665
0x12a00…25bee at06ac = » « // 0x130d4 @0x6ac
0x12a00…25bee at06fc = » « // 0x13124 @0x6fc
0x12a00…25bee at074c = » « // 0x13174 @0x74c
0x12a00…25bee at074e = SetBufferAddress {ic=11, line=0x18, col=0x04} // 0x13176 @0x74e
0x12a00…25bee at0751 = »Enter-Exit help text Roll keys-Page help text « // 0x13179 @0x751
0x12a00…25bee }
0x12a00…25bee }
0x12a00…25bee }
0x13200…26b97 Form36 {
0x13200…26b97 fh000 = 0x00 // 0x13200 @0x0
0x13200…26b97 fh00 = 2200 // 0x13201 @0x1
0x13200…26b97 fh01 = »NNN« // 0x13203 @0x3
0x13200…26b97 fh02 = 000000 // 0x13206 @0x6
0x13200…26b97 fh03 = »NNN« // 0x13209 @0x9
0x13200…26b97 fh04 = 0x0028 // 0x1320c @0xc
0x13200…26b97 fh05 = 0x0747 // 0x1320e @0xe
0x13200…26b97 fh06 = 000080011800000000000000000000000000 // 0x13210 @0x10
0x13200…26b97 at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x13222 @0x22
0x13200…26b97 panel = { // 0x13228 @0x28
0x13200…26b97 ┌────────────────────────────────────────────────────────────────────────────────┐
0x13200…26b97 00│ │
0x13200…26b97 01│ ╳ HELP FOR SORT FIELD SPECIFICATIONS │
0x13200…26b97 02│ │
0x13200…26b97 03│ │
0x13200…26b97 04│ ╳Data type (col 8). . . . . . . . . . . . . . C,Z,D,P,U,V │
0x13200…26b97 05│ This entry specifies the type of data that will be compared. │
0x13200…26b97 06│ C - Use both the zone and digit portions of the characters in this │
0x13200…26b97 07│ field. │
0x13200…26b97 08│ Z - Use only the zone portion of characters in the field. │
0x13200…26b97 09│ D - Use only the digit portion of characters in this field. │
0x13200…26b97 10│ P - Use this field as signed packed decimal data. │
0x13200…26b97 11│ U - Use this field as signed unpacked decimal data. │
0x13200…26b97 12│ V - Use this field to force a data character into the output record. │
0x13200…26b97 13│ │
0x13200…26b97 14│ Field location start (cols 9-12). . . . . . . . . . . . . │
0x13200…26b97 15│ This is the starting position of the field within the record (blank if │
0x13200…26b97 16│ it is a one character field). │
0x13200…26b97 17│ │
0x13200…26b97 18│ Field location end (cols 13-16) . . . . . . . . . . . . . │
0x13200…26b97 19│ This is the ending position of the field within the record. │
0x13200…26b97 20│ │
0x13200…26b97 21│ │
0x13200…26b97 22│ │
0x13200…26b97 23│ Enter-Exit help text Roll keys-Page help text │
0x13200…26b97 24│ │
0x13200…26b97 25│ │
0x13200…26b97 26│ │
0x13200…26b97 27│ │
0x13200…26b97 └────────────────────────────────────────────────────────────────────────────────┘
0x13200…26b97 Panel5250 {
0x13200…26b97 at0000 = ClearUnit {esc=04, cu=40} // 0x13228 @0x0
0x13200…26b97 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x1322a @0x2
0x13200…26b97 at0006 = SetBufferAddress {ic=11, line=0x02, col=0x12} // 0x1322e @0x6
0x13200…26b97 at0009 = Attribute {type=0x22} // 0x13231 @0x9
0x13200…26b97 at000a = » HELP FOR SORT FIELD SPECIFICATIONS « // 0x13232 @0xa
0x13200…26b97 at0048 = » « // 0x13270 @0x48
0x13200…26b97 at0098 = » « // 0x132c0 @0x98
0x13200…26b97 at00e8 = » « // 0x13310 @0xe8
0x13200…26b97 at00ea = Attribute {type=0x20} // 0x13312 @0xea
0x13200…26b97 at00eb = SetBufferAddress {ic=11, line=0x05, col=0x04} // 0x13313 @0xeb
0x13200…26b97 at00ee = »Data type (col 8). . . . . . . . . . . . . . C,Z,D,P,U,V « // 0x13316 @0xee
0x13200…26b97 at013b = » « // 0x13363 @0x13b
0x13200…26b97 at0140 = SetBufferAddress {ic=11, line=0x06, col=0x07} // 0x13368 @0x140
0x13200…26b97 at0143 = »This entry specifies the type of data that will be compared. « // 0x1336b @0x143
0x13200…26b97 at018d = » « // 0x133b5 @0x18d
0x13200…26b97 at0195 = SetBufferAddress {ic=11, line=0x07, col=0x0a} // 0x133bd @0x195
0x13200…26b97 at0198 = »C - Use both the zone and digit portions of the characters in this « // 0x133c0 @0x198
0x13200…26b97 at01df = » « // 0x13407 @0x1df
0x13200…26b97 at01eb = SetBufferAddress {ic=11, line=0x08, col=0x0e} // 0x13413 @0x1eb
0x13200…26b97 at01ee = »field. « // 0x13416 @0x1ee
0x13200…26b97 at0231 = » « // 0x13459 @0x231
0x13200…26b97 at0239 = SetBufferAddress {ic=11, line=0x09, col=0x0a} // 0x13461 @0x239
0x13200…26b97 at023c = »Z - Use only the zone portion of characters in the field. « // 0x13464 @0x23c
0x13200…26b97 at0283 = » « // 0x134ab @0x283
0x13200…26b97 at028b = SetBufferAddress {ic=11, line=0x0a, col=0x0a} // 0x134b3 @0x28b
0x13200…26b97 at028e = »D - Use only the digit portion of characters in this field. « // 0x134b6 @0x28e
0x13200…26b97 at02d5 = » « // 0x134fd @0x2d5
0x13200…26b97 at02dd = SetBufferAddress {ic=11, line=0x0b, col=0x0a} // 0x13505 @0x2dd
0x13200…26b97 at02e0 = »P - Use this field as signed packed decimal data. « // 0x13508 @0x2e0
0x13200…26b97 at0327 = » « // 0x1354f @0x327
0x13200…26b97 at032f = SetBufferAddress {ic=11, line=0x0c, col=0x0a} // 0x13557 @0x32f
0x13200…26b97 at0332 = »U - Use this field as signed unpacked decimal data. « // 0x1355a @0x332
0x13200…26b97 at0379 = » « // 0x135a1 @0x379
0x13200…26b97 at0381 = SetBufferAddress {ic=11, line=0x0d, col=0x0a} // 0x135a9 @0x381
0x13200…26b97 at0384 = »V - Use this field to force a data character into the output record. « // 0x135ac @0x384
0x13200…26b97 at03cb = » « // 0x135f3 @0x3cb
0x13200…26b97 at041b = » « // 0x13643 @0x41b
0x13200…26b97 at041d = SetBufferAddress {ic=11, line=0x0f, col=0x04} // 0x13645 @0x41d
0x13200…26b97 at0420 = »Field location start (cols 9-12). . . . . . . . . . . . . « // 0x13648 @0x420
0x13200…26b97 at046d = » « // 0x13695 @0x46d
0x13200…26b97 at0472 = SetBufferAddress {ic=11, line=0x10, col=0x07} // 0x1369a @0x472
0x13200…26b97 at0475 = »This is the starting position of the field within the record (blank if « // 0x1369d @0x475
0x13200…26b97 at04bf = » « // 0x136e7 @0x4bf
0x13200…26b97 at04c4 = SetBufferAddress {ic=11, line=0x11, col=0x07} // 0x136ec @0x4c4
0x13200…26b97 at04c7 = »it is a one character field). « // 0x136ef @0x4c7
0x13200…26b97 at0511 = » « // 0x13739 @0x511
0x13200…26b97 at0561 = » « // 0x13789 @0x561
0x13200…26b97 at0563 = SetBufferAddress {ic=11, line=0x13, col=0x04} // 0x1378b @0x563
0x13200…26b97 at0566 = »Field location end (cols 13-16) . . . . . . . . . . . . . « // 0x1378e @0x566
0x13200…26b97 at05b3 = » « // 0x137db @0x5b3
0x13200…26b97 at05b8 = SetBufferAddress {ic=11, line=0x14, col=0x07} // 0x137e0 @0x5b8
0x13200…26b97 at05bb = »This is the ending position of the field within the record. « // 0x137e3 @0x5bb
0x13200…26b97 at0605 = » « // 0x1382d @0x605
0x13200…26b97 at0655 = » « // 0x1387d @0x655
0x13200…26b97 at06a5 = » « // 0x138cd @0x6a5
0x13200…26b97 at06f5 = » « // 0x1391d @0x6f5
0x13200…26b97 at06f7 = SetBufferAddress {ic=11, line=0x18, col=0x04} // 0x1391f @0x6f7
0x13200…26b97 at06fa = »Enter-Exit help text Roll keys-Page help text « // 0x13922 @0x6fa
0x13200…26b97 }
0x13200…26b97 }
0x13200…26b97 }
0x13a00…27b9b Form36 {
0x13a00…27b9b fh000 = 0x00 // 0x13a00 @0x0
0x13a00…27b9b fh00 = 2200 // 0x13a01 @0x1
0x13a00…27b9b fh01 = »NNN« // 0x13a03 @0x3
0x13a00…27b9b fh02 = 000000 // 0x13a06 @0x6
0x13a00…27b9b fh03 = »NNN« // 0x13a09 @0x9
0x13a00…27b9b fh04 = 0x0028 // 0x13a0c @0xc
0x13a00…27b9b fh05 = 0x074b // 0x13a0e @0xe
0x13a00…27b9b fh06 = 000080011800000000000000000000000000 // 0x13a10 @0x10
0x13a00…27b9b at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x13a22 @0x22
0x13a00…27b9b panel = { // 0x13a28 @0x28
0x13a00…27b9b ┌────────────────────────────────────────────────────────────────────────────────┐
0x13a00…27b9b 00│ │
0x13a00…27b9b 01│ ╳ HELP FOR SORT FIELD SPECIFICATIONS │
0x13a00…27b9b 02│ │
0x13a00…27b9b 03│ ╳Forced character or overflow indicator (col 17) . . . . . │
0x13a00…27b9b 04│ For a forced control field, enter the character that is to be changed. │
0x13a00…27b9b 05│ For an accumulated total field, enter the character that will indicate │
0x13a00…27b9b 06│ an overflow has occured. Otherwise, leave blank. │
0x13a00…27b9b 07│ │
0x13a00…27b9b 08│ Substitute character or overflow initialization (col 18). │
0x13a00…27b9b 09│ For a forced control field, enter the character that will be substituted. │
0x13a00…27b9b 10│ For an accumulated total field, enter the character to initialize the │
0x13a00…27b9b 11│ overflow indicator to. Otherwise, leave blank. │
0x13a00…27b9b 12│ │
0x13a00…27b9b 13│ Forced field continuation (col 19). . . . . . . . . . . . │
0x13a00…27b9b 14│ For a forced control field, any character other than a blank indicates │
0x13a00…27b9b 15│ a continuation of the preceding statement. │
0x13a00…27b9b 16│ │
0x13a00…27b9b 17│ Overflow field length or alt. seq. field (cols 20-22) . . │
0x13a00…27b9b 18│ This is the length for an overflow field in a summary sort. If this is │
0x13a00…27b9b 19│ a summary data field, this is the length to use for the summary total. │
0x13a00…27b9b 20│ If this is a control field, an A in column 20 indicates an alternative │
0x13a00…27b9b 21│ sequence (ALTSEQ) for this field. │
0x13a00…27b9b 22│ │
0x13a00…27b9b 23│ Enter-Exit help text Roll keys-Page help text │
0x13a00…27b9b 24│ │
0x13a00…27b9b 25│ │
0x13a00…27b9b 26│ │
0x13a00…27b9b 27│ │
0x13a00…27b9b └────────────────────────────────────────────────────────────────────────────────┘
0x13a00…27b9b Panel5250 {
0x13a00…27b9b at0000 = ClearUnit {esc=04, cu=40} // 0x13a28 @0x0
0x13a00…27b9b at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x13a2a @0x2
0x13a00…27b9b at0006 = SetBufferAddress {ic=11, line=0x02, col=0x12} // 0x13a2e @0x6
0x13a00…27b9b at0009 = Attribute {type=0x22} // 0x13a31 @0x9
0x13a00…27b9b at000a = » HELP FOR SORT FIELD SPECIFICATIONS « // 0x13a32 @0xa
0x13a00…27b9b at0048 = » « // 0x13a70 @0x48
0x13a00…27b9b at0098 = » « // 0x13ac0 @0x98
0x13a00…27b9b at009a = Attribute {type=0x20} // 0x13ac2 @0x9a
0x13a00…27b9b at009b = SetBufferAddress {ic=11, line=0x04, col=0x04} // 0x13ac3 @0x9b
0x13a00…27b9b at009e = »Forced character or overflow indicator (col 17) . . . . . « // 0x13ac6 @0x9e
0x13a00…27b9b at00eb = » « // 0x13b13 @0xeb
0x13a00…27b9b at00f0 = SetBufferAddress {ic=11, line=0x05, col=0x07} // 0x13b18 @0xf0
0x13a00…27b9b at00f3 = »For a forced control field, enter the character that is to be changed. « // 0x13b1b @0xf3
0x13a00…27b9b at013d = » « // 0x13b65 @0x13d
0x13a00…27b9b at0142 = SetBufferAddress {ic=11, line=0x06, col=0x07} // 0x13b6a @0x142
0x13a00…27b9b at0145 = »For an accumulated total field, enter the character that will indicate « // 0x13b6d @0x145
0x13a00…27b9b at018f = » « // 0x13bb7 @0x18f
0x13a00…27b9b at0194 = SetBufferAddress {ic=11, line=0x07, col=0x07} // 0x13bbc @0x194
0x13a00…27b9b at0197 = »an overflow has occured. Otherwise, leave blank. « // 0x13bbf @0x197
0x13a00…27b9b at01e1 = » « // 0x13c09 @0x1e1
0x13a00…27b9b at0231 = » « // 0x13c59 @0x231
0x13a00…27b9b at0233 = SetBufferAddress {ic=11, line=0x09, col=0x04} // 0x13c5b @0x233
0x13a00…27b9b at0236 = »Substitute character or overflow initialization (col 18). « // 0x13c5e @0x236
0x13a00…27b9b at0283 = » « // 0x13cab @0x283
0x13a00…27b9b at0288 = SetBufferAddress {ic=11, line=0x0a, col=0x07} // 0x13cb0 @0x288
0x13a00…27b9b at028b = »For a forced control field, enter the character that will be substituted. « // 0x13cb3 @0x28b
0x13a00…27b9b at02d5 = » « // 0x13cfd @0x2d5
0x13a00…27b9b at02da = SetBufferAddress {ic=11, line=0x0b, col=0x07} // 0x13d02 @0x2da
0x13a00…27b9b at02dd = »For an accumulated total field, enter the character to initialize the « // 0x13d05 @0x2dd
0x13a00…27b9b at0327 = » « // 0x13d4f @0x327
0x13a00…27b9b at032c = SetBufferAddress {ic=11, line=0x0c, col=0x07} // 0x13d54 @0x32c
0x13a00…27b9b at032f = »overflow indicator to. Otherwise, leave blank. « // 0x13d57 @0x32f
0x13a00…27b9b at0379 = » « // 0x13da1 @0x379
0x13a00…27b9b at03c9 = » « // 0x13df1 @0x3c9
0x13a00…27b9b at03cb = SetBufferAddress {ic=11, line=0x0e, col=0x04} // 0x13df3 @0x3cb
0x13a00…27b9b at03ce = »Forced field continuation (col 19). . . . . . . . . . . . « // 0x13df6 @0x3ce
0x13a00…27b9b at041b = » « // 0x13e43 @0x41b
0x13a00…27b9b at0420 = SetBufferAddress {ic=11, line=0x0f, col=0x07} // 0x13e48 @0x420
0x13a00…27b9b at0423 = »For a forced control field, any character other than a blank indicates « // 0x13e4b @0x423
0x13a00…27b9b at046d = » « // 0x13e95 @0x46d
0x13a00…27b9b at0472 = SetBufferAddress {ic=11, line=0x10, col=0x07} // 0x13e9a @0x472
0x13a00…27b9b at0475 = »a continuation of the preceding statement. « // 0x13e9d @0x475
0x13a00…27b9b at04bf = » « // 0x13ee7 @0x4bf
0x13a00…27b9b at050f = » « // 0x13f37 @0x50f
0x13a00…27b9b at0511 = SetBufferAddress {ic=11, line=0x12, col=0x04} // 0x13f39 @0x511
0x13a00…27b9b at0514 = »Overflow field length or alt. seq. field (cols 20-22) . . « // 0x13f3c @0x514
0x13a00…27b9b at0561 = » « // 0x13f89 @0x561
0x13a00…27b9b at0566 = SetBufferAddress {ic=11, line=0x13, col=0x07} // 0x13f8e @0x566
0x13a00…27b9b at0569 = »This is the length for an overflow field in a summary sort. If this is « // 0x13f91 @0x569
0x13a00…27b9b at05b3 = » « // 0x13fdb @0x5b3
0x13a00…27b9b at05b8 = SetBufferAddress {ic=11, line=0x14, col=0x07} // 0x13fe0 @0x5b8
0x13a00…27b9b at05bb = »a summary data field, this is the length to use for the summary total. « // 0x13fe3 @0x5bb
0x13a00…27b9b at0605 = » « // 0x1402d @0x605
0x13a00…27b9b at060a = SetBufferAddress {ic=11, line=0x15, col=0x07} // 0x14032 @0x60a
0x13a00…27b9b at060d = »If this is a control field, an A in column 20 indicates an alternative « // 0x14035 @0x60d
0x13a00…27b9b at0657 = » « // 0x1407f @0x657
0x13a00…27b9b at065c = SetBufferAddress {ic=11, line=0x16, col=0x07} // 0x14084 @0x65c
0x13a00…27b9b at065f = »sequence (ALTSEQ) for this field. « // 0x14087 @0x65f
0x13a00…27b9b at06a9 = » « // 0x140d1 @0x6a9
0x13a00…27b9b at06f9 = » « // 0x14121 @0x6f9
0x13a00…27b9b at06fb = SetBufferAddress {ic=11, line=0x18, col=0x04} // 0x14123 @0x6fb
0x13a00…27b9b at06fe = »Enter-Exit help text Roll keys-Page help text « // 0x14126 @0x6fe
0x13a00…27b9b }
0x13a00…27b9b }
0x13a00…27b9b }
0x14200…28b98 Form36 {
0x14200…28b98 fh000 = 0x00 // 0x14200 @0x0
0x14200…28b98 fh00 = 2200 // 0x14201 @0x1
0x14200…28b98 fh01 = »NNN« // 0x14203 @0x3
0x14200…28b98 fh02 = 000000 // 0x14206 @0x6
0x14200…28b98 fh03 = »NNN« // 0x14209 @0x9
0x14200…28b98 fh04 = 0x0028 // 0x1420c @0xc
0x14200…28b98 fh05 = 0x0748 // 0x1420e @0xe
0x14200…28b98 fh06 = 000080011800000000000000000000000000 // 0x14210 @0x10
0x14200…28b98 at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x14222 @0x22
0x14200…28b98 panel = { // 0x14228 @0x28
0x14200…28b98 ┌────────────────────────────────────────────────────────────────────────────────┐
0x14200…28b98 00│ │
0x14200…28b98 01│ ╳ HELP FOR SORT RECORD TYPE SPECIFICATIONS │
0x14200…28b98 02│ │
0x14200…28b98 03│ │
0x14200…28b98 04│ ╳DESCRIPTION │
0x14200…28b98 05│ │
0x14200…28b98 06│ ╳Record type specifications tell the SORT program which records to sort. │
0x14200…28b98 07│ If all the records in a file are the same format then a record type │
0x14200…28b98 08│ specification statement is not required. │
0x14200…28b98 09│ │
0x14200…28b98 10│ │
0x14200…28b98 11│ Statement number (cols 3-5) . . . . . . . . . . . . . . . . │
0x14200…28b98 12│ This is an optional entry, it may be used to number your specifications, │
0x14200…28b98 13│ however, it is ignored by the sort program. │
0x14200…28b98 14│ │
0x14200…28b98 15│ Include or omit (col 6) . . . . . . . . . . . . . . . . I,O │
0x14200…28b98 16│ I - Include, specification statements specify records to include in │
0x14200…28b98 17│ the sort. │
0x14200…28b98 18│ O - Omit, specification statements specify records to omit from the │
0x14200…28b98 19│ sort. │
0x14200…28b98 20│ │
0x14200…28b98 21│ │
0x14200…28b98 22│ │
0x14200…28b98 23│ Enter-Exit help text Roll keys-Page help text │
0x14200…28b98 24│ │
0x14200…28b98 25│ │
0x14200…28b98 26│ │
0x14200…28b98 27│ │
0x14200…28b98 └────────────────────────────────────────────────────────────────────────────────┘
0x14200…28b98 Panel5250 {
0x14200…28b98 at0000 = ClearUnit {esc=04, cu=40} // 0x14228 @0x0
0x14200…28b98 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x1422a @0x2
0x14200…28b98 at0006 = SetBufferAddress {ic=11, line=0x02, col=0x0f} // 0x1422e @0x6
0x14200…28b98 at0009 = Attribute {type=0x22} // 0x14231 @0x9
0x14200…28b98 at000a = » HELP FOR SORT RECORD TYPE SPECIFICATIONS « // 0x14232 @0xa
0x14200…28b98 at004b = » « // 0x14273 @0x4b
0x14200…28b98 at009b = » « // 0x142c3 @0x9b
0x14200…28b98 at00eb = » « // 0x14313 @0xeb
0x14200…28b98 at00ed = Attribute {type=0x20} // 0x14315 @0xed
0x14200…28b98 at00ee = SetBufferAddress {ic=11, line=0x05, col=0x03} // 0x14316 @0xee
0x14200…28b98 at00f1 = Attribute {type=0x22} // 0x14319 @0xf1
0x14200…28b98 at00f2 = »DESCRIPTION « // 0x1431a @0xf2
0x14200…28b98 at013f = » « // 0x14367 @0x13f
0x14200…28b98 at018f = » « // 0x143b7 @0x18f
0x14200…28b98 at0194 = Attribute {type=0x20} // 0x143bc @0x194
0x14200…28b98 at0195 = SetBufferAddress {ic=11, line=0x07, col=0x07} // 0x143bd @0x195
0x14200…28b98 at0198 = »Record type specifications tell the SORT program which records to sort. « // 0x143c0 @0x198
0x14200…28b98 at01e2 = » « // 0x1440a @0x1e2
0x14200…28b98 at01e7 = SetBufferAddress {ic=11, line=0x08, col=0x07} // 0x1440f @0x1e7
0x14200…28b98 at01ea = »If all the records in a file are the same format then a record type « // 0x14412 @0x1ea
0x14200…28b98 at0234 = » « // 0x1445c @0x234
0x14200…28b98 at0239 = SetBufferAddress {ic=11, line=0x09, col=0x07} // 0x14461 @0x239
0x14200…28b98 at023c = »specification statement is not required. « // 0x14464 @0x23c
0x14200…28b98 at0286 = » « // 0x144ae @0x286
0x14200…28b98 at02d6 = » « // 0x144fe @0x2d6
0x14200…28b98 at0326 = » « // 0x1454e @0x326
0x14200…28b98 at0328 = SetBufferAddress {ic=11, line=0x0c, col=0x04} // 0x14550 @0x328
0x14200…28b98 at032b = »Statement number (cols 3-5) . . . . . . . . . . . . . . . . « // 0x14553 @0x32b
0x14200…28b98 at0378 = » « // 0x145a0 @0x378
0x14200…28b98 at037d = SetBufferAddress {ic=11, line=0x0d, col=0x07} // 0x145a5 @0x37d
0x14200…28b98 at0380 = »This is an optional entry, it may be used to number your specifications, « // 0x145a8 @0x380
0x14200…28b98 at03ca = » « // 0x145f2 @0x3ca
0x14200…28b98 at03cf = SetBufferAddress {ic=11, line=0x0e, col=0x07} // 0x145f7 @0x3cf
0x14200…28b98 at03d2 = »however, it is ignored by the sort program. « // 0x145fa @0x3d2
0x14200…28b98 at041c = » « // 0x14644 @0x41c
0x14200…28b98 at046c = » « // 0x14694 @0x46c
0x14200…28b98 at046e = SetBufferAddress {ic=11, line=0x10, col=0x04} // 0x14696 @0x46e
0x14200…28b98 at0471 = »Include or omit (col 6) . . . . . . . . . . . . . . . . I,O « // 0x14699 @0x471
0x14200…28b98 at04be = » « // 0x146e6 @0x4be
0x14200…28b98 at04c6 = SetBufferAddress {ic=11, line=0x11, col=0x0a} // 0x146ee @0x4c6
0x14200…28b98 at04c9 = »I - Include, specification statements specify records to include in « // 0x146f1 @0x4c9
0x14200…28b98 at0510 = » « // 0x14738 @0x510
0x14200…28b98 at051c = SetBufferAddress {ic=11, line=0x12, col=0x0e} // 0x14744 @0x51c
0x14200…28b98 at051f = »the sort. « // 0x14747 @0x51f
0x14200…28b98 at0562 = » « // 0x1478a @0x562
0x14200…28b98 at056a = SetBufferAddress {ic=11, line=0x13, col=0x0a} // 0x14792 @0x56a
0x14200…28b98 at056d = »O - Omit, specification statements specify records to omit from the « // 0x14795 @0x56d
0x14200…28b98 at05b4 = » « // 0x147dc @0x5b4
0x14200…28b98 at05c0 = SetBufferAddress {ic=11, line=0x14, col=0x0e} // 0x147e8 @0x5c0
0x14200…28b98 at05c3 = »sort. « // 0x147eb @0x5c3
0x14200…28b98 at0606 = » « // 0x1482e @0x606
0x14200…28b98 at0656 = » « // 0x1487e @0x656
0x14200…28b98 at06a6 = » « // 0x148ce @0x6a6
0x14200…28b98 at06f6 = » « // 0x1491e @0x6f6
0x14200…28b98 at06f8 = SetBufferAddress {ic=11, line=0x18, col=0x04} // 0x14920 @0x6f8
0x14200…28b98 at06fb = »Enter-Exit help text Roll keys-Page help text « // 0x14923 @0x6fb
0x14200…28b98 }
0x14200…28b98 }
0x14200…28b98 }
0x14a00…29b9f Form36 {
0x14a00…29b9f fh000 = 0x00 // 0x14a00 @0x0
0x14a00…29b9f fh00 = 2200 // 0x14a01 @0x1
0x14a00…29b9f fh01 = »NNN« // 0x14a03 @0x3
0x14a00…29b9f fh02 = 000000 // 0x14a06 @0x6
0x14a00…29b9f fh03 = »NNN« // 0x14a09 @0x9
0x14a00…29b9f fh04 = 0x0028 // 0x14a0c @0xc
0x14a00…29b9f fh05 = 0x074f // 0x14a0e @0xe
0x14a00…29b9f fh06 = 000080011800000000000000000000000000 // 0x14a10 @0x10
0x14a00…29b9f at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x14a22 @0x22
0x14a00…29b9f panel = { // 0x14a28 @0x28
0x14a00…29b9f ┌────────────────────────────────────────────────────────────────────────────────┐
0x14a00…29b9f 00│ │
0x14a00…29b9f 01│ ╳ HELP FOR SORT RECORD TYPE SPECIFICATIONS │
0x14a00…29b9f 02│ │
0x14a00…29b9f 03│ ╳AND/OR test (col 7) . . . . . . . . . . . . . A,O,blank,* │
0x14a00…29b9f 04│ This entry is used to help select and omit records. │
0x14a00…29b9f 05│ A - AND statements continue defining the record from the previous │
0x14a00…29b9f 06│ statement. │
0x14a00…29b9f 07│ O - OR statements define a different record than the previous │
0x14a00…29b9f 08│ statement. │
0x14a00…29b9f 09│ Blank - This is the first statement in a set of I or O statements. │
0x14a00…29b9f 10│ * - Comment line can be used for any comments. │
0x14a00…29b9f 11│ │
0x14a00…29b9f 12│ Date type (col 8) . . . . . . . . . . . . . . . C,Z,D,P,U │
0x14a00…29b9f 13│ This entry specifies the type of data to be tested. │
0x14a00…29b9f 14│ C - Use both the zone and digit portions of characters in this │
0x14a00…29b9f 15│ field. │
0x14a00…29b9f 16│ Z - Use only the zone portion of this 1-character field. │
0x14a00…29b9f 17│ D - Use only the digit portion of the characters in this field. │
0x14a00…29b9f 18│ P - Use this field as signed packed decimal data. │
0x14a00…29b9f 19│ U - Use this field as signed unpacked decimal data. │
0x14a00…29b9f 20│ │
0x14a00…29b9f 21│ │
0x14a00…29b9f 22│ │
0x14a00…29b9f 23│ Enter-Exit help text Roll keys-Page help text │
0x14a00…29b9f 24│ │
0x14a00…29b9f 25│ │
0x14a00…29b9f 26│ │
0x14a00…29b9f 27│ │
0x14a00…29b9f └────────────────────────────────────────────────────────────────────────────────┘
0x14a00…29b9f Panel5250 {
0x14a00…29b9f at0000 = ClearUnit {esc=04, cu=40} // 0x14a28 @0x0
0x14a00…29b9f at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x14a2a @0x2
0x14a00…29b9f at0006 = SetBufferAddress {ic=11, line=0x02, col=0x0e} // 0x14a2e @0x6
0x14a00…29b9f at0009 = Attribute {type=0x22} // 0x14a31 @0x9
0x14a00…29b9f at000a = » HELP FOR SORT RECORD TYPE SPECIFICATIONS « // 0x14a32 @0xa
0x14a00…29b9f at004c = » « // 0x14a74 @0x4c
0x14a00…29b9f at009c = » « // 0x14ac4 @0x9c
0x14a00…29b9f at009e = Attribute {type=0x20} // 0x14ac6 @0x9e
0x14a00…29b9f at009f = SetBufferAddress {ic=11, line=0x04, col=0x04} // 0x14ac7 @0x9f
0x14a00…29b9f at00a2 = »AND/OR test (col 7) . . . . . . . . . . . . . A,O,blank,* « // 0x14aca @0xa2
0x14a00…29b9f at00ef = » « // 0x14b17 @0xef
0x14a00…29b9f at00f4 = SetBufferAddress {ic=11, line=0x05, col=0x07} // 0x14b1c @0xf4
0x14a00…29b9f at00f7 = »This entry is used to help select and omit records. « // 0x14b1f @0xf7
0x14a00…29b9f at0141 = » « // 0x14b69 @0x141
0x14a00…29b9f at0149 = SetBufferAddress {ic=11, line=0x06, col=0x0a} // 0x14b71 @0x149
0x14a00…29b9f at014c = »A - AND statements continue defining the record from the previous « // 0x14b74 @0x14c
0x14a00…29b9f at0193 = » « // 0x14bbb @0x193
0x14a00…29b9f at01a3 = SetBufferAddress {ic=11, line=0x07, col=0x12} // 0x14bcb @0x1a3
0x14a00…29b9f at01a6 = »statement. « // 0x14bce @0x1a6
0x14a00…29b9f at01e5 = » « // 0x14c0d @0x1e5
0x14a00…29b9f at01ed = SetBufferAddress {ic=11, line=0x08, col=0x0a} // 0x14c15 @0x1ed
0x14a00…29b9f at01f0 = »O - OR statements define a different record than the previous « // 0x14c18 @0x1f0
0x14a00…29b9f at0237 = » « // 0x14c5f @0x237
0x14a00…29b9f at0247 = SetBufferAddress {ic=11, line=0x09, col=0x12} // 0x14c6f @0x247
0x14a00…29b9f at024a = »statement. « // 0x14c72 @0x24a
0x14a00…29b9f at0289 = » « // 0x14cb1 @0x289
0x14a00…29b9f at0291 = SetBufferAddress {ic=11, line=0x0a, col=0x0a} // 0x14cb9 @0x291
0x14a00…29b9f at0294 = »Blank - This is the first statement in a set of I or O statements. « // 0x14cbc @0x294
0x14a00…29b9f at02db = » « // 0x14d03 @0x2db
0x14a00…29b9f at02e3 = SetBufferAddress {ic=11, line=0x0b, col=0x0a} // 0x14d0b @0x2e3
0x14a00…29b9f at02e6 = »* - Comment line can be used for any comments. « // 0x14d0e @0x2e6
0x14a00…29b9f at032d = » « // 0x14d55 @0x32d
0x14a00…29b9f at037d = » « // 0x14da5 @0x37d
0x14a00…29b9f at037f = SetBufferAddress {ic=11, line=0x0d, col=0x04} // 0x14da7 @0x37f
0x14a00…29b9f at0382 = »Date type (col 8) . . . . . . . . . . . . . . . C,Z,D,P,U « // 0x14daa @0x382
0x14a00…29b9f at03cf = » « // 0x14df7 @0x3cf
0x14a00…29b9f at03d4 = SetBufferAddress {ic=11, line=0x0e, col=0x07} // 0x14dfc @0x3d4
0x14a00…29b9f at03d7 = »This entry specifies the type of data to be tested. « // 0x14dff @0x3d7
0x14a00…29b9f at0421 = » « // 0x14e49 @0x421
0x14a00…29b9f at0429 = SetBufferAddress {ic=11, line=0x0f, col=0x0a} // 0x14e51 @0x429
0x14a00…29b9f at042c = »C - Use both the zone and digit portions of characters in this « // 0x14e54 @0x42c
0x14a00…29b9f at0473 = » « // 0x14e9b @0x473
0x14a00…29b9f at0483 = SetBufferAddress {ic=11, line=0x10, col=0x12} // 0x14eab @0x483
0x14a00…29b9f at0486 = »field. « // 0x14eae @0x486
0x14a00…29b9f at04c5 = » « // 0x14eed @0x4c5
0x14a00…29b9f at04cd = SetBufferAddress {ic=11, line=0x11, col=0x0a} // 0x14ef5 @0x4cd
0x14a00…29b9f at04d0 = »Z - Use only the zone portion of this 1-character field. « // 0x14ef8 @0x4d0
0x14a00…29b9f at0517 = » « // 0x14f3f @0x517
0x14a00…29b9f at051f = SetBufferAddress {ic=11, line=0x12, col=0x0a} // 0x14f47 @0x51f
0x14a00…29b9f at0522 = »D - Use only the digit portion of the characters in this field. « // 0x14f4a @0x522
0x14a00…29b9f at0569 = » « // 0x14f91 @0x569
0x14a00…29b9f at0571 = SetBufferAddress {ic=11, line=0x13, col=0x0a} // 0x14f99 @0x571
0x14a00…29b9f at0574 = »P - Use this field as signed packed decimal data. « // 0x14f9c @0x574
0x14a00…29b9f at05bb = » « // 0x14fe3 @0x5bb
0x14a00…29b9f at05c3 = SetBufferAddress {ic=11, line=0x14, col=0x0a} // 0x14feb @0x5c3
0x14a00…29b9f at05c6 = »U - Use this field as signed unpacked decimal data. « // 0x14fee @0x5c6
0x14a00…29b9f at060d = » « // 0x15035 @0x60d
0x14a00…29b9f at065d = » « // 0x15085 @0x65d
0x14a00…29b9f at06ad = » « // 0x150d5 @0x6ad
0x14a00…29b9f at06fd = » « // 0x15125 @0x6fd
0x14a00…29b9f at06ff = SetBufferAddress {ic=11, line=0x18, col=0x04} // 0x15127 @0x6ff
0x14a00…29b9f at0702 = »Enter-Exit help text Roll keys-Page help text « // 0x1512a @0x702
0x14a00…29b9f }
0x14a00…29b9f }
0x14a00…29b9f }
0x15200…2ab9d Form36 {
0x15200…2ab9d fh000 = 0x00 // 0x15200 @0x0
0x15200…2ab9d fh00 = 2200 // 0x15201 @0x1
0x15200…2ab9d fh01 = »NNN« // 0x15203 @0x3
0x15200…2ab9d fh02 = 000000 // 0x15206 @0x6
0x15200…2ab9d fh03 = »NNN« // 0x15209 @0x9
0x15200…2ab9d fh04 = 0x0028 // 0x1520c @0xc
0x15200…2ab9d fh05 = 0x074d // 0x1520e @0xe
0x15200…2ab9d fh06 = 000080011800000000000000000000000000 // 0x15210 @0x10
0x15200…2ab9d at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x15222 @0x22
0x15200…2ab9d panel = { // 0x15228 @0x28
0x15200…2ab9d ┌────────────────────────────────────────────────────────────────────────────────┐
0x15200…2ab9d 00│ │
0x15200…2ab9d 01│ ╳ HELP FOR SORT RECORD TYPE SPECIFICATIONS │
0x15200…2ab9d 02│ │
0x15200…2ab9d 03│ │
0x15200…2ab9d 04│ ╳Factor 1 location start (cols 9-12) . . . . . . . . . . . │
0x15200…2ab9d 05│ This is the starting position of the factor 1 field within the input │
0x15200…2ab9d 06│ record (blank if factor 1 is a one character field). │
0x15200…2ab9d 07│ │
0x15200…2ab9d 08│ Factor 1 location end (cols 13-16). . . . . . . . . . . . │
0x15200…2ab9d 09│ This is the ending position of the factor 1 field within the input │
0x15200…2ab9d 10│ record. │
0x15200…2ab9d 11│ │
0x15200…2ab9d 12│ Relationship (cols 17-18) . . . . . . . EQ,NE,LT,LE,GT,GE │
0x15200…2ab9d 13│ This entry specifies the comparison the sort program will make in │
0x15200…2ab9d 14│ selecting records. │
0x15200…2ab9d 15│ EQ - Factor 1 must equal factor 2. │
0x15200…2ab9d 16│ NE - Factor 1 must not equal factor 2. │
0x15200…2ab9d 17│ LT - Factor 1 must be less than factor 2. │
0x15200…2ab9d 18│ LE - Factor 1 must be less than or equal to factor 2. │
0x15200…2ab9d 19│ GT - Factor 1 must be greater than factor 2. │
0x15200…2ab9d 20│ GE - Factor 1 must be greater than or equal to factor 2. │
0x15200…2ab9d 21│ │
0x15200…2ab9d 22│ │
0x15200…2ab9d 23│ Enter-Exit help text Roll keys-Page help text │
0x15200…2ab9d 24│ │
0x15200…2ab9d 25│ │
0x15200…2ab9d 26│ │
0x15200…2ab9d 27│ │
0x15200…2ab9d └────────────────────────────────────────────────────────────────────────────────┘
0x15200…2ab9d Panel5250 {
0x15200…2ab9d at0000 = ClearUnit {esc=04, cu=40} // 0x15228 @0x0
0x15200…2ab9d at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x1522a @0x2
0x15200…2ab9d at0006 = SetBufferAddress {ic=11, line=0x02, col=0x0e} // 0x1522e @0x6
0x15200…2ab9d at0009 = Attribute {type=0x22} // 0x15231 @0x9
0x15200…2ab9d at000a = » HELP FOR SORT RECORD TYPE SPECIFICATIONS « // 0x15232 @0xa
0x15200…2ab9d at004c = » « // 0x15274 @0x4c
0x15200…2ab9d at009c = » « // 0x152c4 @0x9c
0x15200…2ab9d at00ec = » « // 0x15314 @0xec
0x15200…2ab9d at00ee = Attribute {type=0x20} // 0x15316 @0xee
0x15200…2ab9d at00ef = SetBufferAddress {ic=11, line=0x05, col=0x04} // 0x15317 @0xef
0x15200…2ab9d at00f2 = »Factor 1 location start (cols 9-12) . . . . . . . . . . . « // 0x1531a @0xf2
0x15200…2ab9d at013f = » « // 0x15367 @0x13f
0x15200…2ab9d at0144 = SetBufferAddress {ic=11, line=0x06, col=0x07} // 0x1536c @0x144
0x15200…2ab9d at0147 = »This is the starting position of the factor 1 field within the input « // 0x1536f @0x147
0x15200…2ab9d at0191 = » « // 0x153b9 @0x191
0x15200…2ab9d at0196 = SetBufferAddress {ic=11, line=0x07, col=0x07} // 0x153be @0x196
0x15200…2ab9d at0199 = »record (blank if factor 1 is a one character field). « // 0x153c1 @0x199
0x15200…2ab9d at01e3 = » « // 0x1540b @0x1e3
0x15200…2ab9d at0233 = » « // 0x1545b @0x233
0x15200…2ab9d at0235 = SetBufferAddress {ic=11, line=0x09, col=0x04} // 0x1545d @0x235
0x15200…2ab9d at0238 = »Factor 1 location end (cols 13-16). . . . . . . . . . . . « // 0x15460 @0x238
0x15200…2ab9d at0285 = » « // 0x154ad @0x285
0x15200…2ab9d at028a = SetBufferAddress {ic=11, line=0x0a, col=0x07} // 0x154b2 @0x28a
0x15200…2ab9d at028d = »This is the ending position of the factor 1 field within the input « // 0x154b5 @0x28d
0x15200…2ab9d at02d7 = » « // 0x154ff @0x2d7
0x15200…2ab9d at02dc = SetBufferAddress {ic=11, line=0x0b, col=0x07} // 0x15504 @0x2dc
0x15200…2ab9d at02df = »record. « // 0x15507 @0x2df
0x15200…2ab9d at0329 = » « // 0x15551 @0x329
0x15200…2ab9d at0379 = » « // 0x155a1 @0x379
0x15200…2ab9d at037b = SetBufferAddress {ic=11, line=0x0d, col=0x04} // 0x155a3 @0x37b
0x15200…2ab9d at037e = »Relationship (cols 17-18) . . . . . . . EQ,NE,LT,LE,GT,GE « // 0x155a6 @0x37e
0x15200…2ab9d at03cb = » « // 0x155f3 @0x3cb
0x15200…2ab9d at03d0 = SetBufferAddress {ic=11, line=0x0e, col=0x07} // 0x155f8 @0x3d0
0x15200…2ab9d at03d3 = »This entry specifies the comparison the sort program will make in « // 0x155fb @0x3d3
0x15200…2ab9d at041d = » « // 0x15645 @0x41d
0x15200…2ab9d at0422 = SetBufferAddress {ic=11, line=0x0f, col=0x07} // 0x1564a @0x422
0x15200…2ab9d at0425 = »selecting records. « // 0x1564d @0x425
0x15200…2ab9d at046f = » « // 0x15697 @0x46f
0x15200…2ab9d at0477 = SetBufferAddress {ic=11, line=0x10, col=0x0a} // 0x1569f @0x477
0x15200…2ab9d at047a = »EQ - Factor 1 must equal factor 2. « // 0x156a2 @0x47a
0x15200…2ab9d at04c1 = » « // 0x156e9 @0x4c1
0x15200…2ab9d at04c9 = SetBufferAddress {ic=11, line=0x11, col=0x0a} // 0x156f1 @0x4c9
0x15200…2ab9d at04cc = »NE - Factor 1 must not equal factor 2. « // 0x156f4 @0x4cc
0x15200…2ab9d at0513 = » « // 0x1573b @0x513
0x15200…2ab9d at051b = SetBufferAddress {ic=11, line=0x12, col=0x0a} // 0x15743 @0x51b
0x15200…2ab9d at051e = »LT - Factor 1 must be less than factor 2. « // 0x15746 @0x51e
0x15200…2ab9d at0565 = » « // 0x1578d @0x565
0x15200…2ab9d at056d = SetBufferAddress {ic=11, line=0x13, col=0x0a} // 0x15795 @0x56d
0x15200…2ab9d at0570 = »LE - Factor 1 must be less than or equal to factor 2. « // 0x15798 @0x570
0x15200…2ab9d at05b7 = » « // 0x157df @0x5b7
0x15200…2ab9d at05bf = SetBufferAddress {ic=11, line=0x14, col=0x0a} // 0x157e7 @0x5bf
0x15200…2ab9d at05c2 = »GT - Factor 1 must be greater than factor 2. « // 0x157ea @0x5c2
0x15200…2ab9d at0609 = » « // 0x15831 @0x609
0x15200…2ab9d at0611 = SetBufferAddress {ic=11, line=0x15, col=0x0a} // 0x15839 @0x611
0x15200…2ab9d at0614 = »GE - Factor 1 must be greater than or equal to factor 2. « // 0x1583c @0x614
0x15200…2ab9d at065b = » « // 0x15883 @0x65b
0x15200…2ab9d at06ab = » « // 0x158d3 @0x6ab
0x15200…2ab9d at06fb = » « // 0x15923 @0x6fb
0x15200…2ab9d at06fd = SetBufferAddress {ic=11, line=0x18, col=0x04} // 0x15925 @0x6fd
0x15200…2ab9d at0700 = »Enter-Exit help text Roll keys-Page help text « // 0x15928 @0x700
0x15200…2ab9d }
0x15200…2ab9d }
0x15200…2ab9d }
0x15a00…2bb94 Form36 {
0x15a00…2bb94 fh000 = 0x00 // 0x15a00 @0x0
0x15a00…2bb94 fh00 = 2200 // 0x15a01 @0x1
0x15a00…2bb94 fh01 = »NNN« // 0x15a03 @0x3
0x15a00…2bb94 fh02 = 000000 // 0x15a06 @0x6
0x15a00…2bb94 fh03 = »NNN« // 0x15a09 @0x9
0x15a00…2bb94 fh04 = 0x0028 // 0x15a0c @0xc
0x15a00…2bb94 fh05 = 0x0744 // 0x15a0e @0xe
0x15a00…2bb94 fh06 = 000080011800000000000000000000000000 // 0x15a10 @0x10
0x15a00…2bb94 at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x15a22 @0x22
0x15a00…2bb94 panel = { // 0x15a28 @0x28
0x15a00…2bb94 ┌────────────────────────────────────────────────────────────────────────────────┐
0x15a00…2bb94 00│ │
0x15a00…2bb94 01│ ╳ HELP FOR SORT RECORD TYPE SPECIFICATIONS │
0x15a00…2bb94 02│ │
0x15a00…2bb94 03│ │
0x15a00…2bb94 04│ ╳Factor 2 type (col 19). . . . . . . . . . . . . . . . . F │
0x15a00…2bb94 05│ This specifies that factor 2 is another field in the same input record │
0x15a00…2bb94 06│ as factor 1. To specify factor 2 as a constant or keyword you must use │
0x15a00…2bb94 07│ display format SRT-CNST. │
0x15a00…2bb94 08│ │
0x15a00…2bb94 09│ Factor 2 location start (cols 20-23). . . . . . . . . . . │
0x15a00…2bb94 10│ This is the starting position of the factor 2 field within the input │
0x15a00…2bb94 11│ record (blank if factor 2 is a one character field). │
0x15a00…2bb94 12│ │
0x15a00…2bb94 13│ Factor 2 location end (cols 24-27). . . . . . . . . . . . │
0x15a00…2bb94 14│ This is the ending posistion of the factor 2 field within the input │
0x15a00…2bb94 15│ record. │
0x15a00…2bb94 16│ │
0x15a00…2bb94 17│ │
0x15a00…2bb94 18│ │
0x15a00…2bb94 19│ │
0x15a00…2bb94 20│ │
0x15a00…2bb94 21│ │
0x15a00…2bb94 22│ │
0x15a00…2bb94 23│ Enter-Exit help text Roll keys-Page help text │
0x15a00…2bb94 24│ │
0x15a00…2bb94 25│ │
0x15a00…2bb94 26│ │
0x15a00…2bb94 27│ │
0x15a00…2bb94 └────────────────────────────────────────────────────────────────────────────────┘
0x15a00…2bb94 Panel5250 {
0x15a00…2bb94 at0000 = ClearUnit {esc=04, cu=40} // 0x15a28 @0x0
0x15a00…2bb94 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x15a2a @0x2
0x15a00…2bb94 at0006 = SetBufferAddress {ic=11, line=0x02, col=0x0d} // 0x15a2e @0x6
0x15a00…2bb94 at0009 = Attribute {type=0x22} // 0x15a31 @0x9
0x15a00…2bb94 at000a = » HELP FOR SORT RECORD TYPE SPECIFICATIONS « // 0x15a32 @0xa
0x15a00…2bb94 at004d = » « // 0x15a75 @0x4d
0x15a00…2bb94 at009d = » « // 0x15ac5 @0x9d
0x15a00…2bb94 at00ed = » « // 0x15b15 @0xed
0x15a00…2bb94 at00ef = Attribute {type=0x20} // 0x15b17 @0xef
0x15a00…2bb94 at00f0 = SetBufferAddress {ic=11, line=0x05, col=0x04} // 0x15b18 @0xf0
0x15a00…2bb94 at00f3 = »Factor 2 type (col 19). . . . . . . . . . . . . . . . . F « // 0x15b1b @0xf3
0x15a00…2bb94 at0140 = » « // 0x15b68 @0x140
0x15a00…2bb94 at0145 = SetBufferAddress {ic=11, line=0x06, col=0x07} // 0x15b6d @0x145
0x15a00…2bb94 at0148 = »This specifies that factor 2 is another field in the same input record « // 0x15b70 @0x148
0x15a00…2bb94 at0192 = » « // 0x15bba @0x192
0x15a00…2bb94 at0197 = SetBufferAddress {ic=11, line=0x07, col=0x07} // 0x15bbf @0x197
0x15a00…2bb94 at019a = »as factor 1. To specify factor 2 as a constant or keyword you must use « // 0x15bc2 @0x19a
0x15a00…2bb94 at01e4 = » « // 0x15c0c @0x1e4
0x15a00…2bb94 at01e9 = SetBufferAddress {ic=11, line=0x08, col=0x07} // 0x15c11 @0x1e9
0x15a00…2bb94 at01ec = »display format SRT-CNST. « // 0x15c14 @0x1ec
0x15a00…2bb94 at0236 = » « // 0x15c5e @0x236
0x15a00…2bb94 at0286 = » « // 0x15cae @0x286
0x15a00…2bb94 at0288 = SetBufferAddress {ic=11, line=0x0a, col=0x04} // 0x15cb0 @0x288
0x15a00…2bb94 at028b = »Factor 2 location start (cols 20-23). . . . . . . . . . . « // 0x15cb3 @0x28b
0x15a00…2bb94 at02d8 = » « // 0x15d00 @0x2d8
0x15a00…2bb94 at02dd = SetBufferAddress {ic=11, line=0x0b, col=0x07} // 0x15d05 @0x2dd
0x15a00…2bb94 at02e0 = »This is the starting position of the factor 2 field within the input « // 0x15d08 @0x2e0
0x15a00…2bb94 at032a = » « // 0x15d52 @0x32a
0x15a00…2bb94 at032f = SetBufferAddress {ic=11, line=0x0c, col=0x07} // 0x15d57 @0x32f
0x15a00…2bb94 at0332 = »record (blank if factor 2 is a one character field). « // 0x15d5a @0x332
0x15a00…2bb94 at037c = » « // 0x15da4 @0x37c
0x15a00…2bb94 at03cc = » « // 0x15df4 @0x3cc
0x15a00…2bb94 at03ce = SetBufferAddress {ic=11, line=0x0e, col=0x04} // 0x15df6 @0x3ce
0x15a00…2bb94 at03d1 = »Factor 2 location end (cols 24-27). . . . . . . . . . . . « // 0x15df9 @0x3d1
0x15a00…2bb94 at041e = » « // 0x15e46 @0x41e
0x15a00…2bb94 at0423 = SetBufferAddress {ic=11, line=0x0f, col=0x07} // 0x15e4b @0x423
0x15a00…2bb94 at0426 = »This is the ending posistion of the factor 2 field within the input « // 0x15e4e @0x426
0x15a00…2bb94 at0470 = » « // 0x15e98 @0x470
0x15a00…2bb94 at0475 = SetBufferAddress {ic=11, line=0x10, col=0x07} // 0x15e9d @0x475
0x15a00…2bb94 at0478 = »record. « // 0x15ea0 @0x478
0x15a00…2bb94 at04c2 = » « // 0x15eea @0x4c2
0x15a00…2bb94 at0512 = » « // 0x15f3a @0x512
0x15a00…2bb94 at0562 = » « // 0x15f8a @0x562
0x15a00…2bb94 at05b2 = » « // 0x15fda @0x5b2
0x15a00…2bb94 at0602 = » « // 0x1602a @0x602
0x15a00…2bb94 at0652 = » « // 0x1607a @0x652
0x15a00…2bb94 at06a2 = » « // 0x160ca @0x6a2
0x15a00…2bb94 at06f2 = » « // 0x1611a @0x6f2
0x15a00…2bb94 at06f4 = SetBufferAddress {ic=11, line=0x18, col=0x04} // 0x1611c @0x6f4
0x15a00…2bb94 at06f7 = »Enter-Exit help text Roll keys-Page help text « // 0x1611f @0x6f7
0x15a00…2bb94 }
0x15a00…2bb94 }
0x15a00…2bb94 }
0x16200…2cb9d Form36 {
0x16200…2cb9d fh000 = 0x00 // 0x16200 @0x0
0x16200…2cb9d fh00 = 2200 // 0x16201 @0x1
0x16200…2cb9d fh01 = »NNN« // 0x16203 @0x3
0x16200…2cb9d fh02 = 000000 // 0x16206 @0x6
0x16200…2cb9d fh03 = »NNN« // 0x16209 @0x9
0x16200…2cb9d fh04 = 0x0028 // 0x1620c @0xc
0x16200…2cb9d fh05 = 0x074d // 0x1620e @0xe
0x16200…2cb9d fh06 = 000080011800000000000000000000000000 // 0x16210 @0x10
0x16200…2cb9d at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x16222 @0x22
0x16200…2cb9d panel = { // 0x16228 @0x28
0x16200…2cb9d ┌────────────────────────────────────────────────────────────────────────────────┐
0x16200…2cb9d 00│ │
0x16200…2cb9d 01│ ╳ HELP FOR SORT RECORD TYPE SPECIFICATIONS │
0x16200…2cb9d 02│ │
0x16200…2cb9d 03│ │
0x16200…2cb9d 04│ ╳Type of compare (col 19). . . . . . . . . . . . . . . C,K │
0x16200…2cb9d 05│ This specifies that factor 2 is either a constant or keyword. To specify │
0x16200…2cb9d 06│ that factor 2 is another field in the same input record as factor 1 you │
0x16200…2cb9d 07│ must use the display format SRT-RECD. │
0x16200…2cb9d 08│ C - Factor 2 is a constant │
0x16200…2cb9d 09│ K - Factor 2 is a keyword (UDATE,...) │
0x16200…2cb9d 10│ │
0x16200…2cb9d 11│ Constant or keyword (cols 20-39). . . . . . . . . . . . . │
0x16200…2cb9d 12│ This field is used to specify the constant or keyword to use. Any │
0x16200…2cb9d 13│ combination of characters or blanks may be used as a constant. A │
0x16200…2cb9d 14│ constant must be the same length as the factor 1, for a packed field, the │
0x16200…2cb9d 15│ constant must be twice the length of factor 1. Allowable keywords are: │
0x16200…2cb9d 16│ UDATE - Entire program date │
0x16200…2cb9d 17│ UMONTH - Month portion of program date │
0x16200…2cb9d 18│ UDAY - Day portion of program date │
0x16200…2cb9d 19│ UYEAR - Year portion of program date │
0x16200…2cb9d 20│ │
0x16200…2cb9d 21│ │
0x16200…2cb9d 22│ │
0x16200…2cb9d 23│ Enter-Exit help text Roll keys-Page help text │
0x16200…2cb9d 24│ │
0x16200…2cb9d 25│ │
0x16200…2cb9d 26│ │
0x16200…2cb9d 27│ │
0x16200…2cb9d └────────────────────────────────────────────────────────────────────────────────┘
0x16200…2cb9d Panel5250 {
0x16200…2cb9d at0000 = ClearUnit {esc=04, cu=40} // 0x16228 @0x0
0x16200…2cb9d at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x1622a @0x2
0x16200…2cb9d at0006 = SetBufferAddress {ic=11, line=0x02, col=0x0e} // 0x1622e @0x6
0x16200…2cb9d at0009 = Attribute {type=0x22} // 0x16231 @0x9
0x16200…2cb9d at000a = » HELP FOR SORT RECORD TYPE SPECIFICATIONS « // 0x16232 @0xa
0x16200…2cb9d at004c = » « // 0x16274 @0x4c
0x16200…2cb9d at009c = » « // 0x162c4 @0x9c
0x16200…2cb9d at00ec = » « // 0x16314 @0xec
0x16200…2cb9d at00ee = Attribute {type=0x20} // 0x16316 @0xee
0x16200…2cb9d at00ef = SetBufferAddress {ic=11, line=0x05, col=0x04} // 0x16317 @0xef
0x16200…2cb9d at00f2 = »Type of compare (col 19). . . . . . . . . . . . . . . C,K « // 0x1631a @0xf2
0x16200…2cb9d at013f = » « // 0x16367 @0x13f
0x16200…2cb9d at0144 = SetBufferAddress {ic=11, line=0x06, col=0x07} // 0x1636c @0x144
0x16200…2cb9d at0147 = »This specifies that factor 2 is either a constant or keyword. To specify « // 0x1636f @0x147
0x16200…2cb9d at0191 = » « // 0x163b9 @0x191
0x16200…2cb9d at0196 = SetBufferAddress {ic=11, line=0x07, col=0x07} // 0x163be @0x196
0x16200…2cb9d at0199 = »that factor 2 is another field in the same input record as factor 1 you « // 0x163c1 @0x199
0x16200…2cb9d at01e3 = » « // 0x1640b @0x1e3
0x16200…2cb9d at01e8 = SetBufferAddress {ic=11, line=0x08, col=0x07} // 0x16410 @0x1e8
0x16200…2cb9d at01eb = »must use the display format SRT-RECD. « // 0x16413 @0x1eb
0x16200…2cb9d at0235 = » « // 0x1645d @0x235
0x16200…2cb9d at023d = SetBufferAddress {ic=11, line=0x09, col=0x0a} // 0x16465 @0x23d
0x16200…2cb9d at0240 = »C - Factor 2 is a constant « // 0x16468 @0x240
0x16200…2cb9d at0287 = » « // 0x164af @0x287
0x16200…2cb9d at028f = SetBufferAddress {ic=11, line=0x0a, col=0x0a} // 0x164b7 @0x28f
0x16200…2cb9d at0292 = »K - Factor 2 is a keyword (UDATE,...) « // 0x164ba @0x292
0x16200…2cb9d at02d9 = » « // 0x16501 @0x2d9
0x16200…2cb9d at0329 = » « // 0x16551 @0x329
0x16200…2cb9d at032b = SetBufferAddress {ic=11, line=0x0c, col=0x04} // 0x16553 @0x32b
0x16200…2cb9d at032e = »Constant or keyword (cols 20-39). . . . . . . . . . . . . « // 0x16556 @0x32e
0x16200…2cb9d at037b = » « // 0x165a3 @0x37b
0x16200…2cb9d at0380 = SetBufferAddress {ic=11, line=0x0d, col=0x07} // 0x165a8 @0x380
0x16200…2cb9d at0383 = »This field is used to specify the constant or keyword to use. Any « // 0x165ab @0x383
0x16200…2cb9d at03cd = » « // 0x165f5 @0x3cd
0x16200…2cb9d at03d2 = SetBufferAddress {ic=11, line=0x0e, col=0x07} // 0x165fa @0x3d2
0x16200…2cb9d at03d5 = »combination of characters or blanks may be used as a constant. A « // 0x165fd @0x3d5
0x16200…2cb9d at041f = » « // 0x16647 @0x41f
0x16200…2cb9d at0424 = SetBufferAddress {ic=11, line=0x0f, col=0x07} // 0x1664c @0x424
0x16200…2cb9d at0427 = »constant must be the same length as the factor 1, for a packed field, the « // 0x1664f @0x427
0x16200…2cb9d at0471 = » « // 0x16699 @0x471
0x16200…2cb9d at0476 = SetBufferAddress {ic=11, line=0x10, col=0x07} // 0x1669e @0x476
0x16200…2cb9d at0479 = »constant must be twice the length of factor 1. Allowable keywords are: « // 0x166a1 @0x479
0x16200…2cb9d at04c3 = » « // 0x166eb @0x4c3
0x16200…2cb9d at04cb = SetBufferAddress {ic=11, line=0x11, col=0x0a} // 0x166f3 @0x4cb
0x16200…2cb9d at04ce = »UDATE - Entire program date « // 0x166f6 @0x4ce
0x16200…2cb9d at0515 = » « // 0x1673d @0x515
0x16200…2cb9d at051d = SetBufferAddress {ic=11, line=0x12, col=0x0a} // 0x16745 @0x51d
0x16200…2cb9d at0520 = »UMONTH - Month portion of program date « // 0x16748 @0x520
0x16200…2cb9d at0567 = » « // 0x1678f @0x567
0x16200…2cb9d at056f = SetBufferAddress {ic=11, line=0x13, col=0x0a} // 0x16797 @0x56f
0x16200…2cb9d at0572 = »UDAY - Day portion of program date « // 0x1679a @0x572
0x16200…2cb9d at05b9 = » « // 0x167e1 @0x5b9
0x16200…2cb9d at05c1 = SetBufferAddress {ic=11, line=0x14, col=0x0a} // 0x167e9 @0x5c1
0x16200…2cb9d at05c4 = »UYEAR - Year portion of program date « // 0x167ec @0x5c4
0x16200…2cb9d at060b = » « // 0x16833 @0x60b
0x16200…2cb9d at065b = » « // 0x16883 @0x65b
0x16200…2cb9d at06ab = » « // 0x168d3 @0x6ab
0x16200…2cb9d at06fb = » « // 0x16923 @0x6fb
0x16200…2cb9d at06fd = SetBufferAddress {ic=11, line=0x18, col=0x04} // 0x16925 @0x6fd
0x16200…2cb9d at0700 = »Enter-Exit help text Roll keys-Page help text « // 0x16928 @0x700
0x16200…2cb9d }
0x16200…2cb9d }
0x16200…2cb9d }
0x16a00…2daa4 Form36 {
0x16a00…2daa4 fh000 = 0x00 // 0x16a00 @0x0
0x16a00…2daa4 fh00 = 2200 // 0x16a01 @0x1
0x16a00…2daa4 fh01 = »NNN« // 0x16a03 @0x3
0x16a00…2daa4 fh02 = 000000 // 0x16a06 @0x6
0x16a00…2daa4 fh03 = »NNN« // 0x16a09 @0x9
0x16a00…2daa4 fh04 = 0x0028 // 0x16a0c @0xc
0x16a00…2daa4 fh05 = 0x0654 // 0x16a0e @0xe
0x16a00…2daa4 fh06 = 000080011800000000000000000000000000 // 0x16a10 @0x10
0x16a00…2daa4 at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x16a22 @0x22
0x16a00…2daa4 panel = { // 0x16a28 @0x28
0x16a00…2daa4 ┌────────────────────────────────────────────────────────────────────────────────┐
0x16a00…2daa4 00│ │
0x16a00…2daa4 01│ HELP FOR DISPLAY SELECTION │
0x16a00…2daa4 02│ │
0x16a00…2daa4 03│ Enter the number that corresponds to the display you want to use. │
0x16a00…2daa4 04│ │
0x16a00…2daa4 05│ │
0x16a00…2daa4 06│ WSU-J - Workstation utility job specification │
0x16a00…2daa4 07│ WSU-E - Workstation utility array specification │
0x16a00…2daa4 08│ WSU-T - Workstation utility transaction file specification │
0x16a00…2daa4 09│ WSU-M - Workstation utility master file specification │
0x16a00…2daa4 10│ WSU-S - Workstation utility display format specification │
0x16a00…2daa4 11│ WSU-D - Workstation utility field definition specification │
0x16a00…2daa4 12│ WSU-C - Workstation utility processing specification │
0x16a00…2daa4 13│ SFGR-S - Screen format generator S specification │
0x16a00…2daa4 14│ SFGR-H - Screen format generator H specification │
0x16a00…2daa4 15│ SFGR-D - Screen format generator D specification │
0x16a00…2daa4 16│ D-CONT - Screen format generator D continuation specification │
0x16a00…2daa4 17│ D-CONT - Screen format generator D continuation specification │
0x16a00…2daa4 18│ SORTH - Sort header specification │
0x16a00…2daa4 19│ SORTRC - Sort field to constant compare specification │
0x16a00…2daa4 20│ SORTF - Sort field to field compare specification │
0x16a00…2daa4 21│ COMMAND - Free form format for ideographic data │
0x16a00…2daa4 22│ │
0x16a00…2daa4 23│ Enter-Exit help text Roll keys-Page help text │
0x16a00…2daa4 24│ │
0x16a00…2daa4 25│ │
0x16a00…2daa4 26│ │
0x16a00…2daa4 27│ │
0x16a00…2daa4 └────────────────────────────────────────────────────────────────────────────────┘
0x16a00…2daa4 Panel5250 {
0x16a00…2daa4 at0000 = ClearUnit {esc=04, cu=40} // 0x16a28 @0x0
0x16a00…2daa4 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x16a2a @0x2
0x16a00…2daa4 at0006 = SetBufferAddress {ic=11, line=0x02, col=0x04} // 0x16a2e @0x6
0x16a00…2daa4 at0009 = » HELP FOR DISPLAY SELECTION « // 0x16a31 @0x9
0x16a00…2daa4 at0055 = SetBufferAddress {ic=11, line=0x04, col=0x03} // 0x16a7d @0x55
0x16a00…2daa4 at0058 = » Enter the number that corresponds to the display you want to use. « // 0x16a80 @0x58
0x16a00…2daa4 at00a6 = » « // 0x16ace @0xa6
0x16a00…2daa4 at00f5 = SetBufferAddress {ic=11, line=0x07, col=0x02} // 0x16b1d @0xf5
0x16a00…2daa4 at00f8 = » WSU-J - Workstation utility job specification « // 0x16b20 @0xf8
0x16a00…2daa4 at0146 = SetBufferAddress {ic=11, line=0x08, col=0x02} // 0x16b6e @0x146
0x16a00…2daa4 at0149 = » WSU-E - Workstation utility array specification « // 0x16b71 @0x149
0x16a00…2daa4 at0197 = SetBufferAddress {ic=11, line=0x09, col=0x02} // 0x16bbf @0x197
0x16a00…2daa4 at019a = » WSU-T - Workstation utility transaction file specification « // 0x16bc2 @0x19a
0x16a00…2daa4 at01e8 = SetBufferAddress {ic=11, line=0x0a, col=0x02} // 0x16c10 @0x1e8
0x16a00…2daa4 at01eb = » WSU-M - Workstation utility master file specification « // 0x16c13 @0x1eb
0x16a00…2daa4 at0239 = SetBufferAddress {ic=11, line=0x0b, col=0x02} // 0x16c61 @0x239
0x16a00…2daa4 at023c = » WSU-S - Workstation utility display format specification « // 0x16c64 @0x23c
0x16a00…2daa4 at028a = SetBufferAddress {ic=11, line=0x0c, col=0x02} // 0x16cb2 @0x28a
0x16a00…2daa4 at028d = » WSU-D - Workstation utility field definition specification « // 0x16cb5 @0x28d
0x16a00…2daa4 at02db = SetBufferAddress {ic=11, line=0x0d, col=0x02} // 0x16d03 @0x2db
0x16a00…2daa4 at02de = » WSU-C - Workstation utility processing specification « // 0x16d06 @0x2de
0x16a00…2daa4 at032c = SetBufferAddress {ic=11, line=0x0e, col=0x02} // 0x16d54 @0x32c
0x16a00…2daa4 at032f = » SFGR-S - Screen format generator S specification « // 0x16d57 @0x32f
0x16a00…2daa4 at037d = SetBufferAddress {ic=11, line=0x0f, col=0x02} // 0x16da5 @0x37d
0x16a00…2daa4 at0380 = » SFGR-H - Screen format generator H specification « // 0x16da8 @0x380
0x16a00…2daa4 at03ce = SetBufferAddress {ic=11, line=0x10, col=0x02} // 0x16df6 @0x3ce
0x16a00…2daa4 at03d1 = » SFGR-D - Screen format generator D specification « // 0x16df9 @0x3d1
0x16a00…2daa4 at041f = SetBufferAddress {ic=11, line=0x11, col=0x02} // 0x16e47 @0x41f
0x16a00…2daa4 at0422 = » D-CONT - Screen format generator D continuation specification « // 0x16e4a @0x422
0x16a00…2daa4 at0470 = SetBufferAddress {ic=11, line=0x12, col=0x02} // 0x16e98 @0x470
0x16a00…2daa4 at0473 = » D-CONT - Screen format generator D continuation specification « // 0x16e9b @0x473
0x16a00…2daa4 at04c1 = SetBufferAddress {ic=11, line=0x13, col=0x02} // 0x16ee9 @0x4c1
0x16a00…2daa4 at04c4 = » SORTH - Sort header specification « // 0x16eec @0x4c4
0x16a00…2daa4 at0512 = SetBufferAddress {ic=11, line=0x14, col=0x02} // 0x16f3a @0x512
0x16a00…2daa4 at0515 = » SORTRC - Sort field to constant compare specification « // 0x16f3d @0x515
0x16a00…2daa4 at0563 = SetBufferAddress {ic=11, line=0x15, col=0x02} // 0x16f8b @0x563
0x16a00…2daa4 at0566 = » SORTF - Sort field to field compare specification « // 0x16f8e @0x566
0x16a00…2daa4 at05b4 = SetBufferAddress {ic=11, line=0x16, col=0x02} // 0x16fdc @0x5b4
0x16a00…2daa4 at05b7 = » COMMAND - Free form format for ideographic data « // 0x16fdf @0x5b7
0x16a00…2daa4 at0605 = SetBufferAddress {ic=11, line=0x18, col=0x04} // 0x1702d @0x605
0x16a00…2daa4 at0608 = »Enter-Exit help text Roll keys-Page help text « // 0x17030 @0x608
0x16a00…2daa4 }
0x16a00…2daa4 }
0x16a00…2daa4 }
0x17100…2e8a4 Form36 {
0x17100…2e8a4 fh000 = 0x00 // 0x17100 @0x0
0x17100…2e8a4 fh00 = 2200 // 0x17101 @0x1
0x17100…2e8a4 fh01 = »NNN« // 0x17103 @0x3
0x17100…2e8a4 fh02 = 000000 // 0x17106 @0x6
0x17100…2e8a4 fh03 = »NNN« // 0x17109 @0x9
0x17100…2e8a4 fh04 = 0x0028 // 0x1710c @0xc
0x17100…2e8a4 fh05 = 0x0654 // 0x1710e @0xe
0x17100…2e8a4 fh06 = 000080011800000000000000000000000000 // 0x17110 @0x10
0x17100…2e8a4 at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x17122 @0x22
0x17100…2e8a4 panel = { // 0x17128 @0x28
0x17100…2e8a4 ┌────────────────────────────────────────────────────────────────────────────────┐
0x17100…2e8a4 00│ │
0x17100…2e8a4 01│ HELP FOR DISPLAY SELECTION │
0x17100…2e8a4 02│ │
0x17100…2e8a4 03│ Enter the number that corresponds to the display you want to use. │
0x17100…2e8a4 04│ │
0x17100…2e8a4 05│ │
0x17100…2e8a4 06│ ASSEM - Assembler specification │
0x17100…2e8a4 07│ FORTRAN - Fortran specification │
0x17100…2e8a4 08│ COBOL - COBOL specification │
0x17100…2e8a4 09│ SDAS - Prompted screen format generator S specification │
0x17100…2e8a4 10│ SDAH - Prompted screen format generator H specification │
0x17100…2e8a4 11│ SDAD1 - Prompted screen format generator D specification │
0x17100…2e8a4 12│ SDAD2 - Prompted screen format generator D continuation │
0x17100…2e8a4 13│ DOC-H - Document H specification │
0x17100…2e8a4 14│ AUTOR - Auto-response message specification │
0x17100…2e8a4 15│ MESSAGE - Message specification │
0x17100…2e8a4 16│ SRT-HEAD - Sort header specification │
0x17100…2e8a4 17│ SRT-RECD - Sort record type specification │
0x17100…2e8a4 18│ SRT-CNST - Sort field to constant compare specification │
0x17100…2e8a4 19│ SRT-FLD - Sort field to field compare specification │
0x17100…2e8a4 20│ MICRSYS - Magnetic Ink Character Recognition system specification │
0x17100…2e8a4 21│ MICRSTCK - Magnetic Ink Character Recognition stacker specification │
0x17100…2e8a4 22│ │
0x17100…2e8a4 23│ Enter-Exit help text Roll keys-Page help text │
0x17100…2e8a4 24│ │
0x17100…2e8a4 25│ │
0x17100…2e8a4 26│ │
0x17100…2e8a4 27│ │
0x17100…2e8a4 └────────────────────────────────────────────────────────────────────────────────┘
0x17100…2e8a4 Panel5250 {
0x17100…2e8a4 at0000 = ClearUnit {esc=04, cu=40} // 0x17128 @0x0
0x17100…2e8a4 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x1712a @0x2
0x17100…2e8a4 at0006 = SetBufferAddress {ic=11, line=0x02, col=0x04} // 0x1712e @0x6
0x17100…2e8a4 at0009 = » HELP FOR DISPLAY SELECTION « // 0x17131 @0x9
0x17100…2e8a4 at0055 = SetBufferAddress {ic=11, line=0x04, col=0x03} // 0x1717d @0x55
0x17100…2e8a4 at0058 = » Enter the number that corresponds to the display you want to use. « // 0x17180 @0x58
0x17100…2e8a4 at00a6 = » « // 0x171ce @0xa6
0x17100…2e8a4 at00f5 = SetBufferAddress {ic=11, line=0x07, col=0x02} // 0x1721d @0xf5
0x17100…2e8a4 at00f8 = » ASSEM - Assembler specification « // 0x17220 @0xf8
0x17100…2e8a4 at0146 = SetBufferAddress {ic=11, line=0x08, col=0x02} // 0x1726e @0x146
0x17100…2e8a4 at0149 = » FORTRAN - Fortran specification « // 0x17271 @0x149
0x17100…2e8a4 at0197 = SetBufferAddress {ic=11, line=0x09, col=0x02} // 0x172bf @0x197
0x17100…2e8a4 at019a = » COBOL - COBOL specification « // 0x172c2 @0x19a
0x17100…2e8a4 at01e8 = SetBufferAddress {ic=11, line=0x0a, col=0x02} // 0x17310 @0x1e8
0x17100…2e8a4 at01eb = » SDAS - Prompted screen format generator S specification « // 0x17313 @0x1eb
0x17100…2e8a4 at0239 = SetBufferAddress {ic=11, line=0x0b, col=0x02} // 0x17361 @0x239
0x17100…2e8a4 at023c = » SDAH - Prompted screen format generator H specification « // 0x17364 @0x23c
0x17100…2e8a4 at028a = SetBufferAddress {ic=11, line=0x0c, col=0x02} // 0x173b2 @0x28a
0x17100…2e8a4 at028d = » SDAD1 - Prompted screen format generator D specification « // 0x173b5 @0x28d
0x17100…2e8a4 at02db = SetBufferAddress {ic=11, line=0x0d, col=0x02} // 0x17403 @0x2db
0x17100…2e8a4 at02de = » SDAD2 - Prompted screen format generator D continuation « // 0x17406 @0x2de
0x17100…2e8a4 at032c = SetBufferAddress {ic=11, line=0x0e, col=0x02} // 0x17454 @0x32c
0x17100…2e8a4 at032f = » DOC-H - Document H specification « // 0x17457 @0x32f
0x17100…2e8a4 at037d = SetBufferAddress {ic=11, line=0x0f, col=0x02} // 0x174a5 @0x37d
0x17100…2e8a4 at0380 = » AUTOR - Auto-response message specification « // 0x174a8 @0x380
0x17100…2e8a4 at03ce = SetBufferAddress {ic=11, line=0x10, col=0x02} // 0x174f6 @0x3ce
0x17100…2e8a4 at03d1 = » MESSAGE - Message specification « // 0x174f9 @0x3d1
0x17100…2e8a4 at041f = SetBufferAddress {ic=11, line=0x11, col=0x02} // 0x17547 @0x41f
0x17100…2e8a4 at0422 = » SRT-HEAD - Sort header specification « // 0x1754a @0x422
0x17100…2e8a4 at0470 = SetBufferAddress {ic=11, line=0x12, col=0x02} // 0x17598 @0x470
0x17100…2e8a4 at0473 = » SRT-RECD - Sort record type specification « // 0x1759b @0x473
0x17100…2e8a4 at04c1 = SetBufferAddress {ic=11, line=0x13, col=0x02} // 0x175e9 @0x4c1
0x17100…2e8a4 at04c4 = » SRT-CNST - Sort field to constant compare specification « // 0x175ec @0x4c4
0x17100…2e8a4 at0512 = SetBufferAddress {ic=11, line=0x14, col=0x02} // 0x1763a @0x512
0x17100…2e8a4 at0515 = » SRT-FLD - Sort field to field compare specification « // 0x1763d @0x515
0x17100…2e8a4 at0563 = SetBufferAddress {ic=11, line=0x15, col=0x02} // 0x1768b @0x563
0x17100…2e8a4 at0566 = » MICRSYS - Magnetic Ink Character Recognition system specification « // 0x1768e @0x566
0x17100…2e8a4 at05b4 = SetBufferAddress {ic=11, line=0x16, col=0x02} // 0x176dc @0x5b4
0x17100…2e8a4 at05b7 = » MICRSTCK - Magnetic Ink Character Recognition stacker specification « // 0x176df @0x5b7
0x17100…2e8a4 at0605 = SetBufferAddress {ic=11, line=0x18, col=0x04} // 0x1772d @0x605
0x17100…2e8a4 at0608 = »Enter-Exit help text Roll keys-Page help text « // 0x17730 @0x608
0x17100…2e8a4 }
0x17100…2e8a4 }
0x17100…2e8a4 }
0x17800…2f1e5 Form36 {
0x17800…2f1e5 fh000 = 0x00 // 0x17800 @0x0
0x17800…2f1e5 fh00 = 2200 // 0x17801 @0x1
0x17800…2f1e5 fh01 = »NNN« // 0x17803 @0x3
0x17800…2f1e5 fh02 = 000000 // 0x17806 @0x6
0x17800…2f1e5 fh03 = »NNN« // 0x17809 @0x9
0x17800…2f1e5 fh04 = 0x0028 // 0x1780c @0xc
0x17800…2f1e5 fh05 = 0x0195 // 0x1780e @0xe
0x17800…2f1e5 fh06 = 000080011800000000000000000000000000 // 0x17810 @0x10
0x17800…2f1e5 at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x17822 @0x22
0x17800…2f1e5 panel = { // 0x17828 @0x28
0x17800…2f1e5 ┌────────────────────────────────────────────────────────────────────────────────┐
0x17800…2f1e5 00│ │
0x17800…2f1e5 01│ HELP FOR DISPLAY SELECTION │
0x17800…2f1e5 02│ │
0x17800…2f1e5 03│ Enter the number that corresponds to the display you want to use. │
0x17800…2f1e5 04│ │
0x17800…2f1e5 05│ │
0x17800…2f1e5 06│ PASSTHRU - Display station pass through node entry │
0x17800…2f1e5 07│ │
0x17800…2f1e5 08│ │
0x17800…2f1e5 09│ │
0x17800…2f1e5 10│ │
0x17800…2f1e5 11│ │
0x17800…2f1e5 12│ │
0x17800…2f1e5 13│ │
0x17800…2f1e5 14│ │
0x17800…2f1e5 15│ │
0x17800…2f1e5 16│ │
0x17800…2f1e5 17│ │
0x17800…2f1e5 18│ │
0x17800…2f1e5 19│ │
0x17800…2f1e5 20│ │
0x17800…2f1e5 21│ │
0x17800…2f1e5 22│ │
0x17800…2f1e5 23│ Enter-Exit help text Roll keys-Page help text │
0x17800…2f1e5 24│ │
0x17800…2f1e5 25│ │
0x17800…2f1e5 26│ │
0x17800…2f1e5 27│ │
0x17800…2f1e5 └────────────────────────────────────────────────────────────────────────────────┘
0x17800…2f1e5 Panel5250 {
0x17800…2f1e5 at0000 = ClearUnit {esc=04, cu=40} // 0x17828 @0x0
0x17800…2f1e5 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x1782a @0x2
0x17800…2f1e5 at0006 = SetBufferAddress {ic=11, line=0x02, col=0x04} // 0x1782e @0x6
0x17800…2f1e5 at0009 = » HELP FOR DISPLAY SELECTION « // 0x17831 @0x9
0x17800…2f1e5 at0055 = SetBufferAddress {ic=11, line=0x04, col=0x03} // 0x1787d @0x55
0x17800…2f1e5 at0058 = » Enter the number that corresponds to the display you want to use. « // 0x17880 @0x58
0x17800…2f1e5 at00a6 = » « // 0x178ce @0xa6
0x17800…2f1e5 at00f5 = SetBufferAddress {ic=11, line=0x07, col=0x02} // 0x1791d @0xf5
0x17800…2f1e5 at00f8 = » PASSTHRU - Display station pass through node entry « // 0x17920 @0xf8
0x17800…2f1e5 at0146 = SetBufferAddress {ic=11, line=0x18, col=0x04} // 0x1796e @0x146
0x17800…2f1e5 at0149 = »Enter-Exit help text Roll keys-Page help text « // 0x17971 @0x149
0x17800…2f1e5 }
0x17800…2f1e5 }
0x17800…2f1e5 }