1 / 19

ING Insurance: REXX-scripting voor IBM-mainframe

ING Insurance: REXX-scripting voor IBM-mainframe. Tijl Van den Broeck Stage 14/03/2005 – 03/06/2005. Overzicht. Inleiding Situering Omgevingsschets Stageopdrachten Besluit. 1. Inleiding. ING Group. Fusie (1999 – 2001). ING Insurance. Vaderlandsche. RVS. BBL Verzekeringen.

anastasia-hero
Download Presentation

ING Insurance: REXX-scripting voor IBM-mainframe

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. ING Insurance:REXX-scripting voor IBM-mainframe Tijl Van den Broeck Stage 14/03/2005 – 03/06/2005

  2. Overzicht • Inleiding • Situering • Omgevingsschets • Stageopdrachten • Besluit

  3. 1. Inleiding ING Group Fusie (1999 – 2001) ING Insurance Vaderlandsche RVS BBL Verzekeringen

  4. 2. Situering ING België OPS/IT … BIS IT Services System Engineering IBM MF Engineering

  5. 3. Omgevingsschets 4 x FICON EMC² Symmetrix 8830 Disk Subsystem IBM z/890 A04 Mainframe@ 350 MIPS 2 x 1GBit OSA Express (Ethernet) 10 x ESCON ING Netwerk IBM 3494 Tape Library

  6. 4. Stageopdrachten • Disaster Recovery Procedure • Volume movement • VPS met Europese printers

  7. 4. Stageopdracht: Disaster Recovery Procedure (1) INSERT PRENTJE WTC crash HERE

  8. 4. Stageopdracht: Disaster Recovery Procedure (2) Tape ± 1 TB  5 uur

  9. 4. Stageopdracht:Disaster Recovery Procedure (3) Timefinder: • ESTABLISH • SPLIT • RE-ESTABLISH OrigineelBCV

  10. 4. Stageopdracht:Disaster Recovery Procedure (4)

  11. 4. Stageopdracht:Disaster Recovery Procedure (5) REXX-scripting: • Keten 14 JCL-code datasets • 6 REXX-programma’s Werking: • 16u: ESTABLISH / RE-ESTABLISH • 0  2u: • SPLIT • Back-up BCV naar tape • Genereer herstelling JCL-code • Schrijf JCL-code naar tape • Stuur e-mail met tapenummers

  12. 000100 //SLUOA1 JOB ,'PHYSICAL FULL COPY',CLASS=L,MSGCLASS=T,TYPRUN=HOLD 000200 //*--------------------------------------------------------------------- 000300 //STEP0010 EXEC PGM=ADRDSSU,REGION=6M PARM='TYPRUN=NORUN' 000400 //* 000500 //SYSPRINT DD SYSOUT=* 000600 //INVOL1 DD VOL=SER=SLUOA1,UNIT=3390,DISP=SHR 000700 //OUTVOL1 DD VOL=SER=EM3040,UNIT=3390,DISP=SHR 000800 //SYSIN DD * 000900 COPY FULL INDD(INVOL1) OUTDD(OUTVOL1) - 001000 COPYVOLID - 001100 ALLEXCP - 001200 ALLDATA(*) - 001300 CHECKVTOC - 001400 CANCELERROR - 001500 ADMINISTRATOR 000100 //SLUOA1 JOB ,'PHYSICAL FULL COPY',CLASS=L,MSGCLASS=T,TYPRUN=HOLD 000200 //*--------------------------------------------------------------------- 000300 //STEP0010 EXEC PGM=ADRDSSU,REGION=6M PARM='TYPRUN=NORUN' 000400 //* 000500 //SYSPRINT DD SYSOUT=* 000600 //INVOL1 DD VOL=SER=SLUOA1,UNIT=3390,DISP=SHR 000700 //OUTVOL1 DD VOL=SER=EM3040,UNIT=3390,DISP=SHR 000800 //SYSIN DD * 000900 COPY FULL INDD(INVOL1) OUTDD(OUTVOL1) - 001000 COPYVOLID - 001100 ALLEXCP - 001200 ALLDATA(*) - 001300 CHECKVTOC - 001400 CANCELERROR - 001500 ADMINISTRATOR 000100 //SLUOA1 JOB ,'PHYSICAL FULL COPY',CLASS=L,MSGCLASS=T,TYPRUN=HOLD 000200 //*--------------------------------------------------------------------- 000300 //STEP0010 EXEC PGM=ADRDSSU,REGION=6M PARM='TYPRUN=NORUN' 000400 //* 000500 //SYSPRINT DD SYSOUT=* 000600 //INVOL1 DD VOL=SER=SLUOA1,UNIT=3390,DISP=SHR 000700 //OUTVOL1 DD VOL=SER=EM3040,UNIT=3390,DISP=SHR 000800 //SYSIN DD * 000900 COPY FULL INDD(INVOL1) OUTDD(OUTVOL1) - 001000 COPYVOLID - 001100 ALLEXCP - 001200 ALLDATA(*) - 001300 CHECKVTOC - 001400 CANCELERROR - 001500 ADMINISTRATOR 000100 //SLUOA1 JOB ,'PHYSICAL FULL COPY',CLASS=L,MSGCLASS=T,TYPRUN=HOLD 000200 //*--------------------------------------------------------------------- 000300 //STEP0010 EXEC PGM=ADRDSSU,REGION=6M PARM='TYPRUN=NORUN' 000400 //* 000500 //SYSPRINT DD SYSOUT=* 000600 //INVOL1 DD VOL=SER=SLUOA1,UNIT=3390,DISP=SHR 000700 //OUTVOL1 DD VOL=SER=EM3040,UNIT=3390,DISP=SHR 000800 //SYSIN DD * 000900 COPY FULL INDD(INVOL1) OUTDD(OUTVOL1) - 001000 COPYVOLID - 001100 ALLEXCP - 001200 ALLDATA(*) - 001300 CHECKVTOC - 001400 CANCELERROR - 001500 ADMINISTRATOR 000100 //SLUOA1 JOB ,'PHYSICAL FULL COPY',CLASS=L,MSGCLASS=T,TYPRUN=HOLD 000200 //*--------------------------------------------------------------------- 000300 //STEP0010 EXEC PGM=ADRDSSU,REGION=6M PARM='TYPRUN=NORUN' 000400 //* 000500 //SYSPRINT DD SYSOUT=* 000600 //INVOL1 DD VOL=SER=SLUOA1,UNIT=3390,DISP=SHR 000700 //OUTVOL1 DD VOL=SER=EM3040,UNIT=3390,DISP=SHR 000800 //SYSIN DD * 000900 COPY FULL INDD(INVOL1) OUTDD(OUTVOL1) - 001000 COPYVOLID - 001100 ALLEXCP - 001200 ALLDATA(*) - 001300 CHECKVTOC - 001400 CANCELERROR - 001500 ADMINISTRATOR 000100 //SLUOA1 JOB ,'PHYSICAL FULL COPY',CLASS=L,MSGCLASS=T,TYPRUN=HOLD 000200 //*--------------------------------------------------------------------- 000300 //STEP0010 EXEC PGM=ADRDSSU,REGION=6M PARM='TYPRUN=NORUN' 000400 //* 000500 //SYSPRINT DD SYSOUT=* 000600 //INVOL1 DD VOL=SER=SLUOA1,UNIT=3390,DISP=SHR 000700 //OUTVOL1 DD VOL=SER=EM3040,UNIT=3390,DISP=SHR 000800 //SYSIN DD * 000900 COPY FULL INDD(INVOL1) OUTDD(OUTVOL1) - 001000 COPYVOLID - 001100 ALLEXCP - 001200 ALLDATA(*) - 001300 CHECKVTOC - 001400 CANCELERROR - 001500 ADMINISTRATOR 000100 //SLUOA1 JOB ,'PHYSICAL FULL COPY',CLASS=L,MSGCLASS=T,TYPRUN=HOLD 000200 //*--------------------------------------------------------------------- 000300 //STEP0010 EXEC PGM=ADRDSSU,REGION=6M PARM='TYPRUN=NORUN' 000400 //* 000500 //SYSPRINT DD SYSOUT=* 000600 //INVOL1 DD VOL=SER=SLUOA1,UNIT=3390,DISP=SHR 000700 //OUTVOL1 DD VOL=SER=EM3040,UNIT=3390,DISP=SHR 000800 //SYSIN DD * 000900 COPY FULL INDD(INVOL1) OUTDD(OUTVOL1) - 001000 COPYVOLID - 001100 ALLEXCP - 001200 ALLDATA(*) - 001300 CHECKVTOC - 001400 CANCELERROR - 001500 ADMINISTRATOR 000100 //SLUOA1 JOB ,'PHYSICAL FULL COPY',CLASS=L,MSGCLASS=T,TYPRUN=HOLD 000200 //*--------------------------------------------------------------------- 000300 //STEP0010 EXEC PGM=ADRDSSU,REGION=6M PARM='TYPRUN=NORUN' 000400 //* 000500 //SYSPRINT DD SYSOUT=* 000600 //INVOL1 DD VOL=SER=SLUOA1,UNIT=3390,DISP=SHR 000700 //OUTVOL1 DD VOL=SER=EM3040,UNIT=3390,DISP=SHR 000800 //SYSIN DD * 000900 COPY FULL INDD(INVOL1) OUTDD(OUTVOL1) - 001000 COPYVOLID - 001100 ALLEXCP - 001200 ALLDATA(*) - 001300 CHECKVTOC - 001400 CANCELERROR - 001500 ADMINISTRATOR 000100 //SLUOA1 JOB ,'PHYSICAL FULL COPY',CLASS=L,MSGCLASS=T,TYPRUN=HOLD 000200 //*--------------------------------------------------------------------- 000300 //STEP0010 EXEC PGM=ADRDSSU,REGION=6M PARM='TYPRUN=NORUN' 000400 //* 000500 //SYSPRINT DD SYSOUT=* 000600 //INVOL1 DD VOL=SER=SLUOA1,UNIT=3390,DISP=SHR 000700 //OUTVOL1 DD VOL=SER=EM3040,UNIT=3390,DISP=SHR 000800 //SYSIN DD * 000900 COPY FULL INDD(INVOL1) OUTDD(OUTVOL1) - 001000 COPYVOLID - 001100 ALLEXCP - 001200 ALLDATA(*) - 001300 CHECKVTOC - 001400 CANCELERROR - 001500 ADMINISTRATOR 000100 //SLUOA1 JOB ,'PHYSICAL FULL COPY',CLASS=L,MSGCLASS=T,TYPRUN=HOLD 000200 //*--------------------------------------------------------------------- 000300 //STEP0010 EXEC PGM=ADRDSSU,REGION=6M PARM='TYPRUN=NORUN' 000400 //* 000500 //SYSPRINT DD SYSOUT=* 000600 //INVOL1 DD VOL=SER=SLUOA1,UNIT=3390,DISP=SHR 000700 //OUTVOL1 DD VOL=SER=EM3040,UNIT=3390,DISP=SHR 000800 //SYSIN DD * 000900 COPY FULL INDD(INVOL1) OUTDD(OUTVOL1) - 001000 COPYVOLID - 001100 ALLEXCP - 001200 ALLDATA(*) - 001300 CHECKVTOC - 001400 CANCELERROR - 001500 ADMINISTRATOR 000100 //SLUOA1 JOB ,'PHYSICAL FULL COPY',CLASS=L,MSGCLASS=T,TYPRUN=HOLD 000200 //*--------------------------------------------------------------------- 000300 //STEP0010 EXEC PGM=ADRDSSU,REGION=6M PARM='TYPRUN=NORUN' 000400 //* 000500 //SYSPRINT DD SYSOUT=* 000600 //INVOL1 DD VOL=SER=SLUOA1,UNIT=3390,DISP=SHR 000700 //OUTVOL1 DD VOL=SER=EM3040,UNIT=3390,DISP=SHR 000800 //SYSIN DD * 000900 COPY FULL INDD(INVOL1) OUTDD(OUTVOL1) - 001000 COPYVOLID - 001100 ALLEXCP - 001200 ALLDATA(*) - 001300 CHECKVTOC - 001400 CANCELERROR - 001500 ADMINISTRATOR 000100 //SLUOA1 JOB ,'PHYSICAL FULL COPY',CLASS=L,MSGCLASS=T,TYPRUN=HOLD 000200 //*--------------------------------------------------------------------- 000300 //STEP0010 EXEC PGM=ADRDSSU,REGION=6M PARM='TYPRUN=NORUN' 000400 //* 000500 //SYSPRINT DD SYSOUT=* 000600 //INVOL1 DD VOL=SER=SLUOA1,UNIT=3390,DISP=SHR 000700 //OUTVOL1 DD VOL=SER=EM3040,UNIT=3390,DISP=SHR 000800 //SYSIN DD * 000900 COPY FULL INDD(INVOL1) OUTDD(OUTVOL1) - 001000 COPYVOLID - 001100 ALLEXCP - 001200 ALLDATA(*) - 001300 CHECKVTOC - 001400 CANCELERROR - 001500 ADMINISTRATOR 000100 //SLUOA1 JOB ,'PHYSICAL FULL COPY',CLASS=L,MSGCLASS=T,TYPRUN=HOLD 000200 //*--------------------------------------------------------------------- 000300 //STEP0010 EXEC PGM=ADRDSSU,REGION=6M PARM='TYPRUN=NORUN' 000400 //* 000500 //SYSPRINT DD SYSOUT=* 000600 //INVOL1 DD VOL=SER=SLUOA1,UNIT=3390,DISP=SHR 000700 //OUTVOL1 DD VOL=SER=EM3040,UNIT=3390,DISP=SHR 000800 //SYSIN DD * 000900 COPY FULL INDD(INVOL1) OUTDD(OUTVOL1) - 001000 COPYVOLID - 001100 ALLEXCP - 001200 ALLDATA(*) - 001300 CHECKVTOC - 001400 CANCELERROR - 001500 ADMINISTRATOR 000100 //SLUOA1 JOB ,'PHYSICAL FULL COPY',CLASS=L,MSGCLASS=T,TYPRUN=HOLD 000200 //*--------------------------------------------------------------------- 000300 //STEP0010 EXEC PGM=ADRDSSU,REGION=6M PARM='TYPRUN=NORUN' 000400 //* 000500 //SYSPRINT DD SYSOUT=* 000600 //INVOL1 DD VOL=SER=SLUOA1,UNIT=3390,DISP=SHR 000700 //OUTVOL1 DD VOL=SER=EM3040,UNIT=3390,DISP=SHR 000800 //SYSIN DD * 000900 COPY FULL INDD(INVOL1) OUTDD(OUTVOL1) - 001000 COPYVOLID - 001100 ALLEXCP - 001200 ALLDATA(*) - 001300 CHECKVTOC - 001400 CANCELERROR - 001500 ADMINISTRATOR 000100 //SLUOA1 JOB ,'PHYSICAL FULL COPY',CLASS=L,MSGCLASS=T,TYPRUN=HOLD 000200 //*--------------------------------------------------------------------- 000300 //STEP0010 EXEC PGM=ADRDSSU,REGION=6M PARM='TYPRUN=NORUN' 000400 //* 000500 //SYSPRINT DD SYSOUT=* 000600 //INVOL1 DD VOL=SER=SLUOA1,UNIT=3390,DISP=SHR 000700 //OUTVOL1 DD VOL=SER=EM3040,UNIT=3390,DISP=SHR 000800 //SYSIN DD * 000900 COPY FULL INDD(INVOL1) OUTDD(OUTVOL1) - 001000 COPYVOLID - 001100 ALLEXCP - 001200 ALLDATA(*) - 001300 CHECKVTOC - 001400 CANCELERROR - 001500 ADMINISTRATOR 000100 //SLUOA1 JOB ,'PHYSICAL FULL COPY',CLASS=L,MSGCLASS=T,TYPRUN=HOLD 000200 //*--------------------------------------------------------------------- 000300 //STEP0010 EXEC PGM=ADRDSSU,REGION=6M PARM='TYPRUN=NORUN' 000400 //* 000500 //SYSPRINT DD SYSOUT=* 000600 //INVOL1 DD VOL=SER=SLUOA1,UNIT=3390,DISP=SHR 000700 //OUTVOL1 DD VOL=SER=EM3040,UNIT=3390,DISP=SHR 000800 //SYSIN DD * 000900 COPY FULL INDD(INVOL1) OUTDD(OUTVOL1) - 001000 COPYVOLID - 001100 ALLEXCP - 001200 ALLDATA(*) - 001300 CHECKVTOC - 001400 CANCELERROR - 001500 ADMINISTRATOR 000100 //SLUOA1 JOB ,'PHYSICAL FULL COPY',CLASS=L,MSGCLASS=T,TYPRUN=HOLD 000200 //*--------------------------------------------------------------------- 000300 //STEP0010 EXEC PGM=ADRDSSU,REGION=6M PARM='TYPRUN=NORUN' 000400 //* 000500 //SYSPRINT DD SYSOUT=* 000600 //INVOL1 DD VOL=SER=SLUOA1,UNIT=3390,DISP=SHR 000700 //OUTVOL1 DD VOL=SER=EM3040,UNIT=3390,DISP=SHR 000800 //SYSIN DD * 000900 COPY FULL INDD(INVOL1) OUTDD(OUTVOL1) - 001000 COPYVOLID - 001100 ALLEXCP - 001200 ALLDATA(*) - 001300 CHECKVTOC - 001400 CANCELERROR - 001500 ADMINISTRATOR 000100 //SLUOA1 JOB ,'PHYSICAL FULL COPY',CLASS=L,MSGCLASS=T,TYPRUN=HOLD 000200 //*--------------------------------------------------------------------- 000300 //STEP0010 EXEC PGM=ADRDSSU,REGION=6M PARM='TYPRUN=NORUN' 000400 //* 000500 //SYSPRINT DD SYSOUT=* 000600 //INVOL1 DD VOL=SER=SLUOA1,UNIT=3390,DISP=SHR 000700 //OUTVOL1 DD VOL=SER=EM3040,UNIT=3390,DISP=SHR 000800 //SYSIN DD * 000900 COPY FULL INDD(INVOL1) OUTDD(OUTVOL1) - 001000 COPYVOLID - 001100 ALLEXCP - 001200 ALLDATA(*) - 001300 CHECKVTOC - 001400 CANCELERROR - 001500 ADMINISTRATOR 000100 //SLUOA1 JOB ,'PHYSICAL FULL COPY',CLASS=L,MSGCLASS=T,TYPRUN=HOLD 000200 //*--------------------------------------------------------------------- 000300 //STEP0010 EXEC PGM=ADRDSSU,REGION=6M PARM='TYPRUN=NORUN' 000400 //* 000500 //SYSPRINT DD SYSOUT=* 000600 //INVOL1 DD VOL=SER=SLUOA1,UNIT=3390,DISP=SHR 000700 //OUTVOL1 DD VOL=SER=EM3040,UNIT=3390,DISP=SHR 000800 //SYSIN DD * 000900 COPY FULL INDD(INVOL1) OUTDD(OUTVOL1) - 001000 COPYVOLID - 001100 ALLEXCP - 001200 ALLDATA(*) - 001300 CHECKVTOC - 001400 CANCELERROR - 001500 ADMINISTRATOR 000100 //SLUOA1 JOB ,'PHYSICAL FULL COPY',CLASS=L,MSGCLASS=T,TYPRUN=HOLD 000200 //*--------------------------------------------------------------------- 000300 //STEP0010 EXEC PGM=ADRDSSU,REGION=6M PARM='TYPRUN=NORUN' 000400 //* 000500 //SYSPRINT DD SYSOUT=* 000600 //INVOL1 DD VOL=SER=SLUOA1,UNIT=3390,DISP=SHR 000700 //OUTVOL1 DD VOL=SER=EM3040,UNIT=3390,DISP=SHR 000800 //SYSIN DD * 000900 COPY FULL INDD(INVOL1) OUTDD(OUTVOL1) - 001000 COPYVOLID - 001100 ALLEXCP - 001200 ALLDATA(*) - 001300 CHECKVTOC - 001400 CANCELERROR - 001500 ADMINISTRATOR 000100 //SLUOA1 JOB ,'PHYSICAL FULL COPY',CLASS=L,MSGCLASS=T,TYPRUN=HOLD 000200 //*--------------------------------------------------------------------- 000300 //STEP0010 EXEC PGM=ADRDSSU,REGION=6M PARM='TYPRUN=NORUN' 000400 //* 000500 //SYSPRINT DD SYSOUT=* 000600 //INVOL1 DD VOL=SER=SLUOA1,UNIT=3390,DISP=SHR 000700 //OUTVOL1 DD VOL=SER=EM3040,UNIT=3390,DISP=SHR 000800 //SYSIN DD * 000900 COPY FULL INDD(INVOL1) OUTDD(OUTVOL1) - 001000 COPYVOLID - 001100 ALLEXCP - 001200 ALLDATA(*) - 001300 CHECKVTOC - 001400 CANCELERROR - 001500 ADMINISTRATOR 000100 //SLUOA1 JOB ,'PHYSICAL FULL COPY',CLASS=L,MSGCLASS=T,TYPRUN=HOLD 000200 //*--------------------------------------------------------------------- 000300 //STEP0010 EXEC PGM=ADRDSSU,REGION=6M PARM='TYPRUN=NORUN' 000400 //* 000500 //SYSPRINT DD SYSOUT=* 000600 //INVOL1 DD VOL=SER=SLUOA1,UNIT=3390,DISP=SHR 000700 //OUTVOL1 DD VOL=SER=EM3040,UNIT=3390,DISP=SHR 000800 //SYSIN DD * 000900 COPY FULL INDD(INVOL1) OUTDD(OUTVOL1) - 001000 COPYVOLID - 001100 ALLEXCP - 001200 ALLDATA(*) - 001300 CHECKVTOC - 001400 CANCELERROR - 001500 ADMINISTRATOR 000100 //SLUOA1 JOB ,'PHYSICAL FULL COPY',CLASS=L,MSGCLASS=T,TYPRUN=HOLD 000200 //*--------------------------------------------------------------------- 000300 //STEP0010 EXEC PGM=ADRDSSU,REGION=6M PARM='TYPRUN=NORUN' 000400 //* 000500 //SYSPRINT DD SYSOUT=* 000600 //INVOL1 DD VOL=SER=SLUOA1,UNIT=3390,DISP=SHR 000700 //OUTVOL1 DD VOL=SER=EM3040,UNIT=3390,DISP=SHR 000800 //SYSIN DD * 000900 COPY FULL INDD(INVOL1) OUTDD(OUTVOL1) - 001000 COPYVOLID - 001100 ALLEXCP - 001200 ALLDATA(*) - 001300 CHECKVTOC - 001400 CANCELERROR - 001500 ADMINISTRATOR 000100 //SLUOA1 JOB ,'PHYSICAL FULL COPY',CLASS=L,MSGCLASS=T,TYPRUN=HOLD 000200 //*--------------------------------------------------------------------- 000300 //STEP0010 EXEC PGM=ADRDSSU,REGION=6M PARM='TYPRUN=NORUN' 000400 //* 000500 //SYSPRINT DD SYSOUT=* 000600 //INVOL1 DD VOL=SER=SLUOA1,UNIT=3390,DISP=SHR 000700 //OUTVOL1 DD VOL=SER=EM3040,UNIT=3390,DISP=SHR 000800 //SYSIN DD * 000900 COPY FULL INDD(INVOL1) OUTDD(OUTVOL1) - 001000 COPYVOLID - 001100 ALLEXCP - 001200 ALLDATA(*) - 001300 CHECKVTOC - 001400 CANCELERROR - 001500 ADMINISTRATOR 000100 //SLUOA1 JOB ,'PHYSICAL FULL COPY',CLASS=L,MSGCLASS=T,TYPRUN=HOLD 000200 //*--------------------------------------------------------------------- 000300 //STEP0010 EXEC PGM=ADRDSSU,REGION=6M PARM='TYPRUN=NORUN' 000400 //* 000500 //SYSPRINT DD SYSOUT=* 000600 //INVOL1 DD VOL=SER=SLUOA1,UNIT=3390,DISP=SHR 000700 //OUTVOL1 DD VOL=SER=EM3040,UNIT=3390,DISP=SHR 000800 //SYSIN DD * 000900 COPY FULL INDD(INVOL1) OUTDD(OUTVOL1) - 001000 COPYVOLID - 001100 ALLEXCP - 001200 ALLDATA(*) - 001300 CHECKVTOC - 001400 CANCELERROR - 001500 ADMINISTRATOR 000100 //SLUOA1 JOB ,'PHYSICAL FULL COPY',CLASS=L,MSGCLASS=T,TYPRUN=HOLD 000200 //*--------------------------------------------------------------------- 000300 //STEP0010 EXEC PGM=ADRDSSU,REGION=6M PARM='TYPRUN=NORUN' 000400 //* 000500 //SYSPRINT DD SYSOUT=* 000600 //INVOL1 DD VOL=SER=SLUOA1,UNIT=3390,DISP=SHR 000700 //OUTVOL1 DD VOL=SER=EM3040,UNIT=3390,DISP=SHR 000800 //SYSIN DD * 000900 COPY FULL INDD(INVOL1) OUTDD(OUTVOL1) - 001000 COPYVOLID - 001100 ALLEXCP - 001200 ALLDATA(*) - 001300 CHECKVTOC - 001400 CANCELERROR - 001500 ADMINISTRATOR 000100 //SLUOA1 JOB ,'PHYSICAL FULL COPY',CLASS=L,MSGCLASS=T,TYPRUN=HOLD 000200 //*--------------------------------------------------------------------- 000300 //STEP0010 EXEC PGM=ADRDSSU,REGION=6M PARM='TYPRUN=NORUN' 000400 //* 000500 //SYSPRINT DD SYSOUT=* 000600 //INVOL1 DD VOL=SER=SLUOA1,UNIT=3390,DISP=SHR 000700 //OUTVOL1 DD VOL=SER=EM3040,UNIT=3390,DISP=SHR 000800 //SYSIN DD * 000900 COPY FULL INDD(INVOL1) OUTDD(OUTVOL1) - 001000 COPYVOLID - 001100 ALLEXCP - 001200 ALLDATA(*) - 001300 CHECKVTOC - 001400 CANCELERROR - 001500 ADMINISTRATOR 000100 //SLUOA1 JOB ,'PHYSICAL FULL COPY',CLASS=L,MSGCLASS=T,TYPRUN=HOLD 000200 //*--------------------------------------------------------------------- 000300 //STEP0010 EXEC PGM=ADRDSSU,REGION=6M PARM='TYPRUN=NORUN' 000400 //* 000500 //SYSPRINT DD SYSOUT=* 000600 //INVOL1 DD VOL=SER=SLUOA1,UNIT=3390,DISP=SHR 000700 //OUTVOL1 DD VOL=SER=EM3040,UNIT=3390,DISP=SHR 000800 //SYSIN DD * 000900 COPY FULL INDD(INVOL1) OUTDD(OUTVOL1) - 001000 COPYVOLID - 001100 ALLEXCP - 001200 ALLDATA(*) - 001300 CHECKVTOC - 001400 CANCELERROR - 001500 ADMINISTRATOR 4. Stageopdracht: Volume movement (1) Verplaatsen volumes adressen 3010-3015 en 3020 ? Formateren ? Rollback ? Initialiseren ?

  13. 3015 32A7 3013 3010 3014 32A6 3020 3011 32A1 32A2 32A3 32A4 32A5 3012 // VOLSMIGR.CNTLSET // EXCLUDES: E3012 // IN-VOLS: S3010-3015 S3020 // OUT-VOLS: D32A1-32A7 TEMPLATES INIT COPYJCL REFORMAT REFORMUN 4. Stageopdracht: Volume movement (2) VOLSMIGR.REX

  14. 4. Stageopdracht: VPS met Europese printers (1) • Migratie Insurance  Europees • Printernamen wijzigen • Mainframe printers hardcoded Probleem ! Oplossing: VPS aanpassen

  15. 4. Stageopdracht: VPS met Europese printers (2) Insurance  European Naam + L / P Vb. DEST=H016L Naam + L / P Vb. DEST=H016L Printer op MF Naam + Parameters: PRODLAND of PRODPORT Vb. TCPPRTR=H016, PCMDSTRT= (PRODLAND,PRODLAND) Naam + Parameters: PRODLAND of PRODPORT Vb. TCPPRTR=PPBE2548, PCMDSTRT= (PRODLAND,PRODLAND) Printer bestemming én Uitzonderingen !

  16. 1 2 3 4 CEDS-IIB_printing.xls FTP (VINF3SOF.VPSCEDS.EXPORT.CSV) Programma VPSGENER CEDS NONCEDS 4. Stageopdracht: VPS met Europese printers (3)

  17. 4. Stageopdracht: VPS met Europese printers (4) Oplossing uitzonderingen ? • Alle printers geladen uit LISTVPS • Splitsing: • STATLVPS: Statisch • DYNLVPS: Dynamisch, door VPSGENER LISTVPS

  18. 4. Stageopdrachten • Disaster Recovery Procedure  Productie • Volume movement  Productie • VPS met Europese printers  Tested

  19. Vragen ? Besluit IBM Mainframes: ≠ School ≠ Windows / MacOS / Unix / Linux ≠ Dood !  MF streeft naar integratie

More Related