× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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
***************************************

 

 


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.