Re: JCL, Cobol and "Call Parameters"

I don't have an answer, but I do have a comment.
You're converting from VSE to Micro Focus? Traitor!

:-)

Oh, one other comment. I believe Micro Focus has a product that will allow
you to keep you VSE JCL. You might try contacting them.

Frank

michael.bierenfeld@xxxxxx<michael.bierenfeld@xxxxxx> 01/24/07 4:56 AM >>>
Hello,

we are in the evaluation phase of converting a bunch of applications to
MF/Cobol. The Programms work fine and right now I am trying to figure
out the best way to handle all this JCL-Stuff. Eg.

The JCL says :

* $$JOB JNM=REI-V94,DISP=D,CLASS=0,PRI=8
* $$LST CLASS=A,DISP=H,FNO=33AE,FCB=FCB000Z8,LST=B0E
// JOB ZAKMTE ---- UNVERFALLBARKEIT
// ASSGN SYS010,B0E
LIBDEF *,SEARCH=ALLES.TEST
// EXEC VSB094,SIZE=512K
99 70000000 98000000
/*
/&
* $$EOJ

COBOL uses this :

FILE-CONTROL.
SELECT LISTFILE
ASSIGN TO SYS010-UR-3203-S.

So the Name of the Spool File is dynamically setted by the JCL. How do
I do this with a shell script or a call to the MF/Cobol Runtime
"runcob32".

For SYSIPT I have done the following. According to the JCL-Above

#!/bin/bash
echo "99 70000000 98000000" | ./VSB094

This is then used in COBOL with

01 ACC-IPT1.
05 FILLER PIC XXXX.
05 VLK-VNR-BEGINN PIC X(8).
05 FILLER PIC X(1).
05 VLK-VNR-ENDE PIC X(8).

ACCEPT ACC-IPT1 FROM SYSIPT.

And I have the Parameters. But how to handle those filenames ?


---
Frank Swarbrick
Senior Developer/Analyst - Mainframe Applications
FirstBank Data Corporation - Lakewood, CO USA
.