| View previous topic :: View next topic |
| Author |
Message |
coolman
Intermediate
Joined: 03 Jan 2003
Posts: 283
Topics: 27
Location: US
|
 Posted: Mon Jun 27, 2005 10:10 am Post subject: Need an ALLOC statement for this |
 |
|
//SYSUT2 DD SYSOUT=A,DEST=(ABCF1,SMTP),FREE=CLOSE
How to convert this into an ALLOC statement in REXX code?
________
n02 vaporizer
Last edited by coolman on Sat Feb 05, 2011 1:43 am; edited 1 time in total |
|
| Back to top |
|
 |
superk
Advanced
Joined: 19 Dec 2002
Posts: 684
Topics: 5
|
| Posted: Mon Jun 27, 2005 10:36 am Post subject: |
|
|
ALLOC is a TSO command, not REXX.
The syntax would be:
| Code: |
ALLOC DD(SYSUT2) DEST(ABCF1.SMTP) SYSOUT(A) REUSE
|
|
|
| Back to top |
|
|
coolman
Intermediate
Joined: 03 Jan 2003
Posts: 283
Topics: 27
Location: US
|
| Posted: Mon Jun 27, 2005 10:39 am Post subject: |
|
|
Thanks SuperK, what abt FREE=CLOSE. I asked this specifically for this, coz I didn't know where to put that
________
iolite portable vaporizer
Last edited by coolman on Sat Feb 05, 2011 1:43 am; edited 1 time in total |
|
| Back to top |
|
|
coolman
Intermediate
Joined: 03 Jan 2003
Posts: 283
Topics: 27
Location: US
|
| Posted: Mon Jun 27, 2005 11:22 am Post subject: |
|
|
I have another problem in hand. I'm using File Tailoring to tailor a jcl, all of them work fine.
| Code: |
ADDRESS ISPEXEC
"LIBDEF ISPSLIB DATASET ID('"xxxxxx.REXX"')"
"LIBDEF ISPFILE DATASET ID('"xxxxx.REXX"')"
"FTOPEN TEMP"
SAY 'OPEN RC -> ' RC
JOBNAME = 'J44'
CALLNO = '001'
UPDID = 'XXXX'
"FTINCL TEXT"
SAY 'INCL RC -> ' RC
"FTCLOSE "
SAY 'CLOSE RC -> ' RC
"VGET (ZTEMPF) SHARED"
SAY 'GET RC -> ' RC
SAY ZTEMPF
"EDIT DATASET('"ZTEMPF"')"
"LIBDEF ISPSLIB "
"LIBDEF ISPFILE "
|
Now, when doing the EDIT DATASET, I'm getting error message
DATASET NOT CATALOGED followed by the temp dataset name
Pls Advise
________
Capri
Last edited by coolman on Sat Feb 05, 2011 1:43 am; edited 1 time in total |
|
| Back to top |
|
|
semigeezer
Supermod
Joined: 03 Jan 2003
Posts: 1014
Topics: 13
Location: Atlantis
|
| Posted: Mon Jun 27, 2005 12:16 pm Post subject: |
|
|
use ZTEMPN as a ddname and use LMINIT/EDIT/LMFREE. Search the net for ZTEMPN for the reasons if you are interested.
I don't thik FREE=CLOSE is available via ALLOC, but if your program is short running, just free it when it is done. The need for FREE=CLOSE is pretty rare. |
|
| Back to top |
|
|
coolman
Intermediate
Joined: 03 Jan 2003
Posts: 283
Topics: 27
Location: US
|
| Posted: Mon Jun 27, 2005 3:22 pm Post subject: |
|
|
Semigeezer,
Thanks a lot for your help. It works.
________
DR350SE |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
