On Sun, 29 Mar 2009 16:56:57 -0500 "Savor, Tom" <[email protected]> wrote:
:>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 I would make ##PRM bigger. As it is now, the ENQ macro will overlay the dsname. :> 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) Why DEQ if the ENQ failed? Won't hurt, but why bother? :>* :> 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. -- Binyamin Dissen <[email protected]> http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies. ---------------------------------------------------------------------- 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
