MVSFORUMS.com

Sarangadhar

I have a requirement of creating files dynamically in a Cobol program. I can write a rexx programs that create a file dynamically.
I can
_________________
Thanks

kolusu · Posted: Wed Jul 26, 2006 5:43 pm Post subject:

Sarangadhar,

Please SEARCH before posting . Check these links

http://mvsforums.com/helpboards/viewtopic.php?t=4572&highlight=bpx

http://mvsforums.com/helpboards/viewtopic.php?t=4494&highlight=bpx

Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

Sarangadhar · Posted: Wed Jul 26, 2006 5:51 pm Post subject:

Guess we need to include the library SYS1.LINKLIB for this utility 'BPXWDYN'.
I do not ahve access to SYS1.LINKLIB. So am trying in a different way.

Also I may need to call some more rexx programs thru cobol or JCL that use tso/ispf fuctions in future. SO. i would like to know about this..
_________________
Thanks

semigeezer · Posted: Wed Jul 26, 2006 9:52 pm Post subject:

If you are running your progrm in batch (as opposed to CICS),Run TSO in bactch and invoke your program from there (TSO is IKJEFT01 or one of its several flavors)... If you need ISPF services also, run ISPF in batch and invoke your program from within ISPF. Search for BATCHPDF for an easy way to create the JCL to do this.

Sarangadhar · Posted: Thu Jul 27, 2006 12:17 pm Post subject:

yes, using IKJEFT by giving all ISP* profile datasets, we can run a rexx program in batch..

my requirement is: need to invoke REXX from cobol.. So can i use the same JCL to invoke the cobol program that in turn invokes REXX?
_________________
Thanks

kolusu · Posted: Thu Jul 27, 2006 1:22 pm Post subject:

Sarangadhar,

Fyi you can invoke the COBOL pgm via IKJEFT* just like a cobol DB2 pgm.

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

Sarangadhar · Posted: Thu Jul 27, 2006 2:57 pm Post subject:

Kolusu,
I din't try normal cobol ealrier using IKJEFT, now i ran once, below is the jcl:
//S03 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSDBOUT DD SYSOUT=*
//SYSTSIN DD *
RUN PROGRAM(DYNALOC) -
LIB('TSUAWWY.RK.LOAD')
//*

i got below error:
READY
RUN PROGRAM(DYNALOC) LIB('TSUAWWY.RK.LOAD')
MISSING DATA SET TYPE+
MISSING ASM,FORT,COBOL,BASIC,IPLI,GOFORT,PLI,VSBASIC
READY
END

May be my JCL was wrong. can u give correct JCL.
_________________
Thanks