Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

IEF645I INVALID REFERBACK IN THE RC FIELD

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
abdulrafi

Active User


Joined: 14 Sep 2009
Posts: 135
Location: Coimbatore

PostPosted: Mon Aug 29, 2016 10:57 am    Post subject: IEF645I INVALID REFERBACK IN THE RC FIELD
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: 1738
Location: Bloomington, IL

PostPosted: Mon Aug 29, 2016 11:32 am    Post subject:
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: 135
Location: Coimbatore

PostPosted: Mon Aug 29, 2016 11:45 am    Post subject:
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    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Add PD field from 2nd file to PD in 1st Sushant Garje DFSORT/ICETOOL 6 Thu Dec 01, 2016 4:32 pm
No new posts How to split the records using the am... vnktrrd DFSORT/ICETOOL 24 Fri Oct 28, 2016 7:33 pm
No new posts Sort records based on numeric field. Alks SYNCSORT 2 Wed Oct 19, 2016 10:14 pm
No new posts Amount field is getting corrupted whe... thesumitk SYNCSORT 5 Tue Oct 18, 2016 8:20 pm
No new posts Syncsort - NULL in Integer field chec... nartcr SYNCSORT 4 Thu Oct 06, 2016 6:47 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us