As the failing PSW is problem state, and the abend location is off of R15, I would expect that the SCRATCHD routine (which is not included) is at fault for the abend. Of course the scratch failed, but that is the cause your routine was driven.
On Wed, 10 Aug 2011 16:50:32 -0700 Scott Ford <[email protected]> wrote: :>All: :> :>I need a little help, maybe a lot of help. I wrote an Assembler routine that is able to locate a dataset :>non-racf, non-sms and the routine finds it fine , no problem. When I go to CAMLST SCRATCH it :>i have a S0C1 it looks like in dfp...So here is my <snippet> of my source showing LOCATE and :>Scratch. The input dsname in coming in off SYSIN... :> :> LOCATE INDAB :> LTR R15,R15 :> BZ FOUNDIT :> MVI OUTAREA,C' ' :> MVC OUTAREA+1(132),OUTAREA :> MVC OUTAREA+2(19),=C'LOCATE DID NOT FIND' :> MVC OUTAREA+22(44),DSNIN :> MVC DSNSCR,DSNIN :> PUT PRTOUT,OUTAREA :> B EXIT :>REMOVED DS 0H :> WTO 'REMOVED ENTERED',ROUTCDE=(11) :> SR R15,R15 :> SR R0,R0 NO UCB SUPPLIED :> SCRATCH DELDSN :> LTR R15,R15 :> BZ SCRATCHD :> MVI OUTAREA,C' ' :> MVC OUTAREA+1(132),OUTAREA :> MVC OUTAREA+2(19),=C'SCRATCH FAILED' :> PUT PRTOUT,OUTAREA :> B EXIT :>INDAB CAMLST NAME,DSNQRY,,LOCAREA :>DSNQRY DC CL44' ' :>LOCAREA DS 0D :> DS 265X'00' :>REMOVE CAMLST UNCAT,DSNAME :>DSNAME DS CL44 :>DELDSN CAMLST SCRATCH,DSNSCR,,VOLIST :>DSNSCR DS CL44' ' :>VOLIST DC 0F :>BLANKS DC CL133' ' :> :>Here is my output: :> :>19.25.29 JOB00166 IGD17040I ERROR IN DADSM PROCESSING FOR DATA SET 570 :> 570 SFORD.TEST1 :> 570 HISTORIC RETURN CODE IS 4 DIAGNOSTIC INFORMATION IS 04280039 :>19.25.29 JOB00166 IGD306I UNEXPECTED ERROR DURING IGGDAS02 PROCESSING 571 :> 571 RETURN CODE 4 REASON CODE 57 :> 571 THE MODULE THAT DETECTED THE ERROR IS IGDVTSDA :> 571 SMS MODULE TRACE BACK - VTSDA VTSDL SSIRT :> 571 SYMPTOM RECORD CREATED, PROBLEM ID IS IGD00008 :>19.25.29 JOB00166 IEA995I SYMPTOM DUMP OUTPUT 572 :> 572 SYSTEM COMPLETION CODE=0C1 REASON CODE=00000001 :> 572 TIME=19.25.29 SEQ=00090 CPU=0000 ASID=001A :> 572 PSW AT TIME OF ERROR 078D2000 00000052 ILC 2 INTC 01 :> 572 NO ACTIVE MODULE FOUND :> 572 NAME=UNKNOWN :> 572 DATA AT PSW 0000004C - 00FE14B8 00000000 00000000 :> 572 GR 0: 00007CA0 1: 00007C40 :> 572 2: 00000040 3: 008D79D4 :> 572 4: 00000000 5: 00000000 :> 572 6: 008C6FE0 7: FD000000 :> 572 8: 008D0F88 9: 008CFCC8 :> 572 A: 00007B48 B: 008FF350 :> 572 C: 00007920 D: 00007B48 :> 572 E: 60007AB2 F: 00000050 :> 572 END OF SYMPTOM DUMP :>19.25.29 JOB00166 IEF450I EXECLOCA STEP1 - ABEND=S0C1 U0000 REASON=00000001 57 :> 573 TIME=19.25.29 :>19.25.29 JOB00166 IEF404I EXECLOCA - ENDED - TIME=19.25.29 :>19.25.29 JOB00166 $HASP395 EXECLOCA ENDED :>My question is this...after a LOCATE finds the dataset ..Is it correct that the dataset name has to be moved into the DSNSCR variable name :>if so..I am puzzled, Do i need to allocate a UCB prior to this ...My assumption is that (1) find that dataset and (2) move name to deletet dataset name :>and call CAMLST scratch... :>Sorry for the long posting..What have i missed.... -- 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
