|
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 mailing list archive is Copyright 1997-2025 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.
