EXTEND Examples

Example 1:

 

  

EXTEND

RECVING

 

 

Variable

PL

FP

LP

Contents

Before:

RECVING

20

6

12

ABCDEFGHIJKL········

 

After:

RECVING

20

7

7

ABCDEF·HIJKL········

 

No Condition Flags are set (all FALSE).

 

Example 2:

 

  

EXTEND

RECVING BY 3

 

 

Variable

PL

FP

LP

Contents

Before:

RECVING

15

 6

12

ABCDEFGHIJKL···

 

After:

RECVING

15

 9

 9

ABCDEF···JKL···

 

No Condition Flags are set (all FALSE).

 

Example 3:

 

  

EXTEND

RECVING BY EXNUMBER

 

 

Variable

PL

FP

LP

Contents

Before:

EXNUMBER

6

 

 

··3.75

 

RECVING

12

1

12

ABCDEFGHIJKL

 

After:

EXNUMBER

6

 

 

··3.75

 

RECVING

12

4

4

A···EFGHIJKL

 

No Condition Flags are set (all FALSE). Only the integer portion of EXNUMBER is used.

 

Example 4:

 

 

Variable

PL

FP

LP

Contents

Before:

EXNUMBER

6

 

 

····12

 

RECVING

20

10

12

ABCDEFGHIJKL········

 

After:

EXNUMBER

6

 

 

····12

 

RECVING

20

20

20

ABCDEFGHIJ··········

 

The EOS Condition Flag is set. The new Form Pointer would exceed the PL.

 


PL/B Language Reference EXPLODE Examples External Examples