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
On Tue, Apr 5, 2016 at 10:51 AM, Charles Mills <charl...@mcn.org> wrote:
> Yup.
>
> VOLUMES
> VOLSER------------LS0502 DEVTYPE------X'3010200F'
> VOLSER-----------------* DEVTYPE------X'00000000'
> VOLSER-----------------* DEVTYPE------X'00000000'
> VOLSER-----------------* DEVTYPE------X'00000000'
> VOLSER-----------------* DEVTYPE------X'00000000'
>
> SMS is too darned smart!
>
> I *really* don't want to figure out some IEBGENER or Rexx to load a
> zillion tracks of data into it.
>
> Maybe I will try to figure out some other way to solve the original
> problem.
>
> I will ask the SMS guys I guess. Wanted to avoid that.
>
> Charles
>
> -----Original Message-----
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of John Clifford
> Sent: Tuesday, April 05, 2016 1:26 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: How force dataset non-SMS?
>
> I you got it out of SMS, and not enough data gets loaded so a 2nd or third
> vol is needed, it will only show a single vol-ser. If you run a listcat of
> the dataset does it show an '*" for the 2 volumes not used yet ??
> (Candidate volumes)???
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
