OpenEdge ABL

После обработки файлов(импорт-экспорт) как их перенести в другой каталог?

В начало
Назад
1
Вперед
В конец

1

m_2602
Автор темы
Не в сети
COM_KUNENA_SAMPLEDATA_RANK3

Больше

20 март 2017 14:21 #1 от m_2602

COM_KUNENA_MESSAGE_CREATED_NEW

например из ./imp-exp в ./imp-exp/old/

Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.

alex_sar
Не в сети
COM_KUNENA_SAMPLEDATA_RANK3

Больше

20 март 2017 17:15 #2 от alex_sar

COM_KUNENA_MESSAGE_REPLIED_NEW

Вызвав команду ОС переноса файла (например mv).

Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.

m_2602
Автор темы
Не в сети
COM_KUNENA_SAMPLEDATA_RANK3

Больше

22 март 2017 10:47 #3 от m_2602

COM_KUNENA_MESSAGE_REPLIED_NEW

А как внутри процедуры вызвать команды ОС?

Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.

alex_sar
Не в сети
COM_KUNENA_SAMPLEDATA_RANK3

Больше

22 март 2017 11:47 #4 от alex_sar

COM_KUNENA_MESSAGE_REPLIED_NEW

((((((( Вот: progress-abl.ru/abl/40-komandy-os

Спасибо сказали: m_2602

Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.

m_2602
Автор темы
Не в сети
COM_KUNENA_SAMPLEDATA_RANK3

Больше

23 март 2017 09:13 #5 от m_2602

COM_KUNENA_MESSAGE_REPLIED_NEW

Делаю таким образом:
OS-COMMAND VALUE("CDIR=`ls /usr2/bis/t/dp/zk/` ").
def var s as char.
s = OS-GETENV("CDIR") .
display s.
Результат
│s │
│────────│
│? │
в самой системе
(bis@linux-test)~> s=`ls /usr2/bis/t/dp/zk/`
(bis@linux-test)~> echo $s
iabs574446746.xml

Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.

Arelav
Не в сети
COM_KUNENA_SAMPLEDATA_RANK4

Больше

30 март 2017 12:25 #6 от Arelav

COM_KUNENA_MESSAGE_REPLIED_NEW

m_2602 пишет: Делаю таким образом:
OS-COMMAND VALUE("CDIR=`ls /usr2/bis/t/dp/zk/` ").
def var s as char.
s = OS-GETENV("CDIR") .
display s.
Результат
│s │
│────────│
│? │
в самой системе
(bis@linux-test)~> s=`ls /usr2/bis/t/dp/zk/`
(bis@linux-test)~> echo $s
iabs574446746.xml

Получить содержимое каталога:
r-ithru2.p

DEFINE VARIABLE dir-name AS CHARACTER NO-UNDO FORMAT "x(64)".
DEFINE VARIABLE fn       AS CHARACTER NO-UNDO FORMAT "x(32)". 
FORM fn  WITH DOWN FRAME dir-list. 

/* Get the name of the current directory. */
INPUT THROUGH pwd NO-ECHO.
SET dir-name.INPUT CLOSE. 

/* Use the directory name as a label for fn. */
fn:LABEL IN FRAME dir-list = dir-name. 

/* List the directory. */
INPUT THROUGH ls NO-ECHO. 

/* For each entry in the directory, read the entry into fn and display it. */
REPEAT:  
 SET fn WITH NO-BOX NO-LABELS FRAME indata.  
 DISPLAY fn VIEW-AS TEXT WITH FRAME dir-list.  
 DOWN WITH FRAME dir-list.
END. 

INPUT CLOSE.

Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.