We have an exit for DFSORT that scans TIOT to see if someone concatenated a DUMMY dataset as input. Here is what I believe to be the relevant snippet of code:
*---------------------------------------------------------------------* * THIS ROUTINE WAS ADDED TO CIRCUMVENT A PROBLEM CREATED BY DUMMY * * FILES SPECIFIED FOR SORTIN. * *---------------------------------------------------------------------* DDSCAN DS 0H EXTRACT FW,'S',FIELDS=(TIOT),MF=(E,EXTRACTL) L R5,FW USING IEFTIOT1,R5 MVC DDNAME,=CL8'SORTIN' SET DEFAULT DDNAME TM ILEXF2A,ILEXFCPY Q. COPY APPLICATION ? BZ DDSRCH A. NO, SEARCH FOR SORTIN MVC DDNAME,=CL8'SYSUT1' A. YES, SEARCH FOR SYSUT1 DDSRCH CLC TIOEDDNM,DDNAME Q. DDNAME MATCH BE DDCON A. YES, CHECK IT OUT SR R0,R0 CLEAR REGISTER IC R0,TIOELNGH GET LENGTH OF THIS ENTRY AR R5,R0 BUMP TO NEXT ENTRY CLI TIOELNGH,X'00' Q. END OF TIOT ? BE RETURN A. YES, GET OUT B DDSRCH A. NO, KEEP LOOKING DDCON DS 0H CHECK FOR CONCATENATION * IF NOT CONCATENATION, THEN SKIP SR R0,R0 CLEAR REGISTER IC R0,TIOELNGH GET LENGTH OF THIS ENTRY AR R5,R0 BUMP TO NEXT ENTRY CLI TIOELNGH,X'00' Q. END OF TIOT ? BE RETURN A. YES, GET OUT CLC TIOEDDNM,=CL8' ' Q. SORTIN CONCATENATED? BNE RETURN A. NO, FORGET IT SR R5,R0 A. YES, RESTORE DSECT POINTER * CHECK FOR DUMMY DD STATEMENT * NOTE: COULD ALSO BE DD * DDCHK CLC TIOEFSRT,=AL3(0) Q. REAL UCB ADDRESS ? BE DDBAD A. NO, BAD DD SR R0,R0 CLEAR REGISTER IC R0,TIOELNGH GET LENGTH OF THIS ENTRY AR R5,R0 BUMP TO NEXT ENTRY CLI TIOELNGH,X'00' Q. END OF TIOT ? BE RETURN A. YES, GET OUT CLC TIOEDDNM,=CL8' ' Q. SORTIN CONCATENATED? BE DDCHK A. YES, CHECK AGAIN B RETURN -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Micheal Butz Sent: Thursday, January 30, 2014 3:02 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Dummy dataset Hi, Would anyone know if there is a way For example scanning the TIOT If a dataset has been dummied out Thanks Sent from my iPhone ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN This e-mail transmission contains information that is confidential and may be privileged. It is intended only for the addressee(s) named above. If you receive this e-mail in error, please do not read, copy or disseminate it in any manner. If you are not the intended recipient, any disclosure, copying, distribution or use of the contents of this information is prohibited. Please reply to the message immediately by informing the sender that the message was misdirected. After replying, please erase it from your computer system. Your assistance in correcting this error is appreciated. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN