Why is everybody so much trying to avoid the rules, which must be there for some reason? All answers deliver a partially non-SMS managed dataset at most. Just ask your SMS guys, if you are not one of them. Why do you need a non-managed dataset? Probably for some storage technical reason, in which the SMS guys will be interested anyway.
Kees. -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Charles Mills Sent: 05 April, 2016 23:13 To: [email protected] Subject: Re: How force dataset non-SMS? PUT 10,000 records and then do 100 PUT/FEOV pairs. Charles -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Sam Siegel Sent: Tuesday, April 05, 2016 2:53 PM To: [email protected] Subject: Re: How force dataset non-SMS? Use the following JCL and Assembler program to force a multi-volume dataset under SMS control. //DV55686X JOB ABC,'J: A11J', // CLASS=A, // MSGCLASS=9, // NOTIFY=&SYSUID //* //JSDEL EXEC PGM=IEFBR14 //DS010 DD DSN=TEST.ABC.A11.MULTIVOL, // DISP=(MOD,DELETE,DELETE),UNIT=3390,SPACE=(TRK,0) //* //JS010 EXEC PGM=A11 //STEPLIB DD DSN=DV55686.TSO.LOAD,DISP=SHR //OUT DD DSN=TEST.ABC.A11.MULTIVOL, // DISP=(NEW,CATLG,CATLG), // UNIT=(TEST,3), // SPACE=(TRK,(2,1),RLSE), // DCB=(RECFM=FB,LRECL=80,BLKSIZE=0) * A11 AMODE 24 A11 RMODE 24 A11 CSECT USING *,R15 STM R14,R12,12(R13) ENTRY LOGIC LA R1,SA ST R1,8(R13) ST R13,4(R1) LR R13,R1 LA R12,0(R15) DROP R15 USING A11,R12 * OPEN (OUT,(OUTPUT)) OPEN DATASETS LTR R15,R15 OPEN OK? JZ MAIN_010 T-CONTINUE * WTO 'A11 - OPEN ERROR',ROUTCDE=11 ISSUE ERROR MSG ABEND 1,DUMP,STEP ABEND * MAIN_010 DS 0H PUT OUT,OUTPUT WRITE STATUS MSG AP PL8,=P'1' CP PL8,=P'10000' JH MAIN_020 J MAIN_010 LOOP * MAIN_020 DS 0H ZAP PL8,=P'0' * MAIN_030 DS 0H PUT OUT,OUTPUT WRITE STATUS MSG FEOV OUT AP PL8,=P'1' CP PL8,=P'100' JH MAIN_040 J MAIN_030 LOOP * MAIN_040 DS 0H CLOSE (OUT) EOF: CLOSE FILES * L R13,4(R13) EXIT LOGIC LM R14,R12,12(R13) XR R15,R15 BR R14 * SA DC 18F'0' REGISTER SA PL8 DC PL8'0' * OUTPUT DC CL80'X' * * OUTPUT MESSAGE DD OUT DCB DSORG=PS,MACRF=PM,RECFM=FB,LRECL=80, X DDNAME=OUT * YREGS , END A11 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ******************************************************** For information, services and offers, please visit our web site: http://www.klm.com. This e-mail and any attachment may contain confidential and privileged material intended for the addressee only. If you are not the addressee, you are notified that no part of the e-mail or any attachment may be disclosed, copied or distributed, and that any other action related to this e-mail or attachment is strictly prohibited, and may be unlawful. If you have received this e-mail by error, please notify the sender immediately by return e-mail, and delete this message. Koninklijke Luchtvaart Maatschappij NV (KLM), its subsidiaries and/or its employees shall not be liable for the incorrect or incomplete transmission of this e-mail or any attachments, nor responsible for any delay in receipt. Koninklijke Luchtvaart Maatschappij N.V. (also known as KLM Royal Dutch Airlines) is registered in Amstelveen, The Netherlands, with registered number 33014286 ******************************************************** ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
