...
// IT0007.end
END;
PROCEDURE FormatNum@1130002(CodeField@1130000 : Code[54];Len@1130001 : Integer) : Code[54];
BEGIN
// Delete the following lines.
// IT0007.begin
EXIT(FORMAT(CodeField,Len,STRSUBSTNO(Text12103,Len)))
// IT0007.end
// End of the lines.
END;
PROCEDURE FormatAlphaNum@1130021(CodeField@1130000 : Code[20];Len@1130001 : Integer) : Text[20];
BEGIN
// IT0007.begin
...
...
// IT0007.end
END;
PROCEDURE FormatNum@1130002(CodeField@1130000 : Code[54];Len@1130001 : Integer) : Code[54];
BEGIN
// Add the following line.
EXIT(FORMAT(CodeField,Len,STRSUBSTNO('<Text,%1><Filler Character,0>',Len)))
END;
PROCEDURE FormatAlphaNum@1130021(CodeField@1130000 : Code[20];Len@1130001 : Integer) : Text[20];
BEGIN
// IT0007.begin
...