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
