Os/400 Api, нужна помощь...

[susinmn]

https://codeby.net/threads/33044.html?hl=Репликация

Хочется получить время добавления документа в базу агентом по расписанию (session.Platform="OS/400")...

вот здесь

Ссылка скрыта от гостей

есть строки для OS/2v2

... Lib "inotes" ....
Подскажите что нужно прописывать здесь для OS/400?

 

[TIA]

Подскажите что нужно прописывать здесь для OS/400?

Как правило, всё тоже, что и для Win32.


Что-то вроде:

Public Type TIMEDATE
Innards(1) As Long
End Type

const NOTE_MODIFIED& = 4

Declare Public Sub OS400_NSFNoteGetInfo_Modified Lib "inotes" Alias "NSFNoteGetInfo" ( Byval hNote As Long, Byval note_member As Integer, ModifiedInThisFile As TIMEDATE)

Пригодится:

Declare Sub OS400_ConvertTIMEDATEToText Lib "inotes" Alias "ConvertTIMEDATEToText" (Byval IntlFormat As Long,Byval TextFormat As Long, actTIMEDATE As TIMEDATE, Byval retTextBuffer As String,Byval TextBufferLength As Integer,retTextLength As Integer)

Const MAXALPHATIMEDATE = 80

Function ConvertTIMEtoText(dt As TIMEDATE) As String

Dim spTime As String * MAXALPHATIMEDATE
Dim retLength As Integer

spTime = Space(MAXALPHATIMEDATE)
Call W32_ConvertTIMEDATEToText (&h0,&h0, dt, spTime,MAXALPHATIMEDATE,retLength)
ConvertTIMEtoText = Left$(spTime,retLength)
End Function

Звать так:

dim dt as TIMEDATE
Call OS400_NSFNoteGetInfo_Modified(doc.Handle, NOTE_MODIFIED, dt)
msgbox ConvertTIMEtoText(dt)

 

[susinmn]

Private Type timeDateTYPE
innards(1) As Long
End Type

Declare Public Sub OS400_NSFNoteGetInfo_Added Lib "inotes" Alias "NSFNoteGetInfo" ( Byval hNote As Long, Byval note_member As Integer, AddedInThisFile As timeDateTYPE)

hNote& = doc.HANDLE
Dim tdStruct As timeDateTYPE

Сваливается вот на этом: Call OS400_NSFNoteGetInfo_Added(hNote&, 13, tdStruct)

error message: Error in loading DLL

 

[TIA]

Обращение к внешним функциям dll является unrestricted операцией. Соответственно, агенту и его подписанту надо дать права. Делается это в св-вах агента и в документе на сервер.

 

[susinmn]

На сервере, где W32 работает, а вот на OS400 ни как(

*Делается это в св-вах агента и в документе на сервер.* В агенте права были, а что за *в документе на сервер*?

 

[lmike]

надож посмотреть - как эта либа называется, вполне допускаю, что не inotes
сцылко на цайт уже приводил

Ссылка скрыта от гостей

 

[TIA]

В агенте права были, а что за *в документе на сервер

В серверной адресной книге для каждого сервера домена есть документ. В нём на закладке Security есть раздел в котором указывается кто может запускать анрестриктед агенты, а кто рестриктед. Подписант агента должен быть во втором поле.

 

[susinmn]

нашел название библиотеки "/qsys.lib/qnotes.lib/libnotes.svrpgm". спасибо lmike*у.
но не работает, более того за вечер уже 4 раз повесил сервер этим агентом(
пробовал запускать на 2 серверах, агент даже не отрабатывае до конца. идет поиск Added по одном удокументу)

всем спасибо за советы.