DUTAS re-platformed to Raincode - Initial Source Code

Procs/DESOLARS

@@ -0,0 +1,16 @@
+//*****
+//*       RESTORE SPEC OLA BKP FROM DESOLABK (AS IN PROD DAILY)
+//*        (THIS JOB ASSUMES THAT THE VSAM.OLA HAS BEEN ZAPPED)
+//*****
+//DESOLARS PROC LVLNDIN='PROD',LVLNDOUT='PROD',
+//           BKUPGEN='(+0)'
+//****
+//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0',
+//             COND=(0,LT)
+//SYSOUT   DD  SYSOUT=*
+//SORTIN   DD  DSN=DOESTAX.&LVLNDIN..BKP.EMTOLA&BKUPGEN.,
+//             DISP=SHR
+//SORTOUT  DD  DSN=DOESTAX.&LVLNDOUT..VSAM.OLA,DISP=SHR,
+//             AMP=('BUFNI=5,BUFND=20')
+//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR
+//****