Download Print this page

HP 3000 Manual page 177

Mpe/ix computer systems, rpg/xl utilities
Hide thumbs Also See for 3000:

Advertisement

Purpose
The JOIN command appends or merges the entire contents of file "file name" to the work file. If "TO loc" is
not specified "filename" is appended at the end of the work file. If "BY inc" is not specified, the current
increment default value is used.
Using an increment value of less than 1 allows you to concentrate more lines in a restricted location.
Sometimes the entire contents of "filename" cannot be joined as indicated because they are blocked by the
next higher line number. RISE will automatically attempt to join them by using the smallest increment
value of 0.001. If this attempt fails because of the block, the JOIN command will not execute.
*
Execution mode:
*
Record Pointer:
*
Control Y:
Examples
The following are legal abbreviations which may be used with the JOIN command and its parameters:
J FILE2 TO 10
Join the file named FILE2 to the current work file starting at line 10.
J FILE2 TO L
Join the file named FILE2 to the current work file
starting at the first line following the last line in the file.
JOI FILE2 BY
Join the file named FILE2 at the end of the current work
0.1
file using an increment value of 0.1.
In the JOIN examples, a file named RPGDOC is created for purposes of file documentation. It is stored as
a permanent file using the KEEP command (1). A five-line version of SIMCAL is then copied into a work
file using the TEXT command (2). The JOIN command is used to join RPGDOC to SIMCAL at line 0.1 (3).
The results are displayed on the screen (4), and an execution message appears (5).
The LIST command, entered incorrectly, produces an error message (6). When LIST is entered legally, with
a line range from the first line to line 5 (7), the display indicates how the JOIN command with an
increment of 0.1 is executed (8). The user could JOIN RPGDOC repeatedly to different source files to
document those files.
12345678901234567890123456789012345678901234567890123456789
1
2
3
4
5
6
7
8
(1)
>K RPGDOC
Keep completed.
File name is RPGDOC
>
>
>
>T SIMCAL
Text completed.
(2)
>L 1/5
1
SIMCAL
2
3
4
5
Line or Block.
At last line joined to the work file.
Stops listing of lines being joined to work file.
0
1
:
H*
:
H*
PROGRAM NAME:
:
H*
:
H*
PROGRAMMER
:
H*
DATE WRITTEN:
:
H*
PURPOSE
:
H*
:<Control Y>
00011H
00012FINPUT
00013FOUTPUT
00014IINPUT
00015I
OR
2
3
:
:
I P
F
72
O
F
72
AA
01
1 CA
02
1 CS
4
DISK
DISK
2- 179

Advertisement

loading