How can we pass data from cobol to JCl?
Answers were Sorted based on User's Feedback
Answer / sri
When someone ask you that question first thing you need to
do is you post a question to him.
Passing data from COBOL to JCL means where in JCL ?
Do you mean a file? File is also a part of JCL. If it is
file then your answer is WRITE the data into the file.
Do you mean a PDS member ? Then WRITE the data or what ever
into the PDS member.
Do you mean SYSOUT ? If so just DISPLAY the value.
If he says not these three then he need to tell what is the
purpose of moving data to JCL ? for you to give an answer.
Is This Answer Correct ? | 42 Yes | 2 No |
Answer / guest
We can pass the data from cobol to JCl
ex: Move 4 t0o return code.
Is This Answer Correct ? | 31 Yes | 4 No |
Answer / anil prajapati
we can pass data from cobol to jcl by using return-code
like
move 450 to return-code
if we are passing data likeit then at run time the maxx
return code will be this code if move code is a negative
number then after subtracting from 4096 maximum return code
will be displayed
Is This Answer Correct ? | 19 Yes | 2 No |
Answer / rosi
hi.
i need help
i need Passing a variable parm from JCL to a cobol/db2
program
I'm trying to write a batch cobol/db2 pgm wich receive in
linkage section some paremeters
I succeeded to pass a static string of characters but what
I need is variable parameters (INPUT )
//DDB5A59 JOB CLASS=A,MSGCLASS=R,MSGLEVEL=
(1,1),NOTIFY=xxxx
//
REGION=0M
// SET INPUT=MYNAME
<=====
//PH01S01 EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=
(4,LT)
//SYSTSPRT DD
SYSOUT=*
//SYSTSIN DD
*
DSN SYSTEM
(DBSN)
RUN PROGRAM(COBPROG) PLAN(NACPLN) -
PARMS('INPUT') -
LIB
('MYDB.TRNSCTN.LOADLIB')
//SYSPRINT DD
SYSOUT=*
//SYSUDUMP DD
SYSOUT=*
//INFILE DD DSN=MYDB(&INPUT),DISP=SHR
//ERRLST DD
SYSOUT=P,DCB=RECFM=F,FCB=L56
The program (cobprog) is that when I run the job ,if PARMS
('&INPUT') returns :&INPUT and
if PARMS(&INPUT) returns :null
i need "myname" to the cobol/db2 program and name of the
member (DSN=MYDB(&INPUT),DISP=SHR)
Do you think helpe me?
Thanks
Is This Answer Correct ? | 6 Yes | 4 No |
Answer / mr2981
by using file we can pass data ,by using return code
Is This Answer Correct ? | 9 Yes | 14 No |
Answer / gigish thomas
create a Symbolic Parameter in jcl woith out goiving any
value.In the job step passthis symbolic parameter through
PARM parameter to cobol program.in the linkage section of
the cobol program assign the value/string to the symbolic
variable. It will automatically reflect to the symbolic
variable which was defined in JCL program.
Is This Answer Correct ? | 4 Yes | 18 No |
Answer / vip
By using the parm parameter in jcl and defining the
datanames in the linkage section of the cobol program.
Is This Answer Correct ? | 9 Yes | 30 No |
can we redefine 77 level item is it possible
How may divisions are there in JCL-COBOL?
How do you compile cobol program..?
I want to remove a duplicates form a given input field using cobol program. please Any one help me out to solve this ... Thanks in Advance.
The following entries appear in the WORKING-STORAGE SECTION: 01 DATE-TODAY. 05 YY PIC XX VALUE "90". 05 MM PIC XX VALUE "12". 05 DD PIC XX VALUE :31". 01 DATE-EDIT PIC XX/XX/XX. MOVE DATE-TODAY TO DATE-EDIT. (a) 901231 (b) 90/12/31 (c) 31/12/90 (d) 311290
select TURE Statement(s) aboUt eject statemenet in cobol? a)The eject statememnt must be the only statement on the line b.It causes the program to edit abnormally c. eject statement can be written in either area A or area B d. specifies that the next source statement is to be printed at Top of the next page e.The EJECTstatement has no effect on the compilation of the source program itself
can we use go to statement inline-perform?
sample code for read a 2nd record from last in flatfile how can do?
Why do we use COMP-3 variables for computation, when we know that they are non displayable fields and require additional MOVE to numeric field before we populate it in output Reports?
1)what is the maximum limit for occurs? Eg: 01 A PIC X(10) OCCURS N TIME. What is the max value for N?
How To move a value to an array using move verb?
What is the difference between a DYNAMIC and STATIC call in COBOL?