Marc's Place

 

FN_E$CLZ - Convert leading zeros to blanks

Inclusion in RPG source

C /COPY E$LIB/SRC(ILE),FN_E$CLZ

Invocation

EXSR E$CLZ

Input Parameters

@CLZ (a80)
Field in which a numeric value must be stored using the MOVE statement, prior to the call to E$CLZ.

Output Parameters

@CLZ (a80)
Field in which the formatted value is stored after processing by E$CLZ.

What it does

Converts all leading zeroes to blanks until a non-zero character is encountered.

Examples

 *
C                     MOVE 122       @CLZ     P       '000000000122'
C                     EXSR E$CLZ
C                     MOVE @CLZ      #FIELD   P       '         122'
 *
 
Go to download page
© 1997- Marc Vos (and others)   -   Privacy Statement   -    Contact Me

On this website, Google Analytics is used to track visitor statistics. These are anonymised data about the number of visitors, which pages they visit on this site, from which regions they visit, which web browsers they use, etc.. You will also see non-personalised ads via Google AdSense. Cookies from Paddle or Paypal are placed when you click on a 'Buy now!' or 'Donate!' button, and possible cookies from Disqus when you use that system to comment on one or more blogposts.
Privacy Statement