|
View previous topic :: View next topic
|
| Author |
Message |
boyti ko
New User
Joined: 03 Nov 2014
Posts: 78
Location: Malaysia
|
|
|
|
I have a 10 steps like these:
| Code: |
//STEP0000 EXEC PGM=SDSF,PARM='++30,134',COND=EVEN
//ISFOUT DD SYSOUT=*
//ISFIN DD *
PRE JOBA*
ST
FIND JOBA FIRST
++P
END
/* |
If the step already purge the current JOBID but the next step still sees the JOBID but tried to purge it, abend occurs because the job to purge no longer exist. Can anybody propose on how to prevent this?
ISFOUT:
| Code: |
SDSF STATUS DISPLAY ALL CLASSES JOB NO LONGER VALID
COMMAND INPUT ===> SCROLL ===> PAGE
NP JOBNAME JobID .---------------------------------------. Status
P JOBAXXX JOB98291 | Confirm Action |
JOBASTAN JOB98304 | |
JOBAXXX JOB98305 | 1 1. Process action character |
JOBAXXX JOB98333 | 2. Discard action character |
| 3. Process action character and |
| set confirmation off |
| |
| Line number: 1 JOBAXXX |
| |
'---------------------------------------' |
JESMSGLG:
| Code: |
IEC020I 001-5,JOBA001 ,STEP0000,ISFIN ,JES
IEC020I EROPT IS 'ABE' OR NOT SPECIFIED
ISF037I SDSF SDUMP NOT TAKEN, SUPPRESSED BY DAE
ISF012I SDSF ABEND SYSTEM 001 AT 00C6DA16 IN MODULE IGG019AH OFFSET 0003E6
ISF013I SDSF ABEND R0-R7 80000000 80001000 00007738 00007738 00007670 009C3FD0
ISF014I SDSF ABEND R8-R15 009BF718 000087F8 009BA868 00C6D656 009C3FFC 00007460
IEF450I JOBA001 STEP0000 - ABEND=S001 U0000 REASON=00000000 238
TIME=11.25.34
XXXX JOBA001 016 STEP0000 S*001 |
|
|
| Back to top |
|
 |
Paul Voyner
New User
Joined: 26 Nov 2012
Posts: 52
Location: UK
|
|
|
|
Hi, my guess is that you need to check the SET command. SET CONFIRM OFF ?
But a better way is to use the SDSF-REXX interface. This gives you much more flexibility (though requires some basic rexx skills)
| Code: |
/*rexx*/
prefx = 'MYJOB*'
rc=isfcalls("ON")
ISFPREFIX = prefx
Address "SDSF"
"ISFEXEC ST"
say ISFROWS" returned"
do ix=1 to JNAME.0 /* Loop for all rows returned */
Address "SDSF" "ISFACT ST TOKEN('"TOKEN.ix"') PARM(NP P)"
end
rc=isfcalls("OFF")
exit
|
|
|
| Back to top |
|
|
boyti ko
New User
Joined: 03 Nov 2014
Posts: 78
Location: Malaysia
|
|
|
|
Nice, Thank you very much Paul..
REXX is not an option.
I just added the SET CONFIRM OFF
| Code: |
//STEP0000 EXEC PGM=SDSF,PARM='++30,134',COND=EVEN
//ISFOUT DD SYSOUT=*
//ISFIN DD *
SET CONFIRM OFF
PRE JOBA*
ST
FIND JOBA FIRST
++P
END
/* |
and the JCL worked. |
|
| Back to top |
|
|
|
|
