Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!usc!ucsd!dog.ee.lbl.gov!ucbvax!IBRDVM1.BITNET!DRS
From: DRS@IBRDVM1.BITNET
Newsgroups: comp.lang.asm370
Subject: Getting the Current time upto the hundredth of second
Message-ID: <9104122025.AA29777@ucbvax.Berkeley.EDU>
Date: 12 Apr 91 20:16:19 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Reply-To: IBM 370 Assembly Programming Discussion List
              <ASM370@OHSTVMA.BITNET>
Distribution: inet
Organization: The Internet
Lines: 25


   I am trying to get the current time  under VM/CMS. I used the TIME
macro in OSMACRO MACLIB to get time upto hudredths of a second. But
I am getting 00 for the hundredths part. Do you have a solution ? or
do you know what is wrong in SVC 11 under CMS session. Here is my
program


         START 0                                RETURNS TIME IN
         STM   14,12,12(13)                      HH.MM.SS.hh. (12CHARS)
BASE     BALR  12,0
         USING *,12
         L     3,0(0,1)                         LOAD ADDR OF ARG IN R3
         TIME  DEC
         ST    0,SOURCE
         MVO   WKAREA,SOURCE
         ED    PATTERN,WKAREA
         MVC   0(12,3),PATTERN+1
         LM    14,12,12(13)
         BR    14
         DS    0D
SOURCE   DS    F
WKAREA   DS    PL5'0'
PATTERN  DC    XL13'402120204B20204B20204B2020'
         END