× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. MIDRANGE-L
  3. May 2018

Fwd: DLI UNLOAD to disk

---------- Forwarded message ----------
From: Eliseo Bertolín Navarro <ebertolinn@xxxxxxxxx>
Date: Fri, May 18, 2018 at 5:44 PM
Subject: Re: DLI UNLOAD to disk
To: VSE Discussion List <vse-l@xxxxxxxxxxxxxxxx>


Hello,Alan.

This is ono of my reorg JCLs. It is for a DB which is larger than 4GB (note
it has 3 ESDS files), so the HDUNLD1 file is on BAM space, not SAM/ESDS.

Best regards.
Eliseo Bertolin.
VM/VSE System programmer.
Barcelona-Spain

* $$ JOB JNM=REO-XXX,CLASS=6,DISP=L
// JOB REO-XXX
* $$ PRT CLASS=O,DISP=H
// ON $RC GT 4 GOTO PASOMAL1
* $$ SLI ICCF=(REO-WORK),LIB=(76)
// DLBL XXXP001,,,VSAM,CAT=CATYYY1
// DLBL XXX2001,,,VSAM,CAT=CATYYY1
// DLBL XXX3001,,,VSAM,CAT=CATYYY1
// DLBL XXXS001,,,VSAM,CAT=CATYYY1 I.P.
// DLBL XXXSXC1,,,VSAM,CAT=CATYYY1 I.S.
// DLBL XXXSXH1,,,VSAM,CAT=CATYYY1 I.S.
// DLBL XXXSXM1,,,VSAM,CAT=CATYYY1 I.S.
// DLBL XXXSXN1,,,VSAM,CAT=CATYYY1 I.S.
// DLBL XXXSXS1,,,VSAM,CAT=CATYYY1 I.S.
// DLBL XXXSXI1,,,VSAM,CAT=CATYYY1 I.S.
// DLBL XXXSXB1,,,VSAM,CAT=CATYYY1 I.S.
// DLBL XXXSXX1,,,VSAM,CAT=CATYYY1 I.S.
// DLBL XXXSXD1,,,VSAM,CAT=CATYYY1 I.S.
// DLBL XXXSXY1,,,VSAM,CAT=CATYYY1 I.S.
* -------------------------------------------------------------------
// GOTO PASO01
* -------------------------------------------------------------------
/. PASO01 COPIA LA DB
// EXEC DLZRRC00,SIZE=4000K
ULU,DLZURGU0,XXXP001,HDBFR=(255),HSBFR=(99,99,,XXXS001)
CHKPT=999999
/*
* -------------------------------------------------------------------
/. PASO02 DEFINE Y RESTAURA LA DB
// ASSGN SYS012,SYS092
// EXEC DLZRRC00,SIZE=400K
ULU,DLZURPR0
DBR=XXXP001
OPTIONS=(STAT,SUMM)
/*
// ON $RC GT 4 GOTO PASOMAL2
* $$ SLI ICCF=(XXX-DEF1),LIB=(76)
// EXEC DLZRRC00,SIZE=4000K
ULU,DLZURGL0,XXXP001,HDBFR=(255),HSBFR=(99,99,,XXXS001)
BLDINDEX=NO
/*
// ASSGN SYS010,SYS090
/. PASO03 CREA WORK INDICES
// EXEC DLZURG10,SIZE=400K
R I 3 01
/*
/. PASO04 CREA IS
// EXEC DLZRRC00,SIZE=400K
ULU,DLZURGP0
U I
/*
// GOTO FINAL
/. PASOMAL1
// PAUSE HA IDO MAL, NO HACER NADA.
CANCEL
/. PASOMAL2
// PAUSE HA IDO MAL, PASAR YA EL RDBARE03 Y A CONTINUACION EL REC-XXX
/. FINAL
/&


==================== * $$ SLI ICCF=(REO-WORK) =====================


*
// DLBL IJSYSUC,'USERCAT.YYY1N',,VSAM
*



*// DLBL HDUNLD1,'REO-DB-COPIA',1 // EXTENT
SYS011,WORB09,1,0,60015,420000 // ASSGN
SYS011,DISK,TEMP,VOL=WORB09,SHR **

// DLBL CONTROL,'REO-DB-CONTROL',0
// EXTENT SYS012,WORB08,1,0,460015,1
// ASSGN SYS012,DISK,TEMP,VOL=WORB08,SHR
// DLBL WORKFIL,'REO-DB-WORK',0
// EXTENT SYS013,WORB08,1,0,60015,200000
// ASSGN SYS013,DISK,TEMP,VOL=WORB08,SHR
// DLBL WRKIN01,'REO-DB-WORK',0
// EXTENT SYS013,WORB08
// DLBL INTRMED,'REO-DB-INTR',0
// EXTENT SYS010,WORB08,1,0,460016,31384
// ASSGN SYS010,DISK,TEMP,VOL=WORB08,SHR
// DLBL INDXWRK,'REO-DB-INDXW',0
// EXTENT SYS014,WORB08,1,0,260015,200000
// ASSGN SYS014,DISK,TEMP,VOL=WORB08,SHR
*
// DLBL SORTWK1,'DB.SORT.WORK1',0
// EXTENT SYS051,WORB01,,,15,60000
// ASSGN SYS051,DISK,TEMP,VOL=WORB01,SHR
// DLBL SORTWK2,'DB.SORT.WORK2',0
// EXTENT SYS052,WORB02,,,15,60000
// ASSGN SYS052,DISK,TEMP,VOL=WORB02,SHR
// DLBL SORTWK3,'DB.SORT.WORK3',0
// EXTENT SYS053,WORB03,,,15,60000
// ASSGN SYS053,DISK,TEMP,VOL=WORB03,SHR
// DLBL SORTWK4,'DB.SORT.WORK4',0
// EXTENT SYS054,WORB09,,,15,60000
// ASSGN SYS054,DISK,TEMP,VOL=WORB09,SHR
*
// ASSGN SYS090,SYS010
// ASSGN SYS092,SYS012
// ASSGN SYS010,IGN
// ASSGN SYS012,IGN


==================== * $$ SLI ICCF=(XXX-DEF1) =====================


DEL (XXX2001 XXX3001) CL NERAS PRG
DEL (XXXP001 XXXSXC1 XXXSXH1 XXXSXM1 XXXSXN1 XXXSXS1 XXXSXI1 -
XXXSXB1 XXXSXX1 XXXSXD1 XXXSXY1 XXXS001) CL NERAS PRG
DEF CL(NAME(XXXP001) SPEED NIXD) -
DATA(NAME(XXXP001.DATA) VOL(YYY105) -
RECSZ(4086 4086) CISZ(4096) TRK(51000 3000))
DEF CL(NAME(XXX2001) SPEED NIXD) -
DATA(NAME(XXX2001.DATA) VOL(YYY111) -
RECSZ(4086 4086) CISZ(4096) TRK(57000 3000))
DEF CL(NAME(XXX3001) SPEED NIXD) -
DATA(NAME(XXX3001.DATA) VOL(YYY116) -
RECSZ(4086 4086) CISZ(4096) TRK(36000 3000))
DEF CL(NAME(XXXS001) KEYS(4 10) SPEED)-
DATA(NAME(XXXS001.DATA) VOL(YYY102) -
RECSZ(16 16) CISZ(4096) TRK(150 30) FSPC(10 10)) -
INDEX(NAME(XXXS001.INDEX) VOL(YYY101))
DEF CL(NAME(XXXSXC1) KEYS(8 10) SPEED)-
DATA(NAME(XXXSXC1.DATA) VOL(YYY101) -
RECSZ(20 20) CISZ(4096) TRK(900 60) FSPC(10 10)) -
INDEX(NAME(XXXSXC1.INDEX) VOL(YYY102))
DEF CL(NAME(XXXSXH1) KEYS(6 10) SPEED)-
DATA(NAME(XXXSXH1.DATA) VOL(YYY101) -
RECSZ(18 18) CISZ(4096) TRK(150 30) FSPC(10 10)) -
INDEX(NAME(XXXSXH1.INDEX) VOL(YYY102))
DEF CL(NAME(XXXSXM1) KEYS(19 10) SPEED)-
DATA(NAME(XXXSXM1.DATA) VOL(YYY101) -
RECSZ(30 30) CISZ(4096) TRK(5100 300) FSPC(20 10)) -
INDEX(NAME(XXXSXM1.INDEX) VOL(YYY102))
DEF CL(NAME(XXXSXN1) KEYS(44 10) SPEED)-
DATA(NAME(XXXSXN1.DATA) VOL(YYY101) -
RECSZ(56 56) CISZ(4096) TRK(480 30) FSPC(10 10)) -
INDEX(NAME(XXXSXN1.INDEX) VOL(YYY102))
DEF CL(NAME(XXXSXS1) KEYS(12 10) SPEED)-
DATA(NAME(XXXSXS1.DATA) VOL(YYY101) -
RECSZ(24 24) CISZ(4096) TRK(210 15) FSPC(10 10)) -
INDEX(NAME(XXXSXS1.INDEX) VOL(YYY102))
DEF CL(NAME(XXXSXI1) KEYS(30 10) SPEED)-
DATA(NAME(XXXSXI1.DATA) VOL(YYY103) -
RECSZ(42 42) CISZ(4096) TRK(7500 300) FSPC(10 10)) -
INDEX(NAME(XXXSXI1.INDEX) VOL(YYY102))
DEF CL(NAME(XXXSXB1) KEYS(30 10) SPEED)-
DATA(NAME(XXXSXB1.DATA) VOL(YYY103) -
RECSZ(42 42) CISZ(4096) TRK(45 15) FSPC(10 10)) -
INDEX(NAME(XXXSXB1.INDEX) VOL(YYY102))
DEF CL(NAME(XXXSXX1) KEYS(10 10) SPEED)-
DATA(NAME(XXXSXX1.DATA) VOL(YYY101) -
RECSZ(22 22) CISZ(4096) TRK(150 15) FSPC(10 10)) -
INDEX(NAME(XXXSXX1.INDEX) VOL(YYY102))
DEF CL(NAME(XXXSXD1) KEYS(50 10) SPEED)-
DATA(NAME(XXXSXD1.DATA) VOL(YYY103) -
RECSZ(62 62) CISZ(4096) TRK(1950 150) FSPC(10 10)) -
INDEX(NAME(XXXSXD1.INDEX) VOL(YYY102))
DEF CL(NAME(XXXSXY1) KEYS(50 10) SPEED)-
DATA(NAME(XXXSXY1.DATA) VOL(YYY103) -
RECSZ(62 62) CISZ(4096) TRK(2100 300) FSPC(10 10)) -
INDEX(NAME(XXXSXY1.INDEX) VOL(YYY102))
/*

2018-05-18 2:25 GMT+02:00 Allan Peterson <Allan.Peterson@xxxxxxxxxxxx>:

Has anyone done this on a DLI HIDAM database ? and can share their JCL

The Client databases are around 16M segments and run close to the 4GB mark
and use around 2x2900Cyl each
Not going to survive until August (Parallel running) unless we archive &
reorg
We have a large # of DB Reorgs to take place , and, because we are also
having Tape issues and I want to look at using Disk

Insert setup Control file here

* $$ JOB JNM=CLTRDEV,CLASS=P,DISP=D,PRI=3
000001
* $$ LST LST=50E,DISP=H,CLASS=V,FNO=SGLE
000002
* $$ LST LST=5FE,DISP=H,CLASS=V,FNO=SGLE
000003
// JOB CLTOLREO
000004
/*
000005
// UPSI 00000000
000006
// ASSGN SYS010,IGN
000007
// ASSGN SYS011,DISK,SHR
000008
// DLBL HDUNLD1,'TESTING.AJP',,VSAM,RECORDS=(15000 7500),RECSIZE=6454, +
000009
DISP=(NEW,KEEP),CAT=NATTEMP
000010
// EXEC DLZRRC00,SIZE=4M
000011
ULU,DLZURGU0,CLTZDAA
000012
REW=R
000013
CHKPT=NO
000014
/*
000015
/&
000016
* $$ EOJ
000017

Insert delete define here

// UPSI 00000000
000311
// ASSGN SYS012,DISK,SHR
000312
// ASSGN SYS013,DISK,SHR
000313
// ASSGN SYS010,IGN
000314
// DLBL HDUNLD1,TESTING.AJP',,VSAM,CAT=NATTEMP
000315
// DLBL CONTROL,'CLIENT.CTL',,VSAM,CAT=NATPROD
000316
// DLBL WORKFIL,'CLIENT.WORK.LOAD',,VSAM,CAT=NATPROD
000317
// EXEC DLZRRC00,SIZE=1M
000318
ULU,DLZURGL0,CLTZDAA
000319
BLDINDEX=NO
000320
/*

Prefix resolution etc to follow



Has anyone done this on a DLI HIDAM database ? and can share their JCL

The Client databases are around 16M segments and run close to the 4GB mark
and use around 2x2900Cyl each
Not going to survive until August (Parallel running) unless we archive &
reorg
We have a large # of DB Reorgs to take place , and, because we are also
having Tape issues and I want to look at using Disk

Insert setup Control file here

* $$ JOB JNM=CLTRDEV,CLASS=P,DISP=D,PRI=3
000001
* $$ LST LST=50E,DISP=H,CLASS=V,FNO=SGLE
000002
* $$ LST LST=5FE,DISP=H,CLASS=V,FNO=SGLE
000003
// JOB CLTOLREO
000004
/*
000005
// UPSI 00000000
000006
// ASSGN SYS010,IGN
000007
// ASSGN SYS011,DISK,SHR
000008
// DLBL HDUNLD1,'TESTING.AJP',,VSAM,RECORDS=(15000 7500),RECSIZE=6454, +
000009
DISP=(NEW,KEEP),CAT=NATTEMP
000010
// EXEC DLZRRC00,SIZE=4M
000011
ULU,DLZURGU0,CLTZDAA
000012
REW=R
000013
CHKPT=NO
000014
/*
000015
/&
000016
* $$ EOJ
000017

Insert delete define here

// UPSI 00000000
000311
// ASSGN SYS012,DISK,SHR
000312
// ASSGN SYS013,DISK,SHR
000313
// ASSGN SYS010,IGN
000314
// DLBL HDUNLD1,TESTING.AJP',,VSAM,CAT=NATTEMP
000315
// DLBL CONTROL,'CLIENT.CTL',,VSAM,CAT=NATPROD
000316
// DLBL WORKFIL,'CLIENT.WORK.LOAD',,VSAM,CAT=NATPROD
000317
// EXEC DLZRRC00,SIZE=1M
000318
ULU,DLZURGL0,CLTZDAA
000319
BLDINDEX=NO
000320
/*

Prefix resolution etc to follow








Allan Peterson
Technical Specialist
DDI: +6494428615 | Mobile: +6421750529 | Fax: +6494428601
Email: Allan.Peterson@xxxxxxxxxxxx | Web: www.revera.co.nz




WARNING:This email and any attachments contain private communications.
If you are not the intended recipient, you are not entitled to read, use,
disseminate,
distribute or copy this email and/or its attachments (if any). If you have
received this
email in error, please immediately notify the sender by return email and
delete this
email and any attachments from your system.

Please consider the environment before printing this e-mail



_______________________________________________
VSE-L mailing list
VSE-L@xxxxxxxxxxxxxxxx
https://lists.lehigh.edu/mailman/listinfo/vse-l



_______________________________________________
VSE-L mailing list
VSE-L@xxxxxxxxxxxxxxxx
https://lists.lehigh.edu/mailman/listinfo/vse-l

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.