COBOL Manual for TNS/E Programs (H06.08+, J06.03+)

Example 112 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
...
MOVE
MOVE TO
MOVE TO copies data from a data item and stores it in one or more other data items.
sender
is the literal or the identifier of the data item from which data is copied.
receiver
is the identifier of a data item to which the data is to be copied.
368 Procedure Division Verbs