|
View previous topic :: View next topic
|
| Author |
Message |
Ivan P
New User
Joined: 08 Jun 2009
Posts: 63
Location: Europe
|
|
|
|
Here's the relevant part of the output:
| Code: |
22 *-* UNIT = "A00"
>L> "A00"
23 *-* "ISPEXEC FTOPEN"
>L> "ISPEXEC FTOPEN"
+++ RC(20) +++
24 *-* "ISPEXEC FTINCL DITTOJCL"
>L> "ISPEXEC FTINCL DITTOJCL"
+++ RC(20) +++
25 *-* "ISPEXEC FTCLOSE"
>L> "ISPEXEC FTCLOSE"
+++ RC(20) +++
26 *-* "SUBMIT '"SYSUID".ISPFILE'"
>L> "SUBMIT '"
>V> "MYUSER"
>O> "SUBMIT 'MYUSER"
>L> ".ISPFILE'"
>O> "SUBMIT 'MYUSER.ISPFILE'"
IKJ56265I INPUT DATA SET MYUSER.ISPFILE NOT USABLE+
IKJ56265I THE DATA SET IS EMPTY |
 |
|
| Back to top |
|
 |
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
try changing
| Code: |
//REXX1 EXEC PGM=IKJEFT01
//SYSEXEC DD DSN=MYUSER.PRIVLIB,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
%DITTOREX
/*
// |
to
| Code: |
//REXX1 EXEC PGM=IKJEFT01
//SYSEXEC DD DSN=MYUSER.PRIVLIB,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
ISPSTART CMD(%DITTOREX)
/*
// |
|
|
| Back to top |
|
|
Ivan P
New User
Joined: 08 Jun 2009
Posts: 63
Location: Europe
|
|
|
|
After adding ISPPROF, ISPPLIB, ISPSLIB, ISPTLIB and ISPMLIB statements to the JCL, it works. \o/
But, if I switch back to:
//SYSTSIN DD *
%DITTOREX
it doesn't work... so it seems ISPSTART CMD() is crucial. |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
Oh yes, and I should have thought about it earlier ...........
If you invoke ISPF services within your REXX code, you must use ISPSTART. |
|
| Back to top |
|
|
|
|
