IBM Mainframe Forum

Hi,

Can we read a file in called program? This file is not read in calling program. Pleas reply!

Yes, you can. You can do it in the usual way (OPEN, READ, CLOSE) all in the CALLed program, or you can have the file OPEN in the main program and the filename "passed" to the CALLed program. It depends on what you are exactly doing. If you can give more details, we may be able to make more accurate suggestions.

There is a cobol stored Procedure called from various applications which are not on mainframes. I want to read a file in this SP. Since there is no JCL associated, and calling program is not a cobol code, how to read the records from this file?

Hello,

Is the COBOL code invoked from these external processes?

Once invoked, the COBOL code should be able to dynamically allocate the file it needs to read.

Hi,

Yes, this cobol code is invoked from external processes. So this dynamic allocation of an already existing file in cobol will be same as that of an output file?

pulsar22 wrote:Hi,

Yes, this cobol code is invoked from external processes. So this dynamic allocation of an already existing file in cobol will be same as that of an output file?

Yes. You will probably want to use BPXWDYN, although other means are possible; the syntax of the command string is very similar (though not identical) to that of the TSO ALLOCATE command.

These users thanked the author Akatsukami for the post:

pulsar22 (Mon Sep 16, 2013 8:52 pm)

Hello,

You can dynamically allocate an output file as well as an input file.
Apologies for not mentioning this before . . .

These users thanked the author dick scherrer for the post:

pulsar22 (Mon Sep 16, 2013 8:51 pm)

in a db2 stored procedure multiple programs can execute at the same time, even multiple copies of the same program. This can lead to problems if they allocate the same file / ddname.

to get around this issue we setup a separate wlm environment with numtcb=1 and only set this one stored procedure to run in that wlm environment. It worked well for input, output files are a bit trickier as that would need to be serialized across the entire environment, not just within the wlm address space.

good luck

Chuck H.

I have written a program for dynamically allocating and reading a file. The content of file is in one line - 'pulsar22'. It is completing with return code ' 4072'. Also, display statement for content of file shows ' " 0 " 0 " 0 " ' , something like this. Since i don't have access to applications calling this stored proc, i am executing it by JCL. Please suggest what could be the issue. The code is shown below. There are no error messages in sysout


ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT INP-FILE ASSIGN TO INPFILE
FILE STATUS IS WS-STAT.
DATA DIVISION.
FILE SECTION.
FD INP-FILE.
01 WS-INP-REC PIC X(80).

WORKING-STORAGE SECTION.
01 WS-VARIABLES.
05 WS-PGM PIC X(8) VALUE 'BPXWDYN'.
05 WS-FILE-NAME PIC X(16).
05 WS-ALLOC-STRING PIC X(100).
05 WS-STAT PIC X(02).

PROCEDURE DIVISION.
MOVE 'FILE.FILE1' TO WS-FILE-NAME
STRING 'ALLOC DD(INPFILE) DSN('WS-FILE-NAME') SHR '
'CATALOG ' 'LRECL(80) RECFM(F,B)'
DELIMITED BY SIZE INTO WS-ALLOC-STRING
END-STRING.

CALL WS-PGM USING WS-ALLOC-STRING.
DISPLAY RETURN-CODE.

OPEN INPUT INP-FILE.
READ INP-FILE.

MOVE WS-INP-REC TO WS-REC
DISPLAY WS-REC
CLOSE INP-FILE.
GOBACK.

I recommend you start by finding out what the dynamic allocation is doing. The return code you are testing is NOT set by BPXWDYN, so I have no idea why you are checking it after the CALL.
Also, your STRING command could use some serious formatting to make better sense; if your file name is not exactly 16 bytes then you are asking for problems.