Backup im Restricted Mode schedulen

[mic74]

Hallo Mitstreiter,

ich brauche mal einen kurzen Rat.
Ich möchte einen Fullsave laufen lassen, den aber im restricted Mode.
Kann ich im CL einen TFRJOB JOBQ(QCTL) hinterlegen damit der Job im QCTL weiterläuft, wenn ich die Subsysteme beende ?
Falls nicht, bin ich für jeden weiteren Rat dankbar.
Da das System in einem externen Rechenzentrum steht, kann ich as leider nicht direkt an der Console machen.

Danke für die Hilfe.

[holgerscherer]

Kann ich im CL einen TFRJOB JOBQ(QCTL) hinterlegen damit der Job im QCTL weiterläuft, wenn ich die Subsysteme beende ?

Warum so umständlich? Submitte einfach:

SBMJOB CMD(CALL QGPL/SAVEBCH)) JOBQ(QCTL)

Und hier SAVEBCH: (vorsicht, aus dem Schädel)

PGM                                                                   
                                                                      
             DCL        VAR(&ZAHL) TYPE(*DEC) LEN(1)                  
                                                                      
             MONMSG     MSGID(CPF0000)                                
             CHGJOB     LOG(4 00 *SECLVL) LOGCLPGM(*YES) +            
                          LOGOUTPUT(*JOBEND)                          
                                                                      
             CHGVAR     VAR(&ZAHL) VALUE(5)                           
                                                                      
             ENDSBS     SBS(*ALL) OPTION(*IMMED) BCHTIMLMT(180)       
             DLYJOB     DLY(120)                                      
             ENDSBS     SBS(*ALL) OPTION(*IMMED) BCHTIMLMT(180)       
             DLYJOB     DLY(120)                                      
                                                                      
             INZTAP     DEV(TAP01) NEWVOL(SAVE21) CHECK(*NO) +        
                          DENSITY(*CTGTYPE)                        
SAVESYS:                                                           
             SAVSYS     DEV(TAP01) ENDOPT(*LEAVE)                  
             MONMSG     MSGID(CPF3785) EXEC(DO)                    
             CHGVAR     VAR(&ZAHL) VALUE(&ZAHL - 1)                
             IF         COND(&ZAHL *EQ 0) THEN(GOTO CMDLBL(ENDABN))
             GOTO       CMDLBL(SAVESYS)                            
             ENDDO                                                 
                                                                   
                                                                   
            SAVLIB     LIB(*NONSYS) DEV(TAP01) ENDOPT(*LEAVE) +    
                         ACCPTH(*YES)                              
            SAVDLO     DLO(*ALL) DEV(TAP01) ENDOPT(*LEAVE)         
            SAV        DEV('/qsys.lib/tap01.devd') OBJ(('/*') +    
                         ('/QDLS' *OMIT) ('/QSYS.LIB' *OMIT))      
            CHKTAP     DEV(TAP01) ENDOPT(*REWIND)                  
            DSPTAP     DEV(TAP01) DATA(*SAVRST) OUTPUT(*PRINT)     
            STRSBS     SBSD(QCTL)                                  
            GOTO       CMDLBL(ENDE)                                
                                                                    
ENDABN:                                                             
             SNDMSG     MSG('Problem beim SAVSYS!') TOUSR(QSYSOPR)  
ENDE:                                                               
ENDPGM

Viel Spass!

Holger

[UFK]

Beides geht, denke ich.

Zur Synchronisation habe ich auch schon Jobs duch verschiedene Warteschlangen geschickt. Man muß sich nur den Status irgendwie passend merken oder als Parameter weitergeben, und den Prozeß jedesmal an der richtigen Stelle wieder aufsetzen.

Und auch eine Dialogsession, die an QINTER hängt, kann man nachträglich an QCTL transferrieren ...

[Fuerchau]

Achtung: Im eingeschränkten Zustand gibts keine Batch-Jobs !
Da gibts nur einen einzigen Dialog-Job.

[holgerscherer]

Achtung: Im eingeschränkten Zustand gibts keine Batch-Jobs !
Da gibts nur einen einzigen Dialog-Job.

Lieber Baldur,
seit V5R3 geht die Methode oben, und das ist ein schnuckeliger (aber der einzige) Batch-Job ;-)

-h