Tape Library TS3100 per CL Befehl Bänder für Sicherung laden

[RMBinder]

Hallo Liebe Gemeinde,

als Neuer im Unternehmen darf ich die Nachtsicherungsprozedur der AS400 Backup Maschine neu aufbauen. Wir haben eine TS3100 die über ca. 20 Lots mit Bändern verfügt.
Im CL Sicherungsprogramm möchte ich gerne das Band aus einem bestimmten Slot laden, sicheren und das Band wieder an den selben Platz zurückschieben.
>>> Wir setzten zur Zeit keine Software wie BRMS oder ähnliches ein.

Kann man das mit iSeries Bordmittel realisieren?
Hat jemand ein Bsp. CL dafür?

Danke vorab.

[Chris.jan]

Mit DSPTAPCTG *outfile siehst du ja welches Band wo liegt, dann kannst Du beim entsprechenden SAV-Befehl dann auch das dazugehörige Band ansprechen.

[RMBinder]

Danke, an dem Befehl war ich auch schon. Leider ist das Tape nicht als Bandlaufwerk auf der As400 definiert sondern als Standalone Tape. ggf. müssen wir hier umstellen?

[RMBinder]

nicht Bandlaufwerk sondern Bandarchiv!!!

[Chris.jan]

Mit einem WRKCFGSTS *DEV *TAP* siehst Du ganz gut, was gerade angehangen ist.
Grundsätzlich darf immer nur Bandarchiv ODER Laufwerk angehangen sein!
Beim WRKMLBSTS siehst Du leider die zugeordneten Laufwerke nur, wenn das Bandarchivg angehangen ist.
Also empfiehlt es sich schon, mit der Tape-Library zu arbeiten. Dann brauchst Du auch keine Slots mehr zu verarbeiten, sondern arbeitest grundsätzlich nur mit Bandnummern.
Allerdings ist besonders wichtig, sich tape-Kategorien anzulegen, und wenn es nur *NOSHARE400 ist.
Sonst funktionieren die alten Scripte nicht mehr, vor allen Dingen wird *MOUNTED als Bandnummer bnicht mehr akzeptiert.
ich empfehle am besten mal die folgende Technote.

[RMBinder]

Hallo zusammen,

Danke für die Anregungen aus dem Forum, Herr Fröhlich und an den IBM Support. Jetzt steht das neue Sicherungskonzept. Sicherung auf Kassettenbandlaufwerk per CL Befehl.
>>> Tages und Monatssicherung.
Die Auswahl der Bänder wurde in CL hart codiert. Werde ich zur gegebener Zeit ändern. Die Problemmatik des 29.Februar kennen wir und werden entsprechend im Jahresabschluss die Änderung durchführen.

Wenn interessiert, anbei die Beispielfassung:

5761WDS V7R1M0 100416 SEU-QUELLENLISTE 15.03.17 09:38:11 PWR8BACK S. 1
QUELLENDATEI . . . . . . SICHERUNG/QCLSRC
TEILDATEI . . . . . . . . SMK5
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 /************************************************** ******************/ 08.03.17
200 /* */ 08.03.17
300 /* 5770SS1 V7R1M0 100423 RTVCLSRC-Ausgabe 08.03.17 */ 08.03.17
400 /* */ 08.03.17
500 /* Programmname . . . . . . . . . . . . . . : SMK5 */ 08.03.17
600 /* Bibliotheksname . . . . . . . . . . . . : QGPL */ 08.03.17
700 /* Ursprüngliche Quellendatei . . . . . . . : QCLSRC */ 08.03.17
800 /* Bibliotheksname . . . . . . . . . . . . : SICHERUNG */ 08.03.17
900 /* Ursprüngliche Quellenteildatei . . . . . : SMK1 */ 08.03.17
1000 /* Änderung der Quellendatei */ 08.03.17
1100 /* Datum/Uhrzeit . . . . . . . . . . . . : 08.03.17 */ 08.03.17
1200 /* Korrekturangabe . . . . . . . . . . . . : *NOPATCH */ 08.03.17
1300 /* Benutzerprofil . . . . . . . . . . . . . : *QSECOFR */ 08.03.17
1400 /* Text . . . : PGM umwandeln und starten als QSECOFR mit *OWNER */ 08.03.17
1500 /* */ 08.03.17
1600 /* ACHTUNG UMWANDELN MIT +USRPRF *OWNER IN QGPL */ 08.03.17
1700 /* AUF DEM BACKUPSYSTEM */ 08.03.17
1800 /* */ 08.03.17
1900 /* Eigner . . . . . . . . . . . . . . . . . : QSECOFR */ 08.03.17
2000 /* Benutzermodus . . . . . . . . . . . . . : *YES */ 08.03.17
2100 /* Eingeschlossene Quelle abrufen . . . . . : *NO */ 08.03.17
2101 /* */ 13.03.17
2102 /* */ 13.03.17
2103 /* NEUE BÄNDER MÜSSEN DEM ARCHIV BEKANNT GEMACHT WERDEN!!! */ 13.03.17
2104 /* BÄNDER EINLEGEN UND MIT DEM BEFEHL LADEN (Z.B. BAND 19) */ 13.03.17
2107 /* */ 13.03.17
2200 /* ADDTAPCTG DEV(TAPMLB01) CTG(SMK019) */ 13.03.17
2201 /* */ 13.03.17
2202 /* DANACH MANUELL AUS DEM DRIVE ZURÜCK IN DEN SLOT SCHIEBEN. */ 13.03.17
2203 /* PRÜFEN MIT BEFEHL */ 13.03.17
2204 /* */ 13.03.17
2205 /* WRKTAPCTG DEV(TAPMLB01) */ 13.03.17
2206 /* */ 13.03.17
2207 /* STATUS MUß verfügbar LAUTEN */ 13.03.17
2208 /* */ 13.03.17
2300 /************************************************** ******************/ 08.03.17
2400 PGM 08.03.17
2401 DCL VAR(&DATUM) TYPE(*CHAR) LEN(6) 08.03.17
2402 DCL VAR(&WOTAG) TYPE(*CHAR) LEN(4) 08.03.17
2403 DCL VAR(&BAND) TYPE(*CHAR) LEN(6) 08.03.17
2404 DCL VAR(&MON_TAG) TYPE(*CHAR) LEN(4) 08.03.17
2405 08.03.17
2406 DCL VAR(&MON) TYPE(*CHAR) LEN(6) 08.03.17
2407 DCL VAR(&TUE) TYPE(*CHAR) LEN(6) 08.03.17
2408 DCL VAR(&WED) TYPE(*CHAR) LEN(6) 08.03.17
2409 DCL VAR(&THU) TYPE(*CHAR) LEN(6) 08.03.17
2410 DCL VAR(&FRI) TYPE(*CHAR) LEN(6) 08.03.17
2411 DCL VAR(&SAT) TYPE(*CHAR) LEN(6) 08.03.17
2412 DCL VAR(&SUN) TYPE(*CHAR) LEN(6) 08.03.17
2413 08.03.17
2414 DCL VAR(&JAN) TYPE(*CHAR) LEN(6) 08.03.17
2415 DCL VAR(&FEB) TYPE(*CHAR) LEN(6) 08.03.17
2416 DCL VAR(&MAR) TYPE(*CHAR) LEN(6) 08.03.17
2417 DCL VAR(&APR) TYPE(*CHAR) LEN(6) 08.03.17
2418 DCL VAR(&MAI) TYPE(*CHAR) LEN(6) 08.03.17
2419 DCL VAR(&JUN) TYPE(*CHAR) LEN(6) 08.03.17
2420 DCL VAR(&JUL) TYPE(*CHAR) LEN(6) 08.03.17
2421 DCL VAR(&AUG) TYPE(*CHAR) LEN(6) 08.03.17
2422 DCL VAR(&SEP) TYPE(*CHAR) LEN(6) 08.03.17
2423 DCL VAR(&OKT) TYPE(*CHAR) LEN(6) 08.03.17
2424 DCL VAR(&NOV) TYPE(*CHAR) LEN(6) 08.03.17
2425 DCL VAR(&DEZ) TYPE(*CHAR) LEN(6) 08.03.17
2426 08.03.17
2428 CHGVAR VAR(&MON) VALUE('SMK001') /* BAND MONTAG */ 08.03.17
2429 CHGVAR VAR(&TUE) VALUE('SMK002') /* BAND DIENSTAG */ 08.03.17
2430 CHGVAR VAR(&WED) VALUE('SMK003') /* BAND MITTWOCH */ 08.03.17
2431 CHGVAR VAR(&THU) VALUE('SMK004') /* BAND DONNERSTAG */ 08.03.17
2432 CHGVAR VAR(&FRI) VALUE('SMK005') /* BAND FREITAG */ 08.03.17
2433 CHGVAR VAR(&SAT) VALUE('SMK006') /* BAND SAMSTAG */ 08.03.17
2434 CHGVAR VAR(&SUN) VALUE('SMK007') /* BAND SONTAG */ 08.03.17
2435 08.03.17
2436 CHGVAR VAR(&JAN) VALUE('SMK008') /* BAND ENDE JANUAR */ 08.03.17
2437 CHGVAR VAR(&FEB) VALUE('SMK009') /* BAND ENDE FEBRUAR */ 08.03.17
2438 CHGVAR VAR(&MAR) VALUE('SMK010') /* BAND ENDE MÄRZ */ 08.03.17
2439 CHGVAR VAR(&APR) VALUE('SMK011') /* BAND ENDE APRIL */ 08.03.17
2440 CHGVAR VAR(&MAI) VALUE('SMK012') /* BAND ENDE MAI */ 08.03.17
2441 CHGVAR VAR(&JUN) VALUE('SMK013') /* BAND ENDE JUNI */ 08.03.17
2442 CHGVAR VAR(&JUL) VALUE('SMK014') /* BAND ENDE JULI */ 08.03.17
2443 CHGVAR VAR(&AUG) VALUE('SMK015') /* BAND ENDE AUGUST */ 08.03.17
2444 CHGVAR VAR(&SEP) VALUE('SMK016') /* BAND ENDE SEPTEMBER */ 08.03.17
2445 CHGVAR VAR(&OKT) VALUE('SMK017') /* BAND ENDE OKTOBER */ 08.03.17
2446 CHGVAR VAR(&NOV) VALUE('SMK018') /* BAND ENDE NOVEMBER */ 08.03.17
2447 CHGVAR VAR(&DEZ) VALUE('SMK019') /* BAND ENDE DEZEMBER */ 08.03.17
2448 08.03.17
2500 RTVJOBA DATE(&DATUM) DAYOFWEEK(&WOTAG) 08.03.17
2501 08.03.17
2502 CHGVAR VAR(&MON_TAG) VALUE(%SST(&DATUM 1 4)) 08.03.17
2503 13.03.17
2504 /* MONATSSICHERUNGEN */ 08.03.17
2505 IF COND(&MON_TAG *EQ '3101') THEN(DO) /* JANUAR */ 08.03.17
2506 CHGVAR VAR(&BAND) VALUE(&JAN) 08.03.17
2507 GOTO CMDLBL(BEGINN) 08.03.17
2508 ENDDO 08.03.17
2509 08.03.17
2510 IF COND(&MON_TAG *EQ '2802') THEN(DO) /* FEBRUAR */ 08.03.17
2511 CHGVAR VAR(&BAND) VALUE(&FEB) 08.03.17
2512 GOTO CMDLBL(BEGINN) 08.03.17
2513 ENDDO 08.03.17
2514 08.03.17
2515 IF COND(&MON_TAG *EQ '3103') THEN(DO) /* MÄRZ */ 08.03.17
2516 CHGVAR VAR(&BAND) VALUE(&MAR) 08.03.17
2517 GOTO CMDLBL(BEGINN) 08.03.17
2518 ENDDO 08.03.17
2519 08.03.17
2520 IF COND(&MON_TAG *EQ '3004') THEN(DO) /* APRIL */ 08.03.17
2521 CHGVAR VAR(&BAND) VALUE(&APR) 08.03.17
2522 GOTO CMDLBL(BEGINN) 08.03.17
2523 ENDDO 08.03.17
2524 08.03.17
2526 IF COND(&MON_TAG *EQ '3105') THEN(DO) /* MAI */ 08.03.17
2527 CHGVAR VAR(&BAND) VALUE(&MAI) 08.03.17
2528 GOTO CMDLBL(BEGINN) 08.03.17
2529 ENDDO 08.03.17
2530 08.03.17
2531 IF COND(&MON_TAG *EQ '3006') THEN(DO) /* JUNI */ 08.03.17
2532 CHGVAR VAR(&BAND) VALUE(&JUN) 08.03.17
2533 GOTO CMDLBL(BEGINN) 08.03.17
2534 ENDDO 08.03.17
2535 08.03.17
2536 IF COND(&MON_TAG *EQ '3107') THEN(DO) /* JULI */ 08.03.17
2537 CHGVAR VAR(&BAND) VALUE(&JUL) 08.03.17
2538 GOTO CMDLBL(BEGINN) 08.03.17
2539 ENDDO 08.03.17
2540 08.03.17
2541 IF COND(&MON_TAG *EQ '3108') THEN(DO) /* AUGUST */ 08.03.17
2542 CHGVAR VAR(&BAND) VALUE(&AUG) 08.03.17
2543 GOTO CMDLBL(BEGINN) 08.03.17
2544 ENDDO 08.03.17
2545 08.03.17
2546 IF COND(&MON_TAG *EQ '3009') THEN(DO) /* SEPTEMBER */ 08.03.17
2547 CHGVAR VAR(&BAND) VALUE(&SEP) 08.03.17
2548 GOTO CMDLBL(BEGINN) 08.03.17
2549 ENDDO 08.03.17
2550 08.03.17
2551 IF COND(&MON_TAG *EQ '3110') THEN(DO) /* OKTOBER */ 08.03.17
2552 CHGVAR VAR(&BAND) VALUE(&OKT) 08.03.17
2553 GOTO CMDLBL(BEGINN) 08.03.17
2554 ENDDO 08.03.17
2555 08.03.17
2556 IF COND(&MON_TAG *EQ '3011') THEN(DO) /* NOVEMBER */ 08.03.17
2557 CHGVAR VAR(&BAND) VALUE(&NOV) 08.03.17
2558 GOTO CMDLBL(BEGINN) 08.03.17
2559 ENDDO 08.03.17
2560 08.03.17
2561 IF COND(&MON_TAG *EQ '3112') THEN(DO) /* DEZEMBER */ 08.03.17
2562 CHGVAR VAR(&BAND) VALUE(&DEZ) 08.03.17
2563 GOTO CMDLBL(BEGINN) 08.03.17
2564 ENDDO 08.03.17
2565 08.03.17
2566 /* TAGESSICHERUNGEN */ 08.03.17
2575 08.03.17
2576 IF COND(&WOTAG *EQ '*MON') THEN(DO) 08.03.17
2577 CHGVAR VAR(&BAND) VALUE(&MON) 08.03.17
2578 GOTO CMDLBL(BEGINN) 08.03.17
2579 ENDDO 08.03.17
2580 08.03.17
2581 IF COND(&WOTAG *EQ '*TUE') THEN(DO) 08.03.17
2582 CHGVAR VAR(&BAND) VALUE(&TUE) 08.03.17
2583 GOTO CMDLBL(BEGINN) 08.03.17
2584 ENDDO 08.03.17
2585 08.03.17
2586 IF COND(&WOTAG *EQ '*WED') THEN(DO) 08.03.17
2587 CHGVAR VAR(&BAND) VALUE(&WED) 08.03.17
2588 GOTO CMDLBL(BEGINN) 08.03.17
2589 ENDDO 08.03.17
2590 08.03.17
2591 IF COND(&WOTAG *EQ '*THU') THEN(DO) 08.03.17
2592 CHGVAR VAR(&BAND) VALUE(&THU) 08.03.17
2593 GOTO CMDLBL(BEGINN) 08.03.17
2594 ENDDO 08.03.17
2595 08.03.17
2596 IF COND(&WOTAG *EQ '*FRI') THEN(DO) 08.03.17
2597 CHGVAR VAR(&BAND) VALUE(&FRI) 08.03.17
2598 GOTO CMDLBL(BEGINN) 08.03.17
2599 ENDDO 08.03.17
2600 08.03.17
2601 IF COND(&WOTAG *EQ '*SAT') THEN(DO) 08.03.17
2602 CHGVAR VAR(&BAND) VALUE(&SAT) 08.03.17
2603 GOTO CMDLBL(BEGINN) 08.03.17
2604 ENDDO 08.03.17
2605 08.03.17
2606 IF COND(&WOTAG *EQ '*SUN') THEN(DO) 08.03.17
2607 CHGVAR VAR(&BAND) VALUE(&SUN) 08.03.17
2608 GOTO CMDLBL(BEGINN) 08.03.17
2609 ENDDO 08.03.17
2610 08.03.17
2611 /* KEIN BAND VERFÜGBAR */ 13.03.17
2612 SNDMSG MSG('Es ist kein Wochentag erkannt worden. + 08.03.17
2613 Sicherung wird abgebrochen. BITTE + 08.03.17
2614 JOBPROTOKOLL TÄGLICHE SICHERUNG PRÜFEN.') + 08.03.17
2615 TOUSR(*SYSOPR) 13.03.17
2616 GOTO CMDLBL(ENDE) 08.03.17
2617 08.03.17
2618 08.03.17
2622 BEGINN: 08.03.17
2623 /* INIZIALISIEREN */ 13.03.17
2624 13.03.17
2625 CHGJOB JOB(*) OUTQ(QPRINT) LOG(4 00 *SECLVL) + 13.03.17
2626 LOGCLPGM(*YES) 13.03.17
2627 MONMSG MSGID(CPF0000) 13.03.17
2628 13.03.17
2629 INZTAP DEV(TAPMLB01) NEWVOL(*CTGID) NEWOWNID(SMK) + 13.03.17
2630 VOL(&BAND) CHECK(*NO) DENSITY(*ULTRIUM6) + 13.03.17
2631 ENDOPT(*REWIND) 13.03.17
2632 13.03.17
2634 CHKTAP DEV(TAPMLB01) VOL(&BAND) ENDOPT(*REWIND) 13.03.17
2635 MONMSG MSGID(CPF0000) EXEC(DO) 13.03.17
2636 SNDMSG MSG('Prüfung des Bandlaufwerk für ' *CAT + 13.03.17
2637 &WOTAG *TCAT ' nicht erfolgreich. + 13.03.17
2638 Sicherung auf Band ' *CAT &BAND *TCAT ' + 13.03.17
2639 nicht möglich') TOUSR(*SYSOPR) 13.03.17
2640 ENDDO 13.03.17
2641 13.03.17
2642 DLYJOB DLY(180) 13.03.17
2643 13.03.17
2654 /* SUBSYSTEME BEENDEN */ 13.03.17
2655 13.03.17
2656 CHGMSGQ MSGQ(QSYSOPR) DLVRY(*BREAK) SEV(70) 13.03.17
2657 13.03.17
2658 ENDSBS SBS(*ALL) OPTION(*IMMED) DELAY(60) 13.03.17
2660 MONMSG MSGID(CPF0000) 13.03.17
2661 13.03.17
2662 DLYJOB DLY(300) 13.03.17
2663 13.03.17
2664 OVRPRTF FILE(QPDSPAJB) OUTQ(QPRINT) MAXRCDS(*NOMAX) + 13.03.17
2665 HOLD(*YES) 13.03.17
2666 WRKACTJOB OUTPUT(*PRINT) 13.03.17
2667 13.03.17
2668 /* SICHERUNG BEGINNT */ 13.03.17
2669 13.03.17
2675 13.03.17
2676 /* */ 13.03.17
2677 OVRPRTF FILE(QPTAPDSP) OUTQ(QPRINT) MAXRCDS(*NOMAX) + 13.03.17
2678 HOLD(*YES) 13.03.17
2679 13.03.17
2680 SAVSECDTA DEV(TABMLB01) VOL(&BAND) ENDOPT(*LEAVE) + 13.03.17
2681 OUTPUT(*PRINT) 13.03.17
2682 MONMSG MSGID(CPF0000) EXEC(SNDMSG MSG('Sicherung + 13.03.17
2683 hatte ein Problem Bitte Joblog prüfen, + 13.03.17
2684 SAVSECDTA') TOUSR(*SYSOPR)) 13.03.17
2685 13.03.17
2686 /* */ 13.03.17
2688 OVRPRTF FILE(QPSAVOBJ) OUTQ(QPRINT) MAXRCDS(*NOMAX) + 13.03.17
2689 HOLD(*YES) 13.03.17
2690 13.03.17
2691 SAVCFG DEV(TAPMLB01) VOL(&BAND) ENDOPT(*LEAVE) + 13.03.17
2692 OUTPUT(*PRINT) 13.03.17
2693 MONMSG MSGID(CPF0000) EXEC(SNDMSG MSG('Sicherung + 13.03.17
2694 hatte ein Problem Bitte Joblog prüfen, + 13.03.17
2695 SAVCFG') TOUSR(*SYSOPR)) 13.03.17
2696 13.03.17
2697 /* */ 13.03.17
2699 OVRPRTF FILE(QPSAVOBJ) OUTQ(QPRINT) MAXRCDS(*NOMAX) + 13.03.17
2700 HOLD(*YES) 13.03.17
2701 13.03.17
2702 SAVLIB LIB(*IBM) DEV(TAPMLB01) VOL(&BAND) + 13.03.17
2703 SEQNBR(*END) ENDOPT(*LEAVE) CLEAR(*ALL) + 13.03.17
2704 ACCPTH(*YES) SPLFDTA(*ALL) OUTPUT(*PRINT) 13.03.17
2705 MONMSG MSGID(CPF0000) EXEC(SNDMSG + 13.03.17
2706 MSG('Vollsicherung hatte ein Problem + 13.03.17
2707 Bitte Joblog prüfen, SAVLIB *IBM') + 13.03.17
2708 TOUSR(*SYSOPR)) 13.03.17
2709 13.03.17
2710 /* */ 13.03.17
2712 OVRPRTF FILE(QPSAVOBJ) OUTQ(QPRINT) MAXRCDS(*NOMAX) + 13.03.17
2713 HOLD(*YES) 13.03.17
2714 13.03.17
2715 SAVLIB LIB(*ALLUSR) DEV(TAPMLB01) VOL(&BAND) + 13.03.17
2716 SEQNBR(*END) ENDOPT(*LEAVE) CLEAR(*ALL) + 13.03.17
2717 ACCPTH(*YES) SPLFDTA(*ALL) OUTPUT(*PRINT) 13.03.17
2718 MONMSG MSGID(CPF0000) EXEC(SNDMSG MSG(' + 13.03.17
2719 Vollsicherung hatte ein Problem Bitte + 13.03.17
2720 Joblog prüfen, SAVLIB *allusr') + 13.03.17
2721 TOUSR(*SYSOPR)) 13.03.17
2722 13.03.17
2723 /* */ 13.03.17
2724 OVRPRTF FILE(QPDSPAJB) OUTQ(QPRINT) MAXRCDS(*NOMAX) + 13.03.17
2725 HOLD(*YES) 13.03.17
2726 WRKACTJOB OUTPUT(*PRINT) 13.03.17
2727 13.03.17
2728 /* */ 13.03.17
2729 OVRPRTF FILE(QPSAVDLO) OUTQ(QPRINT) MAXRCDS(*NOMAX) + 13.03.17
2730 HOLD(*YES) 13.03.17
2731 13.03.17
2732 13.03.17
2733 SAVDLO DLO(*ALL) DEV(TAPMLB01) VOL(&BAND) + 13.03.17
2734 ENDOPT(*LEAVE) CLEAR(*ALL) 13.03.17
2735 MONMSG MSGID(CPF0000) EXEC(SNDMSG MSG(' Sicherung + 13.03.17
2736 von Folder hatte eine Problem bitte + 13.03.17
2737 Joblog prüfen, SAVDLO') TOUSR(*SYSOPR)) 13.03.17
2738 /* */ 13.03.17
2739 OVRPRTF FILE(QPDSPAJB) OUTQ(QPRINT) MAXRCDS(*NOMAX) + 13.03.17
2740 HOLD(*YES) 13.03.17
2741 WRKACTJOB OUTPUT(*PRINT) 13.03.17
2742 13.03.17
2743 /* */ 13.03.17
2745 OVRPRTF FILE(QSYSPRT) OUTQ(QPRINT) MAXRCDS(*NOMAX) + 13.03.17
2746 HOLD(*YES) 13.03.17
2747 13.03.17
2748 SAV DEV('/QSYS.LIB/TAPMLB01.DEVD') OBJ(('/*') + 13.03.17
2749 ('/QSYS.LIB' *OMIT) ('/QDLS' *OMIT)) + 13.03.17
2750 OUTPUT(*PRINT) VOL(&BAND) ENDOPT(*REWIND) + 13.03.17
2751 UPDHST(*YES) CLEAR(*ALL) 13.03.17
2752 MONMSG MSGID(CPF0000) EXEC(SNDMSG MSG(' Sicherung + 13.03.17
2753 von IFS Hatte eine Problem bitte Joblog + 13.03.17
2754 prüfen') TOUSR(*SYSOPR)) 13.03.17
2755 13.03.17
2771 13.03.17
2772 /* BANDINHALT AUFLISTEN */ 13.03.17
2773 13.03.17
2775 OVRPRTF FILE(QPTAPDSP) OUTQ(QPRINT) MAXRCDS(*NOMAX) + 13.03.17
2776 HOLD(*YES) 13.03.17
2777 13.03.17
2778 DSPTAP DEV(TAPMLB01) VOL(&BAND) DATA(*SAVRST) + 13.03.17
2779 OUTPUT(*PRINT) ENDOPT(*UNLOAD) 13.03.17
2780 13.03.17
2781 13.03.17
2782 /* SICHERUNG ERFOLGREICH ? */ 13.03.17
2783 SNDMSG MSG('Wochentagssicherung ' *CAT &WOTAG + 08.03.17
2784 *TCAT ' erfolgreich beendet, Sicherung + 08.03.17
2785 auf Band ' *CAT &BAND *TCAT ' .') + 08.03.17
2786 TOUSR(*SYSOPR) 13.03.17
2787 08.03.17
2788 ENDE: 13.03.17
2789 08.03.17
2790 DLYJOB DLY(300) 13.03.17
2791 /* PWRDWNSYS OPTION(*CNTRLD) DELAY(300) RESTART(*YES) */ 13.03.17
2792 PWRDWNSYS OPTION(*IMMED) RESTART(*YES) 13.03.17
2793 13.03.17
12400 ENDPGM 08.03.17
* * * E N D E D E R Q U E L L E * * *