IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

File Tailoring using REXX executed in JCL
IBM Mainframe Forums -> CLIST & REXX
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
venksiv

New User


Joined: 20 Jun 2015
Posts: 26
Location: INDIA
PostPosted: Fri Aug 28, 2015 3:25 pm
 Reply with quote
Hi all,

I referred this post and tried to resolve the error I am getting while executing File Tailoring functionality using REXX in JCL. Couldn't pin point where the issue is: whether it is in JCL or REXX code.

ibmmainframes.com/archive/o_t__t_20204__start_15__index.html

One vital point is: the job executes fine when executed under my logon but fails while executing via Scheduler. Please guide me how to fix this issue.

Error:
Code:
.SARPAGE 7                                                             
.ACF0C038 ACF2 LOGONID ATTRIBUTES HAVE REPLACED DEFAULT USER ATTRIBUTES
.READY                                                                 
.PROFILE NOPREFIX                                                     
.READY                                                                 
.ISPSTART CMD(%HRD)                                                   
.FILE ISPFILE NOT FREED, IS NOT ALLOCATED                             
.ISPF system data set allocation error - press Enter to continue.     
.Temporary control card data set cannot be allocated.                 
.DAIR RC = 12 dec, DARC = 970C hex.                                   
.  ISPF102 No work file            -/-Work file not open.             


JCL:
Code:
//STEP05R  EXEC PGM=IKJEFT1A,DYNAMNBR=200
//SYSEXEC  DD DISP=SHR,DSN=&PART1..EXEC   
//ISPPLIB  DD DSN=SYS1.SISPPENU,DISP=SHR 
//ISPTLIB  DD DSN=SYS1.SISPTENU,DISP=SHR 
//ISPSLIB  DD DSN=SYS1.SISPSLIB,DISP=SHR 
//         DD DSN=SYS1.SISPSENU,DISP=SHR 
//         DD DSN=&PART1..JCLSKEL,DISP=SHR
//ISPMLIB  DD DSN=SYS1.SEZAMENU,DISP=SHR 
//         DD DSN=SYS1.SBPXMENU,DISP=SHR 
//         DD DSN=SYS1.SISPMENU,DISP=SHR 
//ISPLLIB  DD DSN=SYS1.MIGLIB,DISP=SHR   
//         DD DSN=SYS2.ML.MERLLIB,DISP=SHR
//SYSEDIT  DD SPACE=(CYL,(1,5)),UNIT=SYSDA
//SYSEDIT2 DD SPACE=(CYL,(1,5)),UNIT=SYSDA
//SYSUT1   DD SPACE=(CYL,(1,1)),UNIT=SYSDA
//SYSUT2   DD SPACE=(CYL,(1,1)),UNIT=SYSDA
//SYSUT3   DD SPACE=(CYL,(1,1)),UNIT=SYSDA
//SYSUT4   DD SPACE=(CYL,(1,1)),UNIT=SYSDA
//SYSOUT   DD SYSOUT=*                               
//SYSPRINT DD SYSOUT=*                               
//SYSTSPRT DD SYSOUT=*                               
//SYSUDUMP DD SYSOUT=*                               
//ISPCTL0 DD DISP=NEW,UNIT=VIO,SPACE=(CYL,(1,1),RLSE),
// LRECL=80,BLKSIZE=0,RECFM=FB                       
//ISPCTL1 DD DISP=NEW,UNIT=VIO,SPACE=(CYL,(1,1),RLSE),
// LRECL=80,BLKSIZE=0,RECFM=FB                       
//ISPPROF  DD UNIT=SYSDA,                             
//  DCB=(DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=0),       
//  SPACE=(CYL,(5,0,5))                               
//ISPLOG   DD UNIT=SYSDA,                             
//  DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=0),       
//  SPACE=(CYL,(5,0))                                 
//SYSTSIN  DD *                                       
PROFILE NOPREFIX                                     
ISPSTART CMD(%HRD)                                   
/*                                                   


REXX:
Code:
JCLPDS     = 'TRWTRTS.HRDTOOL.SUBMIT.JCL.#'||REQNUM
CHK = SYSDSN("'"JCLPDS"'")                                     
IF CHK = OK THEN                                               
   DO                                                         
      /* DELETE IF THE FILE NAME IS ALREADY ALLOCATED */       
      ADDRESS TSO "FREE FI(ISPFILE)"                           
      ADDRESS TSO "DELETE '"JCLPDS"'"                         
   END                                                         
ADDRESS TSO "FREE FI(ISPFILE)"                                 
"ALLOC DA('"JCLPDS"') DD(ISPFILE) DSORG(PO) TRACKS SPACE(10,10)
LRECL(80) BLKSIZE(8000) DIR(5) RECFM(F,B) NEW"                 
ADDRESS ISPEXEC                                             
"ISPEXEC LIBDEF ISPSLIB DATASET ID('"SKELPDS"')"           
"ISPEXEC LIBDEF ISPFILE DATASET ID('"JCLPDS"')"             
                                                           
/* EMAIL TEXT SKELETON */                                   
IF  ERROR_FLAG = 'N' THEN                                   
    DO                                                     
      "FTOPEN"                                             
      "FTINCL EMAIL1"                          /* SUCCESS */
      "FTCLOSE NAME(EMAIL1) LIBRARY(ISPFILE)"               
      ADDRESS TSO "DELETE '"REQFILE"'"                     
    END                                                     
/* JCL SKELETON */                       
ADDRESS ISPEXEC                         
"FTOPEN"                                 
"FTINCL RTSHRDQ2"                       
"FTCLOSE NAME(RTSHRDQ2) LIBRARY(ISPFILE)"
                                         
SUBJCL = JCLPDS||'('||RTSHRDQ2||')'     
                                         
ADDRESS TSO                             
M = OUTTRAP('MSG.')                     
"SUBMIT '"SUBJCL"'"                     
M = OUTTRAP('OFF')                       
"FREE FI(ISPFILE)"                       
Back to top
View user's profile Send private message
venksiv

New User


Joined: 20 Jun 2015
Posts: 26
Location: INDIA
PostPosted: Fri Aug 28, 2015 4:14 pm
 Reply with quote
I fixed the issue by just changing the Control Library DD name.

FROM
Code:

//ISPCTL0 DD DISP=NEW,UNIT=VIO,SPACE=(CYL,(1,1),RLSE),
// LRECL=80,BLKSIZE=0,RECFM=FB                       
//ISPCTL1 DD DISP=NEW,UNIT=VIO,SPACE=(CYL,(1,1),RLSE),
// LRECL=80,BLKSIZE=0,RECFM=FB                       


TO
Code:

//ISPCT0 DD DISP=NEW,UNIT=VIO,SPACE=(CYL,(1,1),RLSE),
// LRECL=80,BLKSIZE=0,RECFM=FB                       
//ISPCT1 DD DISP=NEW,UNIT=VIO,SPACE=(CYL,(1,1),RLSE),
// LRECL=80,BLKSIZE=0,RECFM=FB                       


And, also by including Work File:
Code:

//ISPWRK1   DD  DISP=(,DELETE),                       
//          UNIT=SYSDA,                               
//          SPACE=(TRK,(5,5,10)),                     
//          DCB=(DSORG=PO,RECFM=FB,LRECL=256,BLKSIZE=0)
//ISPWRK2   DD  DISP=(,DELETE),                       
//          UNIT=SYSDA,                               
//          SPACE=(TRK,(5,5,10)),                     
//          DCB=(DSORG=PO,RECFM=FB,LRECL=256,BLKSIZE=0)
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2455
Location: Hampshire, UK
PostPosted: Fri Aug 28, 2015 4:15 pm
 Reply with quote
What did running it with a trace tell you?
Back to top
View user's profile Send private message
venksiv

New User


Joined: 20 Jun 2015
Posts: 26
Location: INDIA
PostPosted: Fri Aug 28, 2015 5:55 pm
 Reply with quote
Hi Nic,

I did not do a TRACE before fixing the issue. However, I now recreated the issue with the incorrect JCL I used before. Here is the "TRACE I" result:

Code:
.SARPAGE 15                                                     
.   230 *-*  /* EMAIL TEXT SKELETON */                           
.   231 *-*  IF  ERROR_FLAG = 'N'                               
.       >V>    "Y"                                               
.       >L>    "N"                                               
.       >O>    "0"                                               
.   238 *-*  ELSE                                               
.   239 *-*   DO                                                 
.   240 *-*    /* FAILURE EMAIL TO REQUESTOR */                 
.   241 *-*    "FTOPEN"                                         
.       >L>      "FTOPEN"                                       
.ISPF system data set allocation error - press Enter to continue.
.Temporary control card data set cannot be allocated.           
.DAIR RC = 12 dec, DARC = 970C hex.                             
.  ISPF102 No work file            -/-Work file not open.       
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2455
Location: Hampshire, UK
PostPosted: Fri Aug 28, 2015 7:25 pm
 Reply with quote
Ah right. You posted your fix whilst I was posting my query.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CLIST & REXX

 

Similar Topics
Topic Forum Replies
No new posts FTP VB File from Mainframe retaining ... JCL & VSAM 8
No new posts Compile Several JCL JOB Through one r... CLIST & REXX 4
No new posts Extract the file name from another fi... DFSORT/ICETOOL 6
No new posts How to split large record length file... DFSORT/ICETOOL 10
No new posts RACF - Rebuild SETROPTS command which... All Other Mainframe Topics 3
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us