diff --git a/usefuljcl/$README.txt b/usefuljcl/$README.txt new file mode 100644 index 0000000..c758b47 --- /dev/null +++ b/usefuljcl/$README.txt @@ -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 diff --git a/usefuljcl/DB2CATLG.txt b/usefuljcl/DB2CATLG.txt new file mode 100644 index 0000000..f271084 --- /dev/null +++ b/usefuljcl/DB2CATLG.txt @@ -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 diff --git a/usefuljcl/J.txt b/usefuljcl/J.txt new file mode 100644 index 0000000..acc2475 --- /dev/null +++ b/usefuljcl/J.txt @@ -0,0 +1 @@ +//XYZ0001 JOB ' ',NOTIFY=&SYSUID 00010000 diff --git a/usefuljcl/SUPPORT.txt b/usefuljcl/SUPPORT.txt new file mode 100644 index 0000000..08d2f05 --- /dev/null +++ b/usefuljcl/SUPPORT.txt @@ -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 + diff --git a/usefuljcl/XYZ0000.txt b/usefuljcl/XYZ0000.txt new file mode 100644 index 0000000..65e6eb3 --- /dev/null +++ b/usefuljcl/XYZ0000.txt @@ -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 diff --git a/usefuljcl/XYZ0001.txt b/usefuljcl/XYZ0001.txt new file mode 100644 index 0000000..79287b4 --- /dev/null +++ b/usefuljcl/XYZ0001.txt @@ -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 diff --git a/usefuljcl/XYZ0002.txt b/usefuljcl/XYZ0002.txt new file mode 100644 index 0000000..1991861 --- /dev/null +++ b/usefuljcl/XYZ0002.txt @@ -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 diff --git a/usefuljcl/XYZ0003.txt b/usefuljcl/XYZ0003.txt new file mode 100644 index 0000000..84d0bf8 --- /dev/null +++ b/usefuljcl/XYZ0003.txt @@ -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 diff --git a/usefuljcl/XYZ0004.txt b/usefuljcl/XYZ0004.txt new file mode 100644 index 0000000..4c2c587 --- /dev/null +++ b/usefuljcl/XYZ0004.txt @@ -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 diff --git a/usefuljcl/XYZ0005.txt b/usefuljcl/XYZ0005.txt new file mode 100644 index 0000000..b16021c --- /dev/null +++ b/usefuljcl/XYZ0005.txt @@ -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 diff --git a/usefuljcl/XYZ0006.txt b/usefuljcl/XYZ0006.txt new file mode 100644 index 0000000..e6f5028 --- /dev/null +++ b/usefuljcl/XYZ0006.txt @@ -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 diff --git a/usefuljcl/XYZ0007.txt b/usefuljcl/XYZ0007.txt new file mode 100644 index 0000000..7e30d00 --- /dev/null +++ b/usefuljcl/XYZ0007.txt @@ -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 diff --git a/usefuljcl/XYZ0008.txt b/usefuljcl/XYZ0008.txt new file mode 100644 index 0000000..a99f3da --- /dev/null +++ b/usefuljcl/XYZ0008.txt @@ -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 diff --git a/usefuljcl/XYZ0009.txt b/usefuljcl/XYZ0009.txt new file mode 100644 index 0000000..e9db7b7 --- /dev/null +++ b/usefuljcl/XYZ0009.txt @@ -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 diff --git a/usefuljcl/XYZ0010.txt b/usefuljcl/XYZ0010.txt new file mode 100644 index 0000000..2d56155 --- /dev/null +++ b/usefuljcl/XYZ0010.txt @@ -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) diff --git a/usefuljcl/XYZ0011.txt b/usefuljcl/XYZ0011.txt new file mode 100644 index 0000000..7a79d10 --- /dev/null +++ b/usefuljcl/XYZ0011.txt @@ -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 diff --git a/usefuljcl/XYZ0012.txt b/usefuljcl/XYZ0012.txt new file mode 100644 index 0000000..e68a40c --- /dev/null +++ b/usefuljcl/XYZ0012.txt @@ -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 diff --git a/usefuljcl/XYZ0013.txt b/usefuljcl/XYZ0013.txt new file mode 100644 index 0000000..2d2cf3c --- /dev/null +++ b/usefuljcl/XYZ0013.txt @@ -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 diff --git a/usefuljcl/XYZ0014.txt b/usefuljcl/XYZ0014.txt new file mode 100644 index 0000000..7d6d543 --- /dev/null +++ b/usefuljcl/XYZ0014.txt @@ -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) diff --git a/usefuljcl/XYZ0015.txt b/usefuljcl/XYZ0015.txt new file mode 100644 index 0000000..5dff435 --- /dev/null +++ b/usefuljcl/XYZ0015.txt @@ -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 diff --git a/usefuljcl/XYZ0016.txt b/usefuljcl/XYZ0016.txt new file mode 100644 index 0000000..8c38775 --- /dev/null +++ b/usefuljcl/XYZ0016.txt @@ -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 diff --git a/usefuljcl/XYZ0017.txt b/usefuljcl/XYZ0017.txt new file mode 100644 index 0000000..d7692c6 --- /dev/null +++ b/usefuljcl/XYZ0017.txt @@ -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 diff --git a/usefuljcl/XYZ0018.txt b/usefuljcl/XYZ0018.txt new file mode 100644 index 0000000..30b47f5 --- /dev/null +++ b/usefuljcl/XYZ0018.txt @@ -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 diff --git a/usefuljcl/XYZ0019.txt b/usefuljcl/XYZ0019.txt new file mode 100644 index 0000000..3f3a8db --- /dev/null +++ b/usefuljcl/XYZ0019.txt @@ -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 diff --git a/usefuljcl/XYZ0020.txt b/usefuljcl/XYZ0020.txt new file mode 100644 index 0000000..6436f5e --- /dev/null +++ b/usefuljcl/XYZ0020.txt @@ -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 diff --git a/usefuljcl/XYZ0021.txt b/usefuljcl/XYZ0021.txt new file mode 100644 index 0000000..269e5a6 --- /dev/null +++ b/usefuljcl/XYZ0021.txt @@ -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 diff --git a/usefuljcl/XYZ0022.txt b/usefuljcl/XYZ0022.txt new file mode 100644 index 0000000..60d6120 --- /dev/null +++ b/usefuljcl/XYZ0022.txt @@ -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 diff --git a/usefuljcl/XYZ0023.txt b/usefuljcl/XYZ0023.txt new file mode 100644 index 0000000..8198a98 --- /dev/null +++ b/usefuljcl/XYZ0023.txt @@ -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 diff --git a/usefuljcl/XYZ0024.txt b/usefuljcl/XYZ0024.txt new file mode 100644 index 0000000..108ed7d --- /dev/null +++ b/usefuljcl/XYZ0024.txt @@ -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 diff --git a/usefuljcl/XYZ0025.txt b/usefuljcl/XYZ0025.txt new file mode 100644 index 0000000..358828c --- /dev/null +++ b/usefuljcl/XYZ0025.txt @@ -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 diff --git a/usefuljcl/XYZ0026.txt b/usefuljcl/XYZ0026.txt new file mode 100644 index 0000000..bcc19dc --- /dev/null +++ b/usefuljcl/XYZ0026.txt @@ -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