// Put job card here //********************************************************************* //*** //** This job creates a one-pack system on UNIT=3B00 Volume=DAVE01 //** //** This job uses the OS/390 R6 installation packs as configured //** at my shop. It may not work at your shop asis. //** //** Prior to running this job: //** 1) Find an 3390-3 pack to use: UCB 3B00 volume=DAVE01 //** 2) Run job OPACKR6A (to disconnect CATALOG.DAVEMAST) //** 3) IODF stuff: //** a) Using HCD, export your userid to your current node //** and userid //** b) Issue command "TSO RECEIVE". This will create a dataset //** called "userid.EXPORTED.IODFxx". //** c) C "IODFxx" "IODFA0" so this job knows what it is. //** //** After step INIT initializes the pack, the COPY step will //** prompt the operator with this WTOR //** //** xx IEF238D jobname - REPLY DEVICE NAME OR 'CANCEL'. //** //** You should reply "R xx,3B00" //** //** IPL: //** o UCB: 3B00 //** o PRM: 3B00xxM1 (where xx is the LOAD member below) //** //** Good Luck. //** //*** //********************************************************************* //* //** Initialize our new SYSRES and put a good IPL text on it //* //INITRES EXEC PGM=ICKDSF //IPLTEXT DD DSN=SYS1.SAMPLIB(IEAIPL00),DISP=SHR //SYSPRINT DD SYSOUT=* //SYSIN DD * INIT UNIT(3B00) VOLID(DAVE01) VERIFY(DAVE01) MAP NOCHECK - INDEX(0,1,14) VTOC(1,0,15) IPLDD(IPLTEXT) /* //* //** Copy the primary SYSRES to the OnePack system. Many //** datasets are excluded so you can fit everything on one pack //** //** You may not have the FDR program product, you will need to //** replace this step with DFDSS (or something? else) //* //COPYRES EXEC PGM=FDRCOPY,REGION=6M //SYSPRINT DD SYSOUT=* //SYSPRIN1 DD SYSOUT=* //DISK1 DD UNIT=SYSDA,VOL=SER=OSV26B,DISP=SHR <-- FROM //TAPE1 DD UNIT=SYSDA,VOL=SER=DAVE01,DISP=SHR <-- TO //SYSIN DD * COPY TYPE=DSF, BUFNO=MAX, DATA=ALL, DSNENQ=NONE, ENQ=OFF, LBPZERO=INVALID, NOCAT EXCLUDE DSN=API.** EXCLUDE DSN=APK.** EXCLUDE DSN=CBC.** EXCLUDE DSN=CEE.SAFHFORT EXCLUDE DSN=CEE.SCEECICS EXCLUDE DSN=CEE.SCEECLST EXCLUDE DSN=CEE.SCEECMAP EXCLUDE DSN=CEE.SCEECPP EXCLUDE DSN=CEE.SCEEGXLT EXCLUDE DSN=CEE.SCEEH.ARPA.H EXCLUDE DSN=CEE.SCEEH.H EXCLUDE DSN=CEE.SCEEH.NET.H EXCLUDE DSN=CEE.SCEEH.NETINET.H EXCLUDE DSN=CEE.SCEEH.SYS.H EXCLUDE DSN=CEE.SCEELKED EXCLUDE DSN=CEE.SCEELKEX EXCLUDE DSN=CEE.SCEELOCL EXCLUDE DSN=CEE.SCEELOCX EXCLUDE DSN=CEE.SCEEMAC EXCLUDE DSN=CEE.SCEEMSGP EXCLUDE DSN=CEE.SCEEOBJ EXCLUDE DSN=CEE.SCEEPROC EXCLUDE DSN=CEE.SCEERTLS EXCLUDE DSN=CEE.SCEESAMP EXCLUDE DSN=CEE.SCEESPC EXCLUDE DSN=CEE.SCEESPCO EXCLUDE DSN=CEE.SCEEUMAP EXCLUDE DSN=CEE.SCEEUTBL EXCLUDE DSN=CEE.SIBMCALL EXCLUDE DSN=CEE.SIBMMATH EXCLUDE DSN=CEE.SIBMTASK EXCLUDE DSN=CPAC.** EXCLUDE DSN=EDF.** EXCLUDE DSN=EOY.** EXCLUDE DSN=EQAW.** EXCLUDE DSN=ICQ.** EXCLUDE DSN=IGY.** EXCLUDE DSN=PPFA.FORMLIB EXCLUDE DSN=PPFA.PAGELIB EXCLUDE DSN=PSF.** EXCLUDE DSN=SCRIPT.** EXCLUDE DSN=SMPER6.** EXCLUDE DSN=SOMMVS.** EXCLUDE DSN=SYS1.ADFMAC1 EXCLUDE DSN=SYS1.APSDAT00 EXCLUDE DSN=SYS1.CBRDBRM EXCLUDE DSN=SYS1.DBBLIB EXCLUDE DSN=SYS1.DFQLLIB EXCLUDE DSN=SYS1.DFQMLIB EXCLUDE DSN=SYS1.DFQPLIB EXCLUDE DSN=SYS1.EANOBJ EXCLUDE DSN=SYS1.FDEFLIB EXCLUDE DSN=SYS1.FONTLIB EXCLUDE DSN=SYS1.FONTLIBB EXCLUDE DSN=SYS1.FONTOLN EXCLUDE DSN=SYS1.FONTSAMP EXCLUDE DSN=SYS1.FONT300 EXCLUDE DSN=SYS1.FONT38PP EXCLUDE DSN=SYS1.FONT3820 EXCLUDE DSN=SYS1.IGDVBS1 EXCLUDE DSN=SYS1.ISAMLPA EXCLUDE DSN=SYS1.PSEGLIB EXCLUDE DSN=SYS1.SACBCNTL EXCLUDE DSN=SYS1.SADRYLIB EXCLUDE DSN=SYS1.SAPPDAT2 EXCLUDE DSN=SYS1.SAPPDAT4 EXCLUDE DSN=SYS1.SAPPMOD1 EXCLUDE DSN=SYS1.SAPPSAMP EXCLUDE DSN=SYS1.SCDRTABL EXCLUDE DSN=SYS1.SCPMPWS EXCLUDE DSN=SYS1.SDFQPSRC EXCLUDE DSN=SYS1.SDGTPSRC EXCLUDE DSN=SYS1.SDGTTSRC EXCLUDE DSN=SYS1.SDMSSVM EXCLUDE DSN=SYS1.SEDGEXE1 EXCLUDE DSN=SYS1.SEDGHLP1 EXCLUDE DSN=SYS1.SEDGMENU EXCLUDE DSN=SYS1.SEDGPENU EXCLUDE DSN=SYS1.SEDGPSRC EXCLUDE DSN=SYS1.SEDGSKL1 EXCLUDE DSN=SYS1.SEDGTBL1 EXCLUDE DSN=SYS1.SEDGTSRC EXCLUDE DSN=SYS1.SFOMDATA EXCLUDE DSN=SYS1.SFOMHDRS EXCLUDE DSN=SYS1.SFOMOBJ EXCLUDE DSN=SYS1.SIEAHDR.H EXCLUDE DSN=SYS1.SIFALIB EXCLUDE DSN=SYS1.VTOCIX.** EXCLUDE DSN=SYS1.VVDS.** EXCLUDE DSN=SYS1.V2R5M0.SHASMAC EXCLUDE DSN=SYS1.V2R5M0.SHASMENU EXCLUDE DSN=SYS1.V2R5M0.SHASPARM EXCLUDE DSN=SYS1.V2R5M0.SHASSAMP EXCLUDE DSN=SYS1.V2R5M0.SHASSRC EXCLUDE DSN=TCPIP.** SELECT ALLDSN //* //** Define new master catalog //* //MSTRCAT EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * DEFINE MASTERCATALOG( - ICFCATALOG - NAME(CATALOG.DAVEMAST) - VOL(DAVE01) - CYL(5 1) - FREESPACE(10 10) - SHR(3 4) - STRNO(3) - ) - DATA ( - CISZ(4096) - BUFND(4) - ) - INDEX( - BUFNI(4) - ) - CATALOG(CATALOG.MASTER1) //* //** Define the PAGE datasets //* //PAGE EXEC PGM=IDCAMS //STEPCAT DD DSN=CATALOG.DAVEMAST,DISP=SHR //SYSPRINT DD SYSOUT=* //SYSIN DD * DEFINE PAGESPACE (NAME(PAGE.DAVE.PLPA) - VOLUME(DAVE01) - CYLINDERS(1)) - CAT(CATALOG.DAVEMAST) DEFINE PAGESPACE (NAME(PAGE.DAVE.COMMON) - VOLUME(DAVE01) - CYLINDERS(300)) - CAT(CATALOG.DAVEMAST) DEFINE PAGESPACE (NAME(PAGE.DAVE.LOCAL1) - VOLUME(DAVE01) - CYLINDERS(500)) - CAT(CATALOG.DAVEMAST) //* //** Allocate JES2 spool and checkpoint //* //JES2ALC EXEC PGM=IEFBR14 //SPOOL DD DSN=SYS1.DAVE.JES2.SPOOL,DISP=(NEW,KEEP), // UNIT=SYSDA,SPACE=(CYL,150),VOL=SER=DAVE01 //CHECK1 DD DSN=SYS1.DAVE.JES2.CHECK1,DISP=(NEW,KEEP), // UNIT=SYSDA,SPACE=(CYL,5),VOL=SER=DAVE01 //CHECK2 DD DSN=SYS1.DAVE.JES2.CHECK2,DISP=(NEW,KEEP), // UNIT=SYSDA,SPACE=(CYL,5),VOL=SER=DAVE01 //* //** Allocate datasets later to be renamed to SYS1 HLQ //* //ALLOCS4 EXEC PGM=IEFBR14 //DAE DD DSN=SYS4.DAE,DISP=(NEW,KEEP), // UNIT=SYSDA,SPACE=(CYL,1),VOL=SER=DAVE01, // DCB=(LRECL=255,RECFM=FB,BLKSIZE=18870,DSORG=PS) //BRODCAST DD DSN=SYS4.BRODCAST,DISP=(NEW,KEEP), // UNIT=SYSDA,SPACE=(CYL,1),VOL=SER=DAVE01, // DCB=(LRECL=0,RECFM=F,BLKSIZE=129,DSORG=DA) //* //** Rename to SYS1 and bypass any Enqueue problems //* //SYS4R EXEC PGM=IEHPROGM //DAVE01 DD DISP=SHR,VOL=SER=DAVE01,UNIT=3390 //VDSBYPAS DD DUMMY //SYSPRINT DD SYSOUT=* //SYSIN DD * RENAME DSNAME=SYS4.DAE, C NEWNAME=SYS1.DAE, C VOL=3390=DAVE01 RENAME DSNAME=SYS4.BRODCAST, C NEWNAME=SYS1.BRODCAST, C VOL=3390=DAVE01 //* //** MVS likes to have a EREP dataset about - initialize it with DIP00 //* //EREP EXEC PGM=IFCDIP00 //SERERDS DD DSN=SYS1.DAVE.LOGREC,DISP=(NEW,KEEP), // UNIT=SYSDA,VOL=SER=DAVE01, // DCB=(LRECL=0,DSORG=PSU,BLKSIZE=1944), // SPACE=(CYL,2) //* //** Define all Non-VSAM datasets in master catalog //* //DEFNVSAM EXEC PGM=IDCAMS //STEPCAT DD DSN=CATALOG.DAVEMAST,DISP=SHR //SYSPRINT DD SYSOUT=* //SYSIN DD * DEFINE NONVSAM( - NAME(SYS1.DAVE.PROCLIB) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.DAVE.PARMLIB) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.DAVE.LOGREC) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.VTOCIX.DAVE01) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.DAE) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(ISF.HASPINDX) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.V2R5M0.SHASLINK) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.VTAMLST) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.VTAMLIB) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.UADS) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SVCLIB) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SISTPNL1) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SISTPNL0) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SISTMSG0) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SISTMAC1) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SISTGDMO) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SISTDBUG) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SISTDAT2) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SISTDAT1) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SISTCMIP) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SISTCLS1) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SISTCLI0) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SISTCLIB) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SISTASN1) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SISTASGD) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SIFALIB) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SIEAHDR.H) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SFOMOBJ) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SFOMHDRS) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SFOMDATA) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SERBTENU) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SERBT) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SERBPWSV) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SERBPENU) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SERBMENU) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SERBLPA) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SERBLINK) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SERBCLS) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SEDGTSRC) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SEDGTBL1) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SEDGSKL1) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SEDGPSRC) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SEDGPENU) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SEDGMENU) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SEDGHLP1) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SEDGEXE1) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SDMSSVMS) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SDMSSVM) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SDGTTSRC) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SDGTPSRC) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SDFQPSRC) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SCPMPWS) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SCDRTABL) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SCBDTENU) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SCBDTEMP) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SCBDPENU) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SCBDMENU) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SCBDHENU) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SCBDCLST) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SBPXTENU) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SBPXPENU) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SBPXMENU) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SBPXEXEC) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SBLSTBL0) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SBLSPNL0) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SBLSMSG0) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SBLSKEL0) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SBLSCLI0) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SAPPSAMP) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SAPPMOD1) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SAPPDAT4) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SAPPDAT2) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SAMPLIB) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SADRYLIB) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.SACBCNTL) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.PROCLIB) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.PDEFLIB) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.PARMLIB) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.OVERLIB) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.NUCLEUS) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.MSGENU) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.MSGENP) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.MODGEN) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.MIGLIB) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.MACLIB) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.LPALIB) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.LINKLIB) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.IPLPARM) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.IMAGELIB) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.IGDVBS1) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.IBM.PROCLIB) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.IBM.PARMLIB) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.HELPENP) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.HELP) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.EANOBJ) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.DGTTLIB) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.DGTSLIB) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.DGTPLIB) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.DGTMLIB) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.DGTLLIB) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.DGTCLIB) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.DFQPLIB) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.DFQMLIB) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.DFQLLIB) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.DBBLIB) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.CSSLIB) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.CMDLIB) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.CBRDBRM) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.APSDAT00) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.ADFMAC1) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SMPER6.MVST111.SMPLTS) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SMPER6.MVST110.SMPLTS) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SMPER6.MVST100.SMPLTS) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(ISP.SISPVENU) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(ISP.SISPTENU) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(ISP.SISPSLIB) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(ISP.SISPSENU) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(ISP.SISPSASC) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(ISP.SISPSAMP) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(ISP.SISPPENU) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(ISP.SISPMENU) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(ISP.SISPMACS) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(ISP.SISPLPA) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(ISP.SISPLOAD) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(ISP.SISPJSRV) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(ISP.SISPHELP) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(ISP.SISPGUI) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(ISP.SISPGMLI) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(ISP.SISPGENU) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(ISP.SISPEXEC) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(ISP.SISPCLIB) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(ISP.SISPALIB) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(ISF.SISFTLIB) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(ISF.SISFSRC) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(ISF.SISFSLIB) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(ISF.SISFPLIB) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(ISF.SISFMLIB) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(ISF.SISFLPA) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(ISF.SISFLOAD) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(ISF.SISFLINK) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(ISF.SISFJCL) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(ISF.SISFEXEC) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(GIM.SGIMTENU) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(GIM.SGIMSENU) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(GIM.SGIMPENU) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(GIM.SGIMMENU) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(GIM.SGIMLMD0) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(GIM.SGIMCLS0) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(CEE.SCEERUN) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(CEE.SCEELPA) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) DEFINE NONVSAM( - NAME(SYS1.BRODCAST) - VOLUMES(******) - DEVICETYPES(0000) - ) - CATALOG(CATALOG.DAVEMAST) //* //* //** Create the IPLPARM library //* //NEWLOAD EXEC PGM=IEFBR14 //SYSUT2 DD DSN=SYS1.IPLPARM, // DISP=(NEW,KEEP),UNIT=3390,VOL=SER=DAVE01, // DCB=(LRECL=80,BLKSIZE=6320,RECFM=FB), // SPACE=(TRK,(5,5,2)) //* //** Create a LOAD member for the XYZ1 LPAR //* //LOAD10 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //SYSUT2 DD DSN=SYS1.IPLPARM(LOAD10),DISP=SHR, // UNIT=3390,VOL=SER=DAVE01 //SYSUT1 DD * * * IODF suffix OS CID EDT ID * || |||||||| || DSC * || |||||||| || | * vv || vvvvvvvv vv v *---+----1----+----2----+----3----+----4----+----5----+----6----+---- IODF 00 SYS1 XYZ1 10 Y * NUCLEUS 1 SYSCAT DAVE01113CCATALOG.DAVEMAST PARMLIB SYS1.DAVE.PARMLIB DAVE01 PARMLIB SYS1.PARMLIB DAVE01 PARMLIB SYS1.IBM.PARMLIB DAVE01 SYSPARM DA IEASYM (DA,L) /* //* //** Create a LOAD member for the XYZ2 LPAR //* //LOAD20 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //SYSUT2 DD DSN=SYS1.IPLPARM(LOAD20),DISP=SHR, // UNIT=3390,VOL=SER=DAVE01 //SYSUT1 DD * * * IODF suffix OS CID EDT ID * || |||||||| || DSC * || |||||||| || | * vv || vvvvvvvv vv v *---+----1----+----2----+----3----+----4----+----5----+----6----+---- IODF 00 SYS1 XYZ2 20 Y * NUCLEUS 1 SYSCAT DAVE01113CCATALOG.DAVEMAST PARMLIB SYS1.DAVE.PARMLIB DAVE01 PARMLIB SYS1.PARMLIB DAVE01 PARMLIB SYS1.IBM.PARMLIB DAVE01 SYSPARM DA IEASYM (DA,L) /* //* //** Create a LOAD member for the XYZ5 LPAR //* //LOAD50 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //SYSUT2 DD DSN=SYS1.IPLPARM(LOAD50),DISP=SHR, // UNIT=3390,VOL=SER=DAVE01 //SYSUT1 DD * * * IODF suffix OS CID EDT ID * || |||||||| || DSC * || |||||||| || | * vv || vvvvvvvv vv v *---+----1----+----2----+----3----+----4----+----5----+----6----+---- IODF 00 SYS1 XYZ5 50 Y * NUCLEUS 1 SYSCAT DAVE01113CCATALOG.DAVEMAST PARMLIB SYS1.DAVE.PARMLIB DAVE01 PARMLIB SYS1.PARMLIB DAVE01 PARMLIB SYS1.IBM.PARMLIB DAVE01 SYSPARM DA IEASYM (DA,L) /* //* //** Define this system's IODF file //* //NEWGUY EXEC PGM=IDCAMS //STEPCAT DD DISP=SHR,DSN=CATALOG.DAVEMAST //SYSPRINT DD SYSOUT=* //SYSIN DD * DELETE 'IBMUSER.HCD.PROFILE' SET LASTCC = 0 SET MAXCC = 0 DELETE 'SYS1.IODFxx.CLUSTER' - CATALOG('CATALOG.DAVEMAST') SET LASTCC = 0 SET MAXCC = 0 DEFINE CLUSTER( - NAME(SYS1.IODFxx.CLUSTER) - VOLUMES(DAVE01) - LINEAR - ) - DATA( - NAME(SYS1.IODFxx) - CYLINDERS(7 1) - ) - CATALOG(CATALOG.DAVEMAST) LISTCAT ENTRY('SYS1.IODFxx.CLUSTER') ALL - CATALOG('CATALOG.DAVEMAST') //* //** COPY IN NEW IODF //* //IODFCOPY EXEC PGM=IDCAMS,REGION=4096K //STEPCAT DD DISP=SHR,DSN=CATALOG.DAVEMAST //SYSPRINT DD SYSOUT=* //IODFA0 DD DISP=SHR,DSN=&SYSUID..EXPORTED.IODFA0 //SYSIN DD * REPRO INFILE(IODFA0) - OUTDATASET('SYS1.IODFxx') //* //* ******************************************************************* //* * //* * Create a good SYSCATLG member in the Nucleus dataset //* * //* ******************************************************************* //* //SYSCATLG EXEC PGM=IEBDG,REGION=512K //SYSPRINT DD SYSOUT=* //NUCLEUS DD DSN=SYS1.NUCLEUS(SYSCATLG), // DISP=SHR,UNIT=3390,VOL=SER=DAVE01 //SYSIN DD * DSD OUTPUT=(NUCLEUS) FD NAME=VOL, LENGTH=06, STARTLOC=01, FILL=X'40', PICTURE=6,'DAVE01' <----- VERIFY/CHANGE VOLSER OF CATALOG FD NAME=CATTYPE, LENGTH=01, STARTLOC=07, FILL=X'F1' <----- ICF CATALOG FD NAME=ALIAS, LENGTH=01, STARTLOC=08, FILL=X'F1' <-----NUMBER OF MLA ALIAS LEVELS (DEFAULT=1) FD NAME=CASLL, LENGTH=02, STARTLOC=09, FILL=X'40', PICTURE=2,'3C' <----CAS SERVICE TASK LOWER LIMIT (DEFAULT=60) FD NAME=CAT, LENGTH=44, STARTLOC=11, FILL=X'40', PICTURE=44,'CATALOG.DAVEMAST ' FD NAME=FIL, LENGTH=26, STARTLOC=55, FILL=X'40' CREATE QUANTITY=1,FILL=X'00',NAME=(VOL,CATTYPE,ALIAS,CASLL,CAT,FIL) /* //* //** Create our overriding PARMLIB //* //NEWPARML EXEC PGM=IEFBR14 //PARMLIB DD DSN=SYS1.DAVE.PARMLIB, // DISP=(NEW,KEEP),UNIT=3390,VOL=SER=DAVE01, // DCB=(LRECL=80,BLKSIZE=6320,RECFM=FB), // SPACE=(TRK,(15,0,8)) //* //** PARMLIB: Symbols //* //SYMBOLS EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //SYSUT2 DD DISP=SHR,DSN=SYS1.DAVE.PARMLIB(IEASYMDA), // UNIT=3390,VOL=SER=DAVE01 //SYSUT1 DD DATA,DLM='$$' SYSDEF LPARNAME(XYZ1) SYSCLONE(DA) SYSDEF LPARNAME(XYZ2) SYSCLONE(DA) SYSDEF LPARNAME(XYZ5) SYSCLONE(DA) SYSDEF HWNAME() SYSCLONE(DA) $$ //* //** PARMLIB: IEASYSDA //** //** Okay, you're asking yourself, why is there a IEASYSDA *AND* //** a IEASYS00. I'm just use to having a "common" one (00) and a //** the overriding one (DA). //* //IEASYSDA EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //SYSUT2 DD DISP=SHR,DSN=SYS1.DAVE.PARMLIB(IEASYSDA), // UNIT=3390,VOL=SER=DAVE01 //SYSUT1 DD DATA,DLM='$$' CLPA, OMVS=DA, PAGE=(PAGE.DAVE.PLPA, PAGE.DAVE.COMMON, PAGE.DAVE.LOCAL1,L), PROG=DA, SYSNAME=DAVE $$ //* //** PARMLIB: IEASYS00 //* //IEASYS00 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //SYSUT2 DD DISP=SHR,DSN=SYS1.DAVE.PARMLIB(IEASYS00), // UNIT=3390,VOL=SER=DAVE01 //SYSUT1 DD DATA,DLM='$$' ALLOC=00, APG=07, AUTOMATIC PRIORITY GROUP IS 7 CLOCK=00, CMB=(UNITR,COMM,GRAPH,CHRDR), ADDITIONAL CMB ENTRIES CMD=&SYSCLONE., CON=&SYSCLONE., CSA=(2000,200000), UP FROM (,90000) - 22-JUL-1998 DALCOCK CSCBLOC=ABOVE, DEVSUP=00, DIAG=01, DUMP=DASD, PLACE SVC DUMPS ON DASD DEVICES FIX=00, FIX MODULES SPECIFIED /*J3*/ GRS=NONE, NO COORDINATION OF GRS REQUESTS ICS=00, SELECT IEAICS00 INSTALL CNTL SPECS FOR SRM IOS=&SYSCLONE., IPS=00, SELECT IEAIPS00 INSTALL PERF SPECS FOR SRM LNKAUTH=APFTAB, MUST BE IN IEAAPF00 TO BE AUTHORIZED LOGREC=SYS1.DAVE.LOGREC, LOGCLS=L, SYSLOG GOES HERE LOGLMT=999999, MUST BE 6 DIGITS, MAX WTL MESSAGES QUEUED LPA=(&SYSCLONE.,L), MAXUSER=612, UP FROM 512 - 06-DEC-1998 MLPA=(00,L), MSTRJCL=&SYSCLONE., MASTER JCL OPI=YES, ALLOW OPERATOR OVERRIDE TO IEASYS00 OPT=00, SPECIFY IEAOPT00 (SRM TUNING PARMETERS) PAGTOTL=(010,005), PAK=00, IEAPAK00 PROD=00, PRODUCT ENABLEMENT REAL=128, ALLOWS 2 64K JOBS OR 1 128K JOB TO RUN V=R RSU=0, NO RECONFIG STORAGE UNITS RSVNONR=5, RESERVED ASVT ENTRIES RSVSTRT=5, RESERVED ASVT ENTRIES SCH=00, SELECT SCHED00 FOR PPT SMF=&SYSCLONE., We don't need no stinkin' SMF SQA=(9,500), SSN=(00), VIODSN=IGNORE, VIO DS SVC=00, SELECT SVCLIB VAL=00, SELECT VATLST00 VRREGN=64 REAL-STORAGE REGION SIZE $$ //* //** PARMLIB: OMVS crap //* //BPXPRMDA EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //SYSUT2 DD DISP=SHR,DSN=SYS1.DAVE.PARMLIB(BPXPRMDA), // UNIT=3390,VOL=SER=DAVE01 //SYSUT1 DD DATA,DLM='$$' FILESYSTYPE TYPE(HFS) ENTRYPOINT(GFUAINIT) PARM(' ') $$ //* //** PARMLIB: SMF parms //* //SMFPRMDA EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //SYSUT2 DD DISP=SHR,DSN=SYS1.DAVE.PARMLIB(SMFPRMDA), // UNIT=3390,VOL=SER=DAVE01 //SYSUT1 DD DATA,DLM='$$' NOACTIVE /* We don't need no stinkin' SMF */ $$ //* //** PARMLIB: automagic commands //* //COMMANDS EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //SYSUT2 DD DISP=SHR,DSN=SYS1.DAVE.PARMLIB(COMMNDDA), // UNIT=3390,VOL=SER=DAVE01 //SYSUT1 DD DATA,DLM='$$' COM='D T' COM='TRACE MT,999K' COM='TRACE ST,999K' COM='K M,AMRF=N' COM='CD SET,SDUMP=(SQA,LSQA,RGN,LPA,TRT,SWA,CSA,SUM),Q=NO' COM='CD SET,SDUMP=(ALLPSA,ALLNUC,GRSQ)' COM='CD SET,SYSMDUMP=(ALL)' COM='CD SET,SYSMDUMP=(ALLNUC)' COM='CD DEL,SYSUDUMP,SDATA=(TRT)' COM='S LLA,SUB=MSTR' COM='S NET,,,(LIST=DA),SUB=MSTR' COM='S JES2,PARM='COLD,NOREQ'' COM='S TSO' COM='TRACE STATUS' COM='D TRACE' COM='D M=CPU' COM='D M=STOR' COM='D M=ESTOR' COM='D D,O' COM='D D,S' COM='D OPDATA' COM='D IPLINFO' COM='D PARMLIB' COM='D SSI,ALL' COM='D SLIP' COM='D IOS,CONFIG(ALL)' COM='D IOS,MIH,TIME=ALL' COM='D PROG,EXIT' COM='D PROG,APF' COM='D T' $$ //* //** PARMLIB: Master JCL //* //MSTRJCL EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //SYSUT2 DD DISP=SHR,DSN=SYS1.DAVE.PARMLIB(MSTJCLDA), // UNIT=3390,VOL=SER=DAVE01 //SYSUT1 DD DATA,DLM='$$' //MSTJCLDA JOB MSGLEVEL=(1,1),TIME=1440 // EXEC PGM=IEEMB860,DPRTY=(15,15) //STCINRDR DD SYSOUT=(A,INTRDR) //TSOINRDR DD SYSOUT=(A,INTRDR) //IEFPDSI DD DSN=SYS1.DAVE.PROCLIB,DISP=SHR // DD DSN=SYS1.PROCLIB,DISP=SHR // DD DSN=SYS1.IBM.PROCLIB,DISP=SHR //SYSUADS DD DSN=SYS1.UADS,DISP=SHR //SYSLBC DD DSN=SYS1.BRODCAST,DISP=SHR /* $$ //* //** PARMLIB: VATLST00 - This is very installation dependent! //* //VATLST00 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //SYSUT2 DD DSN=SYS1.DAVE.PARMLIB(VATLST00),DISP=SHR, // UNIT=3390,VOL=SER=DAVE01 //SYSUT1 DD DATA,DLM='$$' VATDEF IPLUSE(PRIVATE) SYSUSE(PRIVATE) DAVE01,0,0,3390 ,N $$ //* //** PARMLIB: IECIOS00 - This is very installation dependent! //* //IECIOSDA EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //SYSUT2 DD DISP=SHR,DSN=SYS1.DAVE.PARMLIB(IECIOSDA), // UNIT=3390,VOL=SER=DAVE01 //SYSUT1 DD DATA,DLM='$$' MIH TIME=03:00,DEV=(3B00-3CFF) /* EMC 5930 LEFT SIDE */ MIH TIME=03:00,DEV=(3D00-3EFF) /* EMC 5930 RIGHT SIDE */ MIH TIME=03:00,DEV=(6D00-6DFF) /* EMC 5930 BCV VOLUMES */ $$ //* //** PARMLIB: Misc stuff we don't care to override //* //PARMMISC EXEC PGM=IEBCOPY //SYSPRINT DD SYSOUT=* //CPAC DD DISP=SHR,DSN=CPAC.PARMLIB, // UNIT=3390,VOL=SER=OSV26B //DAVEPARM DD DISP=SHR,DSN=SYS1.DAVE.PARMLIB, // UNIT=3390,VOL=SER=DAVE01 //SYSIN DD * COPY INDD=CPAC,OUTDD=DAVEPARM SELECT MEMBER=IEAFIX00 SELECT MEMBER=IEALPA00 SELECT MEMBER=IEAPAK00 SELECT MEMBER=IEASVC00 SELECT MEMBER=IFAPRD00 SELECT MEMBER=IKJTSO00 SELECT MEMBER=TSOKEY00 //* //** PARMLIB: PPT entries //* //SCHED00 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //SYSUT2 DD DISP=SHR,DSN=SYS1.DAVE.PARMLIB(SCHED00), // UNIT=3390,VOL=SER=DAVE01 //SYSUT1 DD DATA,DLM='$$' MT SIZE(999K) /* MASTER TRACE TBL SIZE */ PPT PGMNAME(HASJES2A) /* PROGRAM NAME */ NOCANCEL /* CAN NOT BE CANCELLED */ KEY(1) /* PROTECTION KEY */ NOSWAP /* NON-SWAPPABLE */ PRIV /* PRIVILEDGED */ NODSI /* NO DATA SET INTEGRITY */ PASS /* - XYZ - */ SYST /* SYSTEM TASK , NOT TIMED */ AFF(NONE) /* NO PROCESSOR AFFINITY */ /* CICS */ PPT PGMNAME(ERBMFMFC) /* PROGRAM NAME */ CANCEL /* CAN BE CANCELLED */ NOSWAP /* NON-SWAPPABLE */ NODSI /* NO DATA SET INTEGRITY */ PASS /* NO PASSWORD BYPASS */ SYST /* SYSTEM TASK , NOT TIMED */ AFF(NONE) /* NO PROCESSOR AFFINITY */ /* NETWORK PERFORMANCE MONITOR */ PPT PGMNAME(FNMMAIN) /* PROGRAM NAME */ NOCANCEL /* CAN NOT BE CANCELLED */ NOSWAP /* - XYZ - */ PRIV /* - XYZ - */ KEY(6) /* PROTECTION KEY */ AFF(NONE) /* NO PROCESSOR AFFINITY */ /* RMF */ PPT PGMNAME(ERB3GMFC) /* PROGRAM NAME */ CANCEL /* CAN BE CANCELLED */ NOSWAP /* NON-SWAPPABLE */ NODSI /* NO DATA SET INTEGRITY */ PASS /* NO PASSWORD BYPASS */ SYST /* SYSTEM TASK , NOT TIMED */ AFF(NONE) /* NO PROCESSOR AFFINITY */ /********************************************************************/ /* APPC/MVS PPT ENTRIES */ /********************************************************************/ PPT PGMNAME(ATBINITM) /* PROGRAM NAME */ KEY(1) /* KEY ONE */ NOSWAP /* DON'T PASS ME BY */ SYST /* SYSTEM TASK - DON'T TIME */ PPT PGMNAME(ASBSCHIN) /* PROGRAM NAME */ KEY(1) /* KEY ONE */ NOSWAP /* DON'T PASS ME BY */ SYST /* SYSTEM TASK - DON'T TIME */ /********************************************************************/ /* */ /* IBM SUPPLIED DEFAULTS FOR THE PROGRAMS LISTED ARE THE ACTUALS */ /* AND SHOULD BE USED IF THE INSTALLATION SYSTEM IS TO BE A */ /* B1 SECURITY SYSTEM. */ /* */ /********************************************************************/ PPT PGMNAME(ISTINM01) /* PROGRAM NAME (ISTINM01) */ NOCANCEL /* NON-CANCELLABLE */ KEY(6) /* PROTECTION KEY (6) */ NOSWAP /* NON-SWAPPABLE */ SYST /* SYSTEM TASK, NOT TIMED */ NOPREF /* PRIVATE AREA SHORT-TERM FIXED PAGES NEED NOT BE ASSIGNED TO PREFERRED STORAGE FRAMES */ PPT PGMNAME(IEEMB860) /* PROGRAM NAME (IEEMB860) */ NOCANCEL /* NON-CANCELLABLE */ KEY(0) /* PROTECTION KEY (0) */ NOSWAP /* NON-SWAPPABLE */ SYST /* SYSTEM TASK, NOT TIMED */ NODSI /* DOESN'T REQUIRE DATASET INTEGRITY */ PPT PGMNAME(IEAVTDSV) /* PROGRAM NAME (IEAVTDSV) */ KEY(0) /* PROTECTION KEY (0) */ SYST /* SYSTEM TASK, NOT TIMED */ PRIV /* PRIVILEGED */ LPREF /* LONG TERM FIXED PAGES ASSIGNED TO PREFERRED STORAGE FRAMES */ SPREF /* SHORT TERM FIXED PAGES ASSIGNED TO PREFERRED STORAGE FRAMES */ PPT PGMNAME(CSVLLCRE) /* PROGRAM NAME (CSVLLCRE) */ KEY(0) /* PROTECTION KEY (0) */ NOSWAP /* NON-SWAPPABLE */ SYST /* SYSTEM TASK, NOT TIMED */ PPT PGMNAME(IGDSSI01) /* PROGRAM NAME (IGDSSI01) */ NOCANCEL /* NON-CANCELLABLE */ KEY(5) /* PROTECTION KEY (5) */ NOSWAP /* NON-SWAPPABLE */ SYST /* SYSTEM TASK, NOT TIMED */ PPT PGMNAME(COFMINIT) /* PROGRAM NAME (COFMINIT) */ KEY(0) /* PROTECTION KEY (0) */ NOSWAP /* NON-SWAPPABLE */ SYST /* SYSTEM TASK, NOT TIMED */ NODSI /* DOESN'T REQUIRE DATASET */ /********************************************************************/ PPT PGMNAME(EZAPPAAA) /* NPF (TCP/IP) VTAM - 08-MAR-96 */ PPT PGMNAME(EZAPPFS) /* NPF (TCP/IP) VTAM - 08-MAR-96 */ KEY(1) /* PROTECTION KEY (1) */ /********************************************************************/ /* PROGRAM PROPERTIES TABLE - ADDITIONS TO IBM */ /********************************************************************/ PPT PGMNAME(SMFDUMP) /* PROGRAM NAME */ CANCEL /* CAN BE CANCELLED */ NOPASS /* PASSWORD BYPASS */ AFF(NONE) /* NO PROCESSOR AFFINITY */ PPT PGMNAME(AKPCSIEP) /* PROGRAM NAME */ CANCEL /* CAN BE CANCELLED */ KEY(8) /* PROTECTION KEY */ SWAP /* SWAPPABLE */ NOPRIV /* NOT PRIVILEGED */ DSI /* REQUIRES DS INTEGRITY */ PASS /* NO BYPASS PASSWORK ALLOWED */ NOSYST /* MUST BE TIMED */ /* PSF (CHANGED AT 2.1.0 INSTALL - DAVE ALCOCK) */ PPT PGMNAME(APSPPIEP) /* PROGRAM NAME */ KEY(1) NOSWAP NOPRIV CANCEL SYST NODSI PASS AFF(NONE) NOPREF /* */ PPT PGMNAME(AVFMNBLD) /* PROGRAM NAME */ CANCEL /* CAN BE CANCELLED */ KEY(8) /* PROTECTION KEY */ SWAP /* SWAPPABLE */ NOPRIV /* NOT PRIVILEGED */ DSI /* REQUIRES DS INTEGRITY */ PASS /* NO BYPASS PASSWORK ALLOWED */ NOSYST /* MUST BE TIMED */ /* DSN BATCH UTILITY IMS */ PPT PGMNAME(DSNUTLIB) /* PROGRAM NAME */ CANCEL /* CAN BE CANCELLED */ KEY(7) /* PROTECTION KEY */ SWAP /* SWAPPABLE */ NOPRIV /* NOT PRIVILEGED */ DSI /* REQUIRES DS INTEGRITY */ PASS /* NO BYPASS PASSWORK ALLOWED */ NOSYST /* MUST BE TIMED */ AFF(NONE) /* NO PROCESSOR AFFINITY */ /* ADDRESS SPACE CNTL IMS DB2 */ PPT PGMNAME(DSNYASCP) /* PROGRAM NAME */ CANCEL /* CAN BE CANCELLED */ KEY(7) /* PROTECTION KEY */ NOSWAP /* NON-SWAPPABLE */ NOPRIV /* NOT PRIVILEGED */ DSI /* REQUIRES DS INTEGRITY */ PASS /* NO BYPASS PASSWORK ALLOWED */ SYST /* MUST BE TIMED */ AFF(NONE) /* NO PROCESSOR AFFINITY */ /* DSN BATCH UTILITY IMS */ PPT PGMNAME(VSM000) /* PROGRAM NAME */ CANCEL /* CAN BE CANCELLED */ KEY(8) /* PROTECTION KEY */ SWAP /* SWAPPABLE */ NOPRIV /* NOT PRIVILEGED */ DSI /* REQUIRES DS INTEGRITY */ PASS /* NO BYPASS PASSWORK ALLOWED */ NOSYST /* MUST BE TIMED */ /* TCP/IP 3.2 - ADDED 15-MARCH-1998 */ PPT PGMNAME(MVPTNF) /* PROGRAM NAME */ KEY(0) /* PROTECTION KEY */ NOSWAP NOCANCEL PRIV SYST /* TCP/IP 3.2 - ADDED 15-MARCH-1998 */ PPT PGMNAME(MVPXVMCF) /* PROGRAM NAME */ KEY(0) /* PROTECTION KEY */ NOSWAP NOCANCEL PRIV SYST /* TCP/IP 3.2 - ADDED 15-MARCH-1998 */ PPT PGMNAME(EZAINMAN) /* PROGRAM NAME */ KEY(6) /* PROTECTION KEY */ NOSWAP NOCANCEL PRIV SYST /* CS/390 2.6 - ADDED 11-APRIL-1999 */ PPT PGMNAME(EZBTCPIP) /* PROGRAM NAME */ KEY(6) /* PROTECTION KEY */ NOSWAP NOCANCEL PRIV SYST LPREF SPREF /* NETVIEW TME 1.2 - ADDED 29-JAN-1999 */ PPT PGMNAME(CBFDISP) /* PROGRAM NAME */ KEY(8) /* PROTECTION KEY */ NOSWAP /* NETVIEW TME 1.2 - ADDED 29-JAN-1999 */ PPT PGMNAME(BNJLINTX) /* PROGRAM NAME */ KEY(8) /* PROTECTION KEY */ NOSWAP /* NETVIEW TME 1.2 - ADDED 29-JAN-1999 */ PPT PGMNAME(DSIMNT) /* PROGRAM NAME */ KEY(8) /* PROTECTION KEY */ NOSWAP /* NETVIEW TME 1.2 - ADDED 29-JAN-1999 */ PPT PGMNAME(EKGTC000) /* PROGRAM NAME */ NOCANCEL NOSWAP /* NETVIEW TME 1.2 - ADDED 29-JAN-1999 */ PPT PGMNAME(DUIFT000) /* PROGRAM NAME */ KEY(8) /* PROTECTION KEY */ NOSWAP /*************************************************************** /* PROGRAM NAME = BPXVCLNY /* DEFAULTS: - ALLOW CANCEL (CANCEL) /* - KEY8 (KEY(8)) /* - REQUIRES DATA SET INTEGRITY (DSI) /* - NO AFFINITY TO A PARTICULAR CPU (AFF(NONE)) /* /*************************************************************** PPT PGMNAME(BPXVCLNY) /* PROGRAM NAME BPXVCLNY */ NOSWAP /* NON-SWAPPABLE */ PRIV /* PRIVILEGED JOB */ SYST /* SYSTEM TASK, NOT TIMED */ NOPASS /* BYPASS PASSWORD PROTECTION */ /***************************************************************/ /* OS/390 2.6 */ /***************************************************************/ PPT PGMNAME(EPWINIT) NOSWAP NOCANCEL KEY(0) NODSI NOPASS NOPREF PPT PGMNAME(CBROAM) /* OAM ADDRESS SPACE */ KEY(5) NOSWAP SYST PPT PGMNAME(CSQYASCP) /* CSQ - THIS IS REQUIRED FOR MQSERIES */ CANCEL KEY(7) SWAP NOPRIV DSI PASS SYST AFF(NONE) NOPREF $$ //* //** PARMLIB: subsystems //* //IEFSSN00 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //SYSUT2 DD DISP=SHR,DSN=SYS1.DAVE.PARMLIB(IEFSSN00), // UNIT=3390,VOL=SER=DAVE01 //SYSUT1 DD DATA,DLM='$$' SUBSYS SUBNAME(JES2) PRIMARY(YES) START(YES) SUBSYS SUBNAME(ZZZZ) /* End of IEFSSN00 - rest are dynamic */ $$ //* //** PARMLIB: Consoles //* //CONSOLES EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //SYSUT2 DD DISP=SHR,DSN=SYS1.DAVE.PARMLIB(CONSOLDA), // UNIT=3390,VOL=SER=DAVE01 //SYSUT1 DD DATA,DLM='$$' INIT PFK(00) MONITOR(DSNAME) MLIM(9999) LOGLIM(100000) /* CHG - 08-MAR-1996 */ RLIM(50) UEXIT(N) DEFAULT ROUTCODE(1) HOLDMODE(YES) CONSOLE DEVNUM(0080) NAME(MASTER1) UNIT(3270-X) AUTH(MASTER) USE(FC) ALTERNATE(03A0) ROUTCODE(ALL) PFKTAB(MASTER1) RBUF(15) UD(Y) AREA(NONE) DEL(RD) SEG(20) CON(Y) RNUM(20) RTME(1/4) MFORM(T,J) CONSOLE DEVNUM(03A0) NAME(DAVE) UNIT(3270-X) AUTH(ALL) USE(FC) ALTERNATE(0080) ROUTCODE(ALL) PFKTAB(MASTER1) RBUF(15) AREA(NONE) DEL(R) SEG(20) CON(Y) RNUM(20) RTME(1/4) MFORM(T,J) CONSOLE DEVNUM(SYSCONS) /* ES/9021 SYSTEM CONSOLE */ NAME(DAVESCON) AUTH(ALL) CMDSYS(ASYS) LEVEL(ALL) MSCOPE(ASYS) ROUTCODE(NONE) UD(Y) CONSOLE DEVNUM(SUBSYSTEM) AUTH(ALL) CONSOLE DEVNUM(SUBSYSTEM) AUTH(ALL) CONSOLE DEVNUM(SUBSYSTEM) AUTH(ALL) CONSOLE DEVNUM(SUBSYSTEM) AUTH(ALL) CONSOLE DEVNUM(SUBSYSTEM) AUTH(ALL) HARDCOPY DEVNUM(SYSLOG) ROUTCODE(ALL) CMDLEVEL(CMDS) HCFORMAT(CENTURY) $$ //* //** PARMLIB: PROGxx - APF and LNKLST //* //PROGDA EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //SYSUT2 DD DISP=SHR,DSN=SYS1.DAVE.PARMLIB(PROGDA), // UNIT=3390,VOL=SER=DAVE01 //SYSUT1 DD DATA,DLM='$$' APF FORMAT(DYNAMIC) APF ADD DSNAME(SYS1.SERBLINK) VOLUME(******) APF ADD DSNAME(IGY.V2R1M0.SIGYCOMP) VOLUME(******) APF ADD DSNAME(SYS1.CMDLIB) VOLUME(******) APF ADD DSNAME(SYS1.LINKLIB) VOLUME(******) APF ADD DSNAME(SYS1.V2R5M0.SHASLINK) VOLUME(******) APF ADD DSNAME(SYS1.V2R5M0.SHASMIG) VOLUME(******) APF ADD DSNAME(ISF.SISFLOAD) VOLUME(******) APF ADD DSNAME(ISF.SISFLINK) VOLUME(******) APF ADD DSNAME(SYS1.VTAMLIB) VOLUME(******) APF ADD DSNAME(SYS1.SISTCLIB) VOLUME(******) /* */ /* DYNAMIC LNKLST - PRODUCT DEFINITIONS */ /* */ LNKLST DEFINE NAME(LNKLST00) LNKLST ADD NAME(LNKLST00) DSN(SYS1.SERBLINK) LNKLST ADD NAME(LNKLST00) DSN(SYS1.CMDLIB) LNKLST ADD NAME(LNKLST00) DSN(SYS1.V2R5M0.SHASLINK) LNKLST ADD NAME(LNKLST00) DSN(SYS1.V2R5M0.SHASMIG) LNKLST ADD NAME(LNKLST00) DSN(ISF.SISFLOAD) LNKLST ADD NAME(LNKLST00) DSN(ISF.SISFLINK) LNKLST ADD NAME(LNKLST00) DSN(CEE.SCEERUN) LNKLST ADD NAME(LNKLST00) DSN(ISP.SISPSASC) LNKLST ADD NAME(LNKLST00) DSN(ISP.SISPLOAD) LNKLST ADD NAME(LNKLST00) DSN(CBC.SCLBDLL) LNKLST ADD NAME(LNKLST00) DSN(SYS1.SCBDHENU) LNKLST ADD NAME(LNKLST00) DSN(GIM.SGIMLMD0) LNKLST ADD NAME(LNKLST00) DSN(SYS1.SIOALMOD) LNKLST ACTIVATE NAME(LNKLST00) $$ //* //** PARMLIB: LPALST //* //LPALST EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //SYSUT2 DD DISP=SHR,DSN=SYS1.DAVE.PARMLIB(LPALSTDA), // UNIT=3390,VOL=SER=DAVE01 //SYSUT1 DD DATA,DLM='$$' SYS1.SERBLPA, SYS1.LPALIB, ISF.SISFLPA, ISF.SISFLOAD, CEE.SCEELPA, ISP.SISPLPA $$ //* //** PARMLIB: JES2parm //* //JES2PARM EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //SYSUT2 DD DISP=SHR,DSN=SYS1.DAVE.PARMLIB(JES2PARM), // UNIT=3390,VOL=SER=DAVE01 //SYSUT1 DD DATA,DLM='$$' /*****PROPRIETARY-STATEMENT*******************************************/ /* */ /* LICENSED MATERIALS-PROPERTY OF IBM */ /* THIS SAMPLE IS "RESTRICTED MATERIALS OF IBM" */ /* 5647-A01 (C) COPYRIGHT IBM CORP 1994, 1997 */ /* */ /* STATUS: HJE6604 */ /* */ /*****END-OF-PROPRIETARY-STATEMENT************************************/ /*********************************************************************/ /* */ /* SYNTAX RULES for JES2 Initialization Statements: */ /* */ /* - Statements may be coded free-form in Columns 1 through 71 */ /* - Column 72 may be used for a Continuation Character, but is */ /* NOT Required. A trailing comma indicates continuation. */ /* - Comments and Blanks may appear anywhere before, after, or */ /* in-between statements, parameters, and delimiters. */ /* - Comments are NOT allowed within a range. */ /* - Comments must be bounded by the slash-asterisk, */ /* asterisk-slash type delimiters. */ /* - Statements must have at least one parameter coded on the */ /* same line as the statement name. */ /* */ /*********************************************************************/ /* */ /* NOTES on the Format of this Member: */ /* */ /* - The Order of Statements is Alphabetical within the following */ /* categories: */ /* - ALL Initialization Statements, showing new statements, */ /* new and changed operands, etc. */ /* - An abbreviated list of statements and operands ADDED */ /* in the JES2 SP 4.1.0 and later releases */ /* - An abbreviated list of statements and operands CHANGED */ /* in the JES2 SP 4.1.0 and later releases */ /* - An abbreviated list of statements and operands DELETED */ /* in SP 2.2.0 JES2 or later releases. */ /* - An abbreviated list of statement operands which cannot */ /* be changed without a COLD start. */ /* */ /* COLUMN layouts of the following statements are as follows: */ /* STMT PARAMETER=DEFAULT, COMMENTS CHG-CODE*/ /* */ /* 1- 8 - Statement Name */ /* 10-29 - Parameters set to default values */ /* ›› - Indicates there is no default, or the default is */ /* based on other parameters. */ /* @@ - Indicates the default should not be taken blindly.*/ /* 30-60 - Comments */ /* 62-69 - How the Parameter can be changed. One or more of the */ /* following flags will appear in the change code list. */ /* They are listed in order of flexibility and power, but */ /* these capabilities are not hierarchical. For example, */ /* some parameters can be changed only by cold starts */ /* and commands. */ /* */ /* a - can be added by $ADD */ /* o - can be altered by operand $T */ /* r - can be removed by $DEL */ /* h - can be altered/added by a hot start */ /* (if no H, the parm is ignored during hot start) */ /* w - can be altered/added by JES2 Warm or Quick Start */ /* n - can be altered/added by a JES2 */ /* All Member Warm Start */ /* c - can be altered/added by JES2 Cold Start */ /* */ /*********************************************************************/ /*********************************************************************/ /* */ /* NOTE: Changing ANY of the following parameters will prevent a */ /* JES2 Warmstart; they can ONLY be changed on a COLDSTART */ /* */ /*********************************************************************/ /* */ /* CKPTDEF DSNAME= */ /* JOBDEF JOBNUM= */ /* NJEDEF OWNNODE= */ /* OUTDEF JOENUM= */ /* SPOOLDEF BUFSIZE=, DSNAME=, RECINCR=, SPOOLNUM=, TGNUM=, */ /* TRKCELL=, VOLUME= */ /* TPDEF RMTNUM= */ /* */ /*********************************************************************/ /* *---------------------------------------* * Checkpoint Parameters * *---------------------------------------* */ CKPTDEF CKPT1=(DSNAME=SYS1.DAVE.JES2.CHECK1, VOLSER=DAVE01, /* <- DAVE */ INUSE=YES), /* onc*/ CKPT2=(DSNAME=SYS1.DAVE.JES2.CHECK2, VOLSER=DAVE01, /* <- DAVE */ INUSE=YES), /* onc*/ DUPLEX=ON, /* NO DUPLEXING &CHKPT2 nc*/ LOGSIZE=2, /* nc*/ MODE=DUPLEX, /* NO DUPLEXING &CHKPT2 ohwnc*/ VERSIONS=(NUMBER=0, /* Number of checkpoint versions ohwnc*/ /* JES2 will maintain-0 indicates */ /* JES2 will determine the maximum */ /* number of versions to maintain. */ /* (added SP410) */ /* Related to APPLCOPY */ WARN=80), /* Threshold percentage at which ohwnc*/ /* operator is to be notified. */ /* (added SP410) */ VOLATILE=(ONECKPT=WTOR, /* Specifies JES2 should issue WTOR to */ /* determine action if one CKPT is on a */ /* volatile coupling facility */ /* (added in SP510) ohwnc*/ ALLCKPT=WTOR), /* Specifies JES2 should issue WTOR to */ /* determine action if all CKPTs are on */ /* volatile coupling facilities */ /* (added in SP510) ohwnc*/ APPLCOPY=COMMON /* hwnc*/ /* */ /*********************************************************************/ /* *--------------------------------------* | Checkpoint Space Definitions | *--------------------------------------* */ CKPTSPACE BERTNUM=2100, /* Number of BERTs oc*/ /* (added in OS/390 R5) */ BERTWARN=80 /* $HASP050 threshold for BERTs ohwnc*/ /* (added in OS/390 R4) */ /* */ /*********************************************************************/ /* *---------------------------------------* * Compaction Table Definitions * *---------------------------------------* */ COMPACT NAME=JESDATA, /* NAME OF COMPACTION TABLE hwnc*/ NUMBER=10, /* Compaction Table Number hwnc*/ /* Table Definition hwnc*/ CHARS=(16, /* - Number of Master Characters hwnc*/ F1,F2,F3,F4,F5,F6, /* - MASTER CHARACTERS hwnc*/ F7,F8,F9,A,E,I,D6, /* - MASTER CHARACTERS hwnc*/ E4,40,X) /* - MASTER CHARACTERS hwnc*/ /* */ /* */ /*********************************************************************/ /* *--------------------------------------* * CONSOLE PARAMETERS * *--------------------------------------* */ CONDEF AUTOCMD=20, /* Number of Auto Cmds hwnc*/ BUFNUM=9999, /* Number of CMBs ohwnc*/ BUFWARN=80, /* Warning Threshold % ohwnc*/ CMDNUM=999, /* Maximum number of CMBs for JES2 ownc*/ /* commands from common storage ownc*/ /* (added in SP510) ownc*/ CONCHAR=$, /* Console Cmd Character ohwnc*/ DISPLEN=64, /* $SCAN Cmd/init Display Length ohwnc*/ DISPMAX=100, /* $SCAN Cmd/init Max Lines ohwnc*/ MASMSG=200, /* Number of Queued Msgs ohwnc*/ RDIRAREA=Z, /* Default console out-of-line ohwnc*/ /* area (added SP410) ohwnc*/ RDRCHAR=$, /* Reader Cmd Character ohwnc*/ SCOPE=SYSTEM /* Specifies scope of command wnc*/ /* prefix (added SP410) */ /* */ /*********************************************************************/ /* *--------------------------------------* * DEBUG PARAMETERS * * (revised by OW05639) * * Do not use unless necessary * *--------------------------------------* */ DEBUG APPLCOPY=NO, /* Verify integrity of applcopy ohwnc*/ CKPT=NO, /* Verify integrity of checkpoint ohwnc*/ MISC=NO, /* Count certain JES2 events ohwnc*/ STORAGE=NO, /* Verify GETWORKed areas ohwnc*/ SYMREC=NO, /* Issue $WTO with SYMREC ohwnc*/ /* (added OS110) */ VERSION=NO /* Verify integrity of ckpt vers ohwnc*/ /* */ /* */ /*********************************************************************/ /* *---------------------------------------* * Default Estimated Sysout Bytes/Job * *---------------------------------------* */ ESTBYTE NUM=99999, /* Bytes for 1st Message ohwnc*/ INT=99999, /* then Byte Intervals ohwnc*/ OPT=0 /* Allow Jobs to Continue ohwnc*/ /* */ /* *---------------------------------------* * Default Estimated Execution Time * *---------------------------------------* */ ESTIME NUM=2, /* 2 minutes for 1st Message ohwnc*/ INT=1, /* then at 1 minute Intervals ohwnc*/ OPT=NO /* No HASP308 message ohwnc*/ /* */ /* *---------------------------------------* * Default Estimated Sysout Lines/Job * *---------------------------------------* */ ESTLNCT NUM=12, /*12000 LINES FOR 1ST MESSAGE ohwnc*/ INT=6000, /* THEN AT 6000 LINE INTERVALS ohwnc*/ OPT=0 /* Allow Jobs to Continue ohwnc*/ /* */ /* *---------------------------------------* * Default Estimated Sysout Pages/Job * *---------------------------------------* */ ESTPAGE NUM=40, /* 40 PAGES FOR 1ST MESSAGE ohwnc*/ INT=10, /* THEN AT 10 PAGE INTERVALS ohwnc*/ OPT=0 /* Allow Jobs to Continue ohwnc*/ /* */ /* *---------------------------------------* * Default Estimated Sysout Cards/Job * *---------------------------------------* */ ESTPUN NUM=100, /* 100 Cards for 1st Message ohwnc*/ INT=2000, /* then at 2000 Card Intervals ohwnc*/ OPT=0 /* Allow Jobs to Continue ohwnc*/ /* */ /* *---------------------------------------* * Functional Subsystem Definition * *---------------------------------------* */ FSS(PRINTOFF) /* FSS TOKEN FOR PRINTERNN FSS= aownc*/ /* PROC=PRINT, FSS PROCEDURE TO START FSA ownc*/ /* HASPFSSM=HASPFSSM FSS Load Module FSS Support ownc*/ /* */ /* *--------------------------------------* * Logical Initiator Definitions * *--------------------------------------* */ INITDEF PARTNUM=12 /* NUMBER OF INITIATORS &MAXPART wnc*/ /* */ /*--------------------------------------*/ /* Logical Initiators */ /*--------------------------------------*/ INIT(1) NAME=1, /* INITIATOR NAME wnc*/ CLASS=A, /* INITIAL JOB CLASSES ownc*/ START /* Start Automatically wnc*/ /* */ INIT(2) NAME=2, /* INITIATOR NAME wnc*/ CLASS=AB, /* INITIAL JOB CLASSES ownc*/ START=YES /* Start Automatically wnc*/ /* */ INIT(3) NAME=3, /* INITIATOR NAME wnc*/ CLASS=ABC, /* INITIAL JOB CLASSES ownc*/ START=YES /* Start Automatically wnc*/ /* */ INIT(4) NAME=4, /* INITIATOR NAME wnc*/ CLASS=ABCDE, /* INITIAL JOB CLASSES ownc*/ START=YES /* Start Automatically wnc*/ /* */ INIT(5) NAME=5, /* INITIATOR NAME wnc*/ CLASS=ABCD, /* INITIAL JOB CLASSES ownc*/ START=NO /* */ /* */ INIT(6) NAME=6, /* INITIATOR NAME wnc*/ CLASS=ABCD, /* INITIAL JOB CLASSES ownc*/ START=NO /* */ /* */ INIT(7) NAME=7, /* INITIATOR NAME wnc*/ CLASS=ABCD, /* INITIAL JOB CLASSES ownc*/ START=NO /* */ /* */ INIT(8) NAME=8, /* INITIATOR NAME wnc*/ CLASS=ABCD, /* INITIAL JOB CLASSES ownc*/ START=NO /* */ /* */ INIT(9) NAME=9, /* INITIATOR NAME wnc*/ CLASS=ABCD, /* INITIAL JOB CLASSES ownc*/ START=NO /* */ /* */ INIT(10) NAME=10, /* INITIATOR NAME wnc*/ CLASS=ABCD, /* INITIAL JOB CLASSES ownc*/ START=NO /* */ /* */ INIT(11) NAME=11, /* INITIATOR NAME wnc*/ CLASS=ABCD, /* INITIAL JOB CLASSES ownc*/ START=NO /* */ /* */ INIT(12) NAME=12, /* INITIATOR NAME wnc*/ CLASS=ABCD, /* INITIAL JOB CLASSES ownc*/ START=NO /* */ /* *--------------------------------------* * Internal Readers * *--------------------------------------* */ INTRDR AUTH=(JOB=YES, /* Allow Job cmds ownc*/ DEVICE=NO, /* Allow Device Cmds ownc*/ SYSTEM=YES), /* Allow System Cmds ownc*/ /* (pre-SP420 AUTH=0 for all 3 */ /* subparameters) */ BATCH=YES, /* Allow batch jobs to use wnc*/ /* internal readers */ /* (added SP420) */ CLASS=A, /* Default Job Class ownc*/ HOLD=NO, /* Don't Hold Jobs Read ownc*/ HONORLIM=NO, /* Do output excession for INTRDR ownc*/ /* (added by OW06743) */ PRTYINC=0, /* Don't Prty Age Jobs wnc*/ PRTYLIM=15, /* Limit Job Prty to 15 wnc*/ RDINUM=4, /* Number of Internal RDRS wnc*/ TRACE=NO /* Allow Tracing ownc*/ /* (added SP420) */ /* */ /* *--------------------------------------* * Job Class Characteristics * *--------------------------------------* */ JOBCLASS(*) AUTH=ALL, /* All commnds accepted hwnc*/ ACCT=NO, /* Account not required hwnc*/ BLP=NO, /* BLP ignored hwnc*/ COMMAND=VERIFY, /* verify commands hwnc*/ COPY=NO, /* not TYPRUN=COPY hwnc*/ HOLD=NO, /* not TYPRUN=HOLD hwnc*/ IEFUJP=YES, /* take SMF Job Purge Exit hwnc*/ IEFUSO=YES, /* take SYSOUT Excess Exit hwnc*/ JOURNAL=YES, /* Journal this Job Class hwnc*/ LOG=YES, /* Print JES2 JOB LOG hwnc*/ MSGLEVEL=(1,1), /* msg level hwnc*/ OUTDISP=(HOLD,HOLD), /* Disposition of System Output hwnc*/ /* normal termination and abnormal */ /* termination (added SP410) */ /* (pre-SP410=CONDPURG) */ OUTPUT=YES, /* Produce Output for Job hwnc*/ PERFORM=000, /* SRM Performance Group 0 hwnc*/ PGMRNAME=NO, /* Pgmrname not required hwnc*/ PROCLIB=00, /* Use //PROC00 DD hwnc*/ QHELD=NO, /* Hold jobs prior to execution ohwnc*/ /* (added by APAR OW06439) */ RESTART=NO, /* No Requeue (XEQ) on IPL hwnc*/ SCAN=NO, /* Not TYPRUN=SCAN hwnc*/ TIME=(1440,0), /* Job Step Time hwnc*/ /* (format changed SP410) */ TYPE6=YES, /* Produce SMF 6 Records hwnc*/ TYPE26=YES /* Produce SMF 26 Records hwnc*/ /* */ /* *--------------------------------------* * Job Characteristics * *--------------------------------------* */ JOBDEF ACCTFLD=OPTIONAL, /* Acct'g Field Optional &RJOBOPT ohwnc*/ DUPL_JOB=DELAY, /* Don't allow jobs with duplicate */ /* names to execute concurrently onc*/ /* (added OS130) */ JCLERR=NO, /* No Term. Job w/JCL Err.&RJOBOPT ohwnc*/ JOBNUM=1000, /* Job Queue Size &MAXJOBS(1 c*/ JOBWARN=80, /* Warning Threshold % &MAXJOBS(2 onc*/ PRTYHIGH=10, /* Upper Limit for Aging &PRIHIGH onc*/ PRTYJECL=YES, /*PRIORITY JECL Supported &PRIOOPT ohwnc*/ PRTYJOB=YES, /* PRTY= ON JOB NOT SUP'D &PRTYJOB ohwnc*/ PRTYLOW=5, /* Lower Limit for Aging &PRILOW onc*/ PRTYRATE=0, /* Prty Aging Rate X/Day &PRIRATE onc*/ RANGE=(1-9999) /* Local Job Number Range &JRANGE oc*/ /* */ /* *--------------------------------------* * Default PRTY Calculations * *--------------------------------------* */ JOBPRTY(1) PRIORITY=9, /* Job Prty=9 if &RPRI1 ohwnc*/ TIME=2 /* < 2 min. exec. time &RPRT1 ohwnc*/ /* */ JOBPRTY(2) PRIORITY=8, /* Job Prty=8 if < 5 min. &RPRI2 ohwnc*/ TIME=5 /* etc. ohwnc*/ /* */ JOBPRTY(3) PRIORITY=7, /* Job Prty=7 if <15 min. &RPRI2 ohwnc*/ TIME=15 /* etc. ohwnc*/ /* */ JOBPRTY(4) PRIORITY=6, /* Job Prty=6 if nolim &RPRI2 ohwnc*/ TIME=1440 /* etc. ohwnc*/ /* */ /* *--------------------------------------* * Identify JES2 APPLIDs to VTAM * *--------------------------------------* */ LOGON(1) APPLID=JES2, /* ACCESS CONTROL BLOCK (ACB) NAME ohwnc*/ LOG=Y, /* Monitor VTAM interface (Y) ohwnc*/ /* or discontinue monitoring (N) */ TRACEIO=NO /* Trace I/O Activity (YES) ohwnc*/ /* */ /* *--------------------------------------* * TP Line for RJE/NJE * * SNA Line * *--------------------------------------* */ LINE(1) UNIT=SNA /* LOGICAL LINE 1 ohwnc*/ /* */ /* *--------------------------------------* * Multi-Access Spool * *--------------------------------------* */ MASDEF SHARED=NOCHECK, /* MULTI ACCESS SPOOL NOCHECK ohwnc*/ DORMANCY=(100,500), /* ohwnc*/ HOLD=100, /* ohwnc*/ LOCKOUT=1200 /* ohwnc*/ /* */ /* *--------------------------------------* * NJE Definitions * *--------------------------------------* */ NJEDEF DELAY=120, /* Max. Msg Delay Time ohwnc*/ HDRBUF=(LIMIT=100, /* Number of NJE header + trailer ohwnc*/ /* buffers */ WARN=80), /* Warning Threshhold ohwnc*/ JRNUM=2, /* Number of job receivers hwnc*/ JTNUM=2, /* Number of job xmitters hwnc*/ LINENUM=5, /* Number of lines for NJE hwnc*/ MAILMSG=NO, /* Don't automatically issue ohwnc*/ /* notification message */ MAXHOP=0, /* Num. of iterations to limit hwnc*/ /* hoping in network */ /* 0 means no hop counting */ NODENUM=50, /* Max. number of NJE nodes nc*/ OWNNODE=1, /* this node's number c*/ PATH=1, /* number of paths hwnc*/ RESTMAX=8000000, /* Max. resistance tolerance ohwnc*/ RESTNODE=150, /* this node's resistance ohwnc*/ RESTTOL=300, /* Alt. resistance tolerance ohwnc*/ SRNUM=2, /* number of sysout receivers hwnc*/ STNUM=2, /* number of sysout xmitters hwnc*/ TIMETOL=30 /* Time variation between clocks ohwnc*/ /* Times are in 1/100 sec. unless spec'd*/ /* */ /* *--------------------------------------* * Offlaod Data Set * *--------------------------------------* */ OFFLOAD1 DSN=SYS1.OFFLOAD /* DATA SET NAME DSN ohwnc*/ /* No. of Devices (units) UNITCT ohwnc*/ /* */ /* *--------------------------------------* * JES2 Options Definition * *--------------------------------------* */ OPTSDEF LIST=NO, /* Do not copy following init. hwnc*/ /* stmts. to HARDCOPY console */ LOG=NO, /* Do not copy following init stmts hwnc*/ /* to printer defined on HASPLIST */ SPOOL=NOVALIDATE /* Do not validate track group map nc*/ /*--------------------------------------*/ /* The following options can only */ /* be overridden when the JES2 */ /* initialization process is in */ /* CONSOLE mode. */ /*--------------------------------------*/ /* CKPTOPT=HIGHEST * Use highest checkpoint to hwnc*/ /* * restart */ /* CONSOLE=YES * Prompt for more init. stmts. hwnc*/ /* LISTOPT=NO * Support LIST start option hwnc*/ /* LOGOPT=YES * Support LOG start option hwnc*/ /* RECONFIG=YES * Allow op to specify RECONFIG hwnc*/ /* REQMSG=YES * Display HASP400 message hwnc*/ /* */ /* */ /* *--------------------------------------* * Output Class Attributes $$a * *--------------------------------------*/ OUTCLASS(A) BLNKTRNC=YES, /* Truncate trailing blanks wnc*/ OUTDISP=(WRITE,WRITE), /* OUT disp PRINT ownc*/ OUTPUT=PRINT, /* Print Class PRINT wnc*/ TRKCELL=YES /* Track-Cell this Class NOTRKCEL wnc*/ /* */ OUTCLASS(B) BLNKTRNC=YES, /* Truncate trailing blanks wnc*/ OUTDISP=(WRITE,WRITE), /* OUT disp PRINT ownc*/ OUTPUT=PUNCH, /* Print Class PRINT wnc*/ TRKCELL=YES /* Track-Cell this Class NOTRKCEL wnc*/ /* */ OUTCLASS(C) BLNKTRNC=YES, /* Truncate trailing blanks wnc*/ OUTDISP=(WRITE,WRITE), /* OUT disp PRINT ownc*/ OUTPUT=PRINT, /* Print Class PRINT wnc*/ TRKCELL=YES /* Track-Cell this Class NOTRKCEL wnc*/ /* */ OUTCLASS(D) BLNKTRNC=YES, /* TRUNCATE TRAILING BLANKS wnc*/ OUTDISP=(WRITE,WRITE), /* OUT disp PRINT ownc*/ OUTPUT=PRINT, /* Print Class PRINT wnc*/ TRKCELL=YES /* Track-Cell this Class NOTRKCEL wnc*/ /* */ OUTCLASS(H) BLNKTRNC=YES, /* TRUNCATE TRAILING BLANKS wnc*/ OUTDISP=(HOLD,HOLD), /* HOLD disp HOLD ownc*/ OUTPUT=PRINT, /* Print Class PRINT wnc*/ TRKCELL=YES /* Track-Cell this Class NOTRKCEL wnc*/ /* */ OUTCLASS(J) BLNKTRNC=YES, /* TRUNCATE TRAILING BLANKS wnc*/ OUTDISP=(WRITE,WRITE), /* OUT disp PRINT ownc*/ OUTPUT=PRINT, /* Print Class PRINT wnc*/ TRKCELL=YES /* Track-Cell this Class NOTRKCEL wnc*/ /* */ OUTCLASS(K) BLNKTRNC=YES, /* TRUNCATE TRAILING BLANKS wnc*/ OUTDISP=(HOLD,HOLD), /* OUT disp PRINT ownc*/ OUTPUT=PRINT, /* Print Class PRINT wnc*/ TRKCELL=YES /* Track-Cell this Class NOTRKCEL wnc*/ /* */ OUTCLASS(L) BLNKTRNC=YES, /* TRUNCATE TRAILING BLANKS wnc*/ OUTDISP=(WRITE,WRITE), /* OUT disp PRINT ownc*/ OUTPUT=PRINT, /* Print Class PRINT wnc*/ TRKCELL=YES /* Track-Cell this Class NOTRKCEL wnc*/ /* */ OUTCLASS(O) BLNKTRNC=YES, /* TRUNCATE TRAILING BLANKS wnc*/ OUTDISP=(HOLD,HOLD), /* OUT disp PRINT ownc*/ OUTPUT=PRINT, /* Print Class PRINT wnc*/ TRKCELL=YES /* Track-Cell this Class NOTRKCEL wnc*/ /* */ OUTCLASS(X) BLNKTRNC=YES, /* TRUNCATE TRAILING BLANKS wnc*/ OUTDISP=(HOLD,HOLD), /* OUT disp PRINT ownc*/ OUTPUT=PRINT, /* Print Class PRINT wnc*/ TRKCELL=YES /* Track-Cell this Class NOTRKCEL wnc*/ /* */ OUTCLASS(Z) BLNKTRNC=YES, /* TRUNCATE TRAILING BLANKS wnc*/ OUTDISP=(HOLD,HOLD), /* OUT disp PRINT ownc*/ OUTPUT=DUMMY, /* Print Class PRINT wnc*/ TRKCELL=YES /* Track-Cell this Class NOTRKCEL wnc*/ /* */ OUTCLASS(5) BLNKTRNC=YES, /* TRUNCATE TRAILING BLANKS wnc*/ OUTDISP=(PURGE,PURGE), /* OUT disp PRINT ownc*/ OUTPUT=DUMMY, /* Print Class PRINT wnc*/ TRKCELL=YES /* Track-Cell this Class NOTRKCEL wnc*/ /* */ OUTCLASS(9) BLNKTRNC=YES, /* TRUNCATE TRAILING BLANKS wnc*/ OUTDISP=(PURGE,PURGE), /* OUT disp PRINT ownc*/ OUTPUT=DUMMY, /* Print Class PRINT wnc*/ TRKCELL=YES /* Track-Cell this Class NOTRKCEL wnc*/ /* */ /* *--------------------------------------* * Output Characteristics * *--------------------------------------* */ OUTDEF BRODCAST=NO, /* Whether shared broadcasting oc*/ /* is in use by this complex */ COPIES=30, /* MAX. COPIES ALLWD &JCOPYLM ohwnc*/ DMNDSET=NO, /* No Demand Setup &DMNDSET wnc*/ JOENUM=1500, /* MAX. OF JOES &NUMJOES(, c*/ JOEWARN=80, /* Warning Threshold &NUMJOES(,% ohwnc*/ OUTTIME=CREATE, /* Specifies when JOE time saved ohwnc*/ /* (added SP410) */ PRTYHIGH=255, /* Ceiling for PRTY Aging --- ohwnc*/ PRTYLOW=0, /* Floor for PRTY Aging --- ohwnc*/ PRTYOUT=NO, /* No PRTY= on // OUTPUT &PRTYOUT ohwnc*/ PRYORATE=0, /* Don't priority age ohwnc*/ SEGLIM=100, /* Max. number output segments ownc*/ STDFORM=STD, /* Default Forms ID &STDFORM wnc*/ USERSET=NO /* No User Demand-Setup &USERSET wnc*/ /* */ /* *---------------------------------------* * Default Output Priority * *---------------------------------------* */ /* based on records (line mode) */ /* or pages (page mode) */ OUTPRTY(1) PRIORITY=144, /* OUTPUT PRTY IS 144 IF &XPRI1 ohwnc*/ RECORD=2000, /* < 2000 RECORDS (LINE) &XLIN1 ohwnc*/ PAGE=50 /* OR < 50 PAGES (PAGE) &XPAG1 ohwnc*/ /* */ OUTPRTY(2) PRIORITY=128, /* OUTPUT PRTY IS 128 IF &XPRI1 ohwnc*/ RECORD=5000, /* < 5000 RECORDS (LINE) &XLIN1 ohwnc*/ PAGE=100 /* OR <100 PAGES (PAGE) &XPAG1 ohwnc*/ /* */ OUTPRTY(3) PRIORITY=112, /* OUTPUT PRTY IS 112 IF &XPRI1 ohwnc*/ RECORD=15000, /* <15000 RECORDS (LINE) &XLIN1 ohwnc*/ PAGE=300 /* OR <300 PAGES (PAGE) &XPAG1 ohwnc*/ /* */ OUTPRTY(4) PRIORITY=96, /* OUTPUT PRTY IS 96 IF &XPRI1 ohwnc*/ RECORD=, /* < MAX RECORDS (LINE) &XLIN1 ohwnc*/ PAGE= /* OR 0*/ /* &XBATCH Calculated from XBATCH on JOBDEF */ /* */ $$ //* //** Create our overriding PROCLIB //* //NEWPROCL EXEC PGM=IEFBR14 //PROCLIB DD DSN=SYS1.DAVE.PROCLIB, // DISP=(NEW,KEEP),UNIT=3390,VOL=SER=DAVE01, // DCB=(LRECL=80,BLKSIZE=6320,RECFM=FB), // SPACE=(TRK,(15,0,8)) //* //** PROCLIB: JES2 //* //JES2PROC EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //SYSUT2 DD DSN=SYS1.DAVE.PROCLIB(JES2),DISP=SHR, // UNIT=3390,VOL=SER=DAVE01 //SYSUT1 DD DATA,DLM='$$' //JES2 PROC //IEFPROC EXEC PGM=HASJES20, // DPRTY=(15,15),TIME=1440,PERFORM=9 //ALTPARM DD DISP=SHR, // DSN=SYS1.DAVE.PARMLIB(JES2PARM) //HASPPARM DD DISP=SHR, // DSN=SYS1.DAVE.PARMLIB(JES2PARM) //PROC00 DD DISP=SHR, // DSN=SYS1.DAVE.PROCLIB // DD DISP=SHR, // DSN=SYS1.PROCLIB // DD DISP=SHR, // DSN=SYS1.IBM.PROCLIB //IEFRDER DD SYSOUT=* //HASPLIST DD DDNAME=IEFRDER $$ //* //** PROCLIB: VTAM (SNA network) //* //VTAMPROC EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //SYSUT2 DD DSN=SYS1.DAVE.PROCLIB(NET),DISP=SHR, // UNIT=3390,VOL=SER=DAVE01 //SYSUT1 DD DATA,DLM='$$' //VTAM PROC //VTAM EXEC PGM=ISTINM01,REGION=6500K, // DPRTY=(15,15),TIME=1440,PERFORM=8 //VTAMLST DD DISP=SHR, // DSN=SYS1.VTAMLST //VTAMLIB DD DISP=SHR, // DSN=SYS1.VTAMLIB //SISTCLIB DD DISP=SHR, // DSN=SYS1.SISTCLIB //SYSABEND DD SYSOUT=*,HOLD=YES $$ //* //** PROCLIB: Copies SYSLOG to disk //* //XWTRSLOG EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //SYSUT2 DD DSN=SYS1.DAVE.PROCLIB(XWTRSLOG),DISP=SHR, // UNIT=3390,VOL=SER=DAVE01 //SYSUT1 DD DATA,DLM='$$' //XWTRSLOG PROC //* This proc copies the contents of SYSOUT class L (SYSLOG) to a //* disk dataset. Do a "W L" right before issuing it to get it all. //IEFPROC EXEC PGM=IASXWR00,REGION=64K, // PARM='PL',TIME=1440 //IEFRDER DD SPACE=(CYL,(10,10),RLSE),UNIT=3390,VOL=SER=DAVE01, // DSNAME=SYS1.DAVE.SYSLOG.D&LJDAY..T&LHHMMSS, // DISP=(NEW,CATLG), // DCB=(BLKSIZE=13030,LRECL=137,BUFL=13030,BUFNO=2,RECFM=VBM) $$ //* //** PROCLIB: TSO STC //* //TSOSTC EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //SYSUT2 DD DSN=SYS1.DAVE.PROCLIB(TSO),DISP=SHR, // UNIT=3390,VOL=SER=DAVE01 //SYSUT1 DD DATA,DLM='$$' //TSO PROC MBR=TSOKEY00 //STEP1 EXEC PGM=IKTCAS00,TIME=1440 //PARMLIB DD DSN=SYS1.DAVE.PARMLIB(&MBR),DISP=SHR,FREE=CLOSE //PRINTOUT DD SYSOUT=*,FREE=CLOSE //SYSMDUMP DD SYSOUT=*,FREE=CLOSE //SYSUDUMP DD SYSOUT=*,FREE=CLOSE //* $$ //* //** PROCLIB: IKJACCNT //* //TSOPROC EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //SYSUT2 DD DSN=SYS1.DAVE.PROCLIB(IKJACCNT),DISP=SHR, // UNIT=3390,VOL=SER=DAVE01 //SYSUT1 DD DATA,DLM='$$' //IKJACCNT PROC //* This is the default TSO proc that is defined in UADS for IBMUSER //IKJACCNT EXEC PGM=IKJEFT01,DYNAMNBR=256 //SYSHELP DD DISP=SHR,DSN=SYS1.HELP //SYSLBC DD DISP=SHR,DSN=SYS1.BRODCAST //SYSUADS DD DISP=SHR,DSN=SYS1.UADS //SYSPRINT DD TERM=TS,SYSOUT=* //SYSTERM DD TERM=TS,SYSOUT=* //SYSIN DD TERM=TS $$ //* //** VTAMLST: Create VTAM Start options //* //ATCSTRDA EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //SYSUT2 DD DSN=SYS1.VTAMLST(ATCSTRDA),DISP=SHR, // UNIT=3390,VOL=SER=DAVE01 //SYSUT1 DD DATA,DLM='$$' SSCPID=06, X SSCPNAME=EXP, X NETID=DAVE, X CONFIG=DA, X NOPROMPT, X MAXSUBA=31, X SUPP=NOSUP, X HOSTSA=6, X CRPLBUF=(208,,15,,1,16), X IOBUF=(100,128,19,,1,20), X LFBUF=(104,,0,,1,1), X LPBUF=(64,,0,,1,1), X SFBUF=(163,,0,,1,1) */* */* THIS MEMBER CONTAINS ACF/VTAM START OPTIONS */* $$ //* //** VTAMLST: Create VTAM Startup list //* //VTAMSTRT EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //SYSUT2 DD DSN=SYS1.VTAMLST(ATCCONDA),DISP=SHR, // UNIT=3390,VOL=SER=DAVE01 //SYSUT1 DD DATA,DLM='$$' DAVEA, My VTAM applications + LOCAL1, Local terminals for 0080 3174 + LOCAL2 Local terminals for 03A0 3174 + */* */* THIS MEMBER CONTAINS A LIST OF MAJOR NODES WHICH */* ARE TO BE ACTIVATED WHEN ACF/VTAM IS STARTED. */* $$ //* //** VTAMLST: Create VTAM applications //* //VTAMAPPL EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //SYSUT2 DD DSN=SYS1.VTAMLST(DAVEA),DISP=SHR, // UNIT=3390,VOL=SER=DAVE01 //SYSUT1 DD DATA,DLM='$$' DAVEA VBUILD TYPE=APPL APPLICATION MAJOR NODE * ADAJES2 APPL EAS=1, ESTIMATED CONCURRENT SESSIONS * ACBNAME=JES2, APPLID FOR ACB * AUTH=(ACQ,PASS) JES2 CAN ACQUIRE TERMINALS * * ADATSO APPL AUTH=(NOACQ,NOBLOCK,PASS,NOTCAM,NVPACE,TSO,NOPO), X EAS=1,ACBNAME=TSO * * ADATSO01 APPL AUTH=(NOACQ,NOBLOCK,PASS,NOTCAM,NVPACE,TSO,NOPO), X EAS=1,ACBNAME=TSO0001 * * ADATSO02 APPL AUTH=(NOACQ,NOBLOCK,PASS,NOTCAM,NVPACE,TSO,NOPO), X EAS=1,ACBNAME=TSO0002 * * ADATSO03 APPL AUTH=(NOACQ,NOBLOCK,PASS,NOTCAM,NVPACE,TSO,NOPO), X EAS=1,ACBNAME=TSO0003 * * ADATSO04 APPL AUTH=(NOACQ,NOBLOCK,PASS,NOTCAM,NVPACE,TSO,NOPO), X EAS=1,ACBNAME=TSO0004 * * ADATSO05 APPL AUTH=(NOACQ,NOBLOCK,PASS,NOTCAM,NVPACE,TSO,NOPO), X EAS=1,ACBNAME=TSO0005 * * ADATSO06 APPL AUTH=(NOACQ,NOBLOCK,PASS,NOTCAM,NVPACE,TSO,NOPO), X EAS=1,ACBNAME=TSO0006 * * ADATSO07 APPL AUTH=(NOACQ,NOBLOCK,PASS,NOTCAM,NVPACE,TSO,NOPO), X EAS=1,ACBNAME=TSO0007 * * ADATSO08 APPL AUTH=(NOACQ,NOBLOCK,PASS,NOTCAM,NVPACE,TSO,NOPO), X EAS=1,ACBNAME=TSO0008 * * ADATSO09 APPL AUTH=(NOACQ,NOBLOCK,PASS,NOTCAM,NVPACE,TSO,NOPO), X EAS=1,ACBNAME=TSO0009 * * ADATSO10 APPL AUTH=(NOACQ,NOBLOCK,PASS,NOTCAM,NVPACE,TSO,NOPO), X EAS=1,ACBNAME=TSO0010 * $$ //* //** VTAMLST: Create VTAM local terminal defs //* //VTAMLCL1 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //SYSUT2 DD DSN=SYS1.VTAMLST(LOCAL1),DISP=SHR, // UNIT=3390,VOL=SER=DAVE01 //SYSUT1 DD DATA,DLM='$$' LOCAL1 LBUILD * TERM0080 LOCAL CUADDR=0080, X DLOGMOD=D4B32782, X TERM=3277, X FEATUR2=MODEL2, X ISTATUS=ACTIVE, X USSTAB=USSDAVE * TERM0081 LOCAL CUADDR=0081, X DLOGMOD=D4B32782, X TERM=3277, X FEATUR2=MODEL2, X ISTATUS=ACTIVE, X USSTAB=USSDAVE $$ //* //VTAMLCL2 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //SYSUT2 DD DSN=SYS1.VTAMLST(LOCAL2),DISP=SHR, // UNIT=3390,VOL=SER=DAVE01 //SYSUT1 DD DATA,DLM='$$' LOCAL2 LBUILD * TERM03A0 LOCAL CUADDR=03A0, X DLOGMOD=D4B32782, X TERM=3277, X FEATUR2=MODEL2, X ISTATUS=ACTIVE, X USSTAB=USSDAVE * TERM03A1 LOCAL CUADDR=03A1, X DLOGMOD=D4B32782, X TERM=3277, X FEATUR2=MODEL2, X ISTATUS=ACTIVE, X USSTAB=USSDAVE $$ //* //** ASSEMBLE our USS table //* //ASMUSS EXEC HLASMCL //C.SYSLIB DD // DD DISP=SHR,DSN=SYS1.MODGEN // DD DISP=SHR,DSN=SYS1.SISTMAC1 //C.SYSIN DD * PRINT NOGEN *********************************************************************** *** *** ** USS TABLE FOR NON-SNA LOCAL AND BSC 3277 AND 3278-2. ** ** ASSEMBLE AND LINK TO 'SYS1.VTAMLIB(USSDAVE)'. ** ** ** ** - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ** ** ** ** Sample definition in 'SYS1.VTAMLST(LOCAL06F)': ** ** LOCAL06F LBUILD ** ** TXFCA LOCAL CUADDR=FCA, C ** ** DLOGMOD=BSC32785, C ** ** FEATUR2=MODEL2, C ** ** MODETAB=VMODETAB, C ** ** TERM=3277, C ** ** USSTAB=USSDAVE ** ** * ------- ** *** *** *********************************************************************** USSDAVE USSTAB TABLE=STDTRANS * * VTAM APPLICATIONS * TSO USSCMD CMD=TSO,REP=LOGON,FORMAT=BAL USSPARM PARM=P1,REP=DATA USSPARM PARM=P2,REP=LOGMODE USSPARM PARM=APPLID,DEFAULT=TSO * TSO2G USSCMD CMD=TSO2G,FORMAT=BAL,REP=LOGON USSPARM PARM=APPLID,DEFAULT=TSO USSPARM PARM=P1,REP=DATA USSPARM PARM=LOGMODE,DEFAULT=BSC32792 * TSO3G USSCMD CMD=TSO3G,FORMAT=BAL,REP=LOGON USSPARM PARM=APPLID,DEFAULT=TSO USSPARM PARM=P1,REP=DATA USSPARM PARM=LOGMODE,DEFAULT=BSC32793 * TSO2 USSCMD CMD=TSO2,FORMAT=BAL,REP=LOGON USSPARM PARM=APPLID,DEFAULT=TSO USSPARM PARM=P1,REP=DATA USSPARM PARM=LOGMODE,DEFAULT=BSC32782 * TSO3 USSCMD CMD=TSO3,FORMAT=BAL,REP=LOGON USSPARM PARM=APPLID,DEFAULT=TSO USSPARM PARM=P1,REP=DATA USSPARM PARM=LOGMODE,DEFAULT=BSC32783 * TSO4 USSCMD CMD=TSO4,FORMAT=BAL,REP=LOGON USSPARM PARM=APPLID,DEFAULT=TSO USSPARM PARM=P1,REP=DATA USSPARM PARM=LOGMODE,DEFAULT=BSC32784 * TSO5 USSCMD CMD=TSO5,FORMAT=BAL,REP=LOGON USSPARM PARM=APPLID,DEFAULT=TSO USSPARM PARM=P1,REP=DATA USSPARM PARM=LOGMODE,DEFAULT=BSC32785 * * MISCELLANEOUS * L USSCMD CMD=L,REP=LOGON,FORMAT=BAL ABBREVIATED USSPARM PARM=P1,REP=APPLID GENERAL LOGON USSPARM PARM=P2,REP=LOGMODE USSPARM PARM=P3,REP=DATA LOGOFF USSCMD CMD=LOGOFF,FORMAT=PL1 USSPARM PARM=APPLID USSPARM PARM=TYPE,DEFAULT=UNCOND USSPARM PARM=HOLD,DEFAULT=YES EJECT *********************************************************************** *** *** ** MESSAGES ** *** *** *********************************************************************** USSMSG MSG=0,TEXT='USS00 Command successfull for %' USSMSG MSG=1,TEXT='USS01 Invalid command syntax: %' USSMSG MSG=2,TEXT='USS02 % Command unrecognized.' USSMSG MSG=3,TEXT='USS03 % Parameter unrecognized.' USSMSG MSG=4,TEXT='USS04 % Parameter invalid.' USSMSG MSG=5,BUFFER=MSG5 USSMSG MSG=6,TEXT='USS06 Sequence error.' USSMSG MSG=7,TEXT='USS07 Session not bound.' USSMSG MSG=8,TEXT='USS08 Insufficient Storage.' USSMSG MSG=9,TEXT='USS09 Mag. Card error, SAY WHAT??' USSMSG MSG=10,BUFFER=MSG5 USSMSG MSG=11,TEXT='USS11 That''s all Folks...' USSMSG MSG=12,TEXT='USS12 Required Parameter missing' USSMSG MSG=13,TEXT='DAVE*dave*DAVE*dave*DAVE*dave*DAVE' USSMSG MSG=14,TEXT='USS14 USS Message % not defined' EJECT *********************************************************************** *** *** ** FULL SCREEN VTAM SCREEN ** *** *** *********************************************************************** MSG5 DC AL2(MSG5E-MSG5-2) DC X'F5' COMMAND CODE DC X'C3' WCC DC X'11,40,40,3C,40,40,00' CLEAR THE SCREEN DC X'1D,60' HIGH INTEN, PROTECTED DC X'28,41,F2' REVERSE VIDEO * DC X'11405A' LOCATE 1,27 DC X'28,41,F2' REVERSE VIDEO DC C' David Alcock''s ' * DC X'11C16A' LOCATE 2,27 DC C' One Pack System ' * DC X'11C27A' LOCATE 3,27 DC C' ACF/VTAM Network ' * DC X'1D,60' HIGH INTEN, PROTECTED DC X'28,41,00' BACK TO DEFAULT (NORMAL) DC X'11C37C' LOCATE 4,13 DC C'DDDDDDDD' * DC X'11C54B' LOCATE 5,12 DC C'DDD DDDD ' DC C' $$$ ' * DC X'11C65A' LOCATE 6,11 DC C'DDD DDD AAAAAAAAA VVVV VVVV E' DC C'EEEEEEE $$ SSSSSSSSS ' * DC X'11C7E9' LOCATE 7,10 DC C'DDD DDD AAA VVV VVV EEE' DC C' EEE SSSS SS ' * DC X'11C8F8' LOCATE 8, 9 DC C'DDD DDD AAA AAA VVV VVV EEE' DC C'EEEEEEEEE SSSSSS ' * DC X'114AC7' LOCATE 9, 8 DC C'DDD DDD AAAAAAAAAA VVV VVV EEE' DC C'EEEEEEEE SSSSS ' * DC X'114BD6' LOCATE 10, 7 DC C'DDD DDDD AAAA AAAA VVVVV EEE' DC C' SS SSSS ' * DC X'114CE4' LOCATE 11, 5 DC C'DDDDDDDDDD AAAAA AAAAAA VVVV E' DC C'EEEEEEEEEEE SSSSSSSSSS ' * DC X'114FD1' LOCATE 13,18 DC C'TTTTTTTTTTTTT BBBBB' * DC X'1150E5' LOCATE 14,22 DC C'TTT BBB' * DC X'11D1F4' LOCATE 15,21 DC C'TTT BBB' * DC X'11D3C3' LOCATE 16,20 DC C'TTT UUUUU UUU BBB BBBB EEEE' DC C'EEEE ' * DC X'11D4D2' LOCATE 17,19 DC C'TTT UUU UUU BBBB BBBB EEE ' DC C' EEE ' * DC X'11D561' LOCATE 18,18 DC C'TTT UUU UUU BBB BBB EEEEEE' DC C'EEEEEE ' * DC X'11D6F0' LOCATE 19,17 DC C'TTT UUU UUU BBB BBB EEEEEE' DC C'EEEEE ' * DC X'11D77F' LOCATE 20,16 DC C'TTT UUU UUU BBB BBB EEE' * DC X'11D94E' LOCATE 21,15 DC C'TTT UUUUUUUU BBBBBBBBBBB EEEEE' DC C'EEEEEEE ' * DC X'1D,60' LOW INTEN, PROTECTED DC X'28,41,F4' EXT-HIGHLITE: UNDERLINE DC X'115B61' LOCATE 23, 2 DC C'Enter Application Keyword' * DC X'28,41,F1' DC X'1D,E8' HIGH INTEN, PROTECTED DC X'115CF1' LOCATE 24, 2 DC C'===>' DC X'1D,40' LOW INTEN, UNPROTECTED DC X'28,41,00' RETURN TO DEFAULT DC C' ' * DC X'115CF6' LOCATE 24,7 DC X'13' INSERT CURSOR MSG5E EQU * EJECT *********************************************************************** *** *** ** OTHER FULLSCREEN MESSAGES ** *** *** *********************************************************************** MSG11 DC AL2(MSG11E-MSG11-2) DC X'F5C3' ERASE/WRITE AND WCC DC X'1140403C4040001D60' ERASE FULL SCREEN DC C'That''s all folks...' MSG11E EQU * EJECT *********************************************************************** *** *** ** STANDARD Translation table ** *** *** *********************************************************************** STDTRANS DS 0D DC XL16'08090A0B0C0D0E0F' DC XL16'18191A1B1C1D1E1F' DC XL16'28292A2B2C2D2E2F' DC XL16'38393A3B3C3D3E3F' DC XL16'48494A4B4C4D4E4F' DC XL16'58595A5B5C5D5E5F' DC XL16'68696A6B6C6D6E6F' DC XL16'78797A7B7C7D7E7F' DC XL16'80C1C2C3C4C5C6C7C8C98A8B8C8D8E8F' DC XL16'90D1D2D3D4D5D6D7D8D99A9B9C9D9E9F' DC XL16'A0A1E2E3E4E5E6E7E8E9AAABACADAEAF' DC XL16'B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF' DC XL16'C0C1C2C3C4C5C6C7C8C9CACBCCCDCECF' DC XL16'D0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF' DC XL16'E0E1E2E3E4E5E6E7E8E9EAEBECEDEEEF' DC XL16'F0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF' USSEND END //L.SYSLMOD DD DISP=SHR,DSN=SYS1.VTAMLIB(USSDAVE), // UNIT=3390,VOL=SER=DAVE01 //* //** PROCLIB: Run SHOWMVS //* //SHOWMVSP EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //SYSUT2 DD DSN=SYS1.DAVE.PROCLIB(SHOWMVS),DISP=SHR, // UNIT=3390,VOL=SER=DAVE01 //SYSUT1 DD DATA,DLM='$$' //SHOWMVS PROC //* This proc shows just about everything about OS/390 (MVS) //MISSOURI EXEC PGM=SHOWMVS,TIME=1440,REGION=6M //*//SHOWMVS DD SYSOUT=* //SHOWMVS DD SPACE=(CYL,(2,2),RLSE),UNIT=3390,VOL=SER=DAVE01, // DSNAME=SYS1.DAVE.SHOWMVS, // DISP=(NEW,CATLG) $$ //* //** LINKLIB: (optional) Copy SHOWMVS to this system //* //SHOWMVSL EXEC PGM=IEBCOPY //SYSPRINT DD SYSOUT=* //SYSUT1 DD DISP=SHR,DSN=&SYSUID..XPACKAGE.FILE183.LOAD //SYSUT2 DD DISP=SHR,DSN=SYS1.LINKLIB, // UNIT=3390,VOL=SER=DAVE01 //SYSIN DD * COPY INDD=SYSUT1,OUTDD=SYSUT2 SELECT MEMBER=SHOWMVS