COBOL Manual for TNS and TNS/R Programs

Procedure Division Verbs
HP COBOL Manual for TNS and TNS/R Programs—522555-006
9-127
MERGE
Example 9-43. MERGE Statement
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT PARTS-ON-HAND ASSIGN TO "H215432.ONHAND"
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL.
SELECT PARTS-RECEIVED ASSIGN TO "H215432.RECD"
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL.
SELECT PARTS-TOGETHER ASSIGN TO "H215432.TGTHR"
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL.
SELECT MERGER ASSIGN TO "$HISPD.#TEMP".
...
DATA DIVISION.
FILE SECTION.
FD PARTS-ON-HAND
RECORD CONTAINS 120 CHARACTERS
LABEL RECORDS ARE OMITTED.
01 P-O-H.
05 PARTNO PIC 9(8).
...
FD PARTS-RECEIVED
RECORD CONTAINS 120 CHARACTERS
LABEL RECORDS ARE OMITTED.
01 P-R.
05 PARTNO PIC 9(8).
...
FD PARTS-TOGETHER
RECORD CONTAINS 120 CHARACTERS
LABEL RECORDS ARE OMITTED.
01 P-T.
05 PARTNO PIC 9(8).
...
SD MERGER
RECORD CONTAINS 120 CHARACTERS.
01 PARTNO PIC 9(8).
...
PROCEDURE DIVISION.
...
MERGE MERGER ON ASCENDING KEY PARTNO OF MERGER
USING PARTS-ON-HAND
PARTS-RECEIVED
GIVING PARTS-TOGETHER
...