UPDATE AFILE Example


Example:

 

MYFILE

AFILE

 

VAR1

INIT

"ABC"

VAR2

INIT

"XYZ"

.

 

 

  

UPDATE

MYFILE;VAR1,*120,VAR2

 

Logical file:

MYFILE

Variables:

VAR1 and VAR2

List controls:

*120 (tab to position 120 within the record before updating VAR2)

 

 



PL/B Language Reference UNPACK Examples UPDATE FILE Example