[Search for users] [Overall Top Noters] [List of all Conferences] [Download this site]

Conference ilbbak::ibi_focus

Title:FOCUS, from INFORMATION BUILDERS
Moderator:ZAYIUS::BROUILLETTE
Created:Thu Feb 19 1987
Last Modified:Mon May 05 1997
Last Successful Update:Fri Jun 06 1997
Number of topics:615
Total number of notes:1779

219.0. "&TOD my way" by MEMV02::SHELTRY (Rrruffles have rrranch?) Mon Jun 12 1989 22:33

I hate the way &TOD displays on my reports, so I finally did
something about it.  This is a little .FEX that can go in each report
with a -Include or even in the PROFILE.FEX.

Instead of 09.36.15 or 14.20.42 (for example) you would see 09:36AM or
2:20PM, respectively, wherever you use &TIME. 

If any of you use it and find it useful, send me a note...I'd just
like to know. 

-SET &&NOW = &TOD;
-SET &&HRS = EDIT(&&NOW,'99$$$$$$');
-SET &&MINS = EDIT(&&NOW,'$$$99$$$');
-SET &&AMPM = IF &&HRS LE '11' THEN 'AM' ELSE 'PM';
-SET &&NHRS = IF &&HRS GE 13 THEN (&&HRS - 12) ELSE &&HRS;
-SET &TIME = &&NHRS | ':' | &&MINS | &&AMPM;

Wayne
T.RTitleUserPersonal
Name		DateLines
219.1Slightly improvedMEMV02::SHELTRYRrruffles have rrranch?Tue Jun 20 1989 18:2921
This is a slightly improved version of my creation.  Thanks to David
Lazarus, I found out that if you happen to be running a report at
midnite, the &&NHRS variable becomes 00.  So, I added one extra line
to fix that problem.

-SET &&NOW = &TOD;
-SET &&HRS = EDIT(&&NOW,'99$$$$$$');
-SET &&MINS = EDIT(&&NOW,'$$$99$$$');
-SET &&AMPM = IF &&HRS LE 11 THEN 'AM' ELSE 'PM';
-SET &&NHRS = IF &&HRS GE 13 THEN (&&HRS - 12) ELSE &&HRS;
-SET &&NHRS = IF &&NHRS EQ 00 THEN 12 ELSE &&NHRS;     <--
-SET &TIME = &&NHRS | ':' | &&MINS | &&AMPM;             |
                                                         |
                                                         |
             Addition to this .FEX   --------------------|

I'm not 100% sure that it works but I fudged the &&NHRS to be 00 and
got 12 on the output side, so this should do the trick.  David...lemme
know if you happen to see any reports run around midnite.

Wayne
219.2New and improved TOD.fexMILPND::SHELTRYRrruffles have rrranch?Tue Mar 13 1990 10:3548
This is an improved version of my TOD.FEX.  Since my group started
using this to add the date and time to screens, we found that we
needed to modify it.  FOCUS doesn't update the time once you're in a
session.  This program uses a DCL routine to find out the current time
and display it each time it's referenced.

Use <D.&TIME to display the time on your FOCUS screens.

Wayne

-*************************************************************************
-*   PROGRAM NAME: TOD
-*   DATE        : JUNE 27 , 1989
-*   AUTHOR      : ARI SILVERMAN (IBI)
-*   PURPOSE     : THIS WILL RETRIEVE THE SYSTEM TIME AND DATE
-*                 IN THE FORMAT DD-MM-YYYY AND HH:MM:SS
-*
-*************************************************************************
-*  REVISION HISTORY
-*
-*  DATE     DESCRIPTION OF REVISION                    PROGRAMMER
-*  ----     -----------------------                    ----------
-*
-*  7/14/89  INCLUDE TIME.FEX WRITTEN BY WAYNE          KATHY ROGUSKA
-*           SHELTRY.
-*
-*************************************************************************
-* TEMPORARY VARIABLE &TOD03 IS THE DATE IN THE FORMAT DD-MMM-YYYY A12
-* TEMPORARY VARIABLE &TOD04 IS THE TIME IN THE FORMAT HH:MM:SS A8

-SET &TOD01   = '        ';
-SET &TOD02   = '                    ';
-SET &TOD01   = GETSTIME(&TOD01);
-SET &TOD02   = CVTSTIME (0,&TOD01,&TOD02);
-SET &TOD03   = EDIT(&TOD02,'999999999999$$$$$$$$');
-SET &TOD04   = EDIT(&TOD02,'$$$$$$$$$$$$99999999');

-* TIME.FEX
-* WILL REFORMAT THE SYSTEM TIME TO HR:MINS AM/PM (EXAMPLE: 12:30PM)

-SET &NOW = &TOD04;
-SET &HRS = EDIT(&NOW,'99$$$$$$');
-SET &MINS = EDIT(&NOW,'$$$99$$$');
-SET &AMPM = IF &HRS LE '11' THEN ' AM' ELSE ' PM';
-SET &NHRS = IF &HRS GE 13 THEN (&HRS - 12) ELSE &HRS;
-SET &TIME = &NHRS | ':' | &MINS | &AMPM;
-RUN