@SHIH - Output statement buffer

The @SHIH statement is used to output the EDT statement buffer. Only statements input in F mode are entered in the statement buffer.
The scrolling statements, the statements for changing the work file and the @SHIH itself are not entered in the statement buffer.

Operation	Operands	F mode, L mode
@SHIH	[ [TO] line [(inc)] ] [FORWARD]

line	Line number as of which information is to be written to the current work file. If a line with a number greater than the previous highest line number is created then the current line number is modified. If line is not specified then in the interactive mode's L mode, the result is output to SYSOUT (in batch mode, no output is possible) and in F mode it is written to work file 9. Work file 9 is deleted before being used. If a file is open in work file 9 then the message EDT5189 is output and the statement is not executed.
inc	Increment used to form the line numbers which follow line. If inc is not specified then the increment implicitly specified by line is used (see section “Implicit increment assignment”).
FORWARD	If this operand is specified then the statements are output in the sequence in which they were entered. If it is not specified then they are output in the opposite sequence, i.e. the last entered statement is output first.

The statement buffer can accommodate a maximum of 2048 statements independently of their respective lengths. If the statement buffer is empty then the @SHIH statement is rejected with the message EDT5376.

This operation takes no account of whether a statement was entered in the upper or lower part of a split screen. Statements are stored in the statement buffer independently of the work file to which the statement was applied. Statements in a statement sequence (statements separated by ’;’) are stored individually.

If output is written to work file 9 (in F mode, without the line operand) then the header is output in the information line (can be displayed using @PAR INFORMATION=ON). In addition, a @LOWER ON statement is implicitly issued for work file 9.

Output to SYSOUT is sent in the character set that has been defined for this system file. If the output is written to a work file then it is sent in the work file's character set. If the work file is empty and has the character set *NONE then the character set UTFE is used. Characters that cannot be displayed in the target character set are always replaced by blanks.

Note

The statement code K can be used to copy a statement to the statement line. This can then be executed in another work file if it is preceded by a statement that changes work file (see the $0..$22 statement).