Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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: 166
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: 1787
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: 166
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 SMF IFAMGET macro GTPB_RETURNEDLENGT... ironheinrich7 PL/I & Assembler 0 Fri Jul 13, 2018 7:56 pm
No new posts INVALID RECFM FOR DDNAME SYSLIN AND C... sandeep kumar302 All Other Mainframe Topics 7 Fri Apr 27, 2018 6:07 pm
No new posts How to include a particular field val... sakrat DFSORT/ICETOOL 8 Fri Apr 06, 2018 8:27 pm
No new posts Extract the records with a PD field's... sudhakar84 DFSORT/ICETOOL 11 Mon Apr 02, 2018 7:26 pm
No new posts Searching a table for the field name? socker_dad COBOL Programming 8 Sat Mar 31, 2018 2:57 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us