IMPLODE Examples

Example1:

 

A

INIT

"ABC"

FX

FORM

"12345.02"

TAB

INIT

0x9

.

 

 

ET

EDITTEXT

 

ST

STATTEXT

 

*

 

 

. Create objects ET and ST ...

.

 

 

  

IMPLODE

S$CMDLIN,",",A,FX

  

IMPLODE

S$CMDLIN,"",A,FX

  

IMPLODE

S$CMDLIN,TAB,A,"LITERAL",FX

  

IMPLODE

S$CMDLIN,0x9,A,FX

  

IMPLODE

S$CMDLIN,";",ET,ST

 

Example2:

 

A

INIT

"A"

B

INIT

"B"

C

INIT

"C"

NVAR

FORM

3

.

 

 

 

IMPLODE

S$CMDLIN,";" GIVING NVAR,A,B,C

 

IMPLODE

S$CMDLIN,";" GIVING NVAR USING A,B,C

 

IMPLODE

S$CMDLIN,";",A,B,C

 

IMPLODE

S$CMDLIN,";" USING A,B,C

 

 


PL/B Language Reference IMAGESCAN Example INCLUDE Example