EDTCODE in AS400

EDTCDE - EDITC - EDITW

Edit Code Description	No Sign	CR Sign	Sign- (R)	-Sign (L)
Commas and zero balances	1	A	J	N
Commas	2	B	K	O
Zero balances	3	C	L	P
No commas or zero balances	4	D	M	Q
Date edit (4 digits)	W
No edit (suppress sign)	X
Date edit	Y
Suppress leading zeros	Z
User defined edit codes 5 - 9	User defined edit codes are created with the CRTEDTD or WRKEDTD commands. Any user-defined edit code will exist in library QSYS, with the name QEDIT5, QEDIT6. QEDIT7, QEDIT8 and QEDIT9.

Edit Code	Positive	Negative	Zeroes

1	12,345.67	12,345.67	.00
2	12,345.67	12,345.67
3	12345.67	12345.67	.00
4	12345.67	12345.67

A	12,345.67	12,345.67CR	.00
B	12,345.67	12,345.67CR
C	12345.67	12345.67CR	.00
D	12345.67	12345.67CR

J	12,345.67	12,345.67-	.00
K	12,345.67	12,345.67-
L	12345.67	12345.67-	.00
M	12345.67	12345.67-

N	12,345.67	-12,345.67	.00
O	12,345.67	-12,345.67
P	12345.67	-12345.67	.00
Q	12345.67	-12345.67

Edit codes are generally used in RPG Output specifcations, EDTCDE & EDTWRD in DDS specifications, %EDITC & %EDITW in Definition and Calculation specifications.
RPG Output Specifications. The edit code is in position 44 on the same line as the field name to be edited. An edit word can be entered in quotation marks for more specific editing.	DDS Specifications. EDTCDE() or EDTWRD() on screen and printer dds's is entered in the section against the field name to specify how the field is displayed.  If the EDTCDE() orEDTWRD() is used on a PF dds, the keyword is used to format the field in QUERY reports.	Calculation specifications. %EDITC in the calculations section formats a numeric field and stores it in a character field.   %TRIM can be used with this to left justify an edited field.

%EDITC has the following formats ...

%EDITC(number: editcode);	12,345.67
%EDITC(number: editcode: currency);	€12,345.67
%EDITC(number: editcode: *astfill);	***12,345.67
%EDITC(number: editcode: *cursym);	€12,345.67

where number = 0012345.67,
editcode = K,
currency = €,
*cursym = €.
*CURSYM has a default value of $.
This is defined in the system values at QCURSYM. To change the value of *CURSYM for the program, use CURSYM on the H (control) specification.
e.g. H cursym('€')

This is an example of using %EDITW ...

%EDITW(znumber: zword);

12,345Euros 67Cents

where znumber is defined as 7,2 and containes 0012345.67,
zword contains "    ,   Euros&  Cents".
(There are 4 spaces to the left of the comma, 3 spaces to the right of the comma and 2 spaces after Euros.
The & will force a space to be output, the spaces will be filled with digits from the number field.)