Différences

Ci-dessous, les différences entre deux révisions de la page.

--- index:logiciel:brms:dspsav [2025/04/17 22:21] – créée - modification externe 127.0.0.1
+++ index:logiciel:brms:dspsav [2025/08/18 19:18] (Version actuelle) – supprimée yrahary
@@ Ligne 1: / Ligne 1: @@
-==== Historique de sauvegarde BRMS (QA1AZCG) ====
-== Fichier Support ==
-     A          R DSPSAVF1
-      *‚
-     A            ZCGNAME       10A         COLHDG('CtrlGrp')
-      *‚Statistique
-     A            ZCGSIZE       16S 0       COLHDG('Taille')
-     A            SAVED          6S 0       COLHDG('Saved')
-     A            NOTSAVED       6S 0       COLHDG('NoSave')
-      *‚Horodatage
-     A            DEBDAT         6A         COLHDG('Debut')
-     A            DEBTIM         6A         COLHDG('_____')
-     A            FINTIM         6A         COLHDG('Fin')
-     A            FINDAT         6A         COLHDG('_____')
-      *‚Support
-     A            ZCGDEV        10A         COLHDG('Tape')
-     A            VOLUME       128A         COLHDG('volume')
-      *‚Travail
-     A            ZCGJOBNAM     10A         COLHDG('Job')
-     A            ZCGJOBUSR     10A         COLHDG('Usr')
-     A            ZCGJOBNUM      6A         COLHDG('Num')
-     A            ZCGSYS         8A         COLHDG('System')
-      *‚1 = Error
-      *‚0 = OK
-     A            ZCGSTATUS      1A         COLHDG('Etat')
-      *‚Objet / Type
-     A            ZCGTYP         4A         COLHDG('type')
-     A            SEQ            4S 0       COLHDG('Seq.')
-     A            ZCGLIB        10A         COLHDG('Biblio.')
-== Recuperation de l'historique de la sauvegarde ==
-  PGM (&job)
-  dcl &job    *char 10
-  dcl &NBR    *char  6
-  dcl &SEL    *char 128
-  dcl &MESS   *char 128
-  DLTF QTEMP/Z*
-  MONMSG CPF0000
-  CRTDUPOBJ  OBJ(DSPSAVP) FROMLIB(*LIBL) OBJTYPE(*FILE) +
-               TOLIB(QTEMP) NEWOBJ(ZSAVP)
-  IF         COND(&JOB = '*LAST') THEN(DO)
-	     CRTPF      FILE(QTEMP/ZDEBSAV) RCDLEN(13)
-             OPNQRYF    FILE((QUSRBRM/QA1AZCG)) +
-                          FORMAT(QTEMP/ZDEBSAV) MAPFLD((ZDEBSAV +
-                          '%MAX(ZCGSSVT)'))
-             CPYFRMQRYF FROMOPNID(QA1AZCG) TOFILE(QTEMP/ZDEBSAV) +
-                          MBROPT(*REPLACE) CRTFILE(*YES) +
-                          FMTOPT(*MAP *DROP)
-             CLOF       OPNID(QA1AZCG)
-/* Recuperer la derniere sauvegarde effectuee */
-             OPNQRYF    FILE((QUSRBRM/QA1AZCG) (QTEMP/ZDEBSAV)) +
-                          FORMAT(QTEMP/ZSAVP) JFLD((1/ZCGSSVT 2/ZDEBSAV)) +
-        MAPFLD((DEBDAT    '%SST(1/ZCGSSVT 2 6)') +
-               (DEBTIM    '%SST(1/ZCGSSVT 8 6)') +
-               (FINDAT    '%SST(1/ZCGESVT 2 6)') +
-               (FINTIM    '%sst(1/ZCGESVT 8 6)') +
-               (ZCGSYS    '1/ZCGSYS') +
-               (ZCGNAME   '1/ZCGNAME') +
-               (ZCGLIB    '"*ALL"') +
-               (ZCGTYP    '"*SUM"') +
-               (ZCGSTATUS '1/ZCGSTATUS') +
-               (ZCGJOBNAM '1/ZCGJOBNAM') +
-               (ZCGJOBUSR '1/ZCGJOBUSR') +
-               (ZCGJOBNUM '%DIGITS(1/ZCGJOBNUM)') +
-               (ZCGSIZE   '1/ZCGSIZE') +
-               (SAVED    '1/ZCGSAV') +
-               (NOTSAVED  '1/ZCGERR') +
-               (ZCGDEV    '1/ZCGDEV') +
-               (SEQ       '0') +
-               (VOLUME  '%sst(1/ZCGVOLS 1 128)'))
-   ENDDO
-   ELSE       CMD(DO)
-   CHGVAR &SEL ('1/ZCGJOBNAM = %WLDCRD("' *CAT &JOB *TCAT '*")')
-             OPNQRYF    FILE((QUSRBRM/QA1AZCG)) FORMAT(QTEMP/ZSAVP) +
-        QRYSLT(&SEL) +
-        KEYFLD((*MAPFLD/DEBDAT *DESCEND) +
-               (*MAPFLD/DEBTIM *DESCEND)) +
-        MAPFLD((DEBDAT    '%SST(1/ZCGSSVT 2 6)') +
-               (DEBTIM    '%SST(1/ZCGSSVT 8 6)') +
-               (FINDAT    '%SST(1/ZCGESVT 2 6)') +
-               (FINTIM    '%sst(1/ZCGESVT 8 6)') +
-               (ZCGSYS    '1/ZCGSYS') +
-               (ZCGNAME   '1/ZCGNAME') +
-               (ZCGLIB    '"*ALL"') +
-               (ZCGTYP    '"*SUM"') +
-               (ZCGSTATUS  '1/ZCGSTATUS') +
-               (ZCGJOBNAM '1/ZCGJOBNAM') +
-               (ZCGJOBUSR '1/ZCGJOBUSR') +
-               (ZCGJOBNUM '%DIGITS(1/ZCGJOBNUM)') +
-               (ZCGSIZE   '1/ZCGSIZE') +
-               (SAVED    '1/ZCGSAV') +
-               (NOTSAVED  '1/ZCGERR') +
-               (ZCGDEV    '1/ZCGDEV') +
-               (SEQ       '0') +
-               (VOLUME  '%sst(1/ZCGVOLS 1 128)') +
-               (NBR     '%DIGITS(1/ZCGJOBNUM)'))
-   ENDDO
-             CPYFRMQRYF FROMOPNID(QA1AZCG) TOFILE(QTEMP/ZSAVP) +
-                          MBROPT(*REPLACE)
-             CLOF       OPNID(QA1AZCG)
-/* Affichage des informations      */
-             RUNQRY     QRYFILE((QTEMP/ZSAVP))
- FIN:        ENDPGM