|
|
| Author |
Message |
hariharan_82
New User
Joined: 18 Apr 2007
Posts: 11
Location: Chennai
|
|
|
|
Hi All,
I am using the below macro to submit a job which would unload msgs from the queue for a stipulated time :
The macro is as follows:
| Code: |
/* REXX */
SAY 'PLEASE ENTER START DATE AND TIME'
PULL INPUT1
PARSE VAR INPUT1 1 V1 3. 3 V2 5. 5 V3 9. 9 V4 11. 11 V5 13. V6
STRTIME = V1||"/"||V2||"/"||V3||","||V4||":"||V5||":"||V6
IDSN = 'START_DATE/TIME='||STRTIME''
SAY 'PLEASE ENTER END DATE AND TIME'
PULL INPUT2
PARSE VAR INPUT2 1 W1 3. 3 W2 5. 5 W3 9. 9 W4 11. 11 W5 13. W6
ENDTIME = W1||"/"||W2||"/"||W3||","||W4||":"||W5||":"||W6
ODSN = 'START_DATE/TIME='||ENDTIME''
"ALLOCATE FILE(ANYDD) SYSOUT(R) WRITER(INTRDR) RECFM(F) LRECL(80)"
"ALLOCATE FILE(JCLDD) DATASET('TOP1.BALASH.UTILS(MQSKL)') SHR"
"EXECIO * DISKR JCLDD (STEM P. "
T.1 = "//"USERID()"B JOB (TTSA,85B8),'TEST',CLASS=T,MSGCLASS=H,"
T.2 = "// NOTIFY=&SYSUID,MSGLEVEL=(1,1)"
X.1 = "QNAME=GS.FW.GOCARS.TPS.TRADES"
X.2 = IDSN
X.3 = ODSN
X.4 = "/*"
X.5 = "//*"
"EXECIO * DISKW ANYDD (STEM T. "
"EXECIO * DISKW ANYDD (STEM P. "
"EXECIO * DISKW ANYDD (STEM X. FINIS"
"FREE FILE(ANYDD)"
"FREE FILE(JCLDD)"
EXIT
/*SAY SUBMIT(JCL.)*/
|
The macro is working fine but it gives the following msg in the end which I would want to do without:
"FILE JCLDD NOT FREED, DATA SET IS OPEN"
This msg appears though I have coded the FREE FILE statement for JCLDD.
Hariharan |
|
| Back to top |
|
 |
References
|
|
 |
Bill Dennis
Senior Member
Joined: 17 Aug 2007
Posts: 311
Location: Iowa, USA
|
|
|
|
| The msg says the file is still OPEN and cannot be FREEd. You need a FINIS when you're done processing. |
|
| Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005
Posts: 1930
Location: Israel
|
|
|
|
To suppress TSO messages, you may try ADDRESS TSO "PROFILE NOWTPMSG NOINTERCOM".
O. |
|
| Back to top |
|
|
hariharan_82
New User
Joined: 18 Apr 2007
Posts: 11
Location: Chennai
|
|
|
|
This is still not working!!
I tried ADDRESS TSO "PROFILE NOWTPMSG NOINTERCOM"
also tried to do a FINIS as below
EXECIO * DISKW ANYDD (STEM T. "
"EXECIO * DISKW ANYDD (STEM P. FINIS"
"EXECIO * DISKW ANYDD (STEM X. FINIS"
Please let me know if I am doing the right thing!! |
|
| Back to top |
|
|
Pedro
Senior Member
Joined: 01 Sep 2006
Posts: 510
Location: work
|
|
|
|
| Quote: |
also tried to do a FINIS as below
EXECIO * DISKW ANYDD (STEM T. "
"EXECIO * DISKW ANYDD (STEM P. FINIS"
"EXECIO * DISKW ANYDD (STEM X. FINIS" |
You refer to ANYDD, but the error message refers to JCLDD. Add the FINIS to the EXECIO for JCLDD. |
|
| Back to top |
|
|
dick scherrer
Global Moderator
Joined: 23 Nov 2006
Posts: 8643
Location: 221 B Baker St
|
|
|
|
Hello,
Are you getting the same error?
You added another FINIS for ANYDD, but i see none for JCLDD. |
|
| Back to top |
|
|
hariharan_82
New User
Joined: 18 Apr 2007
Posts: 11
Location: Chennai
|
|
|
|
| Great!! It worked. Thanks for pointing out the msitake. |
|
| Back to top |
|
|
Bill Dennis
Senior Member
Joined: 17 Aug 2007
Posts: 311
Location: Iowa, USA
|
|
|
|
| Back in CLIST-land, I coded command CONTROL NOMSG to turn these types of messages off. Perhaps you can try this for next time. |
|
| Back to top |
|
|
enrico-sorichetti
Global Moderator
Joined: 14 Mar 2007
Posts: 3082
Location: italy
|
|
| Back to top |
|
|
|
|
