mirror of
https://github.com/moshix/mvs.git
synced 2026-02-26 16:23:29 +00:00
add very useful JCL job
This commit is contained in:
Moshix
36
usefuljcl/$README.txt
Normal file
36
usefuljcl/$README.txt
Normal file
@@ -0,0 +1,36 @@
|
||||
**************************************************************** 00001002
|
||||
* * 00002002
|
||||
* THE FOLLOWING IS A LIST OF EXAMPLE JOBS * 00003002
|
||||
* THAT COMPANY XYZ MIGHT USE ON A NEW ADCD V2R9 SYSTEM * 00004007
|
||||
* * 00005002
|
||||
**************************************************************** 00007002
|
||||
J - SAMPLE JOB CARD 00010000
|
||||
DB2CATLG DB2 CATALOG FOR INPUT TO SPUFI 00020001
|
||||
SUPPORT - WEBSITE INFORMATION FOR ISV'S 00022000
|
||||
XYZ0000 - PASSWORD RESET USERID'S P390A-Z OPEN1-2 TESTER 00030001
|
||||
XYZ0001 - INITIALIZE DISK VOLUME 00040001
|
||||
XYZ0002 - DEFINE VSAM VVDS 00050001
|
||||
XYZ0003 - DEFINE USER CATALOG USERCAT.XYZ 00060001
|
||||
XYZ0004 - DEFINE ALIAS XYZ IN USERCAT.XYZ 00070001
|
||||
XYZ0005 - DEFINE USER ALIAS AND 'FULL AUTHORITY' LOGON USERIDS 00080003
|
||||
XYZ0006 - DEFINE XYZ STORAGE VOLUME XYZWRK 00090001
|
||||
XYZ0007 - DEFINE ADDITIONAL SYSTEM PAGESPACE 00100001
|
||||
XYZ0008 - INITIALIZE DISK VOLUME 00110001
|
||||
XYZ0009 - INCREASE JES2 SPOOL SPACE 00120004
|
||||
XYZ0010 - RE-LABEL DISK VOLUMES 00130001
|
||||
XYZ0011 - INITIALIZE TAPES (CREATE TAPE LABELS) 00140001
|
||||
XYZ0012 - WRITE DATASET TO TAPE 00150001
|
||||
XYZ0013 - ALLOCATE LARGE HFS DATASET 00160005
|
||||
XYZ0014 - RE-LABEL UNIT ADDRESS 38B AS VOLUME NAME RESTOR 00170001
|
||||
XYZ0015 - INITIALIZE VOLUMES DB2000-DB200A 00180001
|
||||
XYZ0016 - DEFINE VSAM VVDS'S FOR DB2 VOLUMES 00190001
|
||||
XYZ0017 - DEFINE DB2 USER CATALOG USERCAT.XYZDB2 00200001
|
||||
XYZ0018 - DEFINE ALIAS DB2T DB2A DB2P IN USERCAT.XYZDB2 00210001
|
||||
XYZ0019 - COPY ADCD VOLUMES DISK-TO-DISK 00220004
|
||||
XYZ0020 - EXAMPLE OF HOW TO HANDLE REMOTE NFS MOUNTS FROM MVS 00240006
|
||||
XYZ0021 - RESTORE DISK VOLUME FROM TAPE 00241006
|
||||
XYZ0022 - DUMP DISK VOLUME TO TAPE 00250001
|
||||
XYZ0023 - DUMP DISK VOLUMES 300 - 309 00260001
|
||||
XYZ0024 - MOVE DISK DATASETS TO DIFFERENT DISK VOLUME 00270001
|
||||
XYZ0025 - DUMP SELECTED DISK DATASETS TO TAPE 00280001
|
||||
XYZ0026 - RESTORE SELECTED DISK DATASET FROM TAPE 00290001
|
||||
61
usefuljcl/DB2CATLG.txt
Normal file
61
usefuljcl/DB2CATLG.txt
Normal file
@@ -0,0 +1,61 @@
|
||||
GRANT SYSADM TO SPMU; 00010002
|
||||
--SELECT * FROM SYSIBM.IPNAMES; 00010100
|
||||
--SELECT * FROM SYSIBM.LOCATIONS; 00010200
|
||||
--SELECT * FROM SYSIBM.LULIST; 00010300
|
||||
--SELECT * FROM SYSIBM.LUMODES; 00010400
|
||||
--SELECT * FROM SYSIBM.LUNAMES; 00010500
|
||||
--SELECT * FROM SYSIBM.MODESELECT; 00010600
|
||||
--SELECT * FROM SYSIBM.SYSAUXRELS; 00010700
|
||||
--SELECT * FROM SYSIBM.SYSCHECKDEP; 00010800
|
||||
--SELECT * FROM SYSIBM.SYSCHECKS; 00010900
|
||||
--SELECT * FROM SYSIBM.SYSCOLAUTH; 00011000
|
||||
--SELECT * FROM SYSIBM.SYSCOLDIST; 00011100
|
||||
--SELECT * FROM SYSIBM.SYSCOLDISTSTATS; 00011200
|
||||
--SELECT * FROM SYSIBM.SYSCOLSTATS; 00011300
|
||||
--SELECT * FROM SYSIBM.SYSCOLUMNS; 00011400
|
||||
--SELECT * FROM SYSIBM.SYSCONSTDEP; 00011500
|
||||
--SELECT * FROM SYSIBM.SYSCOPY; 00011600
|
||||
--SELECT * FROM SYSIBM.SYSDATABASE; 00011700
|
||||
--SELECT * FROM SYSIBM.SYSDATATYPES; 00011800
|
||||
--SELECT * FROM SYSIBM.SYSDBAUTH; 00011902
|
||||
--SELECT * FROM SYSIBM.SYSDBRM; 00012000
|
||||
--SELECT * FROM SYSIBM.SYSDUMMY1; 00012100
|
||||
--SELECT * FROM SYSIBM.SYSFIELDS; 00012200
|
||||
--SELECT * FROM SYSIBM.SYSFOREIGHKEYS; 00012300
|
||||
--SELECT * FROM SYSIBM.SYSINDEXES; 00012400
|
||||
--SELECT * FROM SYSIBM.SYSINDEXPART; 00012500
|
||||
--SELECT * FROM SYSIBM.SYSINDEXSTATS; 00012600
|
||||
--SELECT * FROM SYSIBM.SYSKEYS; 00012700
|
||||
--SELECT * FROM SYSIBM.SYSLOBSTATS; 00012800
|
||||
--SELECT * FROM SYSIBM.SYSPACKAGE; 00012900
|
||||
--SELECT * FROM SYSIBM.SYSPACKAUTH; 00013002
|
||||
--SELECT * FROM SYSIBM.SYSPACKDEP; 00013100
|
||||
--SELECT * FROM SYSIBM.SYSPACKLIST; 00013200
|
||||
--SELECT * FROM SYSIBM.SYSPACKSTMT; 00013300
|
||||
--SELECT * FROM SYSIBM.SYSPARMS; 00013400
|
||||
--SELECT * FROM SYSIBM.SYSPKSYSTEM; 00013500
|
||||
--SELECT * FROM SYSIBM.SYSPLAN; 00013600
|
||||
--SELECT * FROM SYSIBM.SYSPLANAUTH; 00013702
|
||||
--SELECT * FROM SYSIBM.SYSPLANDEP; 00013800
|
||||
--SELECT * FROM SYSIBM.SYSPLSYSTEM; 00013900
|
||||
--SELECT * FROM SYSIBM.SYSPROCEDURES; 00014001
|
||||
--SELECT * FROM SYSIBM.SYSRELS; 00014100
|
||||
--SELECT * FROM SYSIBM.SYSRESAUTH; 00014202
|
||||
--SELECT * FROM SYSIBM.SYSROUTINEAUTH; 00014302
|
||||
--SELECT * FROM SYSIBM.SYSROUTINES; 00014400
|
||||
--SELECT * FROM SYSIBM.SYSSCHEMAUTH; 00014502
|
||||
--SELECT * FROM SYSIBM.SYSSTMT; 00014600
|
||||
--SELECT * FROM SYSIBM.SYSSTOGROUP; 00014700
|
||||
--SELECT * FROM SYSIBM.SYSSTRINGS; 00014800
|
||||
--SELECT * FROM SYSIBM.SYSSYNONYMS; 00014900
|
||||
--SELECT * FROM SYSIBM.SYSTABAUTH; 00015002
|
||||
--SELECT * FROM SYSIBM.SYSTABLEPART; 00015100
|
||||
--SELECT * FROM SYSIBM.SYSTABLES; 00015200
|
||||
--SELECT * FROM SYSIBM.SYSTABLESPACE; 00015300
|
||||
--SELECT * FROM SYSIBM.SYSTABLESTATS; 00015400
|
||||
--SELECT * FROM SYSIBM.SYSTRIGGERS; 00015500
|
||||
--SELECT * FROM SYSIBM.SYSUSERAUTH; 00015602
|
||||
--SELECT * FROM SYSIBM.SYSVIEWDEP; 00015700
|
||||
--SELECT * FROM SYSIBM.SYSVIEWS; 00015800
|
||||
--SELECT * FROM SYSIBM.SYSVOLUMES; 00015900
|
||||
--SELECT * FROM SYSIBM.USERNAMES; 00016000
|
||||
1
usefuljcl/J.txt
Normal file
1
usefuljcl/J.txt
Normal file
@@ -0,0 +1 @@
|
||||
//XYZ0001 JOB ' ',NOTIFY=&SYSUID 00010000
|
||||
42
usefuljcl/SUPPORT.txt
Normal file
42
usefuljcl/SUPPORT.txt
Normal file
@@ -0,0 +1,42 @@
|
||||
SYS1.README on OS39Rx
|
||||
http://198.81.193.6/adcd.html
|
||||
|
||||
Resource Link
|
||||
http://notes.s390.ibm.com/servers/resourcelink/hom03010.nsf?OpenDataBase
|
||||
|
||||
Documentation
|
||||
http://www.s390.ibm.com/os390/bkserv
|
||||
|
||||
Porting to OS/390 information
|
||||
http://www.s390.ibm.com/products/adtools/porting
|
||||
|
||||
OS/390 Unix System Services Porrting Information
|
||||
http://www.s390.ibm.com/products/oe/bpxa1por.html
|
||||
|
||||
Key publications for porting activities
|
||||
http://www.s390.ibm.com/products/adtools/pubs/
|
||||
|
||||
FAQ
|
||||
http://www.developer.ibm.com/tech/faq/
|
||||
|
||||
BBS
|
||||
http://www.developer.ibm.com/sdp/bbaccess.html
|
||||
|
||||
Hotline
|
||||
1-800-627-8363 us/canada
|
||||
1-770-835-9902 worldwide
|
||||
|
||||
Software Defect
|
||||
1-800-237-5511 us
|
||||
1-770-955-6016 outside us
|
||||
|
||||
Software Maintenance
|
||||
http://techsupport.services.ibm.com/390/psd-adv.html
|
||||
http://techsupport.services.ibm.com/390register/regform.html?
|
||||
|
||||
Red Alerts
|
||||
http://techsupport.services.ibm.com/390/redalerts.html
|
||||
|
||||
Hardware Defect
|
||||
1-800-IBM-SERV
|
||||
|
||||
38
usefuljcl/XYZ0000.txt
Normal file
38
usefuljcl/XYZ0000.txt
Normal file
@@ -0,0 +1,38 @@
|
||||
//XYZ0000 JOB ' ',NOTIFY=&SYSUID 00010000
|
||||
//RESETPW EXEC PGM=IKJEFT01,DYNAMNBR=75,TIME=100,REGION=6M
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSTSPRT DD SYSOUT=*
|
||||
//SYSTERM DD DUMMY
|
||||
//SYSUADS DD DSN=SYS1.UADS,DISP=SHR
|
||||
//SYSLBC DD DSN=SYS1.BRODCAST,DISP=SHR
|
||||
//SYSTSIN DD *
|
||||
ALU P390A PASSWORD(TEST) RESUME
|
||||
ALU P390B PASSWORD(TEST) RESUME
|
||||
ALU P390C PASSWORD(TEST) RESUME
|
||||
ALU P390D PASSWORD(TEST) RESUME
|
||||
ALU P390E PASSWORD(TEST) RESUME
|
||||
ALU P390F PASSWORD(TEST) RESUME
|
||||
ALU P390G PASSWORD(TEST) RESUME
|
||||
ALU P390H PASSWORD(TEST) RESUME
|
||||
ALU P390I PASSWORD(TEST) RESUME
|
||||
ALU P390J PASSWORD(TEST) RESUME
|
||||
ALU P390K PASSWORD(TEST) RESUME
|
||||
ALU P390L PASSWORD(TEST) RESUME
|
||||
ALU P390M PASSWORD(TEST) RESUME
|
||||
ALU P390N PASSWORD(TEST) RESUME
|
||||
ALU P390O PASSWORD(TEST) RESUME
|
||||
ALU P390P PASSWORD(TEST) RESUME
|
||||
ALU P390Q PASSWORD(TEST) RESUME
|
||||
ALU P390R PASSWORD(TEST) RESUME
|
||||
ALU P390S PASSWORD(TEST) RESUME
|
||||
ALU P390T PASSWORD(TEST) RESUME
|
||||
ALU P390U PASSWORD(TEST) RESUME
|
||||
ALU P390V PASSWORD(TEST) RESUME
|
||||
ALU P390W PASSWORD(TEST) RESUME
|
||||
ALU P390X PASSWORD(TEST) RESUME
|
||||
ALU P390Y PASSWORD(TEST) RESUME
|
||||
ALU P390Z PASSWORD(TEST) RESUME
|
||||
ALU OPEN1 PASSWORD(SYS1) RESUME
|
||||
ALU OPEN2 PASSWORD(SYS1) RESUME
|
||||
ALU OPEN3 PASSWORD(SYS1) RESUME
|
||||
ALU TESTER PASSWORD(TEST) RESUME
|
||||
11
usefuljcl/XYZ0001.txt
Normal file
11
usefuljcl/XYZ0001.txt
Normal file
@@ -0,0 +1,11 @@
|
||||
//XYZ0001 JOB ' ',NOTIFY=&SYSUID 00010000
|
||||
//**************************************************************** 00021000
|
||||
//* 00022000
|
||||
//* INITIALIZE AND LABEL A DISK STORAGE VOLUME 00023000
|
||||
//* 00024000
|
||||
//**************************************************************** 00025000
|
||||
//ICKDSF EXEC PGM=ICKDSF,REGION=4096K 00030000
|
||||
//SYSPRINT DD SYSOUT=* 00040000
|
||||
//SYSIN DD * 00050000
|
||||
INIT UNIT(310) NOVALIDATE NVFY VOLID(XYZ001) PURGE - 00060000
|
||||
VTOC(0,1,30) 00061000
|
||||
5
usefuljcl/XYZ0002.txt
Normal file
5
usefuljcl/XYZ0002.txt
Normal file
@@ -0,0 +1,5 @@
|
||||
//XYZ0002 JOB ' ',NOTIFY=&SYSUID 00010000
|
||||
//S1 EXEC PGM=IDCAMS 00070000
|
||||
//SYSPRINT DD SYSOUT=* 00080000
|
||||
//SYSIN DD * 00090000
|
||||
DEFINE CL(NAME(SYS1.VVDS.VXYZ001) CYL(1 1) VOL(XYZ001) NIXD) 00100000
|
||||
9
usefuljcl/XYZ0003.txt
Normal file
9
usefuljcl/XYZ0003.txt
Normal file
@@ -0,0 +1,9 @@
|
||||
//XYZ0003 JOB ' ',NOTIFY=&SYSUID 00020000
|
||||
//S1 EXEC PGM=IDCAMS 00030000
|
||||
//SYSPRINT DD SYSOUT=* 00040000
|
||||
//SYSIN DD * 00050000
|
||||
DEFINE USERCATALOG - 00060000
|
||||
( NAME(USERCAT.XYZ) - 00070000
|
||||
VOLUME(XYZ001) - 00080000
|
||||
CYLINDERS(5 2) - 00090000
|
||||
MODEL(USERCAT.VOS39P9)) 00100000
|
||||
6
usefuljcl/XYZ0004.txt
Normal file
6
usefuljcl/XYZ0004.txt
Normal file
@@ -0,0 +1,6 @@
|
||||
//XYZ0004 JOB ' ',NOTIFY=&SYSUID 00020000
|
||||
//S1 EXEC PGM=IDCAMS 00030000
|
||||
//SYSPRINT DD SYSOUT=* 00040000
|
||||
//SYSIN DD * 00050000
|
||||
DEFINE ALIAS (NAME(XYZ) RELATE(USERCAT.XYZ)) 00080000
|
||||
DEFINE ALIAS (NAME(DUMP) RELATE(USERCAT.XYZ)) 00090000
|
||||
31
usefuljcl/XYZ0005.txt
Normal file
31
usefuljcl/XYZ0005.txt
Normal file
@@ -0,0 +1,31 @@
|
||||
//XYZ0005 JOB ' ','ADD NEW USERID',MSGCLASS=H,MSGLEVEL=(1,1),
|
||||
// REGION=4M,TIME=1440,NOTIFY=&SYSUID,CLASS=A
|
||||
//S1 EXEC PGM=IDCAMS
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSIN DD *
|
||||
DEFINE ALIAS (NAME(HERMAN) RELATE(USERCAT.XYZ))
|
||||
//NEWID EXEC PGM=IKJEFT01,DYNAMNBR=75,TIME=100,REGION=6M
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSTSPRT DD SYSOUT=*
|
||||
//SYSTERM DD DUMMY
|
||||
//SYSUADS DD DSN=SYS1.UADS,DISP=SHR
|
||||
//SYSLBC DD DSN=SYS1.BRODCAST,DISP=SHR
|
||||
//SYSTSIN DD *
|
||||
DD 'HERMAN.*'
|
||||
DU HERMAN
|
||||
AU HERMAN NAME('Herman Hollerith') PASSWORD(HERMAN) -
|
||||
OWNER(SYS1) DFLTGRP(SYS1) UACC(READ) OPERATIONS SPECIAL -
|
||||
TSO(ACCTNUM(ACCT#) PROC(ISPFPROC) JOBCLASS(A) MSGCLASS(X) -
|
||||
HOLDCLASS(X) SYSOUTCLASS(X) SIZE(4048) MAXSIZE(0)) -
|
||||
OMVS(HOME(/u/herman) PROGRAM(/bin/sh) UID(0))
|
||||
PERMIT ACCT# CLASS(ACCTNUM) ID(HERMAN)
|
||||
PERMIT ISPFPROC CLASS(TSOPROC) ID(HERMAN)
|
||||
PERMIT DBSPROC CLASS(TSOPROC) ID(HERMAN)
|
||||
PERMIT JCL CLASS(TSOAUTH) ID(HERMAN)
|
||||
PERMIT OPER CLASS(TSOAUTH) ID(HERMAN)
|
||||
PERMIT ACCT CLASS(TSOAUTH) ID(HERMAN)
|
||||
PERMIT MOUNT CLASS(TSOAUTH) ID(HERMAN)
|
||||
AD 'HERMAN.*' OWNER(HERMAN) UACC(READ) GENERIC
|
||||
SETROPTS REFRESH RACLIST(TSOPROC)
|
||||
MKDIR '/u/herman'
|
||||
LOGOFF
|
||||
15
usefuljcl/XYZ0006.txt
Normal file
15
usefuljcl/XYZ0006.txt
Normal file
@@ -0,0 +1,15 @@
|
||||
//XYZ0006 JOB ' ',NOTIFY=&SYSUID 00010000
|
||||
//**************************************************************** 00020000
|
||||
//* 00021000
|
||||
//* INITIALIZE AND LABEL A DISK STORAGE VOLUME 00022000
|
||||
//* 00023000
|
||||
//**************************************************************** 00024000
|
||||
//ICKDSF EXEC PGM=ICKDSF,REGION=4096K 00025000
|
||||
//SYSPRINT DD SYSOUT=* 00026000
|
||||
//SYSIN DD * 00027000
|
||||
INIT UNIT(311) NOVALIDATE NVFY VOLID(XYZWRK) PURGE VTOC(0,1,30) 00029000
|
||||
//XYZ1006 JOB ' ',NOTIFY=&SYSUID,TYPRUN=HOLD 00030000
|
||||
//S1 EXEC PGM=IDCAMS 00040000
|
||||
//SYSPRINT DD SYSOUT=* 00050000
|
||||
//SYSIN DD * 00060000
|
||||
DEFINE CL(NAME(SYS1.VVDS.VXYZWRK) CYL(2 1) VOL(XYZWRK) NIXD) 00070000
|
||||
18
usefuljcl/XYZ0007.txt
Normal file
18
usefuljcl/XYZ0007.txt
Normal file
@@ -0,0 +1,18 @@
|
||||
//XYZ0007 JOB ' ',NOTIFY=&SYSUID 00020000
|
||||
//S0 EXEC PGM=ICKDSF,REGION=4096K 00080000
|
||||
//SYSPRINT DD SYSOUT=* 00090000
|
||||
//SYSIN DD * 00100000
|
||||
INIT UNIT(312) NOVALIDATE NVFY VOLID(XYZPAG) PURGE VTOC(0,1,30) 00110000
|
||||
//XYZ1007 JOB ' ',NOTIFY=&SYSUID,TYPRUN=HOLD 00120000
|
||||
//S1 EXEC PGM=IDCAMS 00130000
|
||||
//SYSPRINT DD SYSOUT=* 00140000
|
||||
//SYSIN DD * 00150000
|
||||
DEFINE CL(NAME(SYS1.VVDS.VXYZPAG) CYL(2 1) VOL(XYZPAG) NIXD) 00160000
|
||||
//XYZ2007 JOB ' ',NOTIFY=&SYSUID,TYPRUN=HOLD 00170000
|
||||
//S2 EXEC PGM=IDCAMS 00180000
|
||||
//SYSPRINT DD SYSOUT=* 00190000
|
||||
//SYSIN DD * 00200000
|
||||
DEFINE PAGESPACE (NAME(SYS1.LOCAL1.PAGE) - 00220000
|
||||
VOLUME(XYZPAG) CYLINDERS(1500)) 00240000
|
||||
DEFINE PAGESPACE (NAME(SYS1.LOCAL2.PAGE) - 00250000
|
||||
VOLUME(XYZPAG) CYLINDERS(500)) 00260000
|
||||
5
usefuljcl/XYZ0008.txt
Normal file
5
usefuljcl/XYZ0008.txt
Normal file
@@ -0,0 +1,5 @@
|
||||
//XYZ0008 JOB ' ',NOTIFY=&SYSUID 00010001
|
||||
//ICKDSF EXEC PGM=ICKDSF,REGION=4096K 00025000
|
||||
//SYSPRINT DD SYSOUT=* 00026000
|
||||
//SYSIN DD * 00027000
|
||||
INIT UNIT(30C) NOVALIDATE NVFY VOLID(OS39MX) PURGE VTOC(0,1,30) 00028000
|
||||
11
usefuljcl/XYZ0009.txt
Normal file
11
usefuljcl/XYZ0009.txt
Normal file
@@ -0,0 +1,11 @@
|
||||
//XYZ0020 JOB ' ',NOTIFY=&SYSUID 00010000
|
||||
//**************************************************************** 00021000
|
||||
//* 00022000
|
||||
//* ALLOCATE JES2 SPOOL DATASET 00023000
|
||||
//* 00024000
|
||||
//**************************************************************** 00025000
|
||||
//IEFBR14 EXEC PGM=IEFBR14 00030000
|
||||
//SYSPRINT DD SYSOUT=* 00040000
|
||||
//DD1 DD DSN=SYS1.HASPACE,VOL=SER=OS39MX,UNIT=3390,DISP=(,KEEP), 00041000
|
||||
// DCB=RECFM=U,SPACE=(CYL,1500) 00042000
|
||||
//SYSIN DD DUMMY 00050000
|
||||
10
usefuljcl/XYZ0010.txt
Normal file
10
usefuljcl/XYZ0010.txt
Normal file
@@ -0,0 +1,10 @@
|
||||
//XYZ0010 JOB ' ',NOTIFY=&SYSUID 00010000
|
||||
//****************************************************************
|
||||
//* THIS IS AN EXAMPLE OF A JOB THAT WILL:
|
||||
//* RE-LABEL A DISK VOLUME - DOES NOT PURGE DISK DATA
|
||||
//*
|
||||
//****************************************************************
|
||||
//ICKDSF EXEC PGM=ICKDSF,REGION=4096K
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSIN DD *
|
||||
REFORMAT UNITADDRESS(38B) VERIFY(XYZ001) VOLID(XYZ999)
|
||||
35
usefuljcl/XYZ0011.txt
Normal file
35
usefuljcl/XYZ0011.txt
Normal file
@@ -0,0 +1,35 @@
|
||||
//XYZ0011 JOB ' ',NOTIFY=&SYSUID 00010000
|
||||
//TAPELBL EXEC PGM=IEHINITT 00020000
|
||||
//SYSPRINT DD SYSOUT=* 00030000
|
||||
//LABEL DD UNIT=590 00040000
|
||||
//SYSIN DD * 00050000
|
||||
LABEL INITT SER=TAPE01,DISP=REWIND,OWNER='XYZ' 00060000
|
||||
LABEL INITT SER=TAPE02,DISP=REWIND,OWNER='XYZ' 00070000
|
||||
LABEL INITT SER=TAPE03,DISP=REWIND,OWNER='XYZ' 00080000
|
||||
LABEL INITT SER=TAPE04,DISP=REWIND,OWNER='XYZ' 00090000
|
||||
LABEL INITT SER=TAPE05,DISP=REWIND,OWNER='XYZ' 00100000
|
||||
LABEL INITT SER=TAPE06,DISP=REWIND,OWNER='XYZ' 00110000
|
||||
LABEL INITT SER=TAPE07,DISP=REWIND,OWNER='XYZ' 00120000
|
||||
LABEL INITT SER=TAPE08,DISP=REWIND,OWNER='XYZ' 00130000
|
||||
LABEL INITT SER=TAPE09,DISP=REWIND,OWNER='XYZ' 00140000
|
||||
LABEL INITT SER=TAPE10,DISP=REWIND,OWNER='XYZ' 00150000
|
||||
LABEL INITT SER=TAPE11,DISP=REWIND,OWNER='XYZ' 00160000
|
||||
LABEL INITT SER=TAPE12,DISP=REWIND,OWNER='XYZ' 00170000
|
||||
LABEL INITT SER=TAPE13,DISP=REWIND,OWNER='XYZ' 00180000
|
||||
LABEL INITT SER=TAPE14,DISP=REWIND,OWNER='XYZ' 00190000
|
||||
LABEL INITT SER=TAPE15,DISP=REWIND,OWNER='XYZ' 00200000
|
||||
LABEL INITT SER=TAPE16,DISP=REWIND,OWNER='XYZ' 00210000
|
||||
LABEL INITT SER=TAPE17,DISP=REWIND,OWNER='XYZ' 00220000
|
||||
LABEL INITT SER=TAPE18,DISP=REWIND,OWNER='XYZ' 00230000
|
||||
LABEL INITT SER=TAPE19,DISP=REWIND,OWNER='XYZ' 00240000
|
||||
LABEL INITT SER=TAPE20,DISP=REWIND,OWNER='XYZ' 00250000
|
||||
LABEL INITT SER=TAPE21,DISP=REWIND,OWNER='XYZ' 00260000
|
||||
LABEL INITT SER=TAPE22,DISP=REWIND,OWNER='XYZ' 00270000
|
||||
LABEL INITT SER=TAPE23,DISP=REWIND,OWNER='XYZ' 00280000
|
||||
LABEL INITT SER=TAPE24,DISP=REWIND,OWNER='XYZ' 00290000
|
||||
LABEL INITT SER=TAPE25,DISP=REWIND,OWNER='XYZ' 00300000
|
||||
LABEL INITT SER=TAPE26,DISP=REWIND,OWNER='XYZ' 00310000
|
||||
LABEL INITT SER=TAPE27,DISP=REWIND,OWNER='XYZ' 00320000
|
||||
LABEL INITT SER=TAPE28,DISP=REWIND,OWNER='XYZ' 00330000
|
||||
LABEL INITT SER=TAPE29,DISP=REWIND,OWNER='XYZ' 00340000
|
||||
LABEL INITT SER=TAPE30,DISP=REWIND,OWNER='XYZ' 00350000
|
||||
7
usefuljcl/XYZ0012.txt
Normal file
7
usefuljcl/XYZ0012.txt
Normal file
@@ -0,0 +1,7 @@
|
||||
//XYZ0012 JOB ' ',NOTIFY=&SYSUID 00010000
|
||||
//TEST EXEC PGM=IEBGENER 00020000
|
||||
//SYSPRINT DD SYSOUT=* 00030000
|
||||
//SYSUT1 DD DSN=TCPIP.PROFILE.TCPIP,DISP=SHR 00040000
|
||||
//SYSUT2 DD DSN=XYZ.TCPIP.PROFILE.TCPIP,DISP=(,CATLG), 00050000
|
||||
// LABEL=(,SL),VOL=SER=TAPE01,UNIT=590 00060000
|
||||
//SYSIN DD DUMMY 00070000
|
||||
6
usefuljcl/XYZ0013.txt
Normal file
6
usefuljcl/XYZ0013.txt
Normal file
@@ -0,0 +1,6 @@
|
||||
//XYZ0009 JOB (),NOTIFY=&SYSUID 00010000
|
||||
// EXEC PGM=IEFBR14 00020000
|
||||
//ALLOC DD DSN=HFS.XYZ.BIGHFS,DISP=(,KEEP), 00030000
|
||||
// VOL=SER=(XYZHF0,XYZFH1,XYZHF2,XYZHF3,XYZHF4), 00040000
|
||||
// UNIT=(3390,5),DSNTYPE=HFS, 00050000
|
||||
// SPACE=(CYL,(3330,3330,1)) 00060000
|
||||
5
usefuljcl/XYZ0014.txt
Normal file
5
usefuljcl/XYZ0014.txt
Normal file
@@ -0,0 +1,5 @@
|
||||
//XYZ0014 JOB ' ',NOTIFY=&SYSUID 00010000
|
||||
//ICKDSF EXEC PGM=ICKDSF,REGION=4096K
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSIN DD *
|
||||
REFORMAT UNITADDRESS(038B) NOVERIFY VOLID(RESTOR)
|
||||
15
usefuljcl/XYZ0015.txt
Normal file
15
usefuljcl/XYZ0015.txt
Normal file
@@ -0,0 +1,15 @@
|
||||
//XYZ0015 JOB ' ',NOTIFY=&SYSUID,TYPRUN=HOLD 00010000
|
||||
//ICKDSF EXEC PGM=ICKDSF,REGION=4096K 00025000
|
||||
//SYSPRINT DD SYSOUT=* 00026000
|
||||
//SYSIN DD * 00027000
|
||||
INIT UNIT(380) NOVALIDATE NVFY VOLID(DB2000) PURGE VTOC(0,2,90) 00028000
|
||||
INIT UNIT(381) NOVALIDATE NVFY VOLID(DB2001) PURGE VTOC(0,2,90) 00029000
|
||||
INIT UNIT(382) NOVALIDATE NVFY VOLID(DB2002) PURGE VTOC(0,2,90) 00030000
|
||||
INIT UNIT(383) NOVALIDATE NVFY VOLID(DB2003) PURGE VTOC(0,2,90) 00040000
|
||||
INIT UNIT(384) NOVALIDATE NVFY VOLID(DB2004) PURGE VTOC(0,2,90) 00050000
|
||||
INIT UNIT(385) NOVALIDATE NVFY VOLID(DB2005) PURGE VTOC(0,2,90) 00060000
|
||||
INIT UNIT(386) NOVALIDATE NVFY VOLID(DB2006) PURGE VTOC(0,2,90) 00070000
|
||||
INIT UNIT(387) NOVALIDATE NVFY VOLID(DB2007) PURGE VTOC(0,2,90) 00080000
|
||||
INIT UNIT(388) NOVALIDATE NVFY VOLID(DB2008) PURGE VTOC(0,2,90) 00090000
|
||||
INIT UNIT(389) NOVALIDATE NVFY VOLID(DB2009) PURGE VTOC(0,2,90) 00100000
|
||||
INIT UNIT(38A) NOVALIDATE NVFY VOLID(DB200A) PURGE VTOC(0,2,90) 00110000
|
||||
15
usefuljcl/XYZ0016.txt
Normal file
15
usefuljcl/XYZ0016.txt
Normal file
@@ -0,0 +1,15 @@
|
||||
//XYZ0016 JOB ' ',NOTIFY=&SYSUID 00010000
|
||||
//S1 EXEC PGM=IDCAMS 00070000
|
||||
//SYSPRINT DD SYSOUT=* 00080000
|
||||
//SYSIN DD * 00090000
|
||||
DEFINE CL(NAME(SYS1.VVDS.VDB2000) CYL(3 1) VOL(DB2000) NIXD) 00100000
|
||||
DEFINE CL(NAME(SYS1.VVDS.VDB2001) CYL(3 1) VOL(DB2001) NIXD) 00110000
|
||||
DEFINE CL(NAME(SYS1.VVDS.VDB2002) CYL(3 1) VOL(DB2002) NIXD) 00120000
|
||||
DEFINE CL(NAME(SYS1.VVDS.VDB2003) CYL(3 1) VOL(DB2003) NIXD) 00130000
|
||||
DEFINE CL(NAME(SYS1.VVDS.VDB2004) CYL(3 1) VOL(DB2004) NIXD) 00140000
|
||||
DEFINE CL(NAME(SYS1.VVDS.VDB2005) CYL(3 1) VOL(DB2005) NIXD) 00150000
|
||||
DEFINE CL(NAME(SYS1.VVDS.VDB2006) CYL(3 1) VOL(DB2006) NIXD) 00160000
|
||||
DEFINE CL(NAME(SYS1.VVDS.VDB2007) CYL(3 1) VOL(DB2007) NIXD) 00170000
|
||||
DEFINE CL(NAME(SYS1.VVDS.VDB2008) CYL(3 1) VOL(DB2008) NIXD) 00180000
|
||||
DEFINE CL(NAME(SYS1.VVDS.VDB2009) CYL(3 1) VOL(DB2009) NIXD) 00190000
|
||||
DEFINE CL(NAME(SYS1.VVDS.VDB200A) CYL(3 1) VOL(DB200A) NIXD) 00200000
|
||||
9
usefuljcl/XYZ0017.txt
Normal file
9
usefuljcl/XYZ0017.txt
Normal file
@@ -0,0 +1,9 @@
|
||||
//XYZ0017 JOB ' ',NOTIFY=&SYSUID 00020000
|
||||
//S1 EXEC PGM=IDCAMS 00030000
|
||||
//SYSPRINT DD SYSOUT=* 00040000
|
||||
//SYSIN DD * 00050000
|
||||
DEFINE USERCATALOG - 00060000
|
||||
( NAME(USERCAT.XYZDB2) - 00070000
|
||||
VOLUME(DB2000) - 00080000
|
||||
CYLINDERS(10 2) - 00090000
|
||||
MODEL(USERCAT.VOS39P9)) 00100000
|
||||
7
usefuljcl/XYZ0018.txt
Normal file
7
usefuljcl/XYZ0018.txt
Normal file
@@ -0,0 +1,7 @@
|
||||
//XYZ0018 JOB ' ',NOTIFY=&SYSUID 00020000
|
||||
//S1 EXEC PGM=IDCAMS 00030000
|
||||
//SYSPRINT DD SYSOUT=* 00040000
|
||||
//SYSIN DD * 00050000
|
||||
DEFINE ALIAS (NAME(DB2T) RELATE(USERCAT.XYZDB2)) 00080000
|
||||
DEFINE ALIAS (NAME(DB2P) RELATE(USERCAT.XYZDB2)) 00090000
|
||||
DEFINE ALIAS (NAME(DB2A) RELATE(USERCAT.XYZDB2)) 00100000
|
||||
70
usefuljcl/XYZ0019.txt
Normal file
70
usefuljcl/XYZ0019.txt
Normal file
@@ -0,0 +1,70 @@
|
||||
//XYZ0009 JOB ' ',NOTIFY=&SYSUID 00010000
|
||||
//S300 EXEC PGM=ADRDSSU,REGION=6000K 38F00100
|
||||
//SYSPRINT DD SYSOUT=* 38F00120
|
||||
//DASDIN DD UNIT=3390,VOL=SER=OS39R9,DISP=SHR 38F00140
|
||||
//DASDOUT DD UNIT=3390,VOL=SER=XYZ380,DISP=SHR 38F00130
|
||||
//SYSIN DD * 38F00150
|
||||
COPY INDD(DASDIN) OUTDD(DASDOUT) ADMIN COPYV 00001900
|
||||
//XYZ1009 JOB ' ',NOTIFY=&SYSUID 00010000
|
||||
//S301 EXEC PGM=ADRDSSU,REGION=6000K 38F00100
|
||||
//SYSPRINT DD SYSOUT=* 38F00120
|
||||
//DASDIN DD UNIT=3390,VOL=SER=OS3R9A,DISP=SHR 38F00140
|
||||
//DASDOUT DD UNIT=3390,VOL=SER=XYZ381,DISP=SHR 38F00130
|
||||
//SYSIN DD * 38F00150
|
||||
COPY INDD(DASDIN) OUTDD(DASDOUT) ADMIN COPYV 00001900
|
||||
//XYZ2009 JOB ' ',NOTIFY=&SYSUID 00010000
|
||||
//S302 EXEC PGM=ADRDSSU,REGION=6000K 38F00100
|
||||
//SYSPRINT DD SYSOUT=* 38F00120
|
||||
//DASDIN DD UNIT=3390,VOL=SER=OS39D9,DISP=SHR 38F00140
|
||||
//DASDOUT DD UNIT=3390,VOL=SER=XYZ382,DISP=SHR 38F00130
|
||||
//SYSIN DD * 38F00150
|
||||
COPY INDD(DASDIN) OUTDD(DASDOUT) ADMIN COPYV 00001900
|
||||
//XYZ3009 JOB ' ',NOTIFY=&SYSUID 00010000
|
||||
//S303 EXEC PGM=ADRDSSU,REGION=6000K 38F00100
|
||||
//SYSPRINT DD SYSOUT=* 38F00120
|
||||
//DASDIN DD UNIT=3390,VOL=SER=OS3D9A,DISP=SHR 38F00140
|
||||
//DASDOUT DD UNIT=3390,VOL=SER=XYZ383,DISP=SHR 38F00130
|
||||
//SYSIN DD * 38F00150
|
||||
COPY INDD(DASDIN) OUTDD(DASDOUT) ADMIN COPYV 00001900
|
||||
//XYZ4009 JOB ' ',NOTIFY=&SYSUID 00010000
|
||||
//S304 EXEC PGM=ADRDSSU,REGION=6000K 38F00100
|
||||
//SYSPRINT DD SYSOUT=* 38F00120
|
||||
//DASDIN DD UNIT=3390,VOL=SER=OS39M1,DISP=SHR 38F00140
|
||||
//DASDOUT DD UNIT=3390,VOL=SER=XYZ384,DISP=SHR 38F00130
|
||||
//SYSIN DD * 38F00150
|
||||
COPY INDD(DASDIN) OUTDD(DASDOUT) ADMIN COPYV 00001900
|
||||
//XYZ5009 JOB ' ',NOTIFY=&SYSUID 00010000
|
||||
//S305 EXEC PGM=ADRDSSU,REGION=6000K 38F00100
|
||||
//SYSPRINT DD SYSOUT=* 38F00120
|
||||
//DASDIN DD UNIT=3390,VOL=SER=OS39H9,DISP=SHR 38F00140
|
||||
//DASDOUT DD UNIT=3390,VOL=SER=XYZ385,DISP=SHR 38F00130
|
||||
//SYSIN DD * 38F00150
|
||||
COPY INDD(DASDIN) OUTDD(DASDOUT) ADMIN COPYV 00001900
|
||||
//XYZ6009 JOB ' ',NOTIFY=&SYSUID 00010000
|
||||
//S306 EXEC PGM=ADRDSSU,REGION=6000K 38F00100
|
||||
//SYSPRINT DD SYSOUT=* 38F00120
|
||||
//DASDIN DD UNIT=3390,VOL=SER=OS39P9,DISP=SHR 38F00140
|
||||
//DASDOUT DD UNIT=3390,VOL=SER=XYZ386,DISP=SHR 38F00130
|
||||
//SYSIN DD * 38F00150
|
||||
COPY INDD(DASDIN) OUTDD(DASDOUT) ADMIN COPYV 00001900
|
||||
//XYZ7009 JOB ' ',NOTIFY=&SYSUID 00010000
|
||||
//S307 EXEC PGM=ADRDSSU,REGION=6000K 38F00100
|
||||
//SYSPRINT DD SYSOUT=* 38F00120
|
||||
//DASDIN DD UNIT=3390,VOL=SER=OS3P9A,DISP=SHR 38F00140
|
||||
//DASDOUT DD UNIT=3390,VOL=SER=XYZ387,DISP=SHR 38F00130
|
||||
//SYSIN DD * 38F00150
|
||||
COPY INDD(DASDIN) OUTDD(DASDOUT) ADMIN COPYV 00001900
|
||||
//XYZ8009 JOB ' ',NOTIFY=&SYSUID 00010000
|
||||
//S308 EXEC PGM=ADRDSSU,REGION=6000K 38F00100
|
||||
//SYSPRINT DD SYSOUT=* 38F00120
|
||||
//DASDIN DD UNIT=3390,VOL=SER=OS3P9B,DISP=SHR 38F00140
|
||||
//DASDOUT DD UNIT=3390,VOL=SER=XYZ388,DISP=SHR 38F00130
|
||||
//SYSIN DD * 38F00150
|
||||
COPY INDD(DASDIN) OUTDD(DASDOUT) ADMIN COPYV 00001900
|
||||
//XYZ9009 JOB ' ',NOTIFY=&SYSUID 00010000
|
||||
//S309 EXEC PGM=ADRDSSU,REGION=6000K 38F00100
|
||||
//SYSPRINT DD SYSOUT=* 38F00120
|
||||
//DASDIN DD UNIT=3390,VOL=SER=OS3D9B,DISP=SHR 38F00140
|
||||
//DASDOUT DD UNIT=3390,VOL=SER=XYZ389,DISP=SHR 38F00130
|
||||
//SYSIN DD * 38F00150
|
||||
COPY INDD(DASDIN) OUTDD(DASDOUT) ADMIN COPYV 00001900
|
||||
13
usefuljcl/XYZ0020.txt
Normal file
13
usefuljcl/XYZ0020.txt
Normal file
@@ -0,0 +1,13 @@
|
||||
//XYZ0021 JOB ' ',NOTIFY=&SYSUID 00001000
|
||||
//ICKDSF EXEC PGM=ICKDSF,REGION=4096K 00002000
|
||||
//SYSPRINT DD SYSOUT=* 00003000
|
||||
//SYSIN DD * 00004000
|
||||
INIT UNIT(38B) NOVALIDATE NVFY VOLID(RESTOR) PURGE 00005000
|
||||
//XYZ1021 JOB ' ',NOTIFY=&SYSUID,TYPRUN=HOLD 00010000
|
||||
//S2 EXEC PGM=ADRDSSU,REGION=5000K,TIME=1440 00145000
|
||||
//SYSPRINT DD SYSOUT=* 00146000
|
||||
//DASD1 DD UNIT=3390,VOL=SER=RESTOR,DISP=SHR 00147000
|
||||
//TAPE1 DD DSN=DUMP.OS39P9.TAPE09,DISP=SHR 00149100
|
||||
//SYSIN DD * 00149200
|
||||
RESTORE INDD(TAPE1) OUTDD(DASD1) PURGE ADMIN 00149700
|
||||
/* 00149800
|
||||
26
usefuljcl/XYZ0021.txt
Normal file
26
usefuljcl/XYZ0021.txt
Normal file
@@ -0,0 +1,26 @@
|
||||
************************************************************* 00001100
|
||||
* * 00002000
|
||||
* EXAMPLE OF HOW TO HANDLE REMOTE NFS MOUNTS FROM OS/390 * 00002100
|
||||
* * 00002400
|
||||
************************************************************* 00003000
|
||||
************************************************************* 00004000
|
||||
* PLACE THE FOLLOWING JCL IN MVSNFS.CNTL(NFSRMT) * 00010000
|
||||
************************************************************* 00011000
|
||||
//NFSRMT JOB () 00020000
|
||||
//NFSRMT EXEC PGM=IKJEFT01 00030000
|
||||
//SYSPRINT DD SYSOUT=* 00040000
|
||||
//SYSTSPRT DD SYSOUT=* 00050000
|
||||
//SYSTERM DD DUMMY 00060000
|
||||
//SYSTSIN DD * 00070000
|
||||
MOUNT FILESYSTEM('/export/home/rmt') MOUNTPOINT('/u/rmt') + 00080000
|
||||
TYPE(NFS) PARM('ip_addr:/export/home/rmt,xlat(y)') MODE(RDWR) 00090000
|
||||
LOGOFF 00100000
|
||||
************************************************************* 00110000
|
||||
* PLACE THE FOLLOWING JCL IN USER.PROCLIB(NFSSTC) * 00120000
|
||||
************************************************************* 00130000
|
||||
//NFSSTC PROC MBR='NFSRMT' 00160000
|
||||
//RDR EXEC PGM=IEBGENER 00170000
|
||||
//SYSPRINT DD SYSOUT=* 00180000
|
||||
//SYSIN DD DUMMY 00190000
|
||||
//SYSUT1 DD DSN=MVSNFS.CNTL(&MBR),DISP=SHR 00200000
|
||||
//SYSUT2 DD SYSOUT=(,INTRDR) 00210000
|
||||
9
usefuljcl/XYZ0022.txt
Normal file
9
usefuljcl/XYZ0022.txt
Normal file
@@ -0,0 +1,9 @@
|
||||
//XYZ0022 JOB ' ',NOTIFY=&SYSUID 00010000
|
||||
//S0 EXEC PGM=ADRDSSU,REGION=0M 00070000
|
||||
//SYSPRINT DD SYSOUT=* 00080000
|
||||
//DASD1 DD UNIT=SYSALLDA,VOL=SER=OS39R9,DISP=SHR 00090000
|
||||
//TAPE1 DD DSN=DUMP.OS39R9.TAPE01,DISP=(,CATLG), 00100000
|
||||
// LABEL=(,SL),VOL=SER=TAPE01,UNIT=590 00110000
|
||||
//SYSIN DD * 00140000
|
||||
DUMP INDD(DASD1) OUTDD(TAPE1) COMPRESS ADMIN OPTIMIZE(4) 00146000
|
||||
//* 00150000
|
||||
71
usefuljcl/XYZ0023.txt
Normal file
71
usefuljcl/XYZ0023.txt
Normal file
@@ -0,0 +1,71 @@
|
||||
//XYZ0023 JOB ' ',NOTIFY=&SYSUID 00010000
|
||||
//S1 EXEC PGM=ADRDSSU,REGION=0M 00020000
|
||||
//SYSPRINT DD SYSOUT=* 00030000
|
||||
//DASD1 DD UNIT=SYSALLDA,VOL=SER=OS39R9,DISP=SHR 00040000
|
||||
//TAPE1 DD DSN=DUMP.OS39R9.TAPE01,DISP=(,CATLG), 00050000
|
||||
// LABEL=(,SL),VOL=SER=TAPE01,UNIT=590 00060000
|
||||
//SYSIN DD * 00070000
|
||||
DUMP INDD(DASD1) OUTDD(TAPE1) COMPRESS ADMIN OPTIMIZE(4) 00080000
|
||||
//S2 EXEC PGM=ADRDSSU,REGION=0M 00090000
|
||||
//SYSPRINT DD SYSOUT=* 00100000
|
||||
//DASD1 DD UNIT=SYSALLDA,VOL=SER=OS3R9A,DISP=SHR 00110000
|
||||
//TAPE1 DD DSN=DUMP.OS3R9A.TAPE02,DISP=(,CATLG), 00120000
|
||||
// LABEL=(,SL),VOL=SER=TAPE02,UNIT=590 00130000
|
||||
//SYSIN DD * 00140000
|
||||
DUMP INDD(DASD1) OUTDD(TAPE1) COMPRESS ADMIN OPTIMIZE(4) 00150000
|
||||
//S3 EXEC PGM=ADRDSSU,REGION=0M 00160000
|
||||
//SYSPRINT DD SYSOUT=* 00170000
|
||||
//DASD1 DD UNIT=SYSALLDA,VOL=SER=OS39D9,DISP=SHR 00180000
|
||||
//TAPE1 DD DSN=DUMP.OS39D9.TAPE03,DISP=(,CATLG), 00190000
|
||||
// LABEL=(,SL),VOL=SER=(TAPE03,TAPE04),UNIT=590 00200000
|
||||
//SYSIN DD * 00210000
|
||||
DUMP INDD(DASD1) OUTDD(TAPE1) COMPRESS ADMIN OPTIMIZE(4) 00220000
|
||||
//S4 EXEC PGM=ADRDSSU,REGION=0M 00230000
|
||||
//SYSPRINT DD SYSOUT=* 00240000
|
||||
//DASD1 DD UNIT=SYSALLDA,VOL=SER=OS3D9A,DISP=SHR 00250000
|
||||
//TAPE1 DD DSN=DUMP.OS3D9A.TAPE05,DISP=(,CATLG), 00260000
|
||||
// LABEL=(,SL),VOL=SER=TAPE05,UNIT=590 00270000
|
||||
//SYSIN DD * 00280000
|
||||
DUMP INDD(DASD1) OUTDD(TAPE1) COMPRESS ADMIN OPTIMIZE(4) 00290000
|
||||
//S5 EXEC PGM=ADRDSSU,REGION=0M 00300000
|
||||
//SYSPRINT DD SYSOUT=* 00310000
|
||||
//DASD1 DD UNIT=SYSALLDA,VOL=SER=OS39M1,DISP=SHR 00320000
|
||||
//TAPE1 DD DSN=DUMP.OS39M1.TAPE06,DISP=(,CATLG), 00330000
|
||||
// LABEL=(,SL),VOL=SER=TAPE06,UNIT=590 00340000
|
||||
//SYSIN DD * 00350000
|
||||
DUMP INDD(DASD1) OUTDD(TAPE1) COMPRESS ADMIN OPTIMIZE(4) 00360000
|
||||
//S6 EXEC PGM=ADRDSSU,REGION=0M 00370000
|
||||
//SYSPRINT DD SYSOUT=* 00380000
|
||||
//DASD1 DD UNIT=SYSALLDA,VOL=SER=OS39H9,DISP=SHR 00390000
|
||||
//TAPE1 DD DSN=DUMP.OS39H9.TAPE07,DISP=(,CATLG), 00400000
|
||||
// LABEL=(,SL),VOL=SER=TAPE07,UNIT=590 00410000
|
||||
//SYSIN DD * 00420000
|
||||
DUMP INDD(DASD1) OUTDD(TAPE1) COMPRESS ADMIN OPTIMIZE(4) 00430000
|
||||
//S7 EXEC PGM=ADRDSSU,REGION=0M 00440000
|
||||
//SYSPRINT DD SYSOUT=* 00450000
|
||||
//DASD1 DD UNIT=SYSALLDA,VOL=SER=OS39P9,DISP=SHR 00460000
|
||||
//TAPE1 DD DSN=DUMP.OS39P9.TAPE08,DISP=(,CATLG), 00470000
|
||||
// LABEL=(,SL),VOL=SER=TAPE08,UNIT=590 00480000
|
||||
//SYSIN DD * 00490000
|
||||
DUMP INDD(DASD1) OUTDD(TAPE1) COMPRESS ADMIN OPTIMIZE(4) 00500000
|
||||
//S8 EXEC PGM=ADRDSSU,REGION=0M 00510000
|
||||
//SYSPRINT DD SYSOUT=* 00520000
|
||||
//DASD1 DD UNIT=SYSALLDA,VOL=SER=OS3P9A,DISP=SHR 00530000
|
||||
//TAPE1 DD DSN=DUMP.OS3P9A.TAPE09,DISP=(,CATLG), 00540000
|
||||
// LABEL=(,SL),VOL=SER=TAPE09,UNIT=590 00550000
|
||||
//SYSIN DD * 00560000
|
||||
DUMP INDD(DASD1) OUTDD(TAPE1) COMPRESS ADMIN OPTIMIZE(4) 00570000
|
||||
//S9 EXEC PGM=ADRDSSU,REGION=0M 00580000
|
||||
//SYSPRINT DD SYSOUT=* 00590000
|
||||
//DASD1 DD UNIT=SYSALLDA,VOL=SER=OS3P9B,DISP=SHR 00600000
|
||||
//TAPE1 DD DSN=DUMP.OS3P9B.TAPE10,DISP=(,CATLG), 00610000
|
||||
// LABEL=(,SL),VOL=SER=TAPE10,UNIT=590 00620000
|
||||
//SYSIN DD * 00630000
|
||||
DUMP INDD(DASD1) OUTDD(TAPE1) COMPRESS ADMIN OPTIMIZE(4) 00640000
|
||||
//S10 EXEC PGM=ADRDSSU,REGION=0M 00650000
|
||||
//SYSPRINT DD SYSOUT=* 00660000
|
||||
//DASD1 DD UNIT=SYSALLDA,VOL=SER=OS3D9B,DISP=SHR 00670000
|
||||
//TAPE1 DD DSN=DUMP.OS3D9B.TAPE11,DISP=(,CATLG), 00680000
|
||||
// LABEL=(,SL),VOL=SER=TAPE11,UNIT=590 00690000
|
||||
//SYSIN DD * 00700000
|
||||
DUMP INDD(DASD1) OUTDD(TAPE1) COMPRESS ADMIN OPTIMIZE(4) 00710000
|
||||
16
usefuljcl/XYZ0024.txt
Normal file
16
usefuljcl/XYZ0024.txt
Normal file
@@ -0,0 +1,16 @@
|
||||
//XYZ0024 JOB ' ',NOTIFY=&SYSUID 00010000
|
||||
//S1 EXEC PGM=ADRDSSU,REGION=0M 00020000
|
||||
//SYSPRINT DD SYSOUT=* 00030000
|
||||
//SYSIN DD * 00070000
|
||||
COPY DATASET (INCLUDE ( - 00080000
|
||||
ANDYP.**, - 00090000
|
||||
ROBINW.**, - 00091000
|
||||
STEVEW.**, - 00100000
|
||||
STEVEP.**, - 00110000
|
||||
VISW.** )) - 00120000
|
||||
LOGINDY ( - 00130000
|
||||
(OS39M1), - 00140000
|
||||
(OS39R9) ) - 00150000
|
||||
OUTDY ( - 00160000
|
||||
(XYZWRK) ) - 00180000
|
||||
SPHERE WAIT(0,0), TOL(ENQF) RECATALOG(*) DELETE 00190000
|
||||
10
usefuljcl/XYZ0025.txt
Normal file
10
usefuljcl/XYZ0025.txt
Normal file
@@ -0,0 +1,10 @@
|
||||
//XYZ0025 JOB ' ',NOTIFY=&SYSUID 00010000
|
||||
//TAPECOPY EXEC PGM=ADRDSSU,REGION=0M 00025000
|
||||
//SYSPRINT DD DSN=XYZ.BACKUP.OUTPUT(XYZ0025),DISP=SHR 00026000
|
||||
//TAPEOUT DD DSN=DUMP.XYZ.ALL,DISP=(NEW,CATLG), 00026100
|
||||
// UNIT=590,VOL=SER=TAPE30 00026200
|
||||
//SYSIN DD * 00027000
|
||||
DUMP DS(INC(XYZ.**, - 00028000
|
||||
HERMAN,**)) - 00028100
|
||||
ODD(TAPEOUT) TOL(ENQF) SHR - 00028600
|
||||
LOGINDY((XYZ001),(XYZWRK)) 00029000
|
||||
7
usefuljcl/XYZ0026.txt
Normal file
7
usefuljcl/XYZ0026.txt
Normal file
@@ -0,0 +1,7 @@
|
||||
//XYZ0026 JOB ' ',NOTIFY=&SYSUID 00010000
|
||||
//ST1 EXEC PGM=ADRDSSU,REGION=0M 00040000
|
||||
//SYSPRINT DD DSN=XYZ.BACKUP.OUTPUT(XYZ0026),DISP=SHR 00050000
|
||||
//TAPE DD DSN=DUMP.XYZ.ALL,DISP=SHR 00060000
|
||||
//SYSIN DD * 00080000
|
||||
RESTORE DS(INC(XYZ.SPUFI.OUTPUT)) - 00100000
|
||||
OUTDY(XYZWRK) IDD(TAPE) CATALOG 00110000
|
||||
Reference in New Issue
Block a user