Directory of image this file is from
This file as a plain text file

START; CREATE NAMFIL  LABEL MASTER FILE
INCLUDE (01,NAMFIL,RS)
RECORD,C
	CNT,D3
PROC ;PROC
	XMIT(8,"CREATING FILE NAMFIL.DT')
	OPEN('170107NAMFILDT')		;CREATE NEW FILE ON RXA1
	CLOSE(01,26)			;CLOSE WITH 26 512 CHAR.BLOCKS
	OPEN('160107NAMFILDT')		;REOPEN FOR WRITES
	LNAME(3,12)='LASTNAME  '
	FNAME(3,12)='FIRSTNAME.'
	ADDR1(3,24)=' 12345 ADDRESS LINE 1 '
	ADDR2(3,24)=' 12345 ADDRESS LINE 2 '
	ADDR3(3,15)=' 3RD ADDRESS '
	STATE='ST'
	ZIP(3,5)='999'
LOOP,	INCR CNT
	LNAME(1,2)=CNT			;BUILD DUMMY CONTENTS
	FNAME(1,2)=CNT
	ADDR1(1,2)=CNT
	ADDR2(1,2)=CNT
	ADDR3(1,2)=CNT
	ZIP(1,2)=CNT
	TEL(1,3)=CNT
	TEL(4,6)=CNT
	TEL(7,8)=CNT
	TEL(9,10)=CNT
	BDAY(1,2)=CNT
	BDAY(3,4)=CNT
	BDAY(5,6)=CNT
	RATE(1,2)=CNT
	RATE(3,4)=CNT
	HRS  =  CNT
	DEDS(2,3)=CNT
	DEDS(4,5)=CNT
	WRITE(01,NAMFIL,CNT)		;WRITE A VALID RECORD
	IF (CNT.LT.100) GOTO LOOP		;REPEAT
	FINI(01)			;CLOSE AFTER WRITES
	XMIT(8,"DONE')
END