identification division.
program-id. muster.
author. "JD".
date-written. 24.7.2006.
date-compiled.
data division.
working-storage section.
77 datum pic X(10).
linkage section.
77 counter pic 9(4).
procedure division using row.
* Musterzugang wird besonders farblich gekennzeichnet
display " | " . $row['lfdnr'] . " | ";
display "" . $row['User_ID'] . " | ";
if ($_SERVER["SERVER_NAME"] == "gr2"){
$dt=$row['Date'];
$dt_string = substr($dt,8,2) . '-' . substr($dt,5,2) . '-' . substr($dt,0,4) . " " . substr($dt,11);
display "" . $dt_string . " | ";
else{
$dt=$row['Date'];
$dt_string = substr($dt,6,2) . '-' . substr($dt,4,2) . '-' . substr($dt,0,4)
. " " . substr($dt,8,2) . ':' . substr($dt,10,2) . ':' . substr($dt,12,2);
display "" . $dt_string . " | ";
end-if
display "" . $row['Status'] . " | ";
if (substr($row['User_ID'],0,1) == 'K')
display "Muster-Zugang Kunde | ";
else
display "Muster-Zugang Partner | ";
end-if
end-program muster.
¤ Dauer der Verarbeitung: 0.24 Sekunden
(vorverarbeitet)
¤
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|