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

IEF645I INVALID REFERBACK IN THE RC FIELD


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
abdulrafi

Active User


Joined: 14 Sep 2009
Posts: 184
Location: Coimbatore

PostPosted: Mon Aug 29, 2016 10:57 am
Reply with quote

Hi,

I am getting the following error while executing my JCL,

10 IEF645I INVALID REFERBACK IN THE RC FIELD

jcl:
==
Code:
//T040D5ZX JOB (P904030,T040,99,99),'VIC7IX-TEST1',               
//  NOTIFY=&SYSUID,MSGCLASS=Q,TIME=(02,00),REGION=0M               
//VIC7IX6A EXEC FAMVS,REGION=6M                                   
//SYSPRINT DD SYSOUT=*                                             
//SYSLIST  DD SYSOUT=*                                             
//DD01     DD DISP=SHR,DSN=NVSTN.VIC7IX.THROWIN.DATA.G5           
//SYSIN    DD DISP=SHR,DSN=T040D5Z.PDS.CNTLCARD(VIC7IX6A)         
/*                                                                 
//IF3A     IF (VIC7IX6A.RC = 0) THEN                               
//VIC7IX6B EXEC XMITIP                                             
//*                                                               
//SYSTSIN  DD DISP=SHR,DSN=T040D5Z.PDS.CNTLCARD(VIC7IX6B)         
//*                                                               
//VIC7IX6C EXEC PGM=CAN444                                         
//ENDIF3A  ENDIF                                                   



jesjcl:
====
Code:
 1 //T040D5ZX JOB (P904020,T040,99,99),'VIC7IX-TEST1',                   
   //  NOTIFY=&SYSUID,MSGCLASS=Q,TIME=(02,00),REGION=0M                 
   IEFC653I SUBSTITUTION JCL - (P904020,T040,99,99),'VIC7IX-TEST1',NOTIFY
   REGION=0M                                                             
 2 //VIC7IX6A EXEC FAMVS,REGION=6M                                       
 3 XXFAPROC   PROC ENTRY=FILEAID                                         
 4 XXFAMVS    EXEC PGM=&ENTRY,REGION=4M                                 
   IEFC653I SUBSTITUTION JCL - PGM=FILEAID,REGION=4M                     
 5 XXSTEPLIB   DD DSN=COMPWARE.FAMVS.LOAD,DISP=SHR                       
 6 //SYSPRINT DD SYSOUT=*                                               
   X/SYSPRINT  DD SYSOUT=*                                               
 7 //SYSLIST  DD SYSOUT=*                                               
   X/SYSLIST   DD SYSOUT=*                                               
 8 //DD01     DD DISP=SHR,DSN=NVSTN.VIC7IX.THROWIN.DATA.G5               
   /*                                                                   
 9 //SYSIN    DD DISP=SHR,DSN=T040D5Z.PDS.CNTLCARD(VIC7IX6A)             
10 //IF3A     IF (VIC7IX6A.RC > 0) THEN                                 
11 //VIC7IX6B EXEC XMITIP                                               
 12 XXXMITIP   PROC                                             
    XX*================================================         
    XX*= XMITIP V564                                  =         
    XX*=                                              =         
    XX*= XMITIP IS SHAREWARE PROVIDED BY THE VEHICLES =         
    XX*= APPLICATION GROUP.                           =         
    XX*=                                              =         
    XX*= IT ALLOWS A BATCH JOB TO SEND AN EMAIL WITH  =         
    XX*= ATTACHMENT IN ONE STEP..                     =         
    XX*================================================         
 13 XXTRANSMIT EXEC PGM=IKJEFT01,                               
    XX         REGION=0M,                                       
    XX         DYNAMNBR=100                                     
 14 XXSTEPLIB  DD DSN=ATSPN.SHR.XMITIP.LOAD,                   
    XX            DISP=SHR                                     
 15 XXSYSEXEC  DD DSN=ATSPN.SHR.XMITIP.EXEC,                   
    XX            DISP=SHR                                     
 16 XXSYSPRINT DD SYSOUT=*                                     
 17 XXSYSTSPRT DD SYSOUT=*                                     
   18 XXSYSTERM  DD SYSOUT=*                                     
   19 XXSYSIN    DD TERM=TS                                     
      //*                                                       
   20 //SYSTSIN  DD DISP=SHR,DSN=T040D5Z.PDS.CNTLCARD(VIC7IX6B) 
      //*                                                       
   21 //VIC7IX6C EXEC PGM=CAN444                                 
   22 //ENDIF3A  ENDIF                                           



The jcl works when I replaced IF (VIC7IX6A.RC = 0) with IF (RC = 0) after looking at the solution of already posts.

But in my production already I have scenarios to check IF (VIC7IX6A.RC = 0) using the step condition. But here when I test its not working.

Can you please me to resolve it ?. I need to use with step name.
Back to top
View user's profile Send private message
Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1788
Location: Bloomington, IL

PostPosted: Mon Aug 29, 2016 11:32 am
Reply with quote

Step VIC7IX6A is executing a JCL procedure, which has steps of its own. The procstepname, FAMVS, must be used to qualify VIC7IX6A on the IF statement.
Back to top
View user's profile Send private message
abdulrafi

Active User


Joined: 14 Sep 2009
Posts: 184
Location: Coimbatore

PostPosted: Mon Aug 29, 2016 11:45 am
Reply with quote

Oh yes. I got it. Thanks for your help. :-). Its working fine now.
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 -> JCL & VSAM

 


Similar Topics
Topic Forum Replies
This topic is locked: you cannot edit posts or make replies. Passing a field name to COBOL program COBOL Programming 10
No new posts BMS map length field greater than zero CICS 3
No new posts Break a record into fields, each fiel... SYNCSORT 2
No new posts SYNCSORT Error - CONTROL FIELD BEYOND... SYNCSORT 10
No new posts How do i verify the char field is hav... PL/I & Assembler 1
Search our Forums:

Back to Top