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.

Answer / guest

We can pass the data from cobol to JCl

ex: Move 4 t0o return code.

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

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

Answer / mr2981

by using file we can pass data ,by using return code

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.

Answer / vip

By using the parm parameter in jcl and defining the
datanames in the linkage section of the cobol program.

What do you understand by passing by reference and passing by content?

1 Answers  

when SE37 SB37 and sd37 occurs how to increase the volume , primary quantity and secondary quantity?

1 Answers   Hewitt,

Write the code implementing the perform … varying.

0 Answers  

Suppose i want to declare a binary comp fild of 7 byte .how to write?

6 Answers   IBM,

I have PS flat file with 14 records. I want to read from 4th to 9th record and want to write those 6 records (4th record to 9th record) to another PS file (output file). there is no key defined in the input file. I just want read a certain Consecutive records. can any one please give me the procedure division Coding for this. I have coded the below coding but the READ-PARA is performing only 1 time even though I have 14 records in my input file (i.e FILE-1): PROCEDURE DIVISION. A000-SECTION. MOVE 0 TO I. OPEN INPUT FILE-1. IF CHECK-KEY1 > 0 DISPLAY "OPEN ERROR FOR FILE-1, CODE IS:" CHECK-KEY1 END-IF. OPEN EXTEND NEWFILE-1 IF CHECK-KEY3 > 0 DISPLAY "OPEN ERROR FOR NEWFILE-1 COD IS" CHECK-KEY3 END-IF. PERFORM READ-PARA THRU EXIT-PARA UNTIL EOF-REC = 'YES'. DISPLAY " FINALLY OUT OF LOOP" CLOSE FILE-1 CLOSE NEWFILE-1 STOP RUN. READ-PARA. ADD 1 TO I READ FILE-1 AT END MOVE 'YES' TO EOF-REC IF I > 3 AND < 10 PERFORM WRITE-PARA ELSE DISPLAY "NOT IN RANGE" END-IF. EXIT-PARA. EXIT. WRITE-PARA. WRITE NEW-REC FROM FILE1-REC.

8 Answers   IBM,

what is the minimum number of lines a Cobol program should have to successfully compile and run

11 Answers   ABC, Societe Generale,

What do you understand by psb and acb?

0 Answers  

What the difference is between continue and next sentence?

0 Answers  

01 text-data pic x(100). move 'xyzdbfrjjg u' to text-data. how to find the value of last index of text-data?

3 Answers   Mind Tree,

what is the difference between external and global variables?

1 Answers  

what happens if parmparameter passes zero bytes to the program

0 Answers   HSBC,

A s9(4). B v9(4) value 0.21 can i move this?

3 Answers