Re: Looking for better coding

[euro.perozzi@xxxxxxxx]

This is a multipart message in MIME format.
--
[ Picked text/plain from multipart/alternative ]
Exactly !, Great !

BUT,  you need V5R1 (?) of RPG compiler that is compatible ( TGTRLS) with
V?.... don't you?


 Many Tanks
---------------------------------------------------------------------------------------
 Euro Perozzi











Try this:

D DBtxt10Char     S             10A
D DBtxt8Char      S              8A

 /Free

   DBtxt10Char = %Char(%Date(*Date));    // Convert Job Date to char
   Dsply  DBtxt10Char '*REQUESTER';
   DBtxt10Char = %Char(%Date());         // Convert Sys Date to char
   Dsply  DBtxt10Char '*REQUESTER';

   DBtxt8Char  = %Char(%Time());         // Convert Sys Time to char
   Dsply  DBtxt8Char  '*REQUESTER';

   *InLR = *On;

 /End-Free

Brian Parkins