JCL, Cobol and "Call Parameters"
- From: "michael.bierenfeld@xxxxxx" <michael.bierenfeld@xxxxxx>
- Date: 24 Jan 2007 03:56:31 -0800
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 ?
Kind regards
Michael
.
- Follow-Ups:
- Re: JCL, Cobol and "Call Parameters"
- From: Frank Swarbrick
- Re: JCL, Cobol and "Call Parameters"
- From: michael.bierenfeld@xxxxxx
- Re: JCL, Cobol and "Call Parameters"
- Prev by Date: Re: SORT and FILE STATUS
- Next by Date: Re: Looking for A Screen Scraper
- Previous by thread: SORT and FILE STATUS
- Next by thread: Re: JCL, Cobol and "Call Parameters"
- Index(es):