Henri Kuiper's Weblog

Tja,

Soms komt het wel eens voor dat een datum opgeslagen wordt in een zgn. fixed dec(8) veld.
Het nadeel is dan meestal dat het ene systeem dit opslaat als ddmmyyyy en het andere als yyyymmdd.

Om nu van ddmmyyyy naar yyyymmdd te gaan gebruik ik dan maar het volgende:

dateswap: proc(fix8) returns(fixed dec(8));
dcl fix8 fixed dec(8);
dcl res fixed dec(8);
dcl p pointer init(addr(fix8));
dcl q pointer init(addr(res));

dcl 01 inbits based(p),
03 nibble0 bit(4),
03 nibble1 bit(4),
03 nibble2 bit(4),
03 nibble3 bit(4),
03 nibble4 bit(4),
03 nibble5 bit(4),
03 nibble6 bit(4),
03 nibble7 bit(4),
03 nibble8 bit(4),
03 nibble9 bit(4);

dcl 01 uitbits based(q),
03 nibble0 bit(4),
03 nibble5 bit(4),
03 nibble6 bit(4),
03 nibble7 bit(4),
03 nibble8 bit(4),
03 nibble3 bit(4),
03 nibble4 bit(4),
03 nibble1 bit(4),
03 nibble2 bit(4),
03 nibble9 bit(4);

uitbits = inbits,by name;

return(res);
end dateswap;



En dat gaat best goed :)

Labels: dateswap, pl/1