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
 

 

Issue while using ISRSUPC
Goto page 1, 2  Next
 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
swapnadeep.ganguly

Active User


Joined: 21 Mar 2007
Posts: 203
Location: India

PostPosted: Tue Aug 16, 2011 4:39 pm    Post subject: Issue while using ISRSUPC
Reply with quote

Hi,

I am using the below mentioned PROC:
Code:

//STEP04  EXEC PGM=ISRSUPC,                               
//            PARM=(DELTAL,LINECMP,                       
//            '',                                         
//            '')                                         
//NEWDD  DD DSN=ABC.IN1.D110817,
//          DISP=SHR                                     
//*                                                       
//OLDDD  DD DSN=ABC.IN1.D110816,
//          DISP=SHR                                     
//*                                                       
//OUTDD   DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE), 
//           DISP=(MOD,PASS),                             
//           DCB=(RECFM=FB,LRECL=255)                     
//*
// IF (STEP04.RC EQ 1) THEN                                                 
//STEP05   EXEC PGM=SORT                                   
//*                                                         
//SORTIN   DD DSN=&&T1,DCB=(RECFM=FB,LRECL=255),           
//            DISP=MOD                                     
//*                                                         
//SORTOUT  DD DSN=ABC.IN1.D110817.COMPARE,
//            DISP=(NEW,CATLG,DELETE),UNIT=RESDA,           
//            DCB=*.SORTIN,SPACE=(CYL,(1000,2000),RLSE)     
//*                                                         
//SORTWK01 DD UNIT=SYSDA                                   
//SORTWK02 DD UNIT=SYSDA                                   
//*
//SYSIN    DD *
  SORT FIELDS=COPY                                   
  INCLUDE COND=(2,3,CH,EQ,C'I -',OR,2,3,CH,EQ,C'D -')
/*                                           
//SYSOUT   DD SYSOUT=*                       
//SYSPRINT DD SYSOUT=*   
// ENDIF                     


The Issue that I am facing is that when there is a difference in the files, then the return code of 1 is set. However at this instance the job is not executing STEP05 i.e. the SORT Step. I have tried to use COND as well as IF statement.
Code:

-PROCNAME STEPNAME   PROGRAM     RC           EXCP
-STEP04       CCCCC  ISRSUPC     01           140
-STEP05       CCCCC  SORT        FLUSH        0


Can anyone point out where exactly I m going wrong?
[/code]
Back to top
View user's profile Send private message

superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4648
Location: Raleigh, NC, USA

PostPosted: Tue Aug 16, 2011 5:01 pm    Post subject: Reply to: Issue while using ISRSUPC
Reply with quote

I don't understand. You says it's a PROC, yet you have a statement that uses a DD* for instream data, which is not allowed in a PROC.
Back to top
View user's profile Send private message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1445
Location: Azeroth

PostPosted: Tue Aug 16, 2011 5:01 pm    Post subject:
Reply with quote

Hello,
How come you have //SYSIN DD *
on a proc icon_eek.gif

Edited: Contention with SuperK
Back to top
View user's profile Send private message
swapnadeep.ganguly

Active User


Joined: 21 Mar 2007
Posts: 203
Location: India

PostPosted: Tue Aug 16, 2011 5:02 pm    Post subject:
Reply with quote

Thats because I have just copied the PARM into the SYSIN DD * statement to provide the complete JCL
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Tue Aug 16, 2011 5:03 pm    Post subject:
Reply with quote

well, I did not know that you could have instream data in a PROC

superk was a little faster,
so I will add an addendum to my post.

yet another Topic Starter who is attempting to BS us.
Back to top
View user's profile Send private message
swapnadeep.ganguly

Active User


Joined: 21 Mar 2007
Posts: 203
Location: India

PostPosted: Tue Aug 16, 2011 5:03 pm    Post subject:
Reply with quote

The thing that I would like to know is how can I execute STEP05 when I have difference in the files that are referred in sTEP04.

If there is a difference, then return code of '01' is set and STEP05 is getting FLUSHED.
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7241

PostPosted: Tue Aug 16, 2011 5:12 pm    Post subject:
Reply with quote

swapnadeep.ganguly wrote:
Thats because I have just copied the PARM into the SYSIN DD * statement to provide the complete JCL


So next time, tell us when you do something like that please. So far everyone has been thinking "is this a PROC, or not, it can't be" - so much wasted time.
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Tue Aug 16, 2011 5:13 pm    Post subject:
Reply with quote

Code:

-PROCNAME STEPNAME   PROGRAM     RC           EXCP
-STEP04       CCCCC  ISRSUPC     01           140
-STEP05       CCCCC  SORT        FLUSH        0


don't where you are copying or 'creating' the above
but
the proc and stepname are assbackwards.

since you tend to edit posts and provide us with useless information
(WTF do we want to know the sort control statements)

would not be surprised if you are looking at the wrong job.
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Tue Aug 16, 2011 5:16 pm    Post subject:
Reply with quote

what is important is to cut&paste the output of the JESJCL,

and the JESYSMSG.

you have only provided us with your interpretation of the job
and the summary.

you want answers, give us detail.
Back to top
View user's profile Send private message
swapnadeep.ganguly

Active User


Joined: 21 Mar 2007
Posts: 203
Location: India

PostPosted: Tue Aug 16, 2011 5:16 pm    Post subject:
Reply with quote

My sincere apologies to everyone due to the error that I had posted.

Hope I have made myself clear on the aspect where I am getting the unwanted response.
Back to top
View user's profile Send private message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1445
Location: Azeroth

PostPosted: Tue Aug 16, 2011 5:17 pm    Post subject:
Reply with quote

Tested & works fine,
Code:
//TEST     PROC                     
//SUPERC  EXEC PGM=ISRSUPC,         
//            PARM=(DELTAL,LINECMP,
//            '',                   
//            '')                   
//NEWDD  DD DSN=WELLS.SORTOUT,   
//          DISP=SHR               
//OLDDD  DD DSN=WELLS.SORTIN,     
//          DISP=SHR               
//OUTDD  DD SYSOUT=(A)             
// IF (SUPERC.RC EQ 1) THEN         
//JS020    EXEC PGM=IEFBR14         
// ENDIF                           
//TEST     PEND     


Code:
JOBNAME  STEPNAME PROCSTEP    RC
TESTER   JS010    SUPERC      01
TESTER   JS010    JS020       00   


:S
Back to top
View user's profile Send private message
swapnadeep.ganguly

Active User


Joined: 21 Mar 2007
Posts: 203
Location: India

PostPosted: Tue Aug 16, 2011 5:22 pm    Post subject:
Reply with quote

JESYSMSG:
Code:

IEF142I TXXX1930 STEP04 XXX1930C - STEP WAS EXECUTED - COND CODE 0001           
IGD104I HLQ.DL.XXX1950.UPDATE.IN1.D110817          RETAINED,  DDNAME=NEWDD   
IGD104I HLQ.DL.XXX1950.UPDATE.IN1.D110816          RETAINED,  DDNAME=OLDDD   
IGD106I SYS11228.T112816.RA000.TXXX1930.T1.H02       PASSED,    DDNAME=OUTDD   
IGD104I HLQ.XXX.PRODPARM                           RETAINED,  DDNAME=SYSIN   
********************************************************************************
* DDNAME    UNIT    EXCPS BLKSIZE *  DDNAME    UNIT    EXCPS BLKSIZE *  DDNAME 
* NEWDD    D-CF4A      48   27795 *  OLDDD    D-CF37      48   27795 *  OUTDD   
* SYSIN    D-CF49       4    3120 *                                  *         
********************************************************************************
* TCB   TIME:        .02   PAGING I/O COUNTS:      0   DISK I/O COUNTS:    101 P
* SRB   TIME:        .00   SWAPS  I/O COUNTS:      0   TAPE I/O COUNTS:      0 U
* PERF GROUP:   0          ADDR. SPACE SWAPS:      0   VIRT I/O COUNTS:      0 U
********************************************************************************
IEF373I STEP/STEP04  /START 2011228.1128                                       
IEF374I STEP/STEP04  /STOP  2011228.1128 CPU    0MIN 00.02SEC SRB    0MIN 00.00S
IEF202I TXXX1930 STEP05 XXX1930C - STEP WAS NOT RUN BECAUSE OF CONDITION CODES 
IEF272I TXXX1930 STEP05 XXX1930C - STEP WAS NOT EXECUTED.                       


JESJCL:
Code:

IEFC653I SUBSTITUTION JCL - SYSOUT=*                                 
XXSTEP04  EXEC PGM=ISRSUPC,                                           
XX            PARM=(DELTAL,LINECMP,                                   
XX            'NOPRTCC',                                             
XX            '')                                                     
XXNEWDD  DD DSN=&HLQ..DL.XXX1950.UPDATE.IN&FNUM..D&YYMMDD,           
XX          DISP=SHR                                                 
XX*                                                                   
IEFC653I SUBSTITUTION JCL - DSN=HLQ.DL.XXX1950.UPDATE.IN1.D110817,DISP=SHR
XXOLDDD  DD DSN=&HLQ..DL.XXX1950.UPDATE.IN&FNUM..D&PREVDT,           
XX          DISP=SHR                                                 
XX*                                                                   
IEFC653I SUBSTITUTION JCL - DSN=HLQ.DL.XXX1950.UPDATE.IN1.D110816,DISP=SHR
XXOUTDD   DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE),             
XX           DISP=(MOD,PASS),                                         
XX           DCB=(RECFM=FB,LRECL=255)                                 
XX*                                                                   
XXSYSIN   DD DSN=&VLM..&PARMLIB(XXX19306),DISP=SHR                   
XX*                                                                   
XX IF (STEP04.RC EQ 1) THEN                                           
XXSTEP05   EXEC PGM=SORT                                             
XX*                                                                   
XXSORTIN   DD DSN=&&T1,DCB=(RECFM=FB,LRECL=255),                     
XX            DISP=MOD                                               
XX*                                                                   
XXSORTOUT  DD DSN=&HLQ..DL.XXX1950.UPDATE.IN&FNUM..COMPARE1,         
XX            DISP=(NEW,CATLG,DELETE),UNIT=RESDA,                     
XX            DCB=*.SORTIN,SPACE=(CYL,(1000,2000),RLSE)               
XX*                                                                   
IEFC653I SUBSTITUTION JCL - DSN=HLQ.DL.XXX1950.UPDATE.IN1.COMPARE1,DISP=(NEW,CATLG,DELETE),
DCB=*.SORTIN,SPACE=(CYL,(1000,2000),RLSE)                             
XXSORTWK01 DD UNIT=SYSDA                                             
XXSORTWK02 DD UNIT=SYSDA                                             
XXSYSIN    DD DSN=&VLM..&PARMLIB(XXX19305),                           
XX            DISP=SHR                                               
XX*                                                                   
IEFC653I SUBSTITUTION JCL - DSN=HLQ.XXX.PRODPARM(XXX19305),DISP=SHR
XXSYSOUT   DD SYSOUT=*                                               
XXSYSPRINT DD SYSOUT=*                                               
XX ENDIF                                                             
Back to top
View user's profile Send private message
swapnadeep.ganguly

Active User


Joined: 21 Mar 2007
Posts: 203
Location: India

PostPosted: Tue Aug 16, 2011 5:33 pm    Post subject:
Reply with quote

The Surprising thing is:
When I used IEFBR14 as done by Vasanth, it executed fine:
Code:

//SUPERC  EXEC PGM=ISRSUPC,                               
//            PARM=(DELTAL,LINECMP,                       
//            '',                                         
//            '')                                         
//NEWDD  DD DSN=IN1.D110817,       
//          DISP=SHR                                       
//OLDDD  DD DSN=IN1.D110816,       
//          DISP=SHR                                       
//OUTDD  DD SYSOUT=(A)                                     
// IF (SUPERC.RC EQ 1) THEN                               
//JS020    EXEC PGM=IEFBR14                               
// ENDIF                                                   


JESYSMSG:
Code:

IEF142I TMVD1930 SUPERC - STEP WAS EXECUTED - COND CODE 0001                   
IGD104I @SWAP.DL.MVD1950.UPDATE.IN1.D110817          RETAINED,  DDNAME=NEWDD   
IGD104I @SWAP.DL.MVD1950.UPDATE.IN1.D110816          RETAINED,  DDNAME=OLDDD   
IEF285I   @SWAP.TMVD1930.JOB03533.D0000101.?           SYSOUT                   
********************************************************************************
* DDNAME    UNIT    EXCPS BLKSIZE *  DDNAME    UNIT    EXCPS BLKSIZE *  DDNAME 
* NEWDD    D-CF3F      48   27795 *  OLDDD    D-CF37      48   27795 *  OUTDD   
********************************************************************************
* TCB   TIME:        .01   PAGING I/O COUNTS:      0   DISK I/O COUNTS:     96 P
* SRB   TIME:        .00   SWAPS  I/O COUNTS:      0   TAPE I/O COUNTS:      0 U
* PERF GROUP:   0          ADDR. SPACE SWAPS:      0   VIRT I/O COUNTS:      0 U
********************************************************************************
IEF373I STEP/SUPERC  /START 2011228.1201                                       
IEF374I STEP/SUPERC  /STOP  2011228.1201 CPU    0MIN 00.01SEC SRB    0MIN 00.00S
IEF142I TMVD1930 JS020 - STEP WAS EXECUTED - COND CODE 0000                     



However, when the same is not executing successfully with PGM=SORT.

I am really surprised with this...
Back to top
View user's profile Send private message
Garry Carroll

Active Member


Joined: 08 May 2006
Posts: 990
Location: Dublin, Ireland / Edinburgh, Scotland

PostPosted: Tue Aug 16, 2011 5:37 pm    Post subject:
Reply with quote

Your snippets from the jobs look incomplete. Are there steps before
Code:
XXSTEP04  EXEC PGM=ISRSUPC, 


Garry.
Back to top
View user's profile Send private message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1445
Location: Azeroth

PostPosted: Tue Aug 16, 2011 6:02 pm    Post subject:
Reply with quote

Hello,
Just a guess,
Does the JCL have COND=(0,NE) on the statement which refers the PROC?

Something like,
//JS010 EXEC TEST,COND=(0,NE)

This would cause,
Code:
STEPNAME PROCSTEP    RC
JS010    SUPERC      01
JS010    JS020    FLUSH
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1219
Location: Israel

PostPosted: Tue Aug 16, 2011 10:42 pm    Post subject:
Reply with quote

As Garry suggested, check the steps before.
Certainly there is another step named STEP04.
Back to top
View user's profile Send private message
swapnadeep.ganguly

Active User


Joined: 21 Mar 2007
Posts: 203
Location: India

PostPosted: Wed Aug 17, 2011 3:37 pm    Post subject:
Reply with quote

Quote:

Does the JCL have COND=(0,NE) on the statement which refers the PROC?


No Vasanth,

There is no COND code as you had mentioned.

Quote:

Your snippets from the jobs look incomplete. Are there steps before

Yes there are STEPS before which are simply FTP'ing files from the server for the current date and then its comparing with the file from the previous date.
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7241

PostPosted: Wed Aug 17, 2011 3:54 pm    Post subject: Reply to: Issue while using ISRSUPC
Reply with quote

So can you list the stepname cards for the earlier steps?
Back to top
View user's profile Send private message
swapnadeep.ganguly

Active User


Joined: 21 Mar 2007
Posts: 203
Location: India

PostPosted: Wed Aug 17, 2011 4:03 pm    Post subject:
Reply with quote

The Step name cards are as mentioned below:
Code:

//STEP01  EXEC PGM=IEFBR14
//*                       

//STEP02  EXEC PGM=IRXJCL,                                           
//        PARM='ABCDEFGH +$=1/$PDATE=&YYMMDD/$HLQ=&HLQ/$FNUM=&FNUM' 
//*                                                                 
:
:
//STEP03   EXEC PGM=FTP,REGION=7M,       
//         PARM='&IPARM1&IPARM2&IPARM3' 
//*                                     
:
:
//STEP04  EXEC PGM=ISRSUPC,         
//            PARM=(DELTAL,LINECMP, 
//            'NOPRTCC',             
//            '')                   
:
:
// IF (STEP04.RC EQ 1) THEN
//STEP05   EXEC PGM=SORT   
//*                       
:
:
// ENDIF

Back to top
View user's profile Send private message
Garry Carroll

Active Member


Joined: 08 May 2006
Posts: 990
Location: Dublin, Ireland / Edinburgh, Scotland

PostPosted: Wed Aug 17, 2011 4:17 pm    Post subject:
Reply with quote

So far, all we are getting is edited snippets - we don't know what's being edited out. We really need to see the ENTIRE job - from the JOBCARD through any procs/steps up to the point of failure. Otherwise , it's a bit like performing surgery wearing a blindfold.

Garry.
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
Goto page 1, 2  Next
Page 1 of 2

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts DFHRESPONSE returns issue divated CICS 3 Wed Nov 02, 2016 6:32 pm
No new posts Can sending 5 MB data between cobol p... Kevin Vaz CICS 12 Tue Oct 18, 2016 4:50 pm
No new posts REXX Screen not working due to LINKED... sundarkudos CLIST & REXX 1 Mon May 09, 2016 1:44 pm
No new posts Issue in sending zip file as mail att... ajithajt JCL & VSAM 8 Thu Apr 07, 2016 9:11 am
No new posts Include Cond issue vickey_dw DFSORT/ICETOOL 6 Tue Mar 29, 2016 8:51 pm


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