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.... Many thanks and Regards,
Scott J Ford Software Engineer http://www.identityforge.com ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
