Kindly help in executing a JCL from a skeleton

muthukrishnan K · New User Joined: 22 Oct 2010 Posts: 2 Location: Trivandrum

Hi

I tried to execute a sort JCL through a skeleton (I/P, O/P file and sort parameters got from the user through a panel). Below is the code

/*REXX*/
ADDRESS ISPEXEC "CONTROL ERRORS RETURN"
ADDRESS ISPEXEC
"LIBDEF ISPPLIB DATASET ID ('USER.SNMSC9N.REXX')"
"DISPLAY PANEL(SRTPNL)"
ADDRESS ISPEXEC "CONTROL ERRORS RETURN"
ADDRESS ISPEXEC
"ISPEXEC LIBDEF ISPSLIB DATASET ID('USER.SNMSC9N.REXX')"
"ISPEXEC FTOPEN TEMP"
"ISPEXEC FTINCL SORT"
"ISPEXEC FTCLOSE"
"ISPEXEC VGET (ZTEMPF)"
"ISPEXEC EDIT DATASET ('"ZTEMPF"')"
ADDRESS TSO
"SUBMIT ('ZTEMPF')"
EXIT

PANEL

***************************** Top of Data ******************************
)ATTR
# TYPE(TEXT) INTENS(HIGH) SKIP(ON)
_ TYPE(INPUT) INTENS(HIGH) HILITE(USCORE)
@ TYPE(OUTPUT) INTENS(HIGH) COLOR(RED) HILITE(BLINK)
)BODY
% # ENTER THE DETAILS TO SORT #
% # INPUT FILE ==> _ZIFILE #
% # OUTPUT FILE ==> _ZOFILE #
% # START POSITION ==> _POS#
% # LENGTH ==> _LEN#
% # ASC(A) OR DESC(D) ==> _CH#
% # USERID ==> @ZUSER #
)INIT
.CURSOR = ZIFILE
)END
**************************** Bottom of Data ****************************

SORT JCL

//&ZUSERA JOB 'SORT',
// CLASS=A,MSGCLASS=Z,NOTIFY=&SYSUID
//STEP001 EXEC PGM=SORT
//SORTIN DD DSN=&ZIFILE,DISP=SHR
//SORTOUT DD DSN=&ZOFILE,
// DISP=(NEW,CATLG,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=0),
// SPACE=(CYL,(1,4),RLSE)
//SYSOUT DD SYSOUT=*
SYSIN DD *
SORT FIELDS = (&POS,&LEN,CH,&CH)
/*
**************************** Bottom of Data ********

when the rexx code is executed it is showing the error message as

SYSTEM COMPLETION CODE=0C4 REASON CODE=00000011
TIME=23.37.09 SEQ=24609 CPU=0000 ASID=0305
PSW AT TIME OF ERROR 078D1000 8A419FE2 ILC 4 INTC 11
NO ACTIVE MODULE FOUND
NAME=UNKNOWN
DATA AT PSW 0A419FDC - 00301F54 1E589180 5A7AA774
AR/GR 0: 00000000/00000000 1: 00000000/0017340C

DATA SET ZTEMPF NOT IN CATALOG OR CATALOG CAN NOT BE ACCESSED
***

I am a beginner to REXX so kindly bear with me if i missed anything which is very Basic

how to add this REXX to execute as TSO command.. Like TSO SRTRX

prino · Posted: Mon Mar 28, 2011 2:28 pm

muthukrishnan K · New User Joined: 22 Oct 2010 Posts: 2 Location: Trivandrum

Hi Prino
when i used TRACE ? it was executing fine till
ISPEXEC FTOPEN TEMP but the next statement ISPEXEC FTINCL SORT throwed a Abend S0C4-X'11 and RC 20

[ERROR MSG]
IDI0001I Fault Analyzer V10R1M0 (UK62342 2010/11/18) invoked by IDIXDCAP using
SYS3.IFA.PARMLIB(IDICNF00)
DUPEXIT03 DUP EXIT INVOKED
IDI0002I Module ISPSUBS offset X'C5FE2': Abend S0C4-X'11' (Page-Translation Exc
eption)
IDI0003I Fault ID F02404 assigned in history file PDT.FAULTA.SYSC.HIST
IEA995I SYMPTOM DUMP OUTPUT
SYSTEM COMPLETION CODE=0C4 REASON CODE=00000011
TIME=02.26.10 SEQ=40308 CPU=0000 ASID=0353
PSW AT TIME OF ERROR 078D1000 8A419FE2 ILC 4 INTC 11
***
NO ACTIVE MODULE FOUND
NAME=UNKNOWN
DATA AT PSW 0A419FDC - 00301F54 1E589180 5A7AA774
AR/GR 0: 00000000/00000000 1: 00000000/0017D40C
2: 00000000/00004040 3: 00000000/001AA4A0
4: 00000000/00000030 5: 00000000/0026B070
6: 00000000/001AB58E 7: 00000000/00000038
8: 00000000/001AA4A0 9: 00000000/00166060
A: 00000000/0A41C250 B: 00000000/0017D020
C: 00000000/8A418996 D: 00000000/0017D020
E: 00000000/8A4198B0 F: 01000002/00000000
END OF SYMPTOM DUMP
IEA848I INSTALLATION PREDUMP EXIT, IDIXDCAP, SUPPRESSED THE DUMP REQUEST
+++ RC(20) +++
[/ERROR MSG]

and the SUBMIT statement ended with RC12

[ERROR MSG]
16 *-* "SUBMIT ('ZTEMPF')"
>>> "SUBMIT ('ZTEMPF')"
DATA SET ZTEMPF NOT IN CATALOG OR CATALOG CAN NOT BE ACCESSED
+++ RC(12)
+++
[/ERROR MSG]

don.leahy · Posted: Mon Mar 28, 2011 5:14 pm

You should also remove "CONTROL ERRORS RETURN". It may be suppressing important error messages.

ISPF Dialog test (option 7 on the primary option menu) is another excellent way to trace ISPF services.

daveporcelan · Posted: Mon Mar 28, 2011 5:20 pm

Try changing the jcl member name to SORT1.

Change this to: "ISPEXEC FTINCL SORT1"

My first guess would be the the name SORT is used for the actual SORT program.

Also I do not know why you have this line:
"ISPEXEC EDIT DATASET ('"ZTEMPF"')"
I would remove that line.

Finally fix your qoutes on this line: "SUBMIT '"ZTEMPF"'"
ZTEMPF is a variable, thus it needs to be outside of the double quotes.

Pedro · Posted: Mon Mar 28, 2011 9:41 pm

I do not like this at all:

superk · Posted: Tue Mar 29, 2011 12:00 am

For the record, I copied and ran the same code as posted and had no problems at all. I'd suggest that the issue is something outside of the code as shown here.

Pedro · Posted: Tue Mar 29, 2011 1:50 am