CD Software Forum

[ukorth]

In ADIX (adix.h) gibt es Funktionen zur Datei-Behandlung auf dem Client.

Wie ist die Syntax für den Aufruf folgender ADIX-Funktionen in COBOL?
1. ax_file_getunique (Opcode 400) /*get unique filename on client side*/
2. ax_file_delonclient (Opcode 403) /* delete file on client side*/
3. ax_file_browse (Opcode 404) /* file browse on client side*/

Mit freundlichen Grüßen

Udo Korth
hd Software GmbH

[markus]

[ukorth]

Wie ist die Syntax für den CALL in COBOL zu folgenden Opcodes in ADIX (adix.h):

1. ax_file_delonclient (Opcode 403) /* delete file on client side*/
2. ax_file_browse (Opcode 404) /* file browse on client side*/

Der beschriebene Aufruf

[holger]

01 ax_file_browse PIC S9(4) VALUE 404 /* filebrowser on client */


Parameter :

anz_param = 7

01 PIC X(80) - Title der FileBrowser Box
01 PIC X(256) - Initial Directory
01 PIC X(512) - filtername ( z.B. "XML-Dateien (*.xml)") Dieser text wird unten bei den Dateitypen als Text angezeigt.
01 PIC X(512) - filter (z.B. "*.xml" oder "*.xml;*.txt" ) Dieser filter wird tatsächlich angewendet.
01 PIC S9( 8 ) - Attribute wie unten beschrieben
01 PIC X(1024) - fileresult - Ausgewählter Dateiname Rückgabe
01 PIC X(1024) - dirresult - Ausgewählters Directory Rückgabe


Filebrowser zum öffnen einer Datei :

Title "Datei öffnen"
Initial Directory "C:/tmp
filtername "XML-Dateien (*.xml)"
filter "*.xml"
Attribut 2 - Ausgewählte Datei muss existieren
fileresult Ergebniss
dirresult Ergebniss


Filebrowser zum Speichern einer Datei :

Title "Datei speichern"
Initial Directory "C:/tmp
filtername "XML-Dateien (*.xml)"
filter "*.xml"
Attribut 4 - Ausgewählte Datei muss schreibbar sein... Readonly wird vom Dialog abgefangen
fileresult Ergebniss zuvor leer machen, beibt es leer, hat der Benutzer abgebrochen !
dirresult Ergebniss

[holger]

op delonclient 403
Der ist zwar im adix.h enthalten, aber in adix.c leider nie programmiert worden ....

[holger]

01 ax_file_getunique PIC S9(4) VALUE 400 /* get unique filename from client */
01 ax_file_writetoclient PIC S9(4) VALUE 401 /* transfer file to client */
01 ax_file_readfromclient PIC S9(4) VALUE 402 /* transfer file from client */



Get Unique filename from Client :
=================================

01 ax_file_getunique PIC S9(4) VALUE 400 /* get unique filename from client */
01 filedir PIC X(256) // Directory auf Client (z.B. "c:\")
01 fileprec PIC X(16) // Anfang des Dateinamen (z.b."tmp")
01 filepost PIC x(8 ) // Ende des dateinamens (z.B. ".txt")
01 filename PIC x(512) // Filename vom Client (z.B. "c:\tmp-108.txt")
01 fileattr PIC S9(8 ) // Attribut 1 - erzuegen Datei, 0 - Erzeuge Datei nicht

Attribut 1 sollte gesetzt sein, damit eine andere Sesion nicht den gleichen Dateinamen bekommt,
sondern dieser direkt vergeben ist.

move 5 to AD-I-PARAM // Anzahl parameter
call adix using ax_file_getunique, AD-PARAMETER, filedir, fileprec,
filepost, filename, fileattr


Transfer File from Server to Client :
=====================================

01 ax_file_writetoclient PIC S9(4) VALUE 401 /* transfer file to client */
01 toclientsource PIC X(256) // Dateiname der Datei auf dem Server (kann EnvVars haben !)
01 toclientdest PIC X(256) // Dateiname der Datei auf dem Client (kann EnvVars haben !)
01 toclientattr PIC S9(8)
01 toclientretcode PIC S9(8)

Environment Variablen werden aufgelöst, Serverdateiname auf dem Server, clientdateiname auf dem client !

move 5 to AD-I-PARAM // Anzahl parameter
call adix using ax_file_writetoclient, AD-PARAMETER, toclientsource, toclientdest,
toclientattr, toclientretcode

toclientattr kann folgende werte haben :
============
0 - Zieldatei nicht überschreiben, keine Fehlermeldung an Benutzer
ax_fattr_askoverwrite 4 /* benutzer fragen, ob er die Datei überschreiben will */
ax_fattr_showerrorinfo 8 /* Fehlermeldungen an Benutzer anzeigen */
12 - 4 und 8 zusammen

toclientretcode kann folgende werte haben :
===============

ax_fret_noerror 0 /* no error on fileoperation */
ax_fret_notsupported 1 /* operation not supported - no gui ! */
ax_fret_cannotwritetofile 2 /* can not write to file */
ax_fret_cannotreadfromfile 4 /* can not read from file */
ax_fret_userabort 8 /* user aborted transfer */




Transfer File from Client to Server :
=====================================

01 ax_file_readfromclient PIC S9(4) VALUE 402 /* transfer file from client */
01 fromclientsource PIC X(256) // Dateiname der Datei auf dem Client (kann EnvVars haben !)
01 fromclientdest PIC X(256) // Dateiname der Datei auf dem Server (kann EnvVars haben !)
01 fromclientattr PIC S9(8)
01 fromclientretcode PIC S9(8)


Environment Variablen werden aufgelöst, Serverdateiname auf dem Server, clientdateiname auf dem client !

move 5 to AD-I-PARAM // Anzahl parameter
call adix using ax_file_readfromclient, AD-PARAMETER, fromclientsource, fromclientdest,
fromclientattr, fromclientretcode

toclientattr kann folgende werte haben :
============

0 - Zieldatei nicht überschreiben, keine Fehlermeldung an Benutzer
ax_fattr_append 2 /* Daten an datei anhängen, statt zu überschreiben, falls datei vorhanden */
ax_fattr_askoverwrite 4 /* benutzer fragen, ob er die Datei überschreiben will */
ax_fattr_showerrorinfo 8 /* Fehlermeldungen an Benutzer anzeigen */
Kombinationen aus 2,4,8 (einfach addieren)

toclientretcode kann folgende werte haben :
===============

ax_fret_noerror 0 /* no error on fileoperation */
ax_fret_notsupported 1 /* operation not supported - no gui ! */
ax_fret_cannotwritetofile 2 /* can not write to file */
ax_fret_cannotreadfromfile 4 /* can not read from file */
ax_fret_userabort 8 /* user aborted transfer */