Syntax:
call "CBL_IMP" using source
target
by value length
Parameters:

Using call prototype (see Key) 
Picture 
source

cbltx1compx 
Any data item. 
target

cbltx1compx 
Any data item. 
length

cbltossize 
Numeric literal or pic x(4) comp5. 
On Entry:
source

One of the data items to IMPLIES. 
target

The other data item to IMPLIES. 
length

The number of bytes of source and target to IMPLIES. Positions in target beyond this are unchanged. 
Comments:
The routine starts at the lefthand end of source and target and IMPLIES the bits together, storing the result in target. The truth table for this is: