Answer Posted / 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

How can i load all the data from a file to Table (array) in cobol.How i manage the occurs clause with out reading the file.Any options avilable ? Please can any one help me it is urgent?

2535

---

How do u write test cases?

2013

---

Define cobol?

1313

---

Write the code to count the sum of n natural numbers.

1145

---

How do get the result of your program directly on your pc?

2297

---

Difference between array and sub-script ?

1605

---

Write a program to explain size error.

1140

---

i made it to stage 3 of an interview process wednessday they will quiz my knowledge again face to face for an analyst role recruiter said it will be based on Business requirements system is cobol and good ideas what they might ask etc

2534

---

Is it possible that the redefines clause has different picture clauses compared to the one it redefined?

1106

---

What is the usage of comp fields in cobol?

1132

---

What is inspect in cobol ?

1242

---

how do you reference the fixed unblock file formats from cobol programs

1176

---

How do you define a variable of comp-1 and comp-2?

1138

---

What is a scope terminator give example?

1051

---

How did the release of cobol/370 version 1.3 improve the performance of release 1.1?

1034

---