Thanks Bob, Edward, Paul and Robert.
Now, If I'm editing a different member....Batch runs like it's supposed
to.
And if I'm editing $ROLL member...BATCH waits because of ENQ on member.
But when I exit $ROLL member....BATCH just sits in wait state. Seems
like once it waits...it's stuck.
Here is snap shot my code in BATCH program:
Z@@2300A DS 0H
*
MVC ##PRM(4),#Q#ENQ INITIALIZE ENQ PARAMTERS
*
ENQ (SPFEDIT,DSNAME,E,52,SYSTEMS),RET=USE,MF=(E,##PRM)
*
LTR R15,R15 DID EDIT WORK ??
BZ Z@@2300X YES--EXIT
*
MVC ##PRM(4),#Q#DEQ INITIALIZE DEQ PARAMTERS
*
DEQ (SPFEDIT,DSNAME,52,SYSTEMS),RET=HAVE,MF=(E,##PRM)
*
STIMER WAIT,BINTVL=#W#WAIT SNOOZE FOR 1 SECOND
B Z@@2300A TRY AGAIN
*
Z@@2300X ###EXIT
##PRM DC F'0'
#W#WAIT DC A(100*1) 1 SECOND
*
DSNAME DS 0CL52
DSN DC CL44' ' DATASET NAME
MBR DC CL08'$ROLL' MEMBER NAME
*
SPFEDIT DC CL08'SPFEDIT'
*
#Q#ENQ ENQ (*-*,*-*,E,*-*,SYSTEMS),RET=USE,MF=L
#Q#DEQ DEQ (*-*,*-*,*-*,SYSTEMS),RET=HAVE,MF=L
Does anyone see what I'm doing wrong ??
b>>See Appendix A in the ISP
F Planning and Customizing book.
>>Bob
Thanks,
Tom Savor
Fidelity National Information Services
11720 Amber Park Drive
Suite 500
Alpharetta, GA 30004
Phone: 678-867-8431
cell: 404-660-6898
E-Mail: [email protected]
_____________
The information contained in this message is proprietary and/or confidential.
If you are not the
intended recipient, please: (i) delete the message and all copies; (ii) do not
disclose,
distribute or use the message in any manner; and (iii) notify the sender
immediately. In addition,
please be aware that any message addressed to our domain is subject to
archiving and review by
persons other than the intended recipient. Thank you.
_____________
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
