*DECK DBLJZF
USETEXT DBTEXT
FUNC LJZF(OPERAND,(LENGTH)) C(80);
*CALL DEBUGVARS 
START("LJZF") 
ITEM OPERAND C(80), LENGTH I; 
ITEM COUNT; 
STEPLOOP(COUNT,0,1,LENGTH-1,"ALL OPERAND PROCESSED")
  IF C<COUNT,1>OPERAND EQ " " 
    THENB ("REPLACE SPACE BY ZERO") 
    C<COUNT,1>OPERAND=O"00";
  ENDIF 
ENDLOOP ("ALL OPERAND PROCESSED") 
CV$($SET$,"OPERAND",OPERAND)
LJZF=OPERAND; 
FINIS("LJZF") 
TERM
