MOVE - RECORD to RECORD Example

MOVE - RECORD to RECORD Example

Example:

ADDRESS	RECORD	DEFINIITION
NAME	DIM	40
ADDR	DIM	40
CITY	DIM	30
STATE	DIM	2
ZIPCODE	DIM	9
	RECORDEND
.
RECORD1	RECORD	LIKE ADDRESS
RECORD2	RECORD	LIKE ADDRESS
*
.Fill the first record
.
	MOVE	"Sunbelt",RECORD1.NAME
	MOVE	"13090 CR 468",RECORD1.ADDR
	MOVE	"Tyler",RECORD1.CITY
	MOVE	"Tx",RECORD1.STATE
	MOVE	"75704",RECORD1.ZIPCODE
*
.Make the copy
.
	MOVE	RECORD1,RECORD2
*
.Display the second record
.
	DISPLAY	HD,R,RECORD2.NAME:
		*R,RECORD2.ADDR:
		*R,RECORD2.CITY:
		*R,RECORD2.STATE:
		*R,RECORD2.ZIPCODE
	STOP

PL/B Language Reference

MOVE - Numeric Field to Numeric Field Examples

MOVE - Variable to List of Variables Example