Interested to Buy Any Domain ? << Click Here >> for more details...
I have a COBOL program that Accepts some input data. How do
you code the JCL statement for this?
( How do you code instream data in a JCL? )
- 9 Answers
- 24407 Views
- I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / mahesh
You can pass the vlaues to the cobol program using PARM
coded in the jcl
| Is This Answer Correct ? | 4 Yes | 2 No |
Answer / ritesh kumar
ONE WAY OF ACCEPTING THE DATA IS
// SYSIN DD*
VALUE1
VALUE2
*/
AND OTHER WAY YOU CAN USE FILE TO ACCEPT THE DATA
INCLUDE THAT FILE INTO YOUR RUN JCL.
| Is This Answer Correct ? | 2 Yes | 1 No |
Answer / sandeep
ONE WAY OF ACCEPTING THE DATA IS
// SYSIN DD*
VALUE1
VALUE2
*/
AND OTHER WAY YOU CAN USE PARM PARAMETER IN YOUR JCL.
IN APPLICATION PROGRAM USE THAT DATA THROUHG LINKAGE
SECTION.
| Is This Answer Correct ? | 1 Yes | 0 No |
Answer / vibhor kumar
//SYSIN DD *
VALUE1 -
VALUE2 -
/*
ALL THE SOLUTIONS MENTIONED ABOVE FORGOT TO ADD CONTINUATION
CHARACTER (-)
| Is This Answer Correct ? | 2 Yes | 2 No |
Answer / ekta agrawal
ONE WAY OF ACCEPTING THE DATA IS
// SYSIN DD*
VALUE1
VALUE2
*/
and other way you can also give teh data thru SYSIN is:
// SYSIN DD DSN='DDPCN.EKTA.TEST',DISP=SHR
| Is This Answer Correct ? | 0 Yes | 1 No |
Answer / banupriya
ONE WAY OF ACCEPTING THE DATA IS
// SYSIN DD*
VALUE1
VALUE2
*/
and other way you can also give teh data thru SYSIN is:
// SYSIN DD DSN='DDPCN.EKTA.TEST',DISP=SHR
| Is This Answer Correct ? | 1 Yes | 2 No |
Answer / shashidhar kalasannavar
You can pass the data to cobol program in three way and one
is instrem.
//SYSIN DD *
DATA1
DATA2
/*
or
//SYSIN DD DSN=SSK08.TEST.DATA,DISP=SHR
By intream you can send only 80 charecters
| Is This Answer Correct ? | 1 Yes | 2 No |
What is the error code SOC01 indicate ?
What is 'S0C7' abend?
what is A-MODE and R-MODE?
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
How to find in aparticular step how many versions a paricular gdg base have?
How do You skip a Step In JCL?
What are hierarchy levels in jcl?
What is concatenating?
Suppose I have a file with three fields with data in the following format 1. empid - S9(4) COMP 2. empname - X(20) 3. empsal - S9(5)V(2) COMP-3 If I view this file, it will not be in a readable format. How to display the empid and empsal fields in a readable format without using COBOL program? What kind of SORT card will have to be coded?
Explain the function of the dd dcb keyword?
Why do you want to specify the REGION parameter in a JCL step?
i have 5 steps to execute in that i want to skip 3nd step and start execute from forth step how can u do this.
COBOL 
