|
|
| Author |
Message |
dineshsjce Warnings : 1 New User
Joined: 16 Apr 2007 Posts: 33 Location: Bangalore
|
|
|
|
Hi Freinds,
I have a requirement where in I have to set the RETURN-CODE in JCL based on some condition as given below.
IF the column 4-6 in the file is GU00059.TEST.FILE3 equal to = 134
SET MAXCC = 0
ELSE SET MAXCC = 4
Is there any way we can meet this requirement ? |
|
| Back to top |
|
 |
References
|
|
 |
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 3544 Location: Brussels once more ...
|
|
|
|
For only one record ?
Look at REXX or possibly SORT or COBOl or any other program language solutions. |
|
| Back to top |
|
 |
dineshsjce Warnings : 1 New User
Joined: 16 Apr 2007 Posts: 33 Location: Bangalore
|
|
|
|
YES. Only one record....
Thanks for replying  |
|
| Back to top |
|
 |
arcvns
Senior Member
Joined: 17 Oct 2006 Posts: 759 Location: Chennai, India
|
|
|
|
Dinesh,
You can use the below syncsort job for one record..
| Code: |
//STEP1 EXEC PGM=SORT,PARM='NULLOUT=RC4'
//SYSOUT DD SYSOUT=*
//SORTIN DD *
XXX134YYY
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INCLUDE COND=(4,3,CH,EQ,C'134') |
Thanks,
Arun |
|
| Back to top |
|
 |
dineshsjce Warnings : 1 New User
Joined: 16 Apr 2007 Posts: 33 Location: Bangalore
|
|
|
|
Thanks a lot Arun !!!!
It is working and the problem is solved!! |
|
| Back to top |
|
 |
Aaru
Senior Member
Joined: 03 Jul 2007 Posts: 1148 Location: Mumbai - India
|
|
|
|
Arun,
| Quote: |
| PARM='NULLOUT=RC4' |
Could you please explain me the significance of the above statement and how this can be used for the requirement? |
|
| Back to top |
|
 |
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 3544 Location: Brussels once more ...
|
|
|
|
| If there are no records in the SORTOUT dataset, then the step will issue RC4, but if there are records RC0 |
|
| Back to top |
|
 |
Aaru
Senior Member
Joined: 03 Jul 2007 Posts: 1148 Location: Mumbai - India
|
|
|
|
Hi,
| Quote: |
If there are no records in the SORTOUT dataset, then the step will issue RC4, but if there are records RC0
|
Thanks a lot for the explanation. |
|
| Back to top |
|
 |
|
|