http://try-as400.pocnet.net/index.php?action=history&feed=atom&title=Using_timestamps_in_RPG
Using timestamps in RPG - Revision history
2026-05-05T21:00:11Z
Revision history for this page on the wiki
MediaWiki 1.43.8
http://try-as400.pocnet.net/index.php?title=Using_timestamps_in_RPG&diff=1334&oldid=prev
PoC: /* Weblinks */ Linkfix
2023-05-21T12:18:32Z
<p><span class="autocomment">Weblinks: </span> Linkfix</p>
<table style="background-color: #fff; color: #202122;" data-mw="interface">
<col class="diff-marker" />
<col class="diff-content" />
<col class="diff-marker" />
<col class="diff-content" />
<tr class="diff-title" lang="en">
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">← Older revision</td>
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">Revision as of 14:18, 21 May 2023</td>
</tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l39">Line 39:</td>
<td colspan="2" class="diff-lineno">Line 39:</td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><br></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><br></td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>== Weblinks ==</div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>== Weblinks ==</div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div>* [https://<del style="font-weight: bold; text-decoration: none;">ibmdocs</del>.<del style="font-weight: bold; text-decoration: none;">pocnet</del>.<del style="font-weight: bold; text-decoration: none;">net</del>/SC41-5712-01<del style="font-weight: bold; text-decoration: none;">.pdf SC41-5712-01], AS/400e DDS Reference</del></div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div>* [https://<ins style="font-weight: bold; text-decoration: none;">www</ins>.<ins style="font-weight: bold; text-decoration: none;">ibm</ins>.<ins style="font-weight: bold; text-decoration: none;">com</ins>/<ins style="font-weight: bold; text-decoration: none;">resources/publications/OutputPubsDetails?PubID=SC41571201 AS/400e DDS Reference], </ins>SC41-5712-01</div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div>* [https://<del style="font-weight: bold; text-decoration: none;">ibmdocs</del>.<del style="font-weight: bold; text-decoration: none;">pocnet</del>.<del style="font-weight: bold; text-decoration: none;">net</del>/<del style="font-weight: bold; text-decoration: none;">SC09-2508-02.pdf SC09-2508-02], </del>AS/400e ILE RPG for AS/400 Reference</div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div>* [https://<ins style="font-weight: bold; text-decoration: none;">www</ins>.<ins style="font-weight: bold; text-decoration: none;">ibm</ins>.<ins style="font-weight: bold; text-decoration: none;">com/resources</ins>/<ins style="font-weight: bold; text-decoration: none;">publications/OutputPubsDetails?PubID=SC09250802 </ins>AS/400e ILE RPG for AS/400 Reference<ins style="font-weight: bold; text-decoration: none;">], SC09-2508-02</ins></div></td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><br></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><br></td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>== Footnotes ==</div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>== Footnotes ==</div></td></tr>
<!-- diff cache key tryas400:diff:1.41:old-1295:rev-1334:php=table -->
</table>
PoC
http://try-as400.pocnet.net/index.php?title=Using_timestamps_in_RPG&diff=1295&oldid=prev
PoC: New
2023-02-23T21:27:10Z
<p>New</p>
<p><b>New page</b></p><div>Using '''timestamps in RPG''' is not as straightforward as using character, or decimal fields.<br />
<br />
RPG has an ''internal'' way to handle timestamps, which is incompatible with the ''external'' representation in externally described fields, such as database- and display files.<br />
<br />
<blockquote>'''Note:''' Adding the internal date/time handling routines is a compile time option. Use <code>CVTOPT(*DATETIME)</code> in a <code>H</code> line.</blockquote><br />
<br />
== Example ==<br />
;CHANGED<br />
:is a timestamp field in the database (physical file).<ref>RPG imports that as anything but a timestamp declared in the <code>D</code> statements.</ref><br />
;STAMP$<br />
:is a 19 character field in the DSPF, for containing the pretty printed timestamp.<br />
;STAMP<br />
:is the RPGLE defined timestamp (<code>Z</code>) field. The <code>TIME</code> operator writes to this variable.<br />
<br />
* PF:<br />
A CHANGED Z<br />
<br />
* DSPF:<br />
A STAMP$ 19A O ...<br />
<br />
* RPGLE:<br />
D* For saving/handling timetamp data.<br />
DSTAMP S Z<br />
D*<br />
<br />
For every time we write, or update a record:<br />
C* Current time → Database<br />
C TIME STAMP<br />
C MOVEL STAMP CHANGED<br />
<br />
Database → Pretty print DSPF field<br />
C* Get timestamp, and produce nice version thereof.<br />
C MOVEL CHANGED STAMP$<br />
C '.':':' XLATE STAMP$ STAMP$<br />
C '-':' ' XLATE STAMP$:11 STAMP$<br />
<br />
== See also ==<br />
* [[Using floating point numbers in RPG]]<br />
<br />
== Weblinks ==<br />
* [https://ibmdocs.pocnet.net/SC41-5712-01.pdf SC41-5712-01], AS/400e DDS Reference<br />
* [https://ibmdocs.pocnet.net/SC09-2508-02.pdf SC09-2508-02], AS/400e ILE RPG for AS/400 Reference<br />
<br />
== Footnotes ==<br />
<references /><br />
<br />
[[Category: Programming]]</div>
PoC