View previous topic :: View next topic
|
Author |
Message |
grabeva
New User
Joined: 07 Sep 2006 Posts: 23
|
|
|
|
Hello....all
My program opens 1 different file according to a read MQ-message.
First program
- read a MQ message, : fileAA
- call moduleA using variable=fileAA
continue with process.
Stop run
moduleA
open output fileAA
return.
My job is like this:
Code: |
//XTPMQ001 EXEC PGM=First program,REGION=4096K
//STEPLIB DD DSN=ENDEVOR.ADMINWRK.LOADLIB,DISP=SHR
// DD DSN=CEE.SCEERUN,DISP=SHR
// DD DSN=CEE.SCEELPA,DISP=SHR
// DD DSN=MQM.V5R3.SCSQLOAD,DISP=SHR
// DD DSN=MQM.V5R3.SCSQANLE,DISP=SHR
// DD DSN=MQM.V5R3.SCSQAUTH,DISP=SHR
//FILEBB DD DSN=FILEBB(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(TRK,(3000,100),RLSE),
// RECFM=FB,LRECL=470
//FILEAA DD DSN=FILEAA(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(TRK,(3000,100),RLSE),
// RECFM=FB,LRECL=215
|
when program end, alloc 2 gdg, one with information another with cero register.
The problem is that I want to open a new gdg, only for the file that I want.
How write jcl with dynamic alloc?
thanks for yours times.
Gra |
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
Search these forums for the BPXWDYN Dynamic Allocation module and see if that might work within your program. |
|
Back to top |
|
|
grabeva
New User
Joined: 07 Sep 2006 Posts: 23
|
|
|
|
my level is IBM COBOL for OS/390 & VM 2.2.1, i cant use B​P​X​W​D​Y​N,
because its up Enterprise.
i have another possibility? |
|
Back to top |
|
|
grabeva
New User
Joined: 07 Sep 2006 Posts: 23
|
|
|
|
i look for BPXWDYN Dynamic Allocation in this forum, but i dont find anything....please do yo give me a link that explain how i use...thks. |
|
Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8696 Location: Dubuque, Iowa, USA
|
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Do not double-post the same question. . .
This topic is now locked.
And, as you were told in your original topic, you do not neet dynamic allocation.
d |
|
Back to top |
|
|
|