Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / IBM DB2, WebSphere, IMS, U2 [игнор отключен] [закрыт для гостей] / Обертка для DSNUTILS / 1 сообщений из 1, страница 1 из 1
06.09.2010, 10:39
    #36830966
akmet
akmet
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обертка для DSNUTILS
Доброго времени суток!

db2 9 z/OS
загружаю данные в таблицу LOAD'ом
LOAD запускаю при помощи SYSPROC.DSNUTILS - все отрабатывает на ура.

Попытался вызвать эту же процедуру внутри другой процедуры - получаю ругань на template

Текст вызова:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
CALL SYSPROC.DSNUTILS('CLRPEVT', 'NO', 
'TEMPLATE SUT1DDN
    DSN(DIGDDA.EVENTS.PSYSUT1)
    SPACE(90,90) TRK
    DISP(MOD,DELETE,CATLG)
    UNIT(SYSDA)
TEMPLATE SORTDDN
    DSN(DIGDDA.EVENTS.PSORTOU)
    SPACE(90,90) TRK
    DISP(MOD,DELETE,CATLG)
    UNIT(SYSDA)
TEMPLATE RECDDN
    DSN(DIGDDA.EVENTS.DUMMY)
    DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN RECDDN 
    LOG NO NOCOPYPEND
    ENFORCE NO
    WORKDDN (SUT1DDN,SORTDDN)
    EBCDIC  CCSID(01025,65534)
    FORMAT DELIMITED
    INTO TABLE MYSCHEME.MYTABLE PART 3 REPLACE',
?, 'ANY',
'', '',  0 ,
'', '',  0 ,
'', '',  0 ,
'', '',  0 ,
'', '',  0 ,
'', '',  0 ,
'', '',  0 ,
'', '',  0 ,
'', '',  0 ,
'', '',  0 ,
'', '',  0 ,
'', '',  0 );

Если этот же вызов обернуть в процедуру, получим:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
SEQNO       TEXT                                                                                                                                                                                                                                                           
 1            1DSNU000I     246   16 : 46 : 15 . 21  DSNUGUTC - OUTPUT START FOR UTILITY, UTILID = CLRPEVT                                                                                                                                                                             
 2             DSNU1044I    246   16 : 46 : 15 . 27  DSNUGTIS - PROCESSING SYSIN AS EBCDIC                                                                                                                                                                                             
 3             DSNU005I     246   16 : 46 : 15 . 27  DSNUGPRS - TEMPLATE SUT1DDN
    DSN(DIGDDA.EVENTS.PSYSUT1)
    SPACE( 90 , 90 ) TRK
                                                                                                                                                  
 4             DSNU049I     246   16 : 46 : 15 . 27  DSNUGPRS - INVALID OPERAND '
' FOR KEYWORD 'TEMPLATE'                                                                                                                                                                             
 5             DSNU005I     246   16 : 46 : 15 . 27  DSNUGPRS -  DISP(MOD,DELETE,CATLG)
    UNIT(SYSDA)
TEMPLATE SORTDDN
    DSN(DIGDDA.                                                                                                                                               
 6             DSNU005I     246   16 : 46 : 15 . 27  DSNUGPRS - EVENTS.PSORTOU)
    SPACE( 90 , 90 ) TRK
    DISP(MOD,DELETE,CATLG)
    UNIT                                                                                                                                               
 7             DSNU005I     246   16 : 46 : 15 . 27  DSNUGPRS - (SYSDA)
TEMPLATE RECDDN
    DSN(DIGDDA.EVENTS.DUMMY)
    DISP(OLD,KEEP,K                                                                                                                                               
 8             DSNU005I     246   16 : 46 : 15 . 27  DSNUGPRS - EEP)
LOAD DATA INDDN RECDDN 
    LOG NO NOCOPYPEND
    ENFORCE NO
    WO                                                                                                                                               
 9             DSNU005I     246   16 : 46 : 15 . 27  DSNUGPRS - RKDDN (SUT1DDN,SORTDDN)
    EBCDIC  CCSID( 01025 , 65534 )
    FORMAT DELIMI                                                                                                                                               
 10            DSNU005I     246   16 : 46 : 15 . 27  DSNUGPRS - TED
    INTO TABLE MYSCHEME.MYTABLE PART  3  REPLACE                                                                                                                                                             
 11            DSNU012I     246   16 : 46 : 15 . 28  DSNUGBAC - UTILITY EXECUTION TERMINATED, HIGHEST RETURN CODE= 8

В чём может быть проблема?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / IBM DB2, WebSphere, IMS, U2 [игнор отключен] [закрыт для гостей] / Обертка для DSNUTILS / 1 сообщений из 1, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]