Interested to Buy Any Domain ? << Click Here >> for more details...
i am trying to copy a PS file into VSAM file in step2 by
using PGM=IDCAMS,COND=(0,LT) and the pS file is getting
sorted in the step1. I got the return code 00 for step1 but
step2 got flushed. can u please help on this. Below is My
JCL.
SEPP050 EXEC
PGM=SORT,REGION=6144K
SYSIN DD DSN=SYSCMN.PROD.CCLIB
(F5910BNN),
DISP=SHR
SYSOUT DD
SYSOUT=*
SYSUDUMP DD
SYSOUT=A
SORTIN DD
DSN=Z1225BT.F5910EPP.HISOUT,
DISP=SHR
SORTOUT DD
DSN=Z1225BT.F5910EPP.HISOUT.SORTOUT5,
DISP=
(NEW,CATLG,DELETE),UNIT=DELQ,
SPACE=(CYL,
(500,500),RLSE),
DCB=
(RECFM=FB,LRECL=1606,BLKSIZE=16060,BUFNO=15)
SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,
(1))
SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,
(1))
SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,
(1))
SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,
(1))
SYSIN1 DD UNIT=VIO,SPACE=
(80,1)
*
SEPP060 EXEC PGM=IDCAMS,COND=
(0,LT)
SYSPRINT DD
SYSOUT=*
SYSOUT DD
SYSOUT=*
SYSLIST DD
SYSOUT=*
***
DD01 DD DSN=Z1225BT.F5910EPP.HISOUT.SORTOUT,
// DISP=SHR
//***
//DD01O DD DSN=Z1225BT.F5910PHS,
// DISP=SHR,
// AMP=(AMORG,'BUFND=12,BUFNI=5')
//SYSIN DD DSN=SYSCMN.PROD.CCLIB(F5910BBB),
//
DISP=SHR
Output RC for the two steps:
SDCBPJ05 SEPP050 00 236 .00 .00 .0
SDCBPJ05 SEPP060 FLUSH 0 .00 .00 .0
- 3 Answers
- 14325 Views
- I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / vs kumar
Do not use the cond code. As per your jcl the second step
is always skipping. Remove the cond code and try it.
| Is This Answer Correct ? | 1 Yes | 0 No |
Answer / muttaiah
1. cond=(0,lt) is false in this case the sepp060 should
execute. Better don't include cond and try to see what will
happen.
generally this cond parm is so confusing that sometimes we
get much confused whether it will execute when the
condition if true or false.
| Is This Answer Correct ? | 1 Yes | 0 No |
Answer / srikanth
COND=(0,LT) will not work only if any of the previous steps
ended with a non zero return code(except FLUSH). By
changing the condition to COND=(0,LT,SDCBPJ05)is working
fine.
| Is This Answer Correct ? | 1 Yes | 1 No |
how can we pass parameters from JCL to cobol subprogram...my requirement is i should not get data from mainprogram but i need it from JCL directly
what is meant by jobtrac?
Describe the DD statement, its meaning, syntax and keywords?
What is the error/SOC code if dd names are not sysut1 and sysut2 in IEBGENER?
how are instream data terminated?
what are the ways of passing data to a cobol program from jcl?
How to read and write a single record into a file. I would like to use it to enter a single 8-character piece of information and use it to put it into a variable for processing in JCL. Thank you
How would you understand error(execution phase)?
Explain about LMGET�read a logical record from a data set
How to execute a set of JCL statements from a COBOL program ?
when GDG version number get changed ? bcz always Generations only increasing.
how GDGs are concatinated?
COBOL 
