WikASi - Un peu de tout sur le i

   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.')
   

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