f



Re: On Topic : Cobol question. #2

Hi,

Take a look at the INTEGER-OF-DAY and DAY-OF-INTEGER functions along with =
the INTEGER-OF-DATE and DATE-OF-INTEGER functions.

http://docs.hp.com/cgi-bin/doc3k/B3150090013.11820/126
http://docs.hp.com/cgi-bin/doc3k/B3150090015.11951/60

Stefan

>>> "Rao, Raghu" <rrao@preferredcare.org> 07/05/05 3:35 PM >>>
Hi all,=20

We have been regularly using the FUNCTION CURRENT-DATE in COBOL to fetch =
=3D
the
runtime date and time inside the cobol programs as listed below :=20

           MOVE FUNCTION CURRENT-DATE      TO WS-CURRENT-DATE-TIME.

However, I could not find any information related to extracting current =
=3D
date
in Julian format (YYDDD). Is there anything directly that can be =3D
achieved
from this FUNCTION or any other function ? My only alternative so far is =
=3D
to
code a logic for converting above Gregorian to Julian date format and =3D
then
use in the COBOL program.=20

Any help is greatly appreciated.=20

TIA
Raghu Rao

www.preferredcare.org=20
"An Outstanding Member Experience," Preferred Care HMO Plans -- J. D. =3D
Power and Associates

Confidentiality Notice:
The information contained in this electronic message is intended for the =
=3D
exclusive use of the individual or entity named above and may contain =3D
privileged or confidential information.  If the reader of this message =3D
is not the intended recipient or the employee or agent responsible to =3D
deliver it to the intended recipient, you are hereby notified that =3D
dissemination, distribution or copying of this information is =3D
prohibited.  If you have received this communication in error, please =3D
notify the sender immediately by telephone and destroy the copies you =3D
received.

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *






*************************
The information in this email is confidential
and may be legally privileged. It is intended
solely for the addressee. Access to this email
by anyone else is unauthorized. If you are not
the intended recipient, any disclosure, copying,
distribution or any action taken or omitted
to be taken in reliance on it, is prohibited
and may be unlawful. If you believe that you
have received this email in error,
please contact the sender.


Avis de confidentialit� : ce message peut contenir
des renseignements confidentiels. Si vous n'�tes
pas le destinataire indiqu� ou pr�vu dans ce message
(ou responsable de livrer ce message � la personne
indiqu�e ou pr�vue) ou si vous pensez que ce message
vous a �t� adress� par erreur, vous ne pouvez pas
utiliser ou reproduire ce message, ni le livrer �
quelqu'un dautre. Dans ce cas, vous devez le
d�truire et vous �tes pri� davertir l'exp�diteur
en r�pondant au courriel.

Peerless Clothing Inc
8888 Pie IX Boul.
Montreal (Quebec)
H1Z-4J5
514-593-9300

*************************

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

0
Stefan
7/5/2005 8:30:42 PM
comp.sys.hp.mpe 25828 articles. 0 followers. rhorner (2) is leader. Post Follow

0 Replies
199 Views

Similar Articles

[PageSpeed] 47

Reply: