RE: Need help with QWCRTVTM API

Isn't this a V5R3 API? Do you have V5R3 installed?

-Bob Cozzi
www.RPGxTools.com
RPG xTools - Enjoy programming again.


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Clyde Salsgiver
Sent: Thursday, October 06, 2005 10:04 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Need help with QWCRTVTM API

I have a need to get the universal system time and am having no luck using
this api.

 

Here; is the sample program :

0001.00           hoption(*srcstmt)                                         

0001.01                                                                     

0001.02           d RcvrVar         Ds                                      

0001.03           d DataRet                       60                        

0001.04           D  BytRet                       10i 0 overlay(DataRet:1)  

0001.05           d  BytAvl                       10i 0 overlay(DataRet:5)  

0001.06           d  KeyOffSet                    10i 0 overlay(DataRet:9)  

0001.07           d  FldsRet                      10i 0 overlay(DataRet:13) 

0001.08           d  UTCRsv                        3    varying             

0001.09                                                                     

0001.10           d KeyFields       ds                                      

0001.11           d KeyData                       40                        

0001.12           d  FldLen                       10i 0 overlay(KeyData:1)  

0001.13           d  KeyFld                       10i 0 overlay(KeyData:5)  

0001.14           d  DataType                      1    overlay(KeyData:9)  

0001.15           d  RTTMRsv                       3    overlay(KeyData:10) 

0001.16           d  DataLen                      10i 0 overlay(KeyData:13) 

0001.17           d  UTCData                       8    overlay(KeyData:17) 

0001.18                                                                     

0001.19           d*RcvrVar         s             40    varying        

0001.20           d RcvrLen         s             10i 0                

0001.21           D Format          S              8    inz('RTTM0100')

0001.22           D RtnFld#         s             10i 0                

0001.23           D RtnKey          s             10i 0 dim(1)         

0001.24           D ErrCode         s              3    varying        

0001.25                                                                

0001.26           d start           s             10i 0                

0001.27                                                                

0001.28           d                                                    

0001.29           c                   Clear                   RcvrVar  

0001.30           c                   Eval      RcvrLen = 60           

0001.31           c                   Eval      RtnFld# = 1            

0001.32           c                   Eval      RtnKey = 0101          

0001.33                                                                

0001.34           c                   Call      'QWCRTVTM'             

0001.35           c                   parm                    RcvrVar  

0001.36           c                   parm                    RcvrLen  

0001.37           c                   parm                    Format   

0001.38           c                   parm                    RtnFld#  

0001.39           c                   parm                    RtnKey


0001.40           c                   parm                    ErrCode


0001.41


0001.42           c                   eval      start = KeyOffSet + 1


0001.43           c                   eval      KeyFields = %subst(DataRet:
start : 40) 

0001.44           c                   Eval      *inlr = *on


            ****************** End of data
***************************************