how can u pass the values into db2 values from cobol ?
Answers were Sorted based on User's Feedback
Answer / uday
In your Execution jcl
//JOB1 JOB NOTIFY=&SYSUID
//STEP1 EXEC PGM=IKJEFT01
//STEPLIB DD DSN=PSHRPD.PROD.LOADLIB,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DB2X)
RUN PROGRAM(PXXXXXXX) PLAN(DB2XXXXX) PARM('1234')
END
/*
In your Program = PXXXXXXX
Linkage section.
01 LK-PARM.
05 LK-LEN PIC S9(04) COMP.
05 LK-DATA PIC X(04).
PROCEDURE DIVISION USING LK-PARM.
So through Parm data also you can pass the data.
Is This Answer Correct ? | 3 Yes | 1 No |
What R 2 of the common forms of the EVALUATE STATEMENT ?
I have the file which is having the extension no as records. sample file will look like below. 2310 3410 3256 4350 3781 5408 I need to replace the record which is starting with 3 to 5 (i.e) 3410 to 5410. How can we do it through cobol and cobol-db2 program? I need the possible logic?
What are some examples of command terminators?
how we rectify soc7 and soc4 errors in project?
I have 2 dimensional array with having 100 elements. So how to find the 11th item in an array?
What is a scope terminator give example?
How many bytes do a s9 (7) comp-3 field occupy?
How can you declare the file ?
why we are using picture clause in the cobol programs?
i need a small 3d program using inline and outline.
How many times the loop runs here 01 a pic 9(2) value 1. perform para1 until a=10 move 1 to a. stop run. para1: move 10 to a.
How can you submit a job from COBOL programs?